按键精灵*ff

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

'==========以上是按键精灵录制的内容==========