2007-04-25 [159手机号码段查询程序]

 

#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","查询完毕！")