回复 2# qq123123
我这可以用, 你看你那能不能用
udf http://www.autoitx.com/forum.php?mod=viewthread&tid=18528
#include <WinHTTP_GetRespond.au3>
$PhoneNo=InputBox("请输入移动手机号","手机号")
_check($PhoneNo)
Func _Check($ur)
$url = "http://wapmail.10086.cn/index.htm"
$data = "ur=" & $ur & _
"&pw=123" & _
"&v=2"
$MyOpen=_WinHttpOpen()
$rContext=_WinHTTP_GetRespond($MyOpen,$url,1 + 2 + 4 + 8,50000,$data,Default,"Content-Type: application/x-www-form-urlencoded")
$cmd = StringRegExpReplace($rContext[4], ".*cmd\=(\d).*", "$1", 0)
_WinHttpCloseHandle($MyOpen)
Switch $cmd
Case 1
$msg = "您输入的别名或手机号码与密码不匹配,请重新输入"
Case 2
$msg = "此号码未注册139邮箱,请注册后再试"
Case 3
$msg = "您的帐户已注销,如果要继续使用邮箱,请重新注册"
Case 10
$msg = "由于手机号欠费停机或者其它原因,您的139邮箱账号已被暂时冻结"
Case Else
$msg = "未加入"
EndSwitch
MsgBox(0,$cmd,$msg)
EndFunc
|