IsIP

Jam00

Moin,

Beim Letzten mal konnte mir ja leider nicht so wirklich geholfen werden, ich hoffe das es jetzt besser läuft. Diesmal sit es auch ganz einfach. Gibt es sowas wie IsIP ($IP)? Es soll halbt prüfen ob eine Variable ein IP enthält, nichts weiter.

Danke im Voraus

Reaker

machs doch einfach mit If _GetIp() = $IP then Msgbox(0, "", "IsIP") xD

**funkey**

Kann man ganz leicht mit RegExp selber machen.

Jam00

@Reaker
Es geht ja nich um die IP meines PCs

funkey
okay, erde ich mal porbieren
hab allerdings noch nie was damit gemacht, mal sehen ob ich es hinbekomme

**funkey**

Hab's gerade gemacht ;). Hoffe es passt so.

Spoiler anzeigen

[autoit]

ConsoleWrite (_IsIP("10.1.1.") & @CR)
ConsoleWrite (_IsIP("10.1.1.0") & @CR)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _IsIP($sIP)
;funkey 07.12.2009
Local $Pattern = "^(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\." & _
"(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\." & _
"(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\." & _
"(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$"
If StringRegExp($sIP, $Pattern) Then Return 1
Return 0
EndFunc

[/autoit]

**GtaSpider**

https://autoit.de/www.gidf.de/regex+ip

Jam00

GtaSpider
Ich kann nicht nach regex ip googlen wenn ich nicht weiß das ich es mit reges machen kann!

funkey
Super danke, so soll es sein.

Da hab ich schon wieder eine Frage. Kann ich irgendwie eine DNS auflösen? Also das ich die IP der DNS bekomme, weil mit TCP geht nur die richtige IP nicht eine DNS. Ich habe es schon mit _InetGetSource probier und mit INetGet aber hat nichts funktioniert.
Ich habe für Testzweke mal eine DNS eingerichtet die nicht auf meinen PC führt sondern den wert 10.1.2.1 hat autoit.no-ip.biz

**Oscar**

TCPNameToIP()

Jam00

Oki, danke geht alles