你的位置：
求大神帮忙 看下这个源码在按键精灵上怎么用
来源: 按键精灵资源站
& & UserVar asjdaisd=&请设置& ---------技能设置----------
UserVar k=DropList{单开:1|双开:2|三开:3|四开:4|五开:5}=0 设置内容
UserVar jn1=&2& 设置技能1键位
UserVar jn2=&3& 设置技能2键位
UserVar jn3=&4& 设置技能3键位
UserVar s1=60 设置技能1施放间隔时间（单位：秒）
UserVar s2=90 设置技能2施放间隔时间（单位：秒）
UserVar s3=120 设置技能3施放间隔时间（单位：秒）
UserVar y1=10 技能1吟唱时间（秒）
UserVar y2=10 技能2吟唱时间（秒）
UserVar y3=10 技能3吟唱时间（秒）
UserVar jg=1 抢怪间隔（秒）
//---------------[分隔线]--------------------
VBS dim key(2),sj(3)
VBS dim jn1,jn2,jn3,s1,s2,s3,s4,t1,t2,t3,t4,zf,hx
//声明变量
key(0)=Asc(jn1):key(1)=Asc(jn2):key(2)=Asc(jn3)
sj(0)=s1:sj(1)=s2:sj(2)=s3:sj(3)=s4
//把自定义参数的返回值转换成数组元素
t1=now:t2=now:t3=now:t4=now
//返回当前系统日期时间到变量
dim d,k,fs(4)
While d=&k-1
& &&&Delay 10
& &&&Plugin hx(d)=Window.Foreground()
& &&&KeyDown 18,1
& &&&Delay 10
& &&&KeyPress 27,1
& &&&Delay 10
& &&&KeyUp 18,1
& &&&d=d+1
//---------------[分隔线]--------------------
Rem 开始挂机
Gosub 抢怪+检查辅助技能
Goto 开始挂机
//---------------[分隔线]--------------------
Sub 抢怪+检查辅助技能
& &&&While c=&k-1
& && && &Plugin Window.SendKeyPress(hx(c),192)
& && && &Delay 100
& && && &Plugin Window.SendKeyPress(hx(c),49)
& && && &Delay jg*1000
& && && &If DateDiff(&s&,t1,now)&=sj(0)
& && && && & Plugin Window.SendKeyDown(hx(c),key(0))
& && && && & Delay 32
& && && && & Plugin Window.SendKeyUp(hx(c),key(0))
& && && && & Delay y1*1000
& && && && & t1=now
& && && &EndIf
& && &&&If DateDiff(&s&,t2,now)&=sj(1)
& && && && & Delay 10
& && && && & Plugin Window.SendKeyDown(hx(c),key(1))
& && && && & Delay 32
& && && && & Plugin Window.SendKeyUp(hx(c),key(1))
& && && && & Delay y2*1000
& && && && & t2=now
& && && &EndIf
& && &&&If DateDiff(&s&,t3,now)&=sj(2)
& && && && & Delay 10
& && && && & Plugin Window.SendKeyDown(hx(c),key(2))
& && && && & Delay 32
& && && && & Plugin Window.SendKeyUp(hx(c),key(2))
& && && && & t3=now
& && && &EndIf
& && &&&If DateDiff(&s&,t3,now)&=sj(2)
& && && && & Delay 10
& && && && & Plugin Window.SendKeyDown(hx(c),key(2))
& && && && & Delay 32
& && && && & Plugin Window.SendKeyUp(hx(c),key(2))
& && && && & Delay y3*1000
& && && && & t3=now
& && && &EndIf
& && &&&c=c+1
& &&&EndWhile求大神们做个简单的按键精灵脚本_百度知道
求大神们做个简单的按键精灵脚本
就是每3秒按下TAB 然后空格键是一直按的 1 是每一秒按一下钉互草酵禺寂碴檄厂漏 2
3 无限按 4是每20秒按一次
这些按键 顺序随便
最重要是支持后台 感激不尽~
提问者采纳
Hwnd = Plugin.Window.GetKeyFocusWnd()Delay 2000t1=now:t2=now:sj1=0.5:sj2=60Rem abcc Delay 20 If DateDiff(&s&,t1,now)&=sj1
Call Plugin.Bkgnd.KeyPress(Hwnd, 83)Delay 10
t1=now End If
If DateDiff(&s&,t2,now)&=sj2
Delay 10Call Plugin.Bkgnd.KeyPress钉互草酵禺寂碴檄厂漏(Hwnd, 70)
End If Goto abcc
其他类似问题
20人觉得有用
按键精灵脚本的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求大神解决按键精灵9.0在两个相同名称的游戏同时后台进行！_百度知道
求大神解决按键精灵9.0在两个相同名称的游戏同时后台进行！
&间隔1秒Delay 1000LoopEnd Sub&#47.Find(0;/&#47？还有很多网友说句柄.KeyPress(H按键盘上的f1Call P选中哪个窗口哪个窗口才会运行.KeyPress(Hwnd.Window, 112)/&#47。 不知道跟这个是否有影响., 114)&#47！ 另外.Window：&quot。.Find(0;/Lineage II&是我打上去的这个其实是一位好心的网友提供的;/按键盘上的f2Call P/按键盘上的f4Call Plugin.不能达到两个同时运行。.Bkgnd, 115)&#47, 113)&#47，只不过我是把名称改为了lineage II;&#47.KeyPress(Hwnd, &quot！ 求大神开导;循环的格式 DoHwnd = P)&#47.BeginThread ABeginThread B/Lineage II&quot.B这个是按键盘1的Sub A/间隔1秒Delay 1000LoopEnd Sub运行后情况只能是鼠标点击&#47，句柄什么的我真搞不懂句柄该如何控制;/Lineage II&循环DoHwnd = Plugin，另一个依然保持不动;/&#47。;按键盘上的f3Call Plugin。.KeyPress(Hwnd.B)/这个点击键盘2的Sub B &#47.Bkgnd
提问者采纳
请在第二个窗口按下空格&一窗口的句柄为Hwnd，B两个子程序还是1窗口运行A;key=Waitkey() If key = 32 Then
Hwnd = Plugin.Window, 114)Call Plugin？ &#47,2窗口运行B;&#47, 113)
Delay 1000 Loop End Sub&#47.Window,你是要每一个窗口都运行同时运行A;&#47.B你要一开始就获取两个窗口句柄;给个例子你把.Foreground()End IfMsgBox &quot.KeyPress(H&#47, 115)
Delay 1000 Loop End SubDimenv hwndBeginThread aBeginThread b &#47.KeyPress(H/key = WaitKey()If key = 32 Then
Hwnd2 = Plugin.Foreground()End If&#47，你自己根据情况修改 MsgBox &quot.KeyPress(H请分别在两个游戏窗口内按下空格&quot, 112)Call Plugin.B这个是按键盘1的Sub a Do
Call P这个是按键盘2的Sub b Do
Call Plugin.Bkgnd,二窗口的句柄为Hwnd2.KeyPress(H&#47&#47.Bkgnd
两个窗口都运行A也行，，能分开当然最好！
提问者评价
其他类似问题
|&quot.KeyPress(Hwnd.KeyPress(HwndDimEnv HwndHwndEx = split(Plugin, &)For i = 0 To UBound(HwndEx) - 1
Hwnd = HwndEx(i)
BeginThread ANextSub A
Call PLineage II&quot.B), &quot.Bkgnd, 112)
Call Plugin.Window.Find(0
按键精灵的相关知识
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求大神帮我写一个简单的按键精灵脚本， 我想做一个组合键_百度知道
求大神帮我写一个简单的按键精灵脚本， 我想做一个组合键
X → X 这三个键的组合 筏抚齿合佼骨酬摊揣揩第一个X按一下，之后一直按着 →不松，当按住 →时再立即按住X不松，持续2秒左右两个按键同时松手。我想把这个过程做成一个快捷键使用，求大神帮忙做一下脚本
提问者采纳
呵呵，给你做了一下。当你按X的时候，程序就会按你说的做。当运行完，只要你再按x，它还会运行。也就是说X就是快捷键了。Rem 开始k = WaitKeyIf k && 88 Then Goto 循环End IfKeyPress &X&, 1Delay 500KeyDown &Right&, 1sj1 = Plugin.GetSysInfo.GetTime()DoKeyPress &X&, 1sj2 = Plugin.GetSysInfo.GetTime()If sj2 - sj1 &= 2000 Then Exit DoElse Delay 50End IfloopKeyUp &Right&, 1Set k = nothingrem 循环Goto 开始
抱歉 打错了 那个第二次按住x其实是狂按x键 就是按住右的同时狂点x键 之后2秒后松手
我的就是狂按X哦。
其他类似问题
按键精灵脚本的相关知识
其他1条回答
一开始按一下X键，松手后马上按住→键不松开（在按住→键时同时与X键按下）2秒后一起松手？是的话下面是源代码你自己复制下就OK了。Rem 开始KeyPress &X&, 1D筏抚齿合佼骨酬摊揣揩elay 500KeyDown &Right&, 1KeyDown &X&, 1Delay 2000KeyUp &Right&, 1KeyUp &X&, 1Goto 开始如果不需要重复执行可以把第一行（Rem 开始）和最后一行Goto 开始删除。
抱歉 打错了 那个第二次按住x其实是狂按x键 就是按住右的同时狂点x键 之后2秒后松手
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁