Question

按键精灵脚本 按键精灵后台脚本 后台脚本 求高手写一个脚本,满意后追加高分

后台脚本,360浏览器5.0版本,后台键盘按键
脚本开始 按↑ 延迟700(毫秒) 按→ 延迟700 这个动作重复9次然后按D 按7次每次间隔延迟703,执行2次
然后按键 ↓→ 9次(延迟同上) 然后按D7次(延迟同上) 执行2次
然后按键 ↓← 9次 按D7次 执行2次
然后按键 ↑← 9次 按D7次 执行2次 循环次数设置为 无限(按下停止键为止)
需要写成可以修改 方向键动作的次数(列:↑→为一个动作) 和 按D 的次数
脚本每运行59分钟 按一次大键盘数字5
脚本没运行61分钟 按一次大键盘数字6
脚本发到邮箱 576681524@qq.com 三口油!

Answer 1

//37为向左键，38为向上键，39向右键，40为向下键，68为D键
Hwnd = Plugin.Window.MousePoint()
Delay 500
time1 = now
time2 = now
a=BeginThread(work)
b=BeginThread(tim1)
c=BeginThread(tim2)
Sub work
While ture
For 2
For 9
Call Plugin.Bkgnd.KeyPress(Hwnd, 38)
Delay 700
Call Plugin.Bkgnd.KeyPress(Hwnd, 39)
Delay 700
Next
For 7
Call Plugin.Bkgnd.KeyPress(Hwnd, 68)
Delay 703
Next
Next
For 2
For 9
Call Plugin.Bkgnd.KeyPress(Hwnd, 40)
Delay 700
Call Plugin.Bkgnd.KeyPress(Hwnd, 39)
Delay 700
Next
For 7
Call Plugin.Bkgnd.KeyPress(Hwnd, 68)
Delay 703
Next
Next
For 2
For 9
Call Plugin.Bkgnd.KeyPress(Hwnd, 40)
Delay 700
Call Plugin.Bkgnd.KeyPress(Hwnd, 37)
Delay 700
Next
For 7
Call Plugin.Bkgnd.KeyPress(Hwnd, 68)
Delay 703
Next
Next
For 2
For 9
Call Plugin.Bkgnd.KeyPress(Hwnd, 38)
Delay 700
Call Plugin.Bkgnd.KeyPress(Hwnd, 37)
Delay 700
Next
For 7
Call Plugin.Bkgnd.KeyPress(Hwnd, 68)
Delay 703
Next
Next
wend
End sub
Sub tim1
Rem t1
if datediff("s",time1,now)>=3540 then
PauseThread a
PauseThread c
//向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：101)按键
Call Plugin.Bkgnd.KeyPress(Hwnd, 53)
time1 = now
Delay 200
ContinueThread a
ContinueThread c
Goto t1
Else
Delay 500
Goto t1
End If
End Sub
Sub tim2
Rem t2
if datediff("s",time2,now)>=3660 then
PauseThread a
PauseThread b
//向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：101)按键
Call Plugin.Bkgnd.KeyPress(Hwnd, 54)
time2 = now
Delay 200
ContinueThread a
ContinueThread b
Goto t2
Else
Delay 500
Goto t2
End If
End Sub
没做界面麻烦，也没做小精灵，不然各种报毒，麻烦。脚本没试过，你试下，出问题的话再问。

追问

嗯 嗯 谢谢诶

追答

DimEnv Hwnd
Hwnd = Plugin.Window.MousePoint()
time1 = now
time2 = now
a=BeginThread(work)
b=BeginThread(tim1)
c=BeginThread(tim2)
Sub work
While 1
前面改成这样的。你看下。找出对应的删除复制进去就应该可以了。

追问

能用了 谢谢 谢谢!!!

Answer 2

这个很简单我可以教你