您当前的位置:首页 > 零壹零壹 > 技巧网站首页技巧

简单的按键精灵使用技巧

发布时间:2015-07-28编辑:一水阅读(

前段时间同事考驾照,发现要在考试网站上连续学习6天,每天4个小时,然后就向我抱怨浪费时间,我稍微看了下那个网站,发现无非只需要隔两分钟点击一下下一页以及处理随机弹出的验证框即可。于是我就想到了用网上流行的按键精灵,下来稍微看了下写了几句语句,调试成功,就给挂上了。不过我还是建议大家自己慢慢听完课程,减少马路杀手的概率。

00.jpg

ProcessID=Plugin.Web.Bind("wqm.exe")
Delay 2000
If ProcessID=0 then
  MessageBox "网页按键精灵没有运行"
  EndScript
End If

Call Plugin.Web.Tips("脚本开始运行")
Call Plugin.Web.SetSize(1024,866)
Call Plugin.Web.Go("http://208.91.245.29:6003/pages/video/zxpx")
Call Plugin.Web.ScrollTo(0,0)
Delay 500
Call Plugin.Web.HtmlInput(username,"name:username")
Delay 500
Call Plugin.Web.HtmlInput(password,"name:password")
Delay 500
Call Plugin.Web.HtmlClick("tag:input&type:submit")

n=0
While n = 0
For m=1 to 30
For i=1 to 11
Delay 10000
Call Plugin.Web.LeftClick(369, 506)
Next
Delay 1000
Call Plugin.Web.LeftClick(740, 523)
Next
Delay 4324
For m=1 to 30
For i=1 to 11
Delay 10000
Call Plugin.Web.LeftClick(369, 506)
Next
Delay 1000
Call Plugin.Web.LeftClick(686, 523)
Next
Delay 1000
Wend
Sub OnScriptExit()
  Call Plugin.Web.Tips("脚本停止运行")
End Sub

 

代码里面网址ip208换成202即可,如果出现点击位置不准,可以调整坐标位置。(本来还有自动登录和验证码输入的代码部分,想想还是拿掉了)

关键字词