跪求一个按键精灵的脚本
要求：移动鼠标到右上角停留按1右键，按2右键，按3右键，然后再向下移动鼠标一厘米，按1右键，按2右键，按3右键，在向下移动一厘米按1右键，按2右键，按3右键，然后停留1分钟再回到右上角，然后再循环，高分求助
While i = 2//当i=2时循环
x = 1024
y=0 //定义屏幕坐标xy
MoveTo x, y //移动到xy
Delay 500 //这是延时500毫秒 当然越小速度越快 最好不低于100
KeyPress "1", 1//按1
Delay 500
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 500
RightClick 1
Delay 500
KeyPress "2", 1
Delay 500
RightClick 1
Delay 500
KeyPress "3", 1
Delay 500
RightClick 1
y = y + 25
MoveTo x, y
Delay 500
KeyPress "1", 1
Delay 500
RightClick 1
Delay 500
KeyPress "2", 1
Delay 500
RightClick 1
Delay 500
KeyPress "3", 1
Delay 500
RightClick 1
Delay 60000// 延时60秒
Wend
有疑惑QQ既用户名
求一个简单的按键精灵脚本
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 TKey...
求按键精灵的脚本。 回合制游戏 在一个地图几个点来回走动的脚本...
NumA=0:NumB=0:NumC=0:CenterX=385:CenterY=310:StepX=82:StepY=66 \/\/CenterX，CenterY---中心坐标(一般是人数) StepY,StepY--步长 \/\/***主程序开始 While NumC<3 \/\/NumC---三圈， 相当会把找怪范围会成25个格 NumN=NumC*8:NumK=0 \/\/NumN---找怪的格子位置 While NumK<NumN ...
求帮忙写一个按键精灵脚本
km.down('d') #D键按下、elif km.isdown(one)==0 and one_step==1:#1键第一次弹起 one_step=2 #状态2 elif km.isdown(one)==1 and one_step==2:#1键第二次按下 km.up('d') #D弹起 elif km.isdown(one)==0 and one_step==3:#1键第二次弹起 one_step=0 ...
求一个按键精灵 后台操作的简单脚本
\/\/脚本中坐标点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)\/\/向这...
求按键精灵的高手写个最简单的脚本,能用有高分加哦
代码如下：Dim hwnd hwnd=Plugin.Window.MousePoint()Delay 200 Do Call Plugin.Bkgnd.KeyPress(hwnd,49)Delay 1000 Call Plugin.Bkgnd.KeyPress(hwnd,50)Delay 22000 Call Plugin.Bkgnd.KeyPress(hwnd,51)Delay 22000 Loop 运行脚本的时候注意先将鼠标停在指定窗口栏上，以获得窗口句柄。
求一个按键精灵后台脚本
先把鼠标移动到需要运行脚本的窗口上，再启动脚本 脚本涉及到后台坐标，由于前后台坐标是不同的，只能重新获取，方法请看帖子http:\/\/hi.baidu.com\/aiyowei_2\/blog\/item\/c75aa2f99fcde679034f56f1.html 然后把(Hwnd, 0, 0)里的两个0改成你获取的坐标即可 另外，有些游戏\/软件不支持按键精灵后台...
求一个简单的 按键精灵后台脚本
Hwnd = Plugin.Window.MousePoint()Do Call Plugin.Bkgnd.LeftClick(Hwnd, x, y)Delay 30000 Loop 开始的时候鼠标指向你的窗口。如果改程序支持后台操作则可以使用。希望对您有帮助。
求个按键精灵后台脚本
Call Plugin.Bkgnd.LeftClick(hwnd, 0, 0) \/\/后台左键单击你要单击的地方 Delay 30 \/\/等待30毫秒以便鼠标完成点击 wend 指定窗口方法:打开"按键精灵"-打开"抓抓"-在"按键抓抓辅助工具"左下角点击"句柄"-按"F8"-把鼠标移动到你要执行后台操作的窗口上面(不需要点击)-按"F8"-在"按键抓抓辅助...
求一个按键精灵很简单的连续按键脚本,谢谢
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 连点 ...
