Dim ip1
Dim ip2
Dim ip3
Dim ip4
Dim check1
Dim check2
Dim ip
 
Private Declare Function GetRTTAndHopCount Lib "iphlpapi.dll" _
        (ByVal lDestIPAddr As Long, _
         ByRef lHopCount As Long, _
         ByVal lMaxHops As Long, _
         ByRef lRTT As Long) As Long
 
Private Declare Function inet_addr Lib "wsock32.dll" _
        (ByVal cp As String) As Long
 
Public Function SimplePing(sIPadr)
 
 
    Dim lIPadr      As Long
    Dim lHopsCount  As Long
    Dim lRTT        As Long
    Dim lMaxHops    As Long
    Dim lResult     As Long
 
    Const SUCCESS = 1
 
    lMaxHops = 20
 
    lIPadr = inet_addr(sIPadr)
 
    SimplePing = (GetRTTAndHopCount(lIPadr, lHopsCount, lMaxHops, lRTT) = _
      SUCCESS)
 
End Function
 
 
Private Sub checkip()
    ip1 = Text1
    ip2 = Text2
    ip3 = Text3
    ip4 = Text4
 
    ip = ""
    check1 = ""
    check2 = ""
 
    If (ip1 <= 255) And (ip1 >= 0) And (ip2 <= 255) And (ip2 >= 0) And ( _
      ip3 <= 255) And (ip3 >= 0) And (ip4 <= 255) And (ip4 >= 0) Then
            ip = ip1 & "." & ip2 & "." & ip3 & "." & ip4
            check1 = "ok"
    Else
            Label5 = "Keine gültige IP-Adresse!"
    End If
 
    If check1 = "ok" Then
 
 
        If SimplePing(ip) Then
          check2 = "ok"
        Else
            Label5 = "Der Server " & ip & " ist nicht erreichbar!"
        End If
    End If
 
    If check1 = "ok" And check2 = "ok" Then
        Label5 = ""
    End If
 
End Sub
 
Private Sub startbrowser()
    Shell ("engine/dwebbrowser/dwebbrowser.exe http://" & ip & "/start.php")
End Sub
 
 
 
Private Sub Command1_Click()
    checkip
    If check2 = "ok" Then startbrowser
End Sub
 
Private Sub Command2_Click()
    End
End Sub