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

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

---

• [다음 글] Microsoft Visual C++ 6.0 무설치 관련
• [이전 글] Clickonce에서 Clickonce로 변수 전달

---