//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
UserVar 联系作者方式=DropList{"QQ：410561049":0|"查看版本号":1} = 0 "联系作者方式"
UserVar 注册码="请输入注册码[请勿更改]" "请输入注册码[请勿更改]"
UserVar 网络速度_拍=DropList{"网络速度[快速]":0|"网络速度[中速]":1|"网络速度[慢速]":2}=0 "请选择您的网络速度"
UserVar 自动收取邮件_拍=DropList{"自动收取邮件":0|"无需自动收取":1}=0 "是否自动收取邮件"
UserVar 收件截图_拍=DropList{"收取邮件后截图存盘[D:盘]":0|"不用截图":1}=0 "收取邮件是否截图"
UserVar 上架拍卖行_拍=DropList{"自动上架拍卖品":0|"不用上架拍卖品":1} = 0 "是否要上架拍卖品"
UserVar 上架的种类_拍=DropList{"只上架材料栏物品":0|"上架所有种类的物品":1}=0 "请选择要上架的种类"
UserVar 先后顺序_拍=DropList{"先收邮件和上架后再秒拍卖行":0|"先秒拍卖行后再收邮件和上架":1}=0 "请选择先后顺序"
UserVar 选择功能_拍=DropList{"单开秒拍卖行(可以兼职摆摊)":0|"双开一秒一防掉":1|"双开一秒一防掉+上架拍卖品收邮件":2|"双开只防掉":3|"单开只防掉":4}=0 "请选择您要的功能"
UserVar 输入法设置方式=DropList{"自动设置输入法短语":0|"手动设置输入短语":1} = 0 "请选择输入法设置方式[请勿更改]"
UserVar 识别功能_拍=DropList{"开启识别功能[准确率提高]":0|"关闭识别功能[速度上升]":1}=0 "请选择是否开启识别功能"
UserVar 屏幕显示_拍=DropList{"秒拍屏幕显示[挂机不建议使用]":0|"不用显示[速度上升]":1}=0 "请选择是否显示屏幕提示"
UserVar 记录行情_拍=DropList{"记录拍卖行行情[D:盘]":0|"不用记录拍卖行行情":1}=0 "请选择是否记录拍卖行行情"
UserVar 秒拍截图_拍=DropList{"秒拍成功后截图存盘[D:盘]":0|"不用截图":1}=0 "请选择秒拍成功后是否截图"
UserVar 防掉线_拍=DropList{"10分钟":10|"15分钟":15|"5分钟":5}=0 "请选择多少分钟进行一次防掉线处理"
//UserVar 处理方式_拍=DropList{"音乐提醒":0|"全部下线":1|"关闭电脑":2|"停止辅助":3}=0 "出错的处理方式"
Dim o, L, T, R, B, a, w, d, s, c, u, i
Dim X_拍, Y_拍, X_竞, Y_竞, X_输, Y_输, 单价_拍, 总价_拍, 数量_拍, 名, 搜, 键, 拍，实际竞拍金额
Dimenv 环境变量名_记录_行情, 环境变量名_记录_拍, 环境变量名_记录_竞, 组合数组_竞拍, 屏幕显示样式_竞拍, ScreenH, 屏幕间距_竞拍, 显示名称_竞拍, 显示总价_竞拍, 显示数量_竞拍, 显示单价_竞拍, 显示标价_竞拍, 竞拍金额_竞, 竞拍, 轮_竞拍, 种_竞拍, 笔_竞拍, 秒拍_截图, 收件_截图, 使用次数01, 使用次数02
Dim wpsl(10)
Dim wpdj(10)
Dim sjsl(10)
Dim 搜索名(500)
Dim 一口价(500)
Dim 竞拍价(500)
Dim 竞拍数量(500)
Dim 上架一口价(500)
Dim 上架竞拍价(500)
Dim 上架的数量(500)
版本号= "DNF秒拍卖行永久版F2.4-GRBNNA01 --- 请把版本号记下和作者联系。"
If 联系作者方式= 1 Then
MessageBox 版本号
EndScript
End If
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
〓〓〓〓〓〓〓〓〓〓〓〓
Sub 记录_拍
Call Plugin.File.WriteFileEx("D:\DNF拍卖行明细(拍)" & Date & ".txt", 环境变量名_记录_拍)
End Sub
Sub 记录_行情
Call Plugin.File.WriteFileEx("D:\DNF拍卖行明细(行情)" & Date & ".txt", 环境变量名_记录_行情)
End Sub
Sub 移动窗口_拍
ScreenW = Plugin.Sys.GetScRX()
//Msgbox "获得屏幕分辨率宽度：" & ScreenW
ScreenH = Plugin.Sys.GetScRY()
//Msgbox "获得屏幕分辨率高度：" & ScreenH
Dev = Plugin.Sys.GetScDep()
//Msgbox "获得屏幕色深度(颜色质量)：" & Dev
Path = Plugin.Sys.GetDir(0)
//Msgbox "获得路径：" & Path
xitong = Plugin.Sys.GetOSType()
//MessageBox "您的操作系统版本是：" & xitong
If 选择功能_拍= 0 Then
Call 单开
Call 单开出错
ElseIf 选择功能_拍= 1 Then
MsgBox "请把鼠标移动到要秒拍卖行的游戏窗口，"&vbLf&"并点击激活后再按确认关闭我。",vbInformation,"注意：你选择的是“一秒一摆功能”"
Call 双开
Call 双开出错
ElseIf 选择功能_拍= 2 Then
MsgBox "请把鼠标移动到要秒拍卖行的游戏窗口，"&vbLf&"并点击激活后再按确认关闭我。",vbInformation,"注意：你选择的是“一秒一摆+上架拍卖行收邮件功能”"
Call 双开
Call 双开出错
ElseIf 选择功能_拍= 3 Then
Call 双开
Call 双开出错
Hwnd = Hwnd_1P
Call 得到边框大小
Call 防掉线处理_拍
Hwnd = Hwnd_2P
Call 得到边框大小
Call 防掉线处理_拍
防掉线时间_拍= Now
i = 0
While i=0
Call 双开掉线警报
If DateDiff("n", 防掉线时间_拍, Now) > 防掉线_拍Then
Hwnd = Hwnd_1P
Call 得到边框大小
Call 防掉线处理_拍
Hwnd = Hwnd_2P
Call 得到边框大小
Call 防掉线处理_拍
防掉线时间_拍= Now
End If
Delay yanshi_10000
Wend
ElseIf 选择功能_拍= 4 Then
Call 单开
Call 单开出错
Call 得到边框大小
Call 防掉线处理_拍
防掉线时间_拍= Now
i = 0
While i=0
Call 单开掉线警报
If DateDiff("n", 防掉线时间_拍, Now) > 防掉线_拍Then 防掉线时间_拍= Now
Call 防掉线处理_拍
End If
Delay yanshi_10000
Wend
End If
End Sub
Sub 单开
Hwnd = Plugin.Window.Find("地下城与勇士", "地下城与勇士")
Call Plugin.Window.Active(Hwnd)
Delay 100
sRect = Plugin.Window.GetWindowRect(Hwnd)
MyArray = Split(sRect, "|")
L = Clng(MyArray(0)): T = Clng(MyArray(1))
R = Clng(MyArray(2)): B = Clng(MyArray(3))
组合数组_竞拍= join(MyArray, ",")
End Sub
Sub 双开
HwndEx = Plugin.Window.Search("地下城与勇士")
MyArray2 = Split(HwndEx, "|")
Hwnd_1P = Clng(MyArray2(0)): Hwnd_2P = Clng(MyArray2(1))
Delay yanshi_100
//MessageBox Hwnd_1P&"="&Hwnd_2P
End Sub
Sub 单开出错
If Hwnd = 0 Then
MsgBox "没检测到DNF游戏窗口，"&vbLf&"请确认开启游戏后再开辅助。",vbCritical,"你选择的功能是单开"
EndScript
End If
End Sub
Sub 双开出错
If Hwnd_1P = 0 or Hwnd_2P = 0 Then
MsgBox "游戏窗口不对所选功能的数量，"&vbLf&"请更正后再次尝试。",vbCritical,"你选择的功能是双开"
EndScript
End If
End Sub
Sub 单开掉线警报
sWindow = Plugin.Window.IsWindow(Hwnd)
If sWindow = 0 Then
Call 掉线处理方式
End If
End Sub
Sub 双开掉线警报
sWindow1 = Plugin.Window.IsWindow(Hwnd_1P)
If sWindow1 = 0 Then
Call 掉线处理方式
End If
sWindow2 = Plugin.Window.IsWindow(Hwnd_2P)
If sWindow2 = 0 Then
Call 掉线处理方式
End If
End Sub
Sub 掉线处理方式
Call Plugin.Media.V ol(99)
For 5
Call Plugin.Media.Play("C:\WINDOWS\Media\Windows XP 启动.wav") Delay yanshi_3000
Next
Call Plugin.Media.Stop()
EndScript
End Sub
Sub 得到边框大小
Call Plugin.Window.Active(Hwnd)
Delay 100
sRect = Plugin.Window.GetWindowRect(Hwnd)
MyArray = Split(sRect, "|")
L = Clng(MyArray(0)): T = Clng(MyArray(1))
R = Clng(MyArray(2)): B = Clng(MyArray(3))
组合数组_竞拍= join(MyArray, ",")
End Sub
Sub 执行选择功能_拍
If 选择功能_拍= 0 Then
Call 单开掉线警报
Call 防掉线处理_拍
Call 打开社区菜单_拍
Call 上架拍卖品_拍
ElseIf 选择功能_拍= 1 Then
Call 双开掉线警报
Hwnd = Hwnd_2P
Call 双开掉线警报
Delay yanshi_100
Call 得到边框大小
Call 防掉线处理_拍
Hwnd = Hwnd_1P
Call 双开掉线警报
Delay yanshi_100
Call 得到边框大小
Call 防掉线处理_拍ElseIf 选择功能_拍= 2 Then
Call 双开掉线警报
Hwnd = Hwnd_2P
Call 双开掉线警报
Delay yanshi_100
Call 得到边框大小
Call 防掉线处理_拍
Call 打开社区菜单_拍
Call 上架拍卖品_拍
Hwnd = Hwnd_1P
Call 双开掉线警报
Delay yanshi_100
Call 得到边框大小
Call 防掉线处理_拍
Call 打开社区菜单_拍
Call 上架拍卖品_拍
ElseIf 选择功能_拍= 3 Then
Hwnd = Hwnd_1P
Call 得到边框大小
Call 防掉线处理_拍
Hwnd = Hwnd_2P
Call 得到边框大小
Call 防掉线处理_拍
防掉线时间_拍= Now
i = 0
While i=0
Call 双开掉线警报
If DateDiff("n", 防掉线时间_拍, Now) > 防掉线_拍Then Hwnd = Hwnd_1P
Call 得到边框大小
Call 防掉线处理_拍
Hwnd = Hwnd_2P
Call 得到边框大小
Call 防掉线处理_拍
防掉线时间_拍= Now
End If
Delay yanshi_10000
Wend
ElseIf 选择功能_拍= 4 Then
Call 得到边框大小
Call 防掉线处理_拍
防掉线时间_拍= Now
i = 0
While i=0
Call 单开掉线警报
If DateDiff("n", 防掉线时间_拍, Now) > 防掉线_拍Then
防掉线时间_拍= Now
Call 防掉线处理_拍
End If
Delay yanshi_10000
Wend
End If
End Sub
Sub 最小化小精灵窗口
HwndEx01 = Plugin.Window.Find(0, "无极制作")
Windows = Plugin.Window.IsWindow(HwndEx01)
If Windows = 1 Then
Call Plugin.Window.Min(HwndEx01)
End If
End Sub
Sub 屏幕显示刷新_竞拍
Call Plugin.Msg.HideScrTXT()
End Sub
Sub 屏幕显示主题_竞拍
Dim 屏幕数组_竞拍
屏幕数组_竞拍= split(组合数组_竞拍, ",")
Call Plugin.Msg.ShowScrTXT(屏幕数组_竞拍(0), 屏幕数组_竞拍(3), 屏幕数组_竞拍(2), ScreenH, " 欢迎使用无极扫描拍卖行"&"当前已经搜索第" & 轮_竞拍& " 轮，第" & 种_竞拍& " 种物品，已成功" & 笔_竞拍& " 笔。", "0000FF")
Call Plugin.Msg.ShowScrTXT(屏幕数组_竞拍(0), 屏幕数组_竞拍(3) + 15, 屏幕数组_竞拍(2), ScreenH, " 搜索名称公式：总价÷数量=单价和标价比较最终结果", "000000")
End Sub
Function 屏幕显示内容_竞拍
//名称10字内:总价=150" │拍":数量275:单价340:标价435:处理方式521
Dim 屏幕数组_竞拍, 屏幕显示间距_竞拍
屏幕数组_竞拍= split(组合数组_竞拍, ",")
屏幕显示间距_竞拍= 屏幕显示间距_竞拍+ 屏幕间距_竞拍
If 屏幕数组_竞拍(3) + 屏幕显示间距_竞拍> ScreenH - 80 Then
屏幕间距_竞拍= 30
屏幕显示间距_竞拍= 30
Call Plugin.Msg.HideScrTXT()
End If
ScreenH, " 欢迎使用无极扫描拍卖行"&"当前已经搜索第" & 轮_竞拍& " 轮，第" & 种_竞拍& " 种物品，已成功" & 笔_竞拍& " 笔。", "0000FF")
Call Plugin.Msg.ShowScrTXT(屏幕数组_竞拍(0), 屏幕数组_竞拍(3) + 15, 屏幕数组_竞拍(2), ScreenH, " 搜索名称公式：总价÷数量=单价和标价比较最终结果", "000000")
If 屏幕显示样式_竞拍= "是_拍" Then
Call Plugin.Msg.ShowScrTXT(屏幕数组_竞拍(0), 屏幕数组_竞拍(3) + 屏幕显示间距_竞拍, 屏幕数组_竞拍(2), ScreenH, 显示名称_竞拍& "______________________________________________________________________________ __________ ", "FF0000")
Call Plugin.Msg.ShowScrTXT(屏幕数组_竞拍(2) - 390, 屏幕数组_竞拍(3) + 屏幕显示间距_竞拍, 屏幕数组_竞拍(2), ScreenH, " " & 显示总价_竞拍& "÷"&显示数量_竞拍&"="&显示单价_竞拍&"_______________________________________ ", "FF0000")
Call Plugin.Msg.ShowScrTXT(屏幕数组_竞拍(2) - 160, 屏幕数组_竞拍(3) + 屏幕显示间距_竞拍, 屏幕数组_竞拍(2), ScreenH, 显示标价_竞拍&" ", "FF0000")
Call Plugin.Msg.ShowScrTXT(屏幕数组_竞拍(2) - 100, 屏幕数组_竞拍(3) + 屏幕显示间距_竞拍, 屏幕数组_竞拍(2), ScreenH, "价格合理已拍", "0000FF")
ElseIf 屏幕显示样式_竞拍= "超_拍" Then
Call Plugin.Msg.ShowScrTXT(屏幕数组_竞拍(0), 屏幕数组_竞拍(3) + 屏幕显示间距_竞拍, 屏幕数组_竞拍(2), ScreenH, 显示名称_竞拍& "______________________________________________________________________________ __________ ", "FF0000")
Call Plugin.Msg.ShowScrTXT(屏幕数组_竞拍(2) - 390, 屏幕数组_竞拍(3) + 屏幕显示间距_竞拍, 屏幕数组_竞拍(2), ScreenH, " " & 显示总价_竞拍& "÷"&显示数量_竞拍&"="&显示单价_竞拍&"_______________________________________ ", "FF0000")
Call Plugin.Msg.ShowScrTXT(屏幕数组_竞拍(2) - 160, 屏幕数组_竞拍(3) + 屏幕显示间距_竞拍, 屏幕数组_竞拍(2), ScreenH, 显示标价_竞拍&" ", "FF0000")
距_竞拍, 屏幕数组_竞拍(2), ScreenH, "价格昂贵漂过", "FF0000")
End If
屏幕间距_竞拍= 屏幕间距_竞拍+ 15
竞拍= 竞拍+ 1
End Function
学习游戏脚本制作：按键精灵键鼠同步器源码分享 来源：按键学院【按键精灵】小编之前也有使用过其它大牛编写的游戏同步的脚本，突然间对于它是如何实现同步感到十分好奇，我们一起来研究看看，同步到底是怎么实现的吧~ NO.1-同步的前提 前提 1同步的两个窗口需要是同一个应用窗口，并且窗口大小要相同 2同步窗口可以接收到按键的键鼠发送信息 3同步的窗口支持后台键鼠操作 NO.2-本节例子及其能实现的功能 例子 1画图工具，实现同步画图 2记事本，实现同步删除内容 功能①键鼠同步 ②支持组合键 NO.3-思路大剖析
思路步骤 1获取主窗口和被同步窗口句柄 ● WaitKey 命令等待键盘按下 ○按下F6则获取当前鼠标指向的窗口句柄，作为主窗口句柄。 ○按下F7 则获取当前鼠标指向的窗口句柄，作为同步窗口句柄。 ●用Do循环来等待按键，当主窗口句柄和同步窗口句柄都获取到时，退出Do循环 ●代码 Do Key = WaitKey() If Key = 117 Then 主窗口= Plugin.Window.MousePoint() End If If Key = 118 Then 同步窗口= Plugin.Window.MousePoint() End If Delay 500 If 主窗口<> 0 and 同步窗口<> 0 Then Exit Do End If Loop 2设置两个窗口的窗口大小一致 ●窗口大小一致，同步的时候鼠标才能移动到正确的位置。 ●代码 Call Plugin.Window.Size(主窗口,800,600) Call Plugin.Window.Size(同步窗口,800,600)
按键精灵判断DNF人物位置源码 DNF这游戏，每次进图的时候，boos位置还有门口位置和障碍物每次可能都不一样.这让不少制作脚本的新手很苦恼，前段时间有人在按键精灵官方论坛分享了判断人在哪里和boss在哪里的脚本，这里就共享给大家。思路大致如下：把副本的小地图分为横6纵9然后找色判断。源码发出来就是： Delay 3000 Plugin hwnd = Window.GetKeyFocusWnd() Delay 50 Delay 100 Plugin Window.Move(hwnd,0,0) Delay 300 Plugin XY = Color.FindMutiColor(509, 19, 634, 250, "FFCC11", "1|0|BB5500,0|3|EEDD00", 0.9) MyArray = Split(XY, "|") X = Clng(MyArray(0)): Y = Clng(MyArray(1)) y1=47 x1=627 n=1 //MessageBox x //MessageBox y For 9 x1=627 y2=y1+18 For 6 //MoveTo x1,y1 //Delay 500 //MessageBox 1 x2=x1-18 //MoveTo x2,y2 //MessageBox 2 //If 550 来自按键精灵的DNF刷第一图源码 被虐疯了才憋出一个可以解恨的DNF刷图源码，源码内包含了换角色、改键、区域移动、地图选择、出售、封装识别。18个地图的一图（其他地图可以自己修改下就可以刷全部图的一图） 主要是给新手学习的，老鸟别喷。附件在下面，做了很久了，随着游戏更新现在不一定能正常使用可以自己修改下： PutAttachment ".\plugin" ,"*.dll" UserVar dtxz=DropList{"洛兰(1)":"0"|"洛兰深处(2)":"1"|"幽暗密林(3)":"2"|"雷鸣废墟(5)":"3"|"冰霜幽暗密林(8)":"4"|"烈焰格拉卡(12)":"5"|"龙人之塔(16)":"6"|"人偶玄关(18)":"7"|"石巨人塔(20)":"8"|"黑暗玄廊(22)":"9"|"城主宫殿(25)":"10"|"神殿外围(27)":"11"|"树精丛林(28)":"12"|"炼狱(29)":"13"|"极昼(30)":"14"|"第一脊椎(32)":"15"|"第二脊椎(34)":"16"|"天帷禁地(36)":"17"|"()":"5"|"()":"5"|"()":"5"|"()":"5"|"()":"5"|"()":"5"|"()":"5"|"()":"5"}=0 "地图选择" UserVar bjfs=DropList{"机箱":"0"|"音响":"1"}=0 "报警方式" UserVar jsgh=DropList{"更换":"0"|"不换":"1"}=0 "角色更换" UserVar jssl=1 "角色数量" UserVar jhks=1 "几号开始" UserVar jtj1=0 "进图按键" UserVar jtj2=0 "进图按键" UserVar jtj3=0 "进图按键" UserVar ctj1=0 "出图按键" UserVar ctj2=0 "出图按键" UserVar jqaj=0 "捡取按键" UserVar csaj=0 "出售按键" Hwnd = Plugin.Window.Find(0, "地下城与勇士") Call Plugin.Window.Move(Hwnd, 0, 0) Delay 1000 Rem 主程序 Call 选择角色() Call 疲劳改键() Call 移动区域() Call 地图选择() Goto 主程序 Sub 选择角色() If jsgh=0 Then IfColor 210,440,"6B949C",0 Then jsx=117 jsy=137 If jhks<5 Then For jhks-1 1. 御剑脚本 Hwnd = Plugin.Window.MousePoint( Rem XX Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 52 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Goto XX 2. 奶妈挂机加血（自动用蓝药，配合奶妈7秒叶子）Hwnd = Plugin.Window.MousePoint( Call Plugin.Window.Size(Hwnd, 900, 600 Call Plugin.Window.Move(Hwnd, 4, 143 Rem XX IfColor 325,208,"163CDB",0 Then Else Call Plugin.Bkgnd.KeyPress(Hwnd, 50 End If IfColor 257,208,"163CDB",0 Then Else Delay 1000 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Delay 1000 Call Plugin.Bkgnd.KeyPress(Hwnd, 52 End If IfColor 163,222,"9C841A",0 Then Else Call Plugin.Bkgnd.KeyPress(Hwnd, 53 End If IfColor 77,226,"453A10",0 Then Else 游戏辅助教程：按键精灵给源代码加密 来源：按键学院【按键精灵】有童鞋问了小编这么一个绕人的问题：想分享代码而又不想完全分享，该怎么办？ 小编：说人话…… 童鞋：我想分享我写的一个函数给别人使用，但是不想公开源码，该怎么办？ 好办，命令库的加密功能就能实现。 啥是命令库加密？ 命令库加密就是将命令库里写好的函数命令封装起来，源码不可见。使用者可以使用你的函数命令，但却看不到函数命令源码。 如何使用加密功能？ 1、首先，需是按键精灵会员，才能使用命令库加密功能。加密之后的命令库命令，可以给其它会员或者非会员使用。 2、右击我的命令库里需要加密的命令，点击加密。 3、加密之后会新生成一个带锁图标的命令库文件，原来未加密的命令库文件也还存在。 4、加密的命令库文件，在按键精灵安装目录下的，lib文件夹里。 未加密的命令库文件后缀名是.qml 加密之后的命令库文件后缀名为.qmle 如果觉得到按键目录下找很麻烦，可以右击加密后的命令库文件： 选择导出，将加密的命令库文件导出到桌面或者其它好找的位置。 如何分享加密后的命令库命令？ 1、生成加密文件后，将.qmle命令库文件，发送给要使用的人。 2、要使用的人接收到.qmle文件之后，将它放到按键精灵安装目录下的lib文件夹中。 3、打开按键精灵进行使用，如果按键精灵已经是打开状态，右击我的命令库里的任意命令，选择刷新即可看到新添加的命令库命令。 加密和未加密的命令库调用方式 1、未加密的命令库命令调用： Call Lib.大漠注册.register(dz) 2、加密的命令库命令调用： Call LibE.大漠注册.register(dz) 两者调用的区别在于：未加密的是lib.命令库命令。加密的是LibE.命令库命令 商业独立型界面制作教程 目录 给独立界面添加注册功能 (1) 给独立界面添加解绑功能 (12) 给独立界面添加试用功能 (14) 给独立界面添加载入自动注册功能 (17) 设置独立界面各按钮得有效性(优化) (19) 给独立界面添加启动脚本功能 (21) 给独立界面添加暂停继续功能 (24) 给独立界面添加终止脚本功能 (27) 给独立界面添加保存设置功能 (30) 关于源码得一些补充与命令得详细说明 (32) 给独立界面添加热键修改设置 (37) 给独立界面添加注册功能 1、打开按键精灵商业版,新建一个脚本。点击右边得“界面”按钮,可以瞧到按键精灵界面 编辑器,用于制作按键精灵脚本设置界面得工具。如下图 2、将右边属性面版上得名称一栏改为“主界面”,其她保持不变。如下图 3、选择工具箱上得标签控件在界面上框选一个区域。如下图 4、将右边对应得属性面版上得标题改为“注册码:”,其她保持不变。如下图 5、选择工具箱上得“输入框”控件,在界面上框选出一个区域。如下图 6、将右边属性面版上得名称一栏改为“注册码输入框”,其她保持不变。如下图 7、选择工具箱上得下拉框控件在界面框先一个区域,如下图 8、将右边属性面版上得名称一栏改为“注册服务器”,选项列表上添加“电信1、网通1、 电信2”,初始选项一栏设为“0”,其她保持不变。如下图 9、选择工具箱上得按钮控件在界面框选一个区域,如下图 10、将右边属性面版上得名称一栏改为“注册按钮”,标题一栏改为“注册”,其她保持 默认。如下图 11、界面控件都画好了,下面给脚本添加上我们得注册功能代码。 选中“注册”按钮,选择属性面版上得按钮点击事件(或双击“注册”按钮),来到脚本源文件编辑界面。如下图 1、属于"全部命令"的是? 正确答案：我的命令库 2、下列网址可以访问按键精灵论坛的是? 正确答案：https://www.doczj.com/doc/7e14021916.html,/ 3、关于加密脚本的描述，下列是错误的是? 正确答案：只有会员输入密码可以解开加密脚本 4、WaitClick命令的含义是? 正确答案：按任意鼠标键继续 5、按键精灵会员卡注册码,没有以下哪一种? 正确答案：天卡(1天) 6、RightClick命令的含义是? 正确答案：右键单击 7、按键精灵生成的小精灵程序的后缀名是? 正确答案：EXE 8、GetLastClick命令的含义是? 正确答案：检测上次按过的鼠标键 9、按键精灵的产品包括以下哪一个? 正确答案：按键盒子 10、RestoreMousePos命令的含义是? 正确答案：恢复上次保存的鼠标位置 11、按键精灵默认的启动热键是? 正确答案：F10 12、对小精灵的描述，以下是正确的? 正确答案：按键小精灵是把按键精灵的脚本打包成一个可单独执行的EXE程序，便于传播以及提供给新手使用。 13、SaveMousePos命令的含义是? 正确答案：保存当前鼠标所在位置 14、LeftClick命令的含义是? 正确答案：左键单击 15、可以使用神盾功能的程序是? 正确答案：小精灵商业版 16、哪种方法不能打开一个已经存在的脚本? 正确答案：选中脚本,单击鼠标左键 17、按键盒子主要功能特点是什么? 正确答案：游戏通用 18、按键精灵自带的用户界面叫做什么? 正确答案：QUI界面 19、下列哪一种方法不能够正确输入命令? 正确答案：鼠标右键单击命令 20、下列哪一个命令不属于"全部命令"? 正确答案：内核命令 21、键盘命令的类型不包括? 正确答案：锁定 22、MiddleClick命令的含义是? //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓 UserVar 联系作者方式=DropList{"QQ：410561049":0|"查看版本号":1} = 0 "联系作者方式" UserVar 注册码="请输入注册码[请勿更改]" "请输入注册码[请勿更改]" UserVar 网络速度_拍=DropList{"网络速度[快速]":0|"网络速度[中速]":1|"网络速度[慢速]":2}=0 "请选择您的网络速度" UserVar 自动收取邮件_拍=DropList{"自动收取邮件":0|"无需自动收取":1}=0 "是否自动收取邮件" UserVar 收件截图_拍=DropList{"收取邮件后截图存盘[D:盘]":0|"不用截图":1}=0 "收取邮件是否截图" UserVar 上架拍卖行_拍=DropList{"自动上架拍卖品":0|"不用上架拍卖品":1} = 0 "是否要上架拍卖品" UserVar 上架的种类_拍=DropList{"只上架材料栏物品":0|"上架所有种类的物品":1}=0 "请选择要上架的种类" UserVar 先后顺序_拍=DropList{"先收邮件和上架后再秒拍卖行":0|"先秒拍卖行后再收邮件和上架":1}=0 "请选择先后顺序" UserVar 选择功能_拍=DropList{"单开秒拍卖行(可以兼职摆摊)":0|"双开一秒一防掉":1|"双开一秒一防掉+上架拍卖品收邮件":2|"双开只防掉":3|"单开只防掉":4}=0 "请选择您要的功能" UserVar 输入法设置方式=DropList{"自动设置输入法短语":0|"手动设置输入短语":1} = 0 "请选择输入法设置方式[请勿更改]" UserVar 识别功能_拍=DropList{"开启识别功能[准确率提高]":0|"关闭识别功能[速度上升]":1}=0 "请选择是否开启识别功能" UserVar 屏幕显示_拍=DropList{"秒拍屏幕显示[挂机不建议使用]":0|"不用显示[速度上升]":1}=0 "请选择是否显示屏幕提示" UserVar 记录行情_拍=DropList{"记录拍卖行行情[D:盘]":0|"不用记录拍卖行行情":1}=0 "请选择是否记录拍卖行行情" UserVar 秒拍截图_拍=DropList{"秒拍成功后截图存盘[D:盘]":0|"不用截图":1}=0 "请选择秒拍成功后是否截图" 以下哪一个不是按键精灵的产品? 按键箱子 录制的脚本没有以下哪个功能? 记录鼠标特征码 下列哪一个命令不属于"全部命令"? 内核命令 按键精灵自带的抓图工具是? 按键抓抓 哪一种方法能够找到命令的帮助说明? 在全部命令中搜索命令,点击后帮助说明会出现在编辑器下方. 按键精灵不可以在以下哪个系统中使用? Linux 可以使用神盾功能的程序是? 小精灵商业版 旧版本的脚本导入到新版本中,以下哪种方法不可以纠正语法错误? 使用"自动缩进"功能 WaitClick命令的含义是? 按任意鼠标键继续 哪一类脚本程序是按键精灵官方授予销售权的? 小精灵商业版 只要在编辑脚本，切换输入法时，按键精灵就卡住了,可能是下列哪一个原因? Plugin目录下装有不是官方提供的插件引起的 关于加密脚本的描述，下列是错误的是? 只有会员输入密码可以解开加密脚本GetLastClick命令的含义是? 检测上次按过的鼠标键 按键精灵生成的小精灵程序的后缀名是? EXE 按键精灵会员不能享受的论坛权限是? 可以访问按键精灵“版版家园”专区享受版主资源 网页按键精灵是下列哪一个程序? wqm.exe 按键精灵的产品包括以下哪一个? 按键盒子 按键精灵是下列哪一个程序? 按键精灵9.exe 按键精灵会员卡注册码,没有以下哪一种? 天卡(1天) UnlockMouse命令的含义是? 解除锁定鼠标位置 按键精灵会员不能享受的资源是? 免费小精灵的源代码 RightUp命令的含义是? 右键弹起 按键精灵的功能不包括? 自动发明汽车、飞机、火箭等机器 按键精灵能兼容下列哪一种语言? VBS 不能用抓抓工具直接获取的是? PID 关于按键精灵的描述，以下正确的是? 按键精灵是一款绿色的模拟键盘鼠标操作的软件 脚本编辑界面上没有的按钮是?启动 与取色判断命令没有直接关系的参数是? 按键码 以下哪种方式可以在脚本编辑界面中获取到新的插件? 点击"资源库"按钮,然后导入需要的插件 LeftClick命令的含义是? 左键单击 按键精灵官方网站的网址是? https://www.doczj.com/doc/7e14021916.html,/ RestoreMousePos命令的含义是? 恢复上次保存的鼠标位置 如果按键精灵在某些环境失效,可以使用下列哪个工具? 神盾 SaveMousePos命令的含义是? 保存当前鼠标所在位置 GetCursorPos命令的含义是? 得到鼠标位置坐标 键盘命令的类型不包括? 锁定 按键精灵里运算符乘号是? * 学习怎么用按键精灵制作游戏辅助——脚本源代码干货分享 一、用按键精灵确定人物朝向（以剑灵自动寻路为例）的代码 在剑灵右上角的小地图里找色/找图，箭头坐标存储在(x1,y1)，箭尾坐标存储在(x2,y2) FindColor1200,0,1920,300,"箭头颜色",x1,y1 If x1 > 0 And y1> 0 Then End If FindColor1200,0,1920,300,"箭尾颜色",x2,y2 If x1 > 0 And y1> 0 Then End If '计算斜率/正切值 斜率= (y1 - y2) / (x1 -x2) '计算角度 角度= Atn(斜率) 二、用按键精灵解决用户密码泄露问题的代码 Function 加解密(源文件, 秘钥) Dim Z, i Dim A, B, C 加解密= "" If Len(源文件) = 0 Then’如果密码为空，则初始化为空 加解密= "" Exit Function End If '调用Rnd函数使以后Rnd函数所产生的Rnd为相同的伪随机数列 Z = Rnd(-秘钥) For i = 1 To Len(源文件)’将密码字符串一个一个字符通过加密，转换成另一个字符 C = Mid(源文件, i, 1) A = Asc(C) B = Int(126 * Rnd) And&H7F’这里的&H7F，是指生成的伪随机代码， 只取7位，以免数据溢出 A = A Xor B’Xor是可逆的，第一次运行时是得到加密后的数据，再运 行一次是得到解密后的数据 C = Chr(A) 加解密= 加解密+ C Next End Function 举个例子吧~ Function 加解密(源文件, 秘钥) Dim Z, i Dim A, B, C 加解密= "" If Len(源文件) = 0 Then 加解密= "" Exit Function 第1课：零编程学会补红蓝脚本的制作 补红蓝脚本的制作 我们应该知道，按键精灵拥有一只眼睛，一双手，眼睛可以帮我们查看屏幕上的颜色，而手可以帮我们不断的点击键盘鼠标。相信多数的朋友对于这双手的操控已经灵活自如了，而要编写出功能强大的脚本，没有眼睛可不行。本教程以此出发，教会读者使用这双眼睛， 更好的控制机器人的手臂。 本章用到的按键精灵基础命令： 1、 IfColor 100,10,112233,0 EndIf 复制代码IfColor做为按键精灵最重要的颜色判断语句（眼睛），有着良好的易用性与 理解性。 语句详细解释： ifColor - 如果颜色 100 - 屏幕X象素 10 - 屏幕Y象素 112233 - 16位进制的颜色（以两位为一种颜色分别代表蓝、红、黄） 0 - 相等（1为不相等。2为模糊匹配） 解释：如果在坐标100，10的颜色为112233则执行。后面的EndIf做为IfColor的配 对。 使用方法：控制命令->抓点坐标/颜色->在面图上点左键，加入到坐标点->退出抓点-> 选好坐标颜色后->插入 2、 //注释 复制代码解释：“//”为按键精灵的注释在“//”后面所跟写的任何文字都将被按键忽 略。 3、 Rem s Goto s 复制代码解释：“Rem s”可以理解为在改位置做一个标记s。而“Goto s”则是无条件跳到此标记执行。这里补一下程序运行概念：每行代码都有行号，脚本解释器要一行一行代码的执行下去，知道执行最后一行代码或碰到EndScript语句（该语句在后面会有讲解）， 没有任何可执行了，程序就退出。 4、 Delay 100 复制代码解释：暂停100毫秒（1000毫秒等于 1秒）看完了概念，我们来实际编写一个游戏的补红补蓝脚本，验证我们是否已经学会了该课 的内容。 首先打开按键精灵，并进入游戏，用PrintScr（一般在F12右边第一个）键截取游戏图象。然后切换到按键精灵程序。按ifcolor的使用方法来抓取我们的血条颜色坐标。并且 插入到代码内。 For a=1 To 5...Next循环结束后变量a的最终值。 答：6 a = 1 : execute ("a=2*a"),a的值为? 答：2 如下代码,c的值为? a = 1 : b = - 1 c = a xor b 答：-2 执行代码Plugin.Window.Search("") 会返回什么数据？ 答：系统中所有已显示的窗口句柄 在不确定颜色的情况下，寻找具备特定点阵信息的图形应该使用下列哪条命令 答：Plugin.Color.FindShape Plugin.Sys.GetOSType命令可以获取操作系统的版本，当返回值为哪一个时，操作系统是Win7？ 答：5 使用按键抓抓找窗口句柄时，如果用多个标题和运行特征完全相同的窗口，下列哪种方法不能确定每个句柄对应的窗口？ 答：查看句柄信息 网页插件可以与网页版按键精灵(WQM)对接，实现自动填表等功能，在使用这个插件前，必须执行那条命令进行初始化？ 答：Bind RGB命令可以实现使用红、绿、蓝三原色分量混合为一个颜色值，与此命令功能相反的命令是？ 答：Plugin.Color.ColorToRGB 关于颜色插件中Plugin.Color.GetPixelColor命令取色模式设置为增强后描述正确的是？ 答：可以获得透明窗口色 GetCursorShape命令有几种获取鼠标形状的方式? 答：2 ``对 关于Msgbox命令描述错误的是? 答：Msgbox命令一定没有返回值``` 代码a = ",," : For 3 : a = Join(Split(a, ","), ",,") : Next 执行后，变量a 包含多少个逗号？ 答：16个 使用Access插件对数据库进行增删改查操作时，应先使用哪条命令连接到数据库？ 答：Plugin.Access.Connect 如何确定一个句柄对应的窗口是否存在？ 答：使用Plugin.Window.IsWindow命令 在网页版按键精灵(WQM)中调用JS代码应该使用下列哪条命令：答：Plugin.Web.RunJS 以下哪个对Select命令的描述是错误的? 答：Select支持判断语句(例如:a>0) 下列操作中，哪一种是后台模拟无法实现的？ 答：与Ctrl相关的组合键 制作游戏辅助教材推荐：抓取网页指定内容（资料）， 获取网页里的图片 来源：按键学院【按键精灵】最近有遇到同学反馈，网页里的那些没有特征值的文本元素不知道怎么获取。以及，不知道怎么获取保存网页里出现的图片。 获取网页指定文字： 目前按键支持的元素特征值有这些： frame（框架）、id（唯一标识）、tag（标签）、type（类型）、txt（文本）、value（特征）、index（索引）、name（名字）拥有这些特征值的元素才能直接使用HtmlGet命令来获取元素文本信息。 命令名称： HtmlGet 获取网页元素的信息 命令功能：获取网页元素指定属性的信息 命令参数： 参数1：字符串型，网页元素属性类型：text、html、outerHtml、value、 src、 href、offset 参数2：字符串型，网页元素特征字符串 例如下面的例子，按键精灵论坛搜索框，它有type、name、id这三个特征值。 我们取它id特征值带入到HtmlGet 命令来查看下结果： Call Plugin.Web.Bind("WQM.exe") Call Plugin.Web.go("https://www.doczj.com/doc/7e14021916.html,/forum-250-1.html") //要提取信息的网站Txt=Plugin.Web.HtmlGet("value","id:scbar_txt") TracePrint Txt 成功获取到了搜索框的value值。 我们现在想要取下面红色区域块的帖子标题，想要把一个页面中的这些帖子名称都取出来。该怎么办？ 这些文字，都没有特征值的。我们不能使用特征值的方式去找他们。 我们可以这样——获取到整个网页的文本之后，去找我们要取的标题，前后不变的字符。 大家会发现，这个页面中，帖子标题前后不便的字符是：“]“ 和“果果。。“ 那我们就将”]“字符前面的文本都过滤掉，“果果。。“后面的文本也过率掉，这样就能得到我们所需要的文本。 首先，我们需要复习下几个函数： InStr函 数 描述 start 可选的。规定每次搜索的起始位置。默认是搜索起始位置是第一个字符。如果已规定compare 参数，则必须有此参数。 string1必需的。需要被搜索的字符串。string2必需的。需搜索的字符串。 按键精灵-日期计算 实现功能如下: 源码如下： Event 日期计算.Button1.Click 日期计算.差异天数.Text=DateDiff("d",日期计算.日期 1.Text , 日期计算.日期2.Text) End Event Event 日期计算.Button2.Click 日期计算.推导日期.Text=DateAdd("d",-Cint(日期计算.天数.Text),日期计算.日期3.Text) End Event 函数释义： DateDiff 函数 描述 返回两个日期之间的时间间隔。 语法 DateDiff(interval,date1, date2 [,firstdayofweek[,firstweekofyear]]) DateDiff函数的语法有以下参数： 设置 interval参数可以有以下值： firstdayofweek参数可以有以下值： firstweekofyear参数可以有以下值： 说明 DateDiff函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用DateDiff计算两个日期相差的天数，或者当天到当年最后一天之间的星期数。 要计算date1和date2相差的天数，可以使用“一年的日数”（“y”）或“日”（“d”）。当interval 为“一周的日数”（“w”）时，DateDiff返回两个日期之间的星期数。如果date1是星期一，则DateDiff计算到date2之前星期一的数目。此结果包含date2而不包含date1。如果interval是“周”（“ww”），则DateDiff函数返回日历表中两个日期之间的星期数。函数计算date1和date2之间星期日的数目。如果date2是星期日，DateDiff将计算date2，但即使date1是星期日，也不会计算date1。 如果date1晚于date2，则DateDiff函数返回负数。 firstdayofweek参数会对使用“w”和“ww”间隔符号的计算产生影响。 如果date1或date2是日期文字，则指定的年度会成为日期的固定部分。但是如果date1或date2被包括在引号(" ") 中并且省略年份，则在代码中每次计算date1或date2表达式时，将插入当前年份。这样就可以编写适用于不同年份的程序代码。 在interval 为“年”（“yyyy”）时，比较12 月31 日和来年的1 月 1 日，虽然实际上只相差一天，DateDiff 返回 1 表示相差一个年份。 下面例子利用DateDiff函数显示给定日期和当天日期之间的天数: Function DiffADate(theDate) DiffADate = "从当天开始的天数:" & DateDiff("d", Now, theDate) 按键精灵开发教程：遍历子窗口 来源：按键学院【按键精灵】 遍历一个窗口的所有子窗口,返回符合条件(标题或类名)的窗口句柄,请写出函数(遍历子窗口). >>题意解析 假设红色框框圈起来的就是我们要遍历的窗口。 那么，我们要遍历到的是这个窗口下的所有子窗口，二级子窗口，三级子窗口……有多少级都要遍历下去。 如果遍历到类名或标题符合的子窗口，则记录下来。 以上图的窗口为例， 假设我们设置的返回条件是窗口类名=Button， 那么只有窗口句柄为65638这个子窗口符合条件，则返回窗口句柄：65638 假设我们设置的返回条件是窗口类名=ToolbarWindow32 ， 那么有两个子窗口符合条件，则返回这两个窗口的窗口句柄：65632和65636 有多少童鞋坑在了这一题呢？ 是否写了很长的一段代码，但是测试的时候发现就是行不通？ 不必烦恼不必彷徨，小编今天带来了工程师06，也就是咱们骚气的06老师的精品代码，十六行代码搞定遍历子窗口 思路 遍历子窗口源码分享 Function 遍历子窗口(Parent, ClassName) Dim RetStr,TmpHdr //定义局部变量 Do TmpHdr = Plugin.Window.FindEx(Parent, TmpHdr, 0, 0) //查找子窗口 If TmpHdr Then // 判断是否有查找到子窗口 If Plugin.Window.GetClass(TmpHdr) = ClassName Then //判断窗口类名 RetStr = RetStr & TmpHdr & "|" //符合则记录窗口句柄 RetStr = RetStr & 遍历子窗口(TmpHdr, ClassName)//递归寻找下一级窗口 Else RetStr = RetStr & 遍历子窗口(TmpHdr, ClassName)//递归寻找下一级窗口 End If End If Loop While TmpHdr //如果没有子窗口则退出循环 遍历子窗口= RetStr //将查找到的符合的窗口句柄返回 End Function 代码分析 要怎么理解递归呢？ 《盗梦空间》不知道大伙有没有看过，小编很喜欢这部电影，刺激带感……咳咳言归正传我们可以把递归比作梦境来理解。 整个遍历子窗口函数就是一个梦境 当我们在脚本开始的时候，还清醒着。 TracePrint 遍历子窗口(65608,"Button") 执行这句的时候，我们就带着 65608,"Button"这两个参数值进入了第一重梦境 >>第一重梦境 先将 RetStr,TmpHdr 两个变量定义成局部变量，局部变量只作用于当前梦境，进入下一重梦境，它们会初始化。 真正能实现后台运行的按键精灵代码支持最小化和切换窗口 能真正后台运行的按键精灵代码是附2，详细应用是附3．均可直接复制使用． 主题：按键精灵切换窗口最小化后台运行游戏 1、游戏句柄 后台的意思就是当窗口被遮盖或移开的时候，仍能够正常的执行脚本动作，所以必须先找到该游戏的窗口句柄，这样可以保证我们编辑的脚本 语句有正确的使用方向，获取窗口句柄的方法有很多，我一般使用以下的方法： Dim hwnd Plugin hwnd=Window.MousePoint() Plugin是调用插件命令，凡是调用插件都需要使用这个命令，hwnd就是得到的句柄，Window是插件的名称MousePoint()返回鼠标所在的窗口 的句柄 关于窗口这里需要多说几句，以网页游戏为例，鼠标放在标题栏上和放在游戏窗口所得到的句柄是不一样的，游戏窗口是IE的一个子窗口，因 此在运行脚本前，将你的鼠标放在游戏窗口的区域内再运行脚本。 得到句柄费函数很多，有兴趣的自己去试试看，不过知道一个就足够了。 2、模拟动作 得到窗口句柄后，你就可以向这个窗口模拟需要的动作了，在这里要用到按键精灵7的插件（既然已经有7了以前的插件就不作介绍了），模拟 动作的函数有如下几个 -模拟鼠标点击 Plugin Bkgnd.LeftClick(句柄,横坐标,纵坐标) //模拟鼠标左键点击 Plugin Bkgnd.RightClick(句柄,横坐标,纵坐标) //模拟鼠标右键点击 其中的句柄就是上面我们已经得到的句柄，这里的横坐标和纵坐标是针对游戏窗口，而不是针对屏幕的(看晕了吧^_^关于这一点足足困扰了 我一个礼拜的时间才弄明白)。 屏幕坐标，是以屏幕左上角为基点（0，0），右下角的坐标是和屏幕分辨率有关的，而窗口坐标，不是在屏幕的左上角，例如word中的编辑 Hwnd = Plugin.Window.MousePoint() Rem XX Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Goto XX 2. 奶妈挂机加血（自动用蓝药，配合奶妈7秒叶子） Hwnd = Plugin.Window.MousePoint() Call Plugin.Window.Size(Hwnd, 900, 600) Call Plugin.Window.Move(Hwnd, 4, 143) Rem XX IfColor 325,208,"163CDB",0 Then Else Call Plugin.Bkgnd.KeyPress(Hwnd, 50) End If IfColor 257,208,"163CDB",0 Then Else Delay 1000 Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Delay 1000 Call Plugin.Bkgnd.KeyPress(Hwnd, 52) End If IfColor 163,222,"9C841A",0 Then Else Call Plugin.Bkgnd.KeyPress(Hwnd, 53) End If IfColor 77,226,"453A10",0 Then Else '==========以下是按键精灵录制的内容==========（这个是控制鼠标去点掉宠物附体回蓝的，属于前台的） Delay 291 MoveTo 374, 506 脚本制作教程：按键精灵加速游戏 来源：按键学院【按键精灵】 植物大战僵尸这款游戏，想必大家都不陌生 讲述的是一场植物与僵尸之间刻骨铭心的撕逼大战 是一款老少皆宜和善可爱的游戏……此处省略一万字…… 但是，问题来了 等僵尸的过程也慢得太销魂了吧？ 画面一点动感刺激感都木有，还怎么玩？~ 和小编一样急性子的小伙伴们，一定忍受不住节奏如此缓慢的游戏， 怎么办呢？ 凉拌炒鸡蛋！自己动手丰衣足食，咱们写个脚本让它快起来~ 脚本界面效果图 今天的脚本例子是用按键精灵仿写一个《变速精灵》，是咱们的大姐大工程师01制作的。界面十分骚气~~ 『1』下拉列表框用于显示当前电脑上运行的程序的窗口标题 『2』刷新按钮用于重新获取当前电脑上运行的程序的窗口标题 『3』"滑块"用于调整速度，往左是减速，往右是加速。（大尺度调整） 『4』快和慢这两个蓝色的按钮，也是用于调整速度的，与滑块的区别在于：滑块可以一次性拉动很大的范围，而按钮是精确调整的，每一次点击增/减一个单位的速度。 『5』恢复"按钮"，用于将速度归零。 变速命令 变速命令是官方新插件里的 SysEx系统插件增强版下的命令：Speed 命令名称Speed 变速 命令功能为指定窗口的运行速度设置加速或减速（对网游无效） 命令参数参数1：窗口句柄参数2：变速倍数 返回值无 注意：速度的倍数，范围：-256~256，保留小数点后3位，可以实现1.001、1.002倍速度。 获取窗口句柄 当我们点击刷新按钮的时候，则获取当前运行中的所有程序的窗口句柄，并且将窗口的标题名添加到下拉列表框中。 我们用FindEx查找窗口句柄命令遍历获取桌面下的第一级子窗口句柄（桌面句柄：0）但是，我们看到，这些窗口中有许多窗口是我们看不见的，甚至都不知道它是做什么用的。那我们就没有必要获取它了，只要获取到可见的程序窗口句柄即可。 在遍历获取窗口句柄的过程中，加一个判断， 利用GetWindowState 获取窗口状态命令，判断当前窗口的状态，是否为可见的，如果是可见的窗口，则记录下该窗口的窗口句柄和窗口标题。来自按键精灵的DNF刷第一图源码
按键精灵源代码整理汇总
游戏辅助教程：按键精灵给源代码加密
按键精灵商业独立界面教程
按键精灵一级认证
按键精灵DNF秒拍卖源码
按键精灵1--6级答案
学习怎么用按键精灵制作游戏辅助——脚本源代码干货分享
按键精灵脚本制作
按键精灵四级认证选择题及答案
制作游戏辅助教材推荐：抓取网页指定内容,获取网页里的图片
按键精灵-日期计算
按键精灵开发教程：遍历子窗口
真正能实现后台运行的按键精灵代码支持最小化和切换窗口.
按键精灵源代码整理
脚本制作教程：按键精灵加速游戏
相关主题
文本预览