按键精灵 自定义间隔时间后台按键 脚本

UserVar s1=3 技能1施放间隔时间 UserVar s2=5 技能2施放间隔时间 UserVar s3=111 技能3施放间隔时间 UserVar s4=67 技能4施放间隔时间 dim hong,lan,cq dim key(5),base(2) base(0)=hpbase:base(1)=spbase:base(2)=expbase t1=now:t2=now:t3=now:t4=now //声明字符串 Dim Message As String //------------------------主程序------------------- Plugin cq=Window.Foreground() Message = Message & "开始了" & vbCr MessageBox Message Rem 开始循环 Gosub 开辅助技能 Goto 开始循环 ----------------------开辅助------------------------ Sub 开辅助技能 If DateDiff("s",t1,now)>=s1 Delay 32 Plugin Window.SendKeyDown(cq,key(0)) Delay 32 Plugin Window.SendKeyUp(cq,key(0)) t1=now EndIf If DateDiff("s",t2,now)>=s2 Delay 32 Plugin Window.SendKeyDown(cq,key(1)) Delay 32 Plugin Window.SendKeyUp(cq,key(1)) t2=now EndIf Return Plugin BGKM5.RDown(hwnd,720,550) Plugin BGKM5.MMove(hwnd,720,60) Plugin BGKM5.MMove(hwnd,720,550) Plugin BGKM5.RUp(hwnd,720,550 Plugin hwnd=Window.Find() Plugin Window.Active(hwnd) //需要先得到可以发送按键消息的窗口 Plugin hwnd = Window.GetKeyFocusWnd() //等待两秒钟 Delay 2000 //For 1000 //后台喊话 //Plugin Window.SendString(hwnd,"Hello, world") //后台按键 //Plugin Window.SendKeyPress(hwnd,13) //Delay 1000 //屏幕点坐标转换为窗口点坐标x //Plugin x=BGKM5.ScrToCli(hwnd,480,310) //Delay 100 //VBSCall MessageBox(x) //Delay 100 //x0=400 //y0=400 For 5 //Plugin DBSoft.MouseClick(hwnd,2,400,400) //发送右键 //Delay 2000 //Plugin BGKM5.MMove(hwnd,571,287) //不使用也可以移动鼠标 Plugin BGKM5.Mouse(hwnd,1,571,287) Delay 100 Plugin BGKM5.Mouse(hwnd,2,571,287) //Plugin shenkeCJ.SendRClick(hwnd,395,297,1,0) Delay 1000 //Delay 2000 //鼠标可以点,仅用于最底层界面,悬浮的窗口无效 EndFor