求一个简单的按键精灵脚本

~

看似简单实则属于高级应用，涉及到多线程编程。另外时序方面要控制得准确也是非常困难的，因为脚本解释本身需要消耗CPU时间，按键操作延时等等都会影响精度。

代码如下

Dim TH0//线程0句柄

Dim TH1//线程1句柄

Dim TH2//线程2句柄

Dimenv TKey0//线程0按键

Dimenv TKey1//线程1按键

Dimenv TKey2//线程2按键

DimEnv GAP1//线程1间隔时间

DimEnv GAP2//线程2间隔时间

Dimenv isRun//运行标志

Dimenv T1//时间记录1

Dimenv T2//时间记录2

TKey0 = "1"//初始化按键码0

TKey1 = "2"//初始化按键码1

TKey2 = "3"//初始化按键码2

GAP1=5//设置间隔1

GAP2=10//设置间隔2

//启动线程

TH0 = BeginThread(AlwaysClick)

TH1 = BeginThread(TimingClick1)

TH2 = BeginThread(TimingClick2)

isRun = 1//开始循环

While isRun

IF GetLastKey=27 Then isRun = 0//按ESC结束

Delay 10

Wend

StopThread TH0

StopThread TH1

StopThread TH2

EndScript

//================================

Sub AlwaysClick()

While isRun

KeyPress TKey0,1

Delay 10

wend

End Sub

Sub TimingClick1()

Dim SP

Dim T

T1=now

While isRun

T=now

SP =(T-T1)*100000

If (SP) >= GAP1 Then 

KeyPress TKey1, 1

TracePrint  "定时按键1时间：" &  T

T1=T

End If

Delay GAP1*10

Wend

End Sub

Sub TimingClick2()

Dim SP

Dim T

T2=now

While isRun

T=now

SP =(T-T2)*100000

If (SP) >= GAP2 Then 

KeyPress TKey2, 1

TracePrint  "定时按键2时间：" &  T

T2=T

End If

Delay GAP2 * 10

Wend

End Sub

a1 = now
a2 = now
Do
KeyPress "Num 1", 1
If DateDiff("s", a1, now) > 5 Then
KeyPress "Num 2", 1
a1 = now
End If
If DateDiff("s", a2, now) > 150 Then
KeyPress "Num 3", 1
a2 = now
End If
Delay 500
Loop

---

旬邑县13957317785： 求一个简单按键精灵的脚本(本人刚学...) - ？
丹芳斯坦： Do KeyPress ＂Down＂, 1 Delay 1000 For 3 KeyPress ＂X＂, 1 Delay 300 Next Delay 500 KeyPress ＂Z＂, 1 Delay 1000 Loop 无限循环.如果觉得流程不对可以改延时,你机器反应快的话可以把延时改少点.如果要后台也可以追问

旬邑县13957317785： 求按键精灵的一个简单脚本! - ？
丹芳斯坦： //第一次按一下W,D KeyPress ＂W＂, 1 KeyPress ＂D＂, 1//两次按键的间隔改这里 1000=1秒 所以下面的100相当于间隔0.1秒 这个自己换算改 Delay 100//第二次按住W,D 然后就向右上跑了 KeyDown ＂w＂, 1 KeyDown ＂D＂, 1 复制上面进去按键精灵尝试下, 我猜你的意识是 要向右上角冲刺 就需要快速双击WD两个键 ,第一次就是要按一下WD 但是第二下就是要按住了.不懂再留言

旬邑县13957317785： 求、按键精灵一个简单的后台脚本.？
丹芳斯坦： 以下是按键精灵第8版本的,此源码是实列脚本复制即可使用: Hwnd = Plugin.Window.Foreground() Hwnd = Plugin.Window.MousePoint() Rem xh Call Plugin.Bkgnd.KeyPress(Hwnd, 81) Delay 3000 Goto xh 语句简短,运行动作符合你的要求...

旬邑县13957317785： 谁能帮忙写个简单的按键精灵脚本？
丹芳斯坦：While 1 = 1 KeyPress ＂Num 6＂, 1 Delay 50 线程ID=BeginThread(a) Wend Sub a Delay 2000 KeyPress ＂Num 7＂, 1 End Sub

旬邑县13957317785： 请高手写个简单的按键精灵脚本 - ？
丹芳斯坦： 关于使用:如果你看到的脚本是一段语句,你可以把它复制下来,然后打开按键精灵,点〔增加〕会打开脚本编辑器,在编辑区域(右下空白的地方)的上面一点有〔普通〕和〔源文件〕两个按钮,点〔源文件〕,然后把你复制下来的语句粘贴到下面编辑区,然后设定好上面的〔脚本描述〕、〔启动热键〕、〔中止热键〕和〔循环〕,然后点保存,好了以后退出来就可以在按键精灵的主界面看到你刚才新建的脚本了,在〔有效〕一栏打上勾就可以用了.如果你得到的是一个TXT文件,你可以把他拷贝到你的按键精灵安装目录下的script子目录,然后重新开启按键精灵就可以看到新加入的脚本了,同样,在〔有效〕一栏打上勾就可以用了

旬邑县13957317785： 谁可以帮我弄个简单的按键精灵脚.本?？
丹芳斯坦： //开始无限循环 While 1 //延迟50毫秒---太快可以改的 1000毫秒=1秒 Delay 50 //1tab键 1次 KeyPress ＂Tab＂, 1 //延迟50毫秒---太快可以改的 1000毫秒=1秒 Delay 50 //F键 1次 KeyPress ＂F＂, 1 Wend按键8代码

旬邑县13957317785： 谁给我写个简单的按键精灵脚本 - ？
丹芳斯坦： BeginThread a1 BeginThread a2 Sub a1 Do KeyPress ＂F＂, 1 Delay 1000 Loop End Sub Sub a2 Do KeyPress ＂3＂, 1 Delay 1000*60*5 Loop End Sub 无限循环、?..直接复制代码到脚本里运行

旬邑县13957317785： 高分!求一个按键精灵的脚本代码 - ？
丹芳斯坦： VBSCall a=GetPixelColor(100,120) VBSCall b=GetPixelColor(101,121) VBSCall c=GetPixelColor(102,122) If a=bIf a=cMoveTo 27 750LeftClick 1EndIf复制上面的到源代码就可以了//第一行括号内为x1,y1;第二e79fa5e98193e58685e5aeb...

旬邑县13957317785： 求一个简单按键精灵脚本 急用？
丹芳斯坦： Hwnd = Plugin.Window.Foreground()//得到最前窗口的句柄Delay 2000t1=nowRem aCall Plugin.Window.SendKeyPress(Hwnd, 52)Delay 2000 If DateDiff(＂n＂,t1,now)>=30 Then//每30分钟按空格Call Plugin.Window.SendKeyPress(Hwnd, 32) t1=now End If Goto a

旬邑县13957317785： 谁给做个按键精灵脚本,超简单.. - ？
丹芳斯坦： KeyPress 116,1 Delay 1000 KeyPress 65,1 Delay 3000 新建立个脚本.把上面代码复制进去.然后在循环方式上选 :直到按中止键才停止.就OK了