求QQ飞车自动接力按键精灵脚本
2013-10-28
展开全部
按键精灵7
Dim hwnd,,,,hwnd就是句柄
Plugin hwnd=Window.MousePoint()
Plugin Window.Move(hwnd,0,0)// 将窗口移动到左上角 可以不用这句。
Plugin Bkgnd.LeftClick(句柄,横坐标,纵坐标) //模拟鼠标左键点击
Plugin Bkgnd.RightClick(句柄,横坐标,纵坐标) //模拟鼠标右键点击
------------这个横坐标是针对句柄的,和上面的两样你可以运行脚本后
Plugin Window.Move(hwnd,0,0)// 将窗口移动到左上角,看看界面(游戏
窗口)与屏幕最上面高度Y多少,纵坐标一减Y就可以了,横坐标不用动。
(这里的横、纵都要重新抓的)
Plugin.Bkgnd.KeyPress(hwnd, 112) ----------112对应键盘位置
【后台喊话】
str1="aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
//性相近 错误的,引号。。。str1没有引号。。。按键enter用keypress不用keydown等其他。
Delay 1500
dim Hwnd
Plugin Hwnd=window.mousepoint()
For 5
Plugin Bkgnd.SendString(Hwnd,str1)
Delay 100
Plugin Bkgnd.KeyPress(Hwnd,13)
Delay 1000
Plugin Bkgnd.SendString(Hwnd,"性本善")
Delay 100
Plugin Bkgnd.KeyPress(Hwnd,13)
Delay 40000
EndFor
【前台喊话】
人之初 与 "人之初" 效果同
SayString str1
Delay 1000
KeyPress 13,1
SayString 人之初
Delay 2000
KeyPress 13,1
SayString "人之初"
Delay 100
KeyPress 13,1
【文本框】
未熟悉
【循环】
a 按4次,b1次。连续100000次。KeyPress 65,1--------1表示按1次,2的话2次。
多个按键的分次循环,注意一个大循环内的正真的次数。
For 100000
For 4
KeyPress 65,1
Delay 100
EndFor
KeyPress 66,1
Delay 100
EndFor
【无限循环】
Rem a
For 8
Delay 1000
KeyPress 50,1
Next
Delay 1000
KeyPress 9,1
Goto a
不能防掉线。不过有个宏
-------------------------/script T,F=T or 0,F or CreateFrame("frame")if X then X=nil else X=function()local t=GetTime()if t-T>1 then StaticPopup1Button1:Click()T=t end end end F:SetScript ("OnUpdate",X)
这个宏可以自动点确定。。就是要返回角色时,会自动帮你点掉确定。
想去掉的时候输入/rl重载界面就好了。
http://zhidao.baidu.com/question/278077010.html?an=0&si=9
后台 按下键16 失败。
Dim hwnd,,,,hwnd就是句柄
Plugin hwnd=Window.MousePoint()
Plugin Window.Move(hwnd,0,0)// 将窗口移动到左上角 可以不用这句。
Plugin Bkgnd.LeftClick(句柄,横坐标,纵坐标) //模拟鼠标左键点击
Plugin Bkgnd.RightClick(句柄,横坐标,纵坐标) //模拟鼠标右键点击
------------这个横坐标是针对句柄的,和上面的两样你可以运行脚本后
Plugin Window.Move(hwnd,0,0)// 将窗口移动到左上角,看看界面(游戏
窗口)与屏幕最上面高度Y多少,纵坐标一减Y就可以了,横坐标不用动。
(这里的横、纵都要重新抓的)
Plugin.Bkgnd.KeyPress(hwnd, 112) ----------112对应键盘位置
【后台喊话】
str1="aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
//性相近 错误的,引号。。。str1没有引号。。。按键enter用keypress不用keydown等其他。
Delay 1500
dim Hwnd
Plugin Hwnd=window.mousepoint()
For 5
Plugin Bkgnd.SendString(Hwnd,str1)
Delay 100
Plugin Bkgnd.KeyPress(Hwnd,13)
Delay 1000
Plugin Bkgnd.SendString(Hwnd,"性本善")
Delay 100
Plugin Bkgnd.KeyPress(Hwnd,13)
Delay 40000
EndFor
【前台喊话】
人之初 与 "人之初" 效果同
SayString str1
Delay 1000
KeyPress 13,1
SayString 人之初
Delay 2000
KeyPress 13,1
SayString "人之初"
Delay 100
KeyPress 13,1
【文本框】
未熟悉
【循环】
a 按4次,b1次。连续100000次。KeyPress 65,1--------1表示按1次,2的话2次。
多个按键的分次循环,注意一个大循环内的正真的次数。
For 100000
For 4
KeyPress 65,1
Delay 100
EndFor
KeyPress 66,1
Delay 100
EndFor
【无限循环】
Rem a
For 8
Delay 1000
KeyPress 50,1
Next
Delay 1000
KeyPress 9,1
Goto a
不能防掉线。不过有个宏
-------------------------/script T,F=T or 0,F or CreateFrame("frame")if X then X=nil else X=function()local t=GetTime()if t-T>1 then StaticPopup1Button1:Click()T=t end end end F:SetScript ("OnUpdate",X)
这个宏可以自动点确定。。就是要返回角色时,会自动帮你点掉确定。
想去掉的时候输入/rl重载界面就好了。
http://zhidao.baidu.com/question/278077010.html?an=0&si=9
后台 按下键16 失败。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询