求一个在网页下自动按上下键的按键精灵脚本后台脚本...

你的位置:
跪求大神指导!后台脚本,为什么总是自动跳转到前台
18:27:10 |
来源: 按键精灵资源站
跪求大神指导!后台脚本,为什么总是自动跳转到前台
源文件如下
Hwnd = Plugin.Window.Find(0, &聚才快递单打印 - Google Chrome&)
Call Plugin.Bkgnd.LeftClick(Hwnd, 38, 117)
Delay 3000
Call Plugin.Bkgnd.LeftClick(Hwnd, 64, 255)
Delay 2000
Call Plugin.Bkgnd.LeftClick(Hwnd, 241, 147)
Delay 2000
Call Plugin.Bkgnd.LeftClick(Hwnd, 235, 176)
Delay 2000
Call Plugin.Bkgnd.LeftClick(Hwnd, 532, 147)
Delay 2000
Call Plugin.Bkgnd.LeftClick(Hwnd, 549, 327)
Delay 2000
Call Plugin.Bkgnd.LeftClick(Hwnd, 928, 593)
Delay 2000
Goto start
求大神指点迷津 啊,运行了之后 一到鼠标点击的时候 ,这个网页就直接从后台跳转到前台了
求大神解答~谢了!你的位置:
下了这个纯网页游打怪及副本脚本,同时求大神帮忙改为后台
11:18:46 |
来源: 按键精灵资源站
这个脚本我下来的,人物打什么怪与副本行程要按自已的情况,先定在记事本里,然后打开脚本在导入。只要是网页文字游都可以用。可是不能后台,不能中断,只能从头开始。如果网络一时卡了,又不行了。& &&&脚本在下面,希望朋大神能改成后台,同时修正一些问题。
UserVar ys=500 &延时(毫秒)&
ys = ys + 500
Call Plugin.Web.Bind(&wqm.exe&)
//==========================================================
Rem 副本开始
//==========================================================
Call Plugin.Web.Tips(&请登陆后打开一个txt副本&)
fblj = Plugin.File.SelectFile()
MyStr = Right(fblj, 4)
If MyStr && &.txt& Then
& && &&&Msgbox &无法打开& & MyStr & &类型文件,文件不是有效副本.&
& && &&&Goto 副本开始
Text = Plugin.File.ReadFileEx(fblj)
Dim MyArray
MyArray = Split(Text, &|&)& &
If UBound(MyArray)&=0 Then&&
& & n = UBound(MyArray)
& && &&&t = Cstr(MyArray(i))
& && && && &Rem 执行命令
& && &&&dmgs = Plugin.Web.HtmlExists(&tag:A&txt:& & t)
& && &&&If dmgs &= 0 Then
& && && && &Delay ys
& && && && &Call Plugin.Web.Refresh(0)
& && && && &Goto 执行命令
& && &&&End If
& && &&&Call Plugin.Web.HtmlClick(&tag:A&txt:& & t)
& && &&&Delay ys
& && &&&i = i + 1
& & Next&&

参考资料

 

随机推荐