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

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