|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
获取IP地址。获取内网IP,局域网IP,本机IP
功能 执行()
//代码环境:tc7.0
messagebox("cmdpipe() 在源文件里面.")
var str = cmdpipe("cmd /c ipconfig")
var vers = 系统获取版本号()
//xp格式:IP Address. . . . . . . . . . . . : 192.168.1.2
//win7格式:IPv4 地址 . . . . . . . . . . . . : 192.168.1.2
var pattern
if(vers == 2) //xp.
pattern = "IP Address(\\. ){8,16}: \\d{3}\\.\\d{3}\\.\\d{1,3}\\.\\d{1,3}"
elseif(vers >= 5) //win7 win8 win10.
pattern = "IPv4 地址 (\\. ){8,16}: \\d{3}\\.\\d{3}\\.\\d{1,3}\\.\\d{1,3}"
end
var arr = 正则表达式匹配(str, pattern, true, true)
if(!是否数组(arr)) //真变假,不返回.
return 0 //假变真,执行返回.
end
var n = 数组大小(arr)
if(n > -1)
var ayy
字符串分割(arr[0], ": ", ayy)
traceprint("IP地址:" & ayy[1])
end
结束
解压密码:
|
|