求一个按键精灵的脚本，来大神帮忙！
用SDJK四个键分别代表鼠标在屏幕的
S(316，546)
D(556，546)
J(796，546)
K(1056，546)
四个位置进行单击。
按住S、D、J、K就是等于在那四个位置按住鼠标左键不放，放开键盘就是等于松开鼠标键。
能做出这样的脚本吗？
While 1
s = GetAsyncKeyState(83)
d = GetAsyncKeyState(68)
j = GetAsyncKeyState(74)
k = GetAsyncKeyState(75)
If s < 0 Then
MoveTo 316,546
LeftDown 1
ElseIf d < 0 Then
MoveTo 556,546
leftdown 1
ElseIf j<0 Then
MoveTo 796,546
leftdown 1
ElseIf k<0 Then
MoveTo 1056,546
leftdown 1
ElseIf d= 1 or s = 1 or j = 1 or k = 1 Then
Leftup 1
End If
Delay 300
'此处为扫描频率，按需求自由调整
Wend
我了个擦 好难写啊，你试试是不是这个效果
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
While True
a = GetAsyncKeyState(65) //参数是ASCII码
Call Plugin.Msg.Tips(a) //没按a=0，按键a=1，按下a=-32767(a<0)
Delay 500
Wend
能帮忙给具体点的吗？谢谢啦！
请问装好插件以后怎么设置，代码能帮忙弄一下吗？谢谢！
求一个简单的按键精灵脚本
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"...
求帮忙写一个按键精灵脚本
elif km.isdown(one)==0 and one_step==3:#1键第二次弹起 one_step=0 #状态0 等待下一次按下1 2键控制f的逻辑if km.isdown(two)==1 and two_step==0:#1键第一次按下 two_step=1 #状态1 km.down('f') #f键按 elif km.isdown(two)==0 and two_step==1:#1键第...
求一个按键精灵脚本,第一次按tab是f1,三秒内再按一次是f2,三秒内再按...
KeyPress 原始键码, 1 原始键码 = 原始键码 + 1 按键时间1 = Plugin.Sys.GetTime()If 原始键码=124 Then 原始键码=112 End If End If Wend 你的要求好奇怪啊 做是做出来了 不过TAB每次都会输入进去的 也就是1个TAB 1个F功能键 ...
求一个按键精灵脚本
do Key=WaitKey()\/\/脚本运行到这一行会暂停,当用户按下键盘后继续执行 If Key = 13 Then \/\/13是回车键 a=a+1 b=10*a-10 moveto 1500,150+b End If loop 已亲测可行
求一个按键精灵后台脚本
MyArray = Split(Hwnd, "|")RE = Plugin.Window.GetClientRect(MyArray(0))DX=Split(RE,"|")tx=DX(0)ty=DX(1)Call Plugin.Bkgnd.LeftClick(MyArray(0), 165+tx, 428+ty)Delay 2000 Call Plugin.Bkgnd.LeftClick(MyArray(0), 165+tx, 382+ty)Delay 2000 Call Plugin.Bkgnd.LeftClick...
求大神给做一个按键精灵的游戏自动喊话的后台脚本。现在的自动喊话,一...
Rem han hanhua(kg)Goto han Sub jiange Rem kgg kg = InputBox("请输入喊话间隔")kg2 = kg If kg2 * 0 = 0 Then Else MessageBox "请输入数字，1000为1秒"Goto kgg End If End Sub Sub huoquchuangkou Rem go aa = 0 MsgBox("3秒内鼠标悬停到要喊话的游戏界面")Delay 3000 Hwnd ...
求一个按键精灵 后台操作的简单脚本
\/\/脚本中坐标点XX，YY你要自己设定 Hwnd = Plugin.Window.MousePoint()\/\/得到当前鼠标指向窗口的句柄 While true \/\/当条件为真时循环 Call Plugin.Bkgnd.LeftClick(Hwnd, XX, YY)\/\/向这个窗口坐标XX，YY处发鼠标左键单击 Delay 500 \/\/延时500毫秒 Call Plugin.Bkgnd.KeyPress(Hwnd, 81)\/\/向...
求一个按键精灵很简单的连续按键脚本,谢谢
Call Plugin.Msg.Tips("脚本继续运转。。。")End If loop Sub J键100毫秒一次 Do Call Plugin.Bkgnd.KeyPress(Hwnd, 74)Delay 100 loop End Sub Sub q键2秒一次 Do Call Plugin.Bkgnd.KeyPress(Hwnd, 81)Delay 2000 loop End Sub Sub 回车键1秒一次 Do Call Plugin.Bkgnd.KeyPress(Hwnd, 1...
求一按键精灵脚本
FindPic(0,0,1024,768,"Attachment:\\神盾.bmp",0.9,x,y)If x>0 and y>0 tupian=1 Delay yanchi KeyPress 27,1 Delay yanchi Else tupian=0 EndIf Return 找图 Sub 连点 Rem 继续点 tupian=GetEnv("tupian")If tupian=1 LeftClick 1 Delay yanchi EndIf Goto 继续点 Return 连点 ...
跪求一个按键精灵的脚本
RightClick 1\/\/右键点击 Delay 500 KeyPress "2", 1\/\/按2 Delay 500 RightClick 1\/\/右键点击 Delay 500 KeyPress "3", 1\/\/ 按3 Delay 500 RightClick 1\/\/右键点击 y = y + 25 MoveTo x, y\/\/鼠标下移1厘米 1厘米=25像素 继续上面的动作 Delay 500 KeyPress "1", 1 Delay ...
