IP、子网掩码、默认网关在QTP中怎么判断是否合法
在设置IP地址、子网掩码、默认网关后，如何判断这三个是否合法；我这已经有一个判断IP是否合法的方法：
Dim yz
IP=Inputbox("请输入IP:","IP地址判断")
IPS=Split(IP,".")
yz=0
if UBOUND(IPS)=3 THEN
for i = lbound(ips) to ubound(ips)
if ips(i)="" then '判断IP地址数组中是否有空数组.
yz=0
else
if IsNumeric(ips(i)) then '判断IP地址的每一段是否数字.
if ips(i)>=0 and ips(i)<= 255 then '判断IP地址的每一段的大小.
yz=yz+1
end if
else
yz=0
end if
end if
next
ELSE
yz=0
end if
if yz=4 then
msgbox "IP地址正确!"
else
msgbox "IP地址无效!"
end if
页:
[1]
