#include <IE.au3>
$oIE = _IECreate ("http://www.ip138.com:8080/search.asp")
$oForms = _IEFormGetCollection ($oIE)
#cs
MsgBox(0, "表单信息", "这个页面上共有" & @extended & "个表单")
For $oForm In $oForms
MsgBox(0, "表单信息", $oForm.name)
$oQuerys = _IEFormElementGetCollection ($oForm)
For $oQuery In $oQuerys
MsgBox(0, "表单信息2", $oQuery.name)
Next
Next
#ce
dim $oQuery, $oPhoneNum, $oFilePath, $oClickObject, $oDoc, $oLen, $oLeft, $oRight
$oPhoneNum = InputBox("查询号码设置", "请输入查询号码!")
$oFilePath = InputBox("文件保存设置", "请输入数据文件的文件名及路径!")
While $oPhoneNum <= 1599999
$oForms = _IEFormGetCollection ($oIE)
For $oForm In $oForms
if $oForm.name = "mobileform" Then
$oQuery = _IEFormElementGetObjByName($oForm, "mobile")
_IEFormElementSetValue($oQuery, $oPhoneNum)
$oClickObject = _IEFormElementGetObjByName($oForm, "B1")
_IEAction($oClickObject, "click")
_IELoadWait($oIE)
$oDoc = _IEBodyReadText($oIE)
if StringInStr($oDoc, "未知") = 0 Then
$oLen = StringLen($oDoc)
$oLeft = StringInStr($oDoc, "号码段") - 1
$oRight = StringInStr($oDoc, "移动") + 15
$oDoc = StringTrimRight($oDoc, $oLen - $oRight)
$oDoc = StringTrimLeft($oDoc, $oLeft)
FileWrite($oFilePath, $oDoc & @CRLF)
Else
FileWrite($oFilePath, $oPhoneNum & " 没有相关信息" & @CRLF)
EndIf
ExitLoop
EndIf
Next
$oPhoneNum = $oPhoneNum + 1
WEnd
MsgBox(0,"good","查询完毕!")