谁能给我个无需root一直按键脚本B的脚本

www.51yue.net    2010-07-27    标签：hke1.25b脚本
怎么用按键精灵一直按住一个键_百度知道请教高手，按键精灵 A脚本循环1个小时 B脚本运行一次_百度知道你的位置：
我们我这个单开脚本一改成多开的里面的A时和B时就都没用了，你输入多少秒都不行.
17:51:42 |
来源: 按键精灵资源站
UserVar Var1=9999999 &技能“1”多少秒，使用一次&
UserVar Var2=9999999 &技能“2”多少秒，使用一次&
UserVar Var3=9999999 &技能“3”多少秒，使用一次&
UserVar Var4=9999999 &技能“4”多少秒，使用一次&
UserVar Var5=9999999 &技能“5”多少秒，使用一次&
UserVar Var6=9999999 &技能“6”多少秒，使用一次&
UserVar Var7=9999999 &切换目标“Tab”多少秒，使用一次&
UserVar Var8=9999999 &旋转找怪“Left”多少秒，使用一次&
UserVar Var9=9999999 &普通攻击“c”多少秒，使用一次&
A时 = Plugin.Sys.GetTime()
//↑系统运行到现在，一共多久（单位：毫秒）
技1=1:技2=1:技3=1:技4=1:技5=1:技6=1:技7=1:技8=1:技9=1
//↑每一个技能，分配一个，变量，计算次数
//&&------------------------------
Call 注册()
Call 绑定()
Call 开始工作()
BeginThread 答题()
Sub 开始工作()
& & While 7 = 7
& && &&&Call 多个技能()
& && &&&Delay 1000
& && &&&dm.MoveTo&&755,745
& && &&&Delay 5
& && &&&dm.LeftClick
& & Wend& &
Sub 注册()
& & PutAttachment &.\plugin&,&*.dll&
& & PutAttachment &.\plugin\大漠梦想&,&*.bmp&
& & PutAttachment &.\plugin\大漠梦想&,&*.txt&
& & PutAttachment &.\plugin\大漠梦想&,&dm.dll&
& & //↑PutAttachment释放附件
& & Call Plugin.RegDll.Reg(&.\plugin\大漠梦想\dm.dll&)
& & set dm = createobject(&dm.dmsoft&)
& & //↑大漠·注册
& & dm.SetPath &.\plugin\大漠梦想&
& & //↑指定“全局路径”
& & //dm.SetDict 0,&字库.txt&
& & //↑相对路径……第一个·字库
& & Delay 40
Sub 绑定()
& & hwnd = dm.GetMousePointWindow()
& & TracePrint hwnd
& & dm_ret = dm.SetWindowState(hwnd, 12)
& & dm.MoveWindow hwnd, - 10 , 0
& & //恢复、激活、移动窗口位置
& & Delay 500
& & dm_ret = dm.BindWindow(hwnd,&dx&,&windows2&,&dx&,0)
& & Delay 200
& & If dm_ret = 0 Then
& && &&&MessageBox &绑定失败&
& && &&&EndScript
& & End If
//&&--------------------------------------------------------------------&&
//&&------------------------------子程序------------------------------&&
//&&--------------------------------------------------------------------&&
Sub 多个技能()
& & B时 = Plugin.Sys.GetTime()
& & Delay 5
& & If Clng((B时-A时)/1000)&=Var1*技1 Then
& && &&&技1=技1+1
& && &&&dm.KeyPress 49
& && &&&Delay 20
& & End If
& & //↑每过“Var1”秒，就按一次，指定“快捷键”
& & If Clng((B时-A时)/1000)&=Var2*技2 Then
& && &&&技2=技2+1
& && &&&dm.KeyPress 50
& && &&&Delay 20
& & End If
& & //↑每过“Var2”秒，就按一次，指定“快捷键”
& & If Clng((B时-A时)/1000)&=Var3*技3 Then
& && &&&技3=技3+1
& && &&&dm.KeyPress 51
& && &&&Delay 20
& & End If
& & //↑每过“Var3”秒，就按一次，指定“快捷键”
& & If Clng((B时-A时)/1000)&=Var4*技4 Then
& && &&&技4=技4+1
& && &&&dm.KeyPress 52
& && &&&Delay 20
& & End If
& & //↑每过“Var4”秒，就按一次，指定“快捷键”
& & If Clng((B时-A时)/1000)&=Var5*技5 Then
& && &&&技5=技5+1
& && &&&dm.KeyPress 53
& && &&&Delay 20
& & End If
& & //↑每过“Var5”秒，就按一次，指定“快捷键”
& & If Clng((B时-A时)/1000)&=Var6*技6 Then
& && &&&技6=技6+1
& && &&&dm.KeyPress 54
& && &&&Delay 20
& & End If
& & //↑每过“Var6”秒，就按一次，指定“快捷键”
& & If Clng((B时-A时)/1000)&=Var7*技7 Then
& && &&&技7=技7+1
& && &&&dm.KeyPress 9
& && &&&Delay 20
& & End If
& & //↑每过“Var7”秒，就按一次，指定“快捷键”
& & If Clng((B时-A时)/1000)&=Var8*技8 Then
& && &&&技8=技8+1
& && &&&dm.KeyPress 37
& && &&&Delay 20
& & End If
& & //↑每过“Var8”秒，就按一次，指定“快捷键”
& & If Clng((B时-A时)/1000)&=Var9*技9 Then
& && &&&技9=技9+1
& && &&&dm.KeyPress 67
& && &&&Delay 20
& & End If
& & //↑每过“Var9”秒，就按一次，指定“快捷键”
//&&------------------------------
//↑IF，条件成立，才会按键
//↑否则，判断下一个，技能条件
Sub 答题()
& &&&Set dm = createobject(&dm.dmsoft&)
& & //创建大漠对象
& & dm.SetPath &.\plugin\大漠梦想&
& & //↑指定“全局路径”
& & Call 绑定()
& && &&&dm_ret = dm.FindPic(49, 197, 280, 482, &雪国.bmp|周国.bmp|长老散人.bmp|时间.bmp|二十个.bmp|两百.bmp|陆行鸟.bmp|武士方士.bmp|Y键.bmp|匕首.bmp|冰箭术.bmp|刚力.bmp|龟息术.bmp|内功意守.bmp|生命之石.bmp|十级.bmp|鼠标右键.bmp|太极盾.bmp&, &000000&, 0.9, 0, intX, intY)
& && &&&Delay 20
& && &&&If intX &= 0 and intY &= 0 Then
& && && && &dm.MoveTo&&intX+3, intY+5
& && && && &Delay 50
& && && && &dm.LeftClick
& && &&&End If
& && &&&If dm_ret = 0 Then
& && && && &dm_ret = dm.FindPic(49, 197, 280, 482, &原莲城.bmp&, &000000&, 0.9, 0, intX1, intY1)
& && && && &Delay 20
& && && && &If intX1 &= 0 and intY1 &= 0 Then
& && && && && & dm.MoveTo&&intX1+3, intY1+5
& && && && && & Delay 50
& && && && && & dm.LeftClick
& && && && &End If
& && &&&End If
& && && &If dm_ret = 1 Then
& && && && &dm_ret = dm.FindPic(49, 197, 280, 482, &鹿马城.bmp&, &000000&, 0.9, 0, intX2, intY2)
& && && && &Delay 20
& && && && &If intX2 &= 0 and intY2 &= 0 Then
& && && && && & dm.MoveTo&&intX2+3, intY2+5
& && && && && & Delay 50
& && && && && & dm.LeftClick
& && && && &End If
& && &&&End If
& & Loop While 7 = 7
下面是我改成多开的
---------------------------------------------------------------------------------
UserVar Var1=9999999 &技能“1”多少秒，使用一次&
UserVar Var2=9999999 &技能“2”多少秒，使用一次&
UserVar Var3=9999999 &技能“3”多少秒，使用一次&
UserVar Var4=9999999 &技能“4”多少秒，使用一次&
UserVar Var5=9999999 &技能“5”多少秒，使用一次&
UserVar Var6=9999999 &技能“6”多少秒，使用一次&
UserVar Var7=9999999 &切换目标“Tab”多少秒，使用一次&
UserVar Var8=9999999 &旋转找怪“Left”多少秒，使用一次&
UserVar Var9=9999999 &普通攻击“c”多少秒，使用一次&
& &A时 = Plugin.Sys.GetTime()
//↑系统运行到现在，一共多久（单位：毫秒）
& &B时 = Plugin.Sys.GetTime()
技1=1:技2=1:技3=1:技4=1:技5=1:技6=1:技7=1:技8=1:技9=1
//↑每一个技能，分配一个，变量，计算次数
//&&------------------------------
Call 注册()
//Call 绑定()
While 7 = 7
& & Key = WaitKey()
& & Delay 20
& & If Key = 119 Then
& && &&&aa = dm.GetMousePointWindow()
& && &&&BeginThread 开始工作()
& & End If
Sub 开始工作()
& & Set dm = createobject(&dm.dmsoft&)
& & //创建大漠对象
& & dm.SetPath &.\plugin\大漠梦想&
& & //↑指定“全局路径”
& & Call 绑定()
& & BeginThread 答题()
& & While 7 = 7
& && &&&Call 多个技能()
& && &&&dm.MoveTo 755,745
& && &&&Delay 5
& && &&&dm.LeftClick
Sub 注册()
& & PutAttachment &.\plugin&,&*.dll&
& & PutAttachment &.\plugin\大漠梦想&,&*.bmp&
& & PutAttachment &.\plugin\大漠梦想&,&*.txt&
& & PutAttachment &.\plugin\大漠梦想&,&dm.dll&
& & //↑PutAttachment释放附件
& & Call Plugin.RegDll.Reg(&.\plugin\大漠梦想\dm.dll&)
& & set dm = createobject(&dm.dmsoft&)
& & //↑大漠·注册
& & dm.SetPath &.\plugin\大漠梦想&
& & //↑指定“全局路径”
& & //dm.SetDict 0,&字库.txt&
& & //↑相对路径……第一个·字库
& & Delay 40
Sub 绑定()
& & hwnd = aa
& & TracePrint hwnd
& & dm_ret = dm.SetWindowState(hwnd, 12)
& & dm.MoveWindow hwnd, - 10 , 0
& & //恢复、激活、移动窗口位置
& & Delay 500
& & dm_ret = dm.BindWindow(hwnd,&dx&,&windows2&,&dx&,0)
& & Delay 200
& & If dm_ret = 0 Then
& && &&&MessageBox &绑定失败&
& && &&&EndScript
& & End If
//&&--------------------------------------------------------------------&&
//&&------------------------------子程序------------------------------&&
//&&--------------------------------------------------------------------&&
Sub 多个技能()
& & //B时 = Plugin.Sys.GetTime()
& & Delay 5
& & If Clng((B时-A时)/1000)&=Var1*技1 Then
& && &&&技1=技1+1
& && &&&dm.KeyPress 49
& && &&&Delay 20
& & End If
& & //↑每过“Var1”秒，就按一次，指定“快捷键”
& & If Clng((B时-A时)/1000)&=Var2*技2 Then
& && &&&技2=技2+1
& && &&&dm.KeyPress 50
& && &&&Delay 20
& & End If
& & //↑每过“Var2”秒，就按一次，指定“快捷键”
& & If Clng((B时-A时)/1000)&=Var3*技3 Then
& && &&&技3=技3+1
& && &&&dm.KeyPress 51
& && &&&Delay 20
& & End If
& & //↑每过“Var3”秒，就按一次，指定“快捷键”
& & If Clng((B时-A时)/1000)&=Var4*技4 Then
& && &&&技4=技4+1
& && &&&dm.KeyPress 52
& && &&&Delay 20
& & End If
& & //↑每过“Var4”秒，就按一次，指定“快捷键”
& & If Clng((B时-A时)/1000)&=Var5*技5 Then
& && &&&技5=技5+1
& && &&&dm.KeyPress 53
& && &&&Delay 20
& & End If
& & //↑每过“Var5”秒，就按一次，指定“快捷键”
& & If Clng((B时-A时)/1000)&=Var6*技6 Then
& && &&&技6=技6+1
& && &&&dm.KeyPress 54
& && &&&Delay 20
& & End If
& & //↑每过“Var6”秒，就按一次，指定“快捷键”
& & If Clng((B时-A时)/1000)&=Var7*技7 Then
& && &&&技7=技7+1
& && &&&dm.KeyPress 9
& && &&&Delay 20
& & End If
& & //↑每过“Var7”秒，就按一次，指定“快捷键”
& & If Clng((B时-A时)/1000)&=Var8*技8 Then
& && &&&技8=技8+1
& && &&&dm.KeyPress 37
& && &&&Delay 20
& & End If
& & //↑每过“Var8”秒，就按一次，指定“快捷键”
& & If Clng((B时-A时)/1000)&=Var9*技9 Then
& && &&&技9=技9+1
& && &&&dm.KeyPress 67
& && &&&Delay 20
& & End If
& & //↑每过“Var9”秒，就按一次，指定“快捷键”
//&&------------------------------
//↑IF，条件成立，才会按键
Sub 答题()
& &&&Set dm = createobject(&dm.dmsoft&)
& & //创建大漠对象
& & dm.SetPath &.\plugin\大漠梦想&
& & //↑指定“全局路径”
& & Call 绑定()
& && &&&dm_ret = dm.FindPic(49, 197, 280, 482, &雪国.bmp|周国.bmp|长老散人.bmp|时间.bmp|二十个.bmp|两百.bmp|陆行鸟.bmp|武士方士.bmp|Y键.bmp|匕首.bmp|冰箭术.bmp|刚力.bmp|龟息术.bmp|内功意守.bmp|生命之石.bmp|十级.bmp|鼠标右键.bmp|太极盾.bmp&, &000000&, 0.9, 0, intX, intY)
& && &&&Delay 20
& && &&&If intX &= 0 and intY &= 0 Then
& && && && &dm.MoveTo&&intX+3, intY+5
& && && && &Delay 50
& && && && &dm.LeftClick
& && && && & Delay 50
& && && && &dm.LeftClick
& && &&&End If
& && &&&If dm_ret = 0 Then
& && && && &dm_ret = dm.FindPic(49, 197, 280, 482, &原莲城.bmp&, &000000&, 0.9, 0, intX1, intY1)
& && && && &Delay 20
& && && && &If intX1 &= 0 and intY1 &= 0 Then
& && && && && & dm.MoveTo&&intX1+3, intY1+5
& && && && && & Delay 50
& && && && && & dm.LeftClick
& && && && && &&&Delay 50
& && && && && & dm.LeftClick
& && && && &End If
& && &&&End If
& && && &If dm_ret = 1 Then
& && && && &dm_ret = dm.FindPic(49, 197, 280, 482, &鹿马城.bmp&, &000000&, 0.9, 0, intX2, intY2)
& && && && &Delay 20
& && && && &If intX2 &= 0 and intY2 &= 0 Then
& && && && && & dm.MoveTo&&intX2+3, intY2+5
& && && && && & Delay 50
& && && && && & dm.LeftClick
& && && && && &&&Delay 50
& && && && &dm.LeftClick
& && && && &End If
& && &&&End If
& & Loop While 7 = 7谁会做按键精灵的脚本，我需要从A点移动到B点，同时按1键。_百度知道谁能给我做一个按键精灵的.exe的脚本，谢谢了感激不尽_百度知道

参考资料

 

随机推荐