Do
VBS dim time1
time1=now
If datediff("n",time1,now)>=0.3
Goto ks
EndIf
Rem ks
RunApp "
https://uac.10010.com/portal/mallLogin.jsp?redirectURL=http://www.10010.com"// 打开网页并且粘贴号码密码
'==========寻找输入号码窗口'==========
i = 0
While i=0
FindPic 773,208,1204,595,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
i=1
MoveTo intx+100, inty
Delay 100
LeftClick 1
Delay 100
End If
Wend
'==========输出调用的号码=========
Dim i,p
Text = Plugin.File.ReadFileEx("C:\Users\Lenovo\Desktop\号码.txt")
MyArray=Split(Text,"|")
i=n
SayString MyArray(n)//SayString 是输入的意思 不是粘贴
n = i + 1
Delay 100
'==========输出密码=========
KeyDown "Tab", 1
Delay 100
KeyUp "Tab", 1
Delay 100
Text1 = Plugin.File.ReadFileEx("C:\Users\Lenovo\Desktop\密码.txt")
arr = split(text1, "|")
p=q
SayString arr(q)
q=p+1
'==========寻找验证码图片并另存=========
FindColorEx 861,264,1319,630,"000000",0,0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intx+10, inty+10
Delay 10
rightClick 1
Delay 200
End If
KeyDown "S", 1
Delay 100
KeyUp "S", 1
Delay 200
KeyDown "Enter", 1
Delay 100
KeyUp "Enter", 1
Delay 200
KeyDown "Left", 1
Delay 100
KeyUp "Left", 1
Delay 200
KeyDown "Enter", 1
Delay 100
KeyUp "Enter", 1
Delay 200
'==========识别验证码=========
Dim Var1
var1 = "C:\Users\Lenovo\Pictures\untitled.png"//验证码截图路径 可以自己定义 (定义成你自己的路径 咋俩的肯定不一样)
var2 ="C:\Users\Lenovo\Desktop\1.txt"//识别结果保存的路径 可以自己定义 同上!
Dim Index
Index = Plugin.CaptchaOCR.VcodeInit ("967CF629E808C3A44A67311E433C478C")
Dim Result
Result = "尚未识别"
Result = Plugin.CaptchaOCR.GetVcode(var2, var1)//保存结果路径 和 图片路径
'==========寻找验证码字=========
FindColorEx 861,264,1319,630,"000000",0,0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intx-30, inty+10
Delay 100
LeftClick 1
Delay 100
End If
'==========输出验证码=========
Text1 = Plugin.File.ReadFileEx("C:\Users\Lenovo\Desktop\1.txt")//文档位置你自己改
MyArray1 = Split(Text1, "|")
SayString Cstr(MyArray1(0))//输出调用的号码
Delay 100
'==========登录网厅=========
KeyDown "Tab", 1
Delay 10
KeyUp "Tab", 1
Delay 10
KeyDown "Enter", 1
Delay 10
KeyUp "Enter", 1
Delay 10
'==========以下登录出错=========
Delay 3500
i = 0
While i=0
FindColorEx 1302,155,1440,332,"1BB1F0",0,0.9,intX,intY
If intX > 0 And intY > 0 Then
Goto bj
i=1
Else goto cw
End If
Wend
'==========以上登录出错=========
Rem bj
i = 0
While i=0
FindPic 82,3,1161,886,"Attachment:\2.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
i = 1
Delay 100
MoveTo intx+15, inty+8
Delay 100
LeftClick 1
Delay 100
End If
Wend
Delay 2000
'==========以下点击自助服务出错=========
a=GetPixelColor(239,294)
Delay 3000
b=GetPixelColor(239,294)
If a = b Then
Goto cw
End If
'==========以上点击自助服务出错=========
Rem cw
KeyDown "Ctrl", 1
Delay 100
KeyPress "W", 1
Delay 100
KeyUp "Ctrl", 1
Delay 100
KeyDown "Ctrl", 1
Delay 100
KeyPress "W", 1
Delay 100
KeyUp "Ctrl", 1
Delay 100
KeyDown "Ctrl", 1
Delay 100
KeyPress "W", 1
Delay 100
KeyUp "Ctrl", 1
Delay 100
Loop