本帖最后由 xkowen 于 2009-7-28 00:08 编辑
以下是检测Program的代码,不劳而获的家伙,请用GXP2000测试以下代码:#include<IE.au3>
$IE=_IECreate("192.168.20.100")
$Form = _IEFormGetObjByName($IE, "loginForm")
$text= _IEFormElementGetObjByName($Form, "P2")
_IEFormElementSetValue($text, "admin")
_IEFormSubmit($Form)
_IELinkClickByText($IE,"STATUS",0,1)
$IEmsg=_IEBodyReadText($IE)
$b = stringRegExp($IEmsg,"(?<ip>(\d{1,2}\.){3}\d{1,2})",2)
MsgBox(0,'',"Your Program is : "&$b[0])
孽畜,IPPBX都让你给弄出来了,晕死了!!@@@@@@@ |