我做的脚本为什么会自动停止
按键精灵吧
全部回复
仅看楼主
level 10
祥★子 楼主
详细描述如下,我做了一个自动登录网页的脚本,运行一段时间后会自动停止(这个时间不固定,有时是几分钟,有时是几小时)。停止时按键精灵并没有关闭,如果是在调试状态下也会自动停止,而且脚本附件中的图片会自动消失,我还得重启电脑再添加附件。
2014年03月28日 02点03分 1
level 1
楼主你好,我问一下哈,为什么我也是用网页插件打开某个网址,调试成功,但是发布后生成的EXE文件却不能打开网址呢?
2014年03月29日 10点03分 2
level 7
不发代码谁知道是什么原因
2014年03月29日 14点03分 3
level 9
✄┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈ ✎﹏₯㎕﹍﹍
愿用属于你的画笔,勾勒出你那最美的面庞。
2014年03月29日 22点03分 4
level 10
祥★子 楼主
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
2014年03月31日 06点03分 6
看看是哪个命令出现问题了,说不准什么时候就停止运行
2014年03月31日 06点03分
还不是中途错误,是完成了所有命令,到下一个循环时,不执行了。有两种情况,不新打开网页了,或者打开网页了,不输入号码了,就停在打开的网页上了。
2014年03月31日 06点03分
附件中的图片有时消失需得新添加,有时不消失。真搞不懂了
2014年03月31日 06点03分
1