51Testing软件测试论坛

标题: IP、子网掩码、默认网关在QTP中怎么判断是否合法 [打印本页]

作者: oliver.tang 时间: 2015-5-22 19:55
标题: 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

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)