Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Meinst du so ein Ding, wie es bei Windows ist??
Function CheckIP(IP as String) as Boolean
Dim Params, n as Integer
Params() = Split(IP,".")
If UBound(Params)=3 Then
For n=0 to 3
If Not (Params(n) > -1) and (Params(n) < 256 then
MessageBox Prompt:="Fehlerhafte Eingabe. Zahlen müssen zwischen 0 und 255 liegen"
CheckIP = False
Exit Function
End If
Next
Else
MessageBox Prompt:="Fehlerhafte Eingabe. IP muss aus vier zahlen bestehen"
CheckIp=False
Exit Function
End If
CheckIP=True
End Function
##0.##0.##0.##0