Function gethttp(URL)
Set objXML=CreateObject("Microsoft.XMLHTTP")
objXML.Open "Get", Url, False
objXML.send
If objXML.readyState=4 then
gethttp =objXML.ResponseText
End If
objXML.Abort
Set objXML = Nothing
End Function
\'==========以下是按键精灵录制的内容==========
MoveTo 494, 531
Delay 1617
MouseWheel 1
Delay 5
MouseWheel 1
Delay 66
MouseWheel 1
Delay 5
MouseWheel 1
Delay 41
MouseWheel 1
Delay 4
MouseWheel 1
Delay 61
MouseWheel 1
Delay 4
MouseWheel 1
Delay 59
MouseWheel 1
Delay 5
MouseWheel 1
Delay 82
MouseWheel 1
Delay 4
MouseWheel 1
MoveTo 608, 396
Delay 881
LeftDown 1
Delay 16
LeftClick 1
Delay 2
LeftUp 1
MoveTo 609, 396
Delay 1281
//用户名称
SayString int(rnd() * 999999999999999) + 1
MoveTo 603, 448
Delay 949
LeftDown 1
Delay 10
LeftClick 1
Delay 3
LeftUp 1
Delay 447
//密码
SayString "ABCD1234"
MoveTo 634, 476
Delay 923
MouseWheel -1
Delay 25
MouseWheel -1
Delay 33
MouseWheel -1
Delay 69
MouseWheel -1
MoveTo 661, 489
Delay 1013
LeftDown 1
Delay 5
LeftClick 1
Delay 3
LeftUp 1
Delay 1260
tel = gethttp("http://api.jmyzm.com/http.do?action=loginIn&uid=laji123&pwd=")
a=split(tel,"|")
code = a(1)
url = "http://api.jmyzm.com/http.do?action=getMobilenum&pid=20135&uid=laji123&token="& code &"&cr=2&size=1&rnd=" & int(rnd() * 99999) + 1
tel2 = gethttp(url)
b=split(tel2,"|")
//MessageBox url
//手机号
SayString b(0)
MoveTo 835, 533
Delay 2080
LeftDown 1
Delay 700
LeftClick 1
Delay 200
LeftUp 1
Delay 500
LeftDown 1
Delay 700
LeftClick 1
Delay 200
LeftUp 1
MoveTo 580, 547
Delay 1751
LeftDown 1
Delay 19
LeftClick 1
Delay 3
LeftUp 1
codetpl = ""
url = "http://api.jmyzm.com/http.do?action=getVcodeAndReleaseMobile&uid=laji123&pid=20135&token=" & code & "&mobile=" & b(0)
//MessageBox url
For 火星=1 to 4 Step 1
Delay 5000
codetpl = gethttp(url)
MessageBox codetpl
If len(codetpl) > 20 Then
MessageBox "tiaozhuan"
Goto ok
End If
Next
Rem ok
c = split(codetpl, "验证码为")
d = split(c(1),"，验证码30分钟")
//输入验证码
SayString d(0)
MoveTo 717, 729
Delay 4080
LeftDown 1
Delay 9
LeftClick 1
Delay 2
LeftUp 1
Delay 1696
LeftClick 1
Delay 2
LeftUp 1
\'==========以上是按键精灵录制的内容==========
相关文章：