[TUT] Funkcja, do sprawdzania połączenia z internetem

[TornadoKoX]

Dobra, bez owijania w bawełnę.

1. Deklarujemy użycie HttpWebRequest

Tuż pod Public Class Form 1 dodajemy:

Dim req As System.Net.HttpWebRequest
Dim res As System.Net.HttpWebResponse

2. Dodajemy funkcję

Zaraz po powyższej deklaracji dodajemy funkcję. Ja nazwę ją "Internet"

Public Function Internet() As Boolean
  Internet = False
End Function

3. Kontynuujemy pisanie funkcji

Pod powyższym kodem piszemy:

Try
    req = CType(System.Net.HttpWebRequest.Create("http://google.pl/"), System.Net.HttpWebRequest)
    res = CType(req.GetResponse(), System.Net.HttpWebResponse)
    pyt.Abort()
    If odp.StatusCode = System.Net.HttpStatusCode.OK Then
    Internet = True
    End If
  Catch weberrt As System.Net.WebException
    Internet = False
  Catch except As Exception
    Internet = False

GOTOWE! =)

 

4. Przykładowe użycie

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Internet = True Then
MsgBox("Jesteś podłączony do internetu! :P")
Else
MsgBox("Nie masz połączenia z internetem :C")
End Sub

lub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Button1.Click
If Internet = False Then
MsgBox("Nie masz połączenia z internetem! Nie możesz uruchomić programu!")
Me.Close()
Else
MsBox("Połączenie z internetem wykryte!")
Form2.Show()
End Sub

 

Daj lajka, nie bądź żyła!

[Gość]

Kod jest niepoprawny.

[TornadoKoX]

Wszystko działa w 100%! Najwyżej spróbuj jeszcze raz. =)

[Sunnyline2]

Wszystko działa w 100%! Najwyżej spróbuj jeszcze raz. =)

Gdzie deklarujesz 'internet' ?

Widze tylko 'gotinternet'

[JachuPL]

If My.Computer.Network.IsAvailable() Then MsgBox("Posiadasz internet")

[Gość]

Kod niepoprawny, do tego uczy złych nawyków, zatem wyrzucam do kosza.