[已解决]如何判断字符是网址还是IP

jackass110 · 发表于 2010-5-4 03:15:24

本帖最后由 jackass110 于 2010-5-5 18:59 编辑

UDPStartup()
Dim $socket = UDPOpen(TCPNameToIP($ntpServer), 2354)
If @error <> 0 Then
    MsgBox(0,"","连接服务器失败!")
    Exit
EndIf

UDPOpen(TCPNameToIP($ntpServer), 123)这里，UDPOpen使用的是ip地址，，如果$ntpServer是网址的话TCPNameToIP($ntpServer)能运行，如果是ip的话就出错，请教各位大大，，有没有办法判断$ntpServer是ip还是网址而分开使用

3mile · 发表于 2010-5-4 09:40:10

Local $a
$aa=InputBox("","")
isip($aa)
If $a=1 Then
        MsgBox(0,0,$aa&"是一个IP")
Else
        MsgBox(0,0,$aa&"不是一个IP")
EndIf

Func isip($var);检查输入是否IP，返回$a
        $a=StringRegExp($var,'((2[0-4]\d|25[0-5]|[01]?\d\d?)\.){3}(2[0-4]\d|25[0-5]|[01]?\d\d?)',0)
EndFunc

rikthhpgf2005 · 发表于 2010-5-4 10:58:43

学习了楼上的

jackass110 · 发表于 2010-5-5 18:58:51

谢谢2#的正则，，解决

forestchi · 发表于 2011-7-15 23:39:37

路过。。。。。

		自动登录	找回密码
密码			加入

[AU3基础] [已解决]如何判断字符是网址还是IP

评分

评分