Microsoft MVP성태의 닷넷 이야기
아무리 고민해도 답이 안나와서.. 질문 드립니다 [링크 복사], [링크+제목 복사]
조회: 6153
글쓴 사람
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)
4933Kay12/15/20175514C# VS 버전 에러 질문 드립니다. [1]파일 다운로드1
4932정환나라12/13/20174985vs2013에서 빌드한 com 컨트롤 객체를 닷넷 2.0에서 사용하려 합니다 [4]
4931Arvid12/12/20176034Visual Studio 2012 c# using문 참조 에러 [5]파일 다운로드1
4929김성대12/8/20175177app.config에 관한질문입니다. [1]
4928김성대12/7/20175518SQL Server 설치에러에 대한 질문입니다. [1]파일 다운로드1
4926heyhey12/6/20175010[삭제] ContextSwitchDeadlock????
4925ho12/5/20175402[삭제] WebBrowser로 드롭박스 로그인 페이지 탐색 시 발생한 문제에 대해 질문 올립니다.파일 다운로드2
4924몽중언12/3/20175830C# 디버깅 모드에서만 DB Insert가 되는 현상 질의 [6]
4923고요한11/23/20175753파일 확장자에 연결된 프로그램을 등록하는 방법에 대한 질문입니다. [2]
4922박성훈11/23/20176777시작하세요! C# 7.1 학습 방법 [3]
4921초보개발자11/20/20174500[삭제] 폼 사이즈 질문드립니다.
4920Question11/19/20175297IEnumerable 의 "지연된 평가" 에 관하여 질문드립니다. [2]파일 다운로드1
4919mskim11/16/20175501Split()을 이용하여 문자 구분 시 구분문자도 같이 저장하는 방법이 있나요? [2]
4917ho11/16/20175989WPF XAML 트리거 관련해 문의 드립니다. [3]
4918ho11/16/20176538    답변글 [답변]: 예제 프로젝트 첨부합니다. [4]파일 다운로드2
4916필승11/11/20175886기본 웹 브라우저 체크는 어떻게 해야 하나요? [2]
4915필승11/10/20175397WebBrowser 컨트롤 소리 출력 문의 드립니다. [2]
4914Question11/10/20175800c# 버튼 이벤트에 관하여 질문드립니다. [2]
4913Arvid11/8/20177143Log4Net 라이브러리를 이용하여 특정 기간이 지났을 때 자동 로그 삭제 기능 구현 질문 드립니다! [2]
4912조범희11/8/20177376C# FTP 다운로드중 에러 발생.. [2]파일 다운로드1
4911필승11/6/20175875WebBrowser 컨트롤 사용법에 대해 궁금합니다. [2]
4910진우11/6/20175716람다 초보 질문 드립니다. [2]
4909필승11/5/20175954TextBox에 관해 질문 드립니다. [5]
4908필승11/1/20178165특정 시각에 프로그램 종료 또는 재시작시 오류 발생 [8]
4907심너울10/29/20175492선생님이 쓰신 "시작하세요! C# 7.1~"으로 공부하고 있는데요~ [2]
4906손님10/25/20175208.net core, .net standard 관련해서 궁금합니다 [2]
... 16  17  18  19  20  21  22  23  24  25  26  [27]  28  29  30  ...