none
Mit vb.net eine Internetverbindung aufbauen RRS feed

  • Frage

  • Hallo !

    Meine Anwendung holt über einen Webservice Daten ab. Vorher muss der Anwender manuell eine Internetverbindung herstellen. Kann ich das mit vb.net automatisch machen.

    Danke und Gruß
    Frank
    Donnerstag, 15. Oktober 2009 12:49

Antworten

  • Hallo Frank,

    Folgender Code-Schnipsel prüft ob eine Internetverbindung zur Verfügung steht.

     

    Public Function IsConnectionAvailable() As Boolean
    
            Dim objUrl As New System.Uri("http://www.microsoft.com/")
    
            Dim objWebReq As System.Net.WebRequest
            objWebReq = System.Net.WebRequest.Create(objUrl)
            Dim objResp As System.Net.WebResponse
    
            Try
    
                objResp = objWebReq.GetResponse
                objResp.Close()
                objWebReq = Nothing
                Return True
    
            Catch ex As Exception
    
                '//objResp.Close()
                objWebReq = Nothing
    
                Return False
            End Try
    End Function
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
            If IsConnectionAvailable() = True Then
                MessageBox.Show("Sie sind online!")
            Else
                MessageBox.Show("Keine Verbindung!")
            End If
    End Sub

    Grüße,

    Robert

    Sonntag, 18. Oktober 2009 14:10
    Moderator

Alle Antworten

  • Hallo Frank,

    Folgender Code-Schnipsel prüft ob eine Internetverbindung zur Verfügung steht.

     

    Public Function IsConnectionAvailable() As Boolean
    
            Dim objUrl As New System.Uri("http://www.microsoft.com/")
    
            Dim objWebReq As System.Net.WebRequest
            objWebReq = System.Net.WebRequest.Create(objUrl)
            Dim objResp As System.Net.WebResponse
    
            Try
    
                objResp = objWebReq.GetResponse
                objResp.Close()
                objWebReq = Nothing
                Return True
    
            Catch ex As Exception
    
                '//objResp.Close()
                objWebReq = Nothing
    
                Return False
            End Try
    End Function
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
            If IsConnectionAvailable() = True Then
                MessageBox.Show("Sie sind online!")
            Else
                MessageBox.Show("Keine Verbindung!")
            End If
    End Sub

    Grüße,

    Robert

    Sonntag, 18. Oktober 2009 14:10
    Moderator
  • Hallo Frank,

    Hat Dir die Antwort geholfen?

    Grüße,
    Robert

    Montag, 26. Oktober 2009 21:42
    Moderator
  • Hallo soccersoft,

    Ich gehe davon aus, dass die Antwort Dir weitergeholfen hat.
    Solltest Du noch "Rückfragen" dazu haben, so gib uns bitte Bescheid.

    Grüße,
    Robert

    Dienstag, 27. Oktober 2009 15:40
    Moderator