按键精灵教程(最新完整版)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
按键精灵教程(最新完整版)
上传于||暂无简介
你可能喜欢你的位置：
一个游戏里，在后台同时执行两个循环怎么弄啊
23:48:41 |
来源: 按键精灵资源站
本帖最后由 imgoood 于
00:45 编辑
我想做个一边不停的打怪，一边按时间给人物加技能的脚本，但怎么也调试不出来，用的多线程，琢磨了一个晚上，终于明白点了，多线程在一个窗口里是不能实现的，请问怎么才能实现。
c=Plugin.Window.MousePoint()
Dimenv ID1，ID2
ID1=BeginThread(a)
ID2=BeginThread(b)
& && &&&Rem 开始1
Call Plugin.Bkgnd.KeyPress(c,49)
Delay 90000
Goto 开始1
//定义每隔1分半钟,按一次 1
& && &&&Rem 开始2
Call Plugin.BKGND.KeyPress(c,50)
Delay 2000
Call Plugin.BKGND.KeyPress(c,51)
Delay 2000
Goto 开始2
//定义每隔2秒,按2和3
以上程序在语法上9通过，但运行后一点反应也没有，人物站在原地不动，什么键也没按。你的位置：
求高手指点一下怎么在一个脚本里同时运行多个循环
23:21:45 |
来源: 按键精灵资源站
Qx = Plugin.Window.MousePoint()
& && &&&Delay 200
Call Plugin.Bkgnd.KeyDown(Qx, 37)
& && &&&Delay 800
Call Plugin.Bkgnd.KeyUp(Qx, 37)
& && &&&Delay 24500
Call Plugin.Bkgnd.KeyDown(Qx, 39)
& && &&&Delay 800
Call Plugin.Bkgnd.KeyUp(Qx, 39)
& && &&&Delay 24500
& & IfColor 108,149,&66FF&,0 Then
& && &&&Delay 300
& & Call Plugin.Bkgnd.KeyPress(Qx, 57)
& && &&&Delay 300
& & Call Plugin.Bkgnd.KeyPress(Qx, 51)
& && &&&Delay 300
& & Call Plugin.Bkgnd.KeyPress(Qx, 13)
& && &&&Delay 300
& & IfColor 58,192,& Then
& && && && &Delay 300
& && &&&Call Plugin.Bkgnd.KeyPress(Qx, 13)
IfColor 183,349,&3F32A5&,0 Then
& && && && && & Delay 600
Call Plugin.Bkgnd.KeyPress(Qx, 113)
& && && && && & Delay 300
& & Call Plugin.Bkgnd.KeyPress(Qx, 38)
& && && && && & Delay 300
& && &&&Call Plugin.Bkgnd.KeyPress(Qx,13)
& & End If
& & Goto a
& & IfColor 169,353,&FF&,0 Then
& && && && && && &&&Delay 3000
Call Plugin.Bkgnd.KeyPress(Qx, 113)
& && && && && && &&&Delay 300
& && &&&Call Plugin.Bkgnd.KeyPress(Qx, 38)
& && && && && && &&&Delay 300
& && &&&Call Plugin.Bkgnd.KeyPress(Qx, 38)
& && && && && && &&&Delay 300
& && && && &Call Plugin.Bkgnd.KeyPress(Qx, 38)
& && && && && && &&&Delay 300
& && && && &Call Plugin.Bkgnd.KeyPress(Qx,13)
& && &&&End If
& & Goto c
& & IfColor 129,348,&3F32A5&,0 Then
& && && && && && && && && & Delay 10000
& & Call Plugin.Bkgnd.KeyPress(Qx, 113)
& && && && && && && && && & Delay 300
& && && && && && &&&Call Plugin.Bkgnd.KeyPress(Qx,13)
& && &&&End If