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]