Microsoft MVP성태의 닷넷 이야기
아무리 고민해도 답이 안나와서.. 질문 드립니다 [링크 복사], [링크+제목 복사]
조회: 3861
글쓴 사람
heyhey
홈페이지
첨부 파일
 
asp.net으로 작성///////////////// vb.net으로 작성////////////////////////////////////// vb.net으로 작성
<3000번 포트>/////////////////////<3001번 포트>/////////////////////////////////////// <3002번 포트>
default.aspx 포털사이트에서 -> WindowsApplication2 (버튼 이용해서 Clickonce 실행) -> WindowsApplication1을 실행하려고 합니다.


=========================================================================================================================

실행은 무지 잘됩니다.
그런데 default.aspx부터 parameter를 WindowsApplication1 까지 넘겨야하는데
WindowsApplication2 까지는 잘 받았는데 그 이후가 넘어가질 않습니다.

WindowsApplication2에서

Private Sub GetUrlParameters()

        ' ClickOnceアプリの場合のときのみ以下のコ?ドを?行

        If ApplicationDeployment.IsNetworkDeployed = False Then
           Return
        End If

        ' 起動URLを取得
        Dim url As String = _
          ApplicationDeployment.CurrentDeployment.ActivationUri.AbsoluteUri
        ' クエリ部分を抽出
        Dim myUri As Uri = New Uri(url)
        Dim queryString As String = myUri.Query
        If String.IsNullOrEmpty(queryString) Then
            Return
        End If

        Dim userName As String = "ログイ"
        Dim message As String = "端末名"
        Dim nameValuePairs() As String = queryString.Split("&"c)
        For Each pair As String In nameValuePairs
            Dim vars() As String = pair.Split("="c)
            If vars.Length <> 2 Then
                Continue For
            End If
            vars(0) = vars(0).Replace("?", "") ' “?”は削る
            If String.Compare(vars(0), "userName", True) = 0 Then
                userName = HttpUtility.UrlDecode(vars(1))
            ElseIf String.Compare(vars(0), "message", True) = 0 Then
                message = HttpUtility.UrlDecode(vars(1))
            End If
        Next
        MessageBox.Show(userName & ", " & message)
        '各パラメ?タを分離して抽出()
    End Sub

parameter 받고 버튼 생성 후

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim myProcess As Process
        myProcess = System.Diagnostics.Process.Start("Calc.exe")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim strArgList As String
        strArgList = "http://192.168.11.67:3002/WindowsApplication1.application?"

        Dim userName As String = "Owner"
        Dim message As String = "Hello World"

        strArgList = strArgList & "userName=" & userName & "&message=" & message
        Dim browser As New System.Windows.Forms.WebBrowser
        browser.Url = New System.Uri(strArgList)
    End Sub

WindowsApplication1 로 넘겼습니다.

WindowsApplication1까진 잘 실행이 되는데 parameter를 받으려고 똑같이

Private Sub GetUrlParameters()

        ClickOnceアプリの場合のときのみ以下のコ?ドを?行

        If ApplicationDeployment.IsNetworkDeployed = False Then
           Return
        End If

        ' 起動URLを取得
        Dim url As String = _
          ApplicationDeployment.CurrentDeployment.ActivationUri.AbsoluteUri
        ' クエリ部分を抽出
        Dim myUri As Uri = New Uri(url)
        Dim queryString As String = myUri.Query
        If String.IsNullOrEmpty(queryString) Then
            Return
        End If

        Dim userName As String = "ログイ"
        Dim message As String = "端末名"
        Dim nameValuePairs() As String = queryString.Split("&"c)
        For Each pair As String In nameValuePairs
            Dim vars() As String = pair.Split("="c)
            If vars.Length <> 2 Then
                Continue For
            End If
            vars(0) = vars(0).Replace("?", "") ' “?”は削る
            If String.Compare(vars(0), "userName", True) = 0 Then
                userName = HttpUtility.UrlDecode(vars(1))
            ElseIf String.Compare(vars(0), "message", True) = 0 Then
                message = HttpUtility.UrlDecode(vars(1))
            End If
        Next
        MessageBox.Show(userName & ", " & message)
        '各パラメ?タを分離して抽出()
    End Sub

작성하였는데 실행이 안됩니다.

If ApplicationDeployment.IsNetworkDeployed = False Then
      Return
End If

이 구문부터 오류가 나기 시작합니다. 어떻게 해야하나요 성태님






[최초 등록일: ]
[최종 수정일: 6/30/2017 ]


비밀번호

댓글 쓴 사람
 



2017-07-02 01시53분
마지막에 오류가 난다는 것이 구체적으로 어떤 오류인지 써주세요. 최대한 자세한 정보를 써 주는 것이 좋습니다.
정성태

... 16  17  18  19  [20]  21  22  23  24  25  26  27  28  29  30  ...
NoWriterDateCnt.TitleFile(s)
4873kmi8/21/20174669전역 변수를 쓰지 않고 여러 군데에서 같은 변수를 공용하는 방법이 궁금합니다. [4]
4872abcd8/18/20173730프로세스를 초기화 하는 명령어도 있나요? [1]
4871kmi8/17/20174384메모리 부족으로 종료되는 현상의 여러가지 이유가 무엇인지 궁금합니다. [2]
4870heyhey8/14/20173916프로그램 실행시 중복일 때 버튼 색깔 원래대로 돌리기 [1]
4868kmi8/4/20173456string[] 에 Reverse 적용방법 질문해봅니다 [3]
4867heyhey8/4/20173343EventHandler에 관한 [1]
486610년차8/3/20173420dsoframer axframer open시 기존 오픈되어있는 엑셀을 먹어버리는 현상 [1]
4865heyhey7/31/20174074클릭원스로 배포 한 프로젝트가 끝났는지 알 수 있는 방법 [8]
4864초보자7/28/20173644DllIImport질문 드립니다. [1]
4863다연아빠7/23/20173353전역 예외처리에 대해 질문있습니다. [3]
4861라르크7/17/20175674window form 예제 따라하는 중인데 12.3 서비스 응용 프로그램에서 진행이 안됩니다. [3]파일 다운로드1
4859heyhey7/10/20173265다른 환경에서 실행하기 [1]
4858heyhey7/10/20174004Clickonce update에 관한질문입니다. [1]
4857heyhey7/7/20174113제가 여태까지 작성한 보고서입니다. [2]파일 다운로드1
4856heyhey7/6/20173461성태님 다른질문입니다. [4]
4855JP7/6/20173787Dispose 패턴 구현시 Finalize 재정의에 대한 질문드립니다. [2]
4854heyhey7/6/20173103
4853heyhey7/5/20173731성태님이 작성한대로 해봤습니다. [1]파일 다운로드1
4852김레오7/4/20174808서드파티 dll 디버깅에 대해 질문드립니다. [2]
4851김현준7/3/20174470Datagridview VirtualMode 시 GC가 계속 호출되는 현상이 이해가 안갑니다. [2]
4850heyhey7/3/20174321성태님 밑에 질문드렸던 오류입니다. [1]파일 다운로드1
4849포플러7/2/201713246C#으로 만든 프로그램이 어느 순간 속도가 느려지거나 멈춤현상이 있습니다. [4]
4848윤진영7/2/20175386Microsoft Visual C++ 6.0 무설치 관련 [1]
4847heyhey6/30/20173861아무리 고민해도 답이 안나와서.. 질문 드립니다 [1]
4846heyhey6/28/20174060Clickonce에서 Clickonce로 변수 전달 [1]
4845heyhey6/26/20174015vb.net 에서 manifest 제거 방법 [1]파일 다운로드1
... 16  17  18  19  [20]  21  22  23  24  25  26  27  28  29  30  ...