Dim url As String = "http://81.89.111.113/check.php"
        Dim wc As New WebClient
        If wc.DownloadString(url) = "0" Then
            ' was immer...
        End If

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist