收藏 分享(赏)

学习游戏脚本制作:按键精灵键鼠同步器源码分享.docx

上传人:hyngb9260 文档编号:6316860 上传时间:2019-04-07 格式:DOCX 页数:7 大小:12.03MB
下载 相关 举报
学习游戏脚本制作:按键精灵键鼠同步器源码分享.docx_第1页
第1页 / 共7页
学习游戏脚本制作:按键精灵键鼠同步器源码分享.docx_第2页
第2页 / 共7页
学习游戏脚本制作:按键精灵键鼠同步器源码分享.docx_第3页
第3页 / 共7页
学习游戏脚本制作:按键精灵键鼠同步器源码分享.docx_第4页
第4页 / 共7页
学习游戏脚本制作:按键精灵键鼠同步器源码分享.docx_第5页
第5页 / 共7页
点击查看更多>>
资源描述

1、学习游戏脚本制作:按键精灵键鼠同步器源码分享 来源:按键学院 【按键精灵】小编之前也有使用过其它大牛编写的游戏同步的脚本,突然间对于它是如何实现同步感到十分好奇,我们一起来研究看看,同步到底是怎么实现的吧NO.1-同步的前提前提1 同步的两个窗口需要是同一个应用窗口,并且窗口大小要相同2 同步窗口可以接收到按键的键鼠发送信息3 同步的窗口支持后台键鼠操作NO.2-本节例子及其能实现的功能例子1 画图工具,实现同步画图2 记事本,实现同步删除内容功能 键鼠同步 支持组合键NO.3-思路大剖析思路步骤1 获取主窗口和被同步窗口句柄 WaitKey 命令等待键盘按下 按下 F6 则获取当前鼠标指向的

2、窗口句柄,作为主窗口句柄。 按下 F7 则获取当前鼠标指向的窗口句柄,作为同步窗口句柄。 用 Do 循环来等待按键,当主窗口句柄和同步窗口句柄都获取到时,退出 Do 循环 代码DoKey = WaitKey()If Key = 117 Then主窗口 = Plugin.Window.MousePoint()End IfIf Key = 118 Then 同步窗口 = Plugin.Window.MousePoint()End IfDelay 500If 主窗口 0 Then Exit DoEnd IfLoop2 设置两个窗口的窗口大小一致 窗口大小一致,同步的时候鼠标才能移动到正确的位置。 代

3、码Call Plugin.Window.Size(主窗口,800,600)Call Plugin.Window.Size(同步窗口,800,600)3 获取主窗口的左上角坐标 GetWindowRect 命令获取主窗口的左上角坐标 代码sRect = Plugin.Window.GetWindowRect(主窗口) dim MyArray MyArray = Split(sRect, “|“) L = Clng(MyArray(0): T = Clng(MyArray(1)4 获取当前鼠标在主窗口的位置 GetCursorPos 命令获取当前鼠标位置 代码 GetCursorPos mx, m

4、y5 计算主窗口内当前鼠标位置和窗口左上角距离 公式:当前鼠标位置减去窗口左上角坐标值( mx-L, my-T)6 开始同步 被同步窗口,使用按键后台键鼠命令,将鼠标移动到和主窗口相同的位置( 按键后台命令鼠标移动是以窗口客户区左上角坐标为基点 ) 代码Call Plugin.Bkgnd.MoveTo(同步窗口, mx-L, my-T)在主窗口内按下任意键时,同步窗口也执行同样的操作 代码Key = GetLastKey()Call Plugin.Bkgnd.KeyPress(同步窗口, Key)NO.4-代码代码DoKey = WaitKey()If Key = 117 Then主窗口 =

5、Plugin.Window.MousePoint()/Call Plugin.Window.Size(主窗口,800,600)End IfIf Key = 118 Then 同步窗口 = Plugin.Window.MousePoint()/ Call Plugin.Window.Size(同步窗口,800,600)End IfDelay 500If 主窗口 0 Then Exit DoEnd IfLoopDoMouse = GetLastClick()If Mouse = 32769 Then /鼠标左键按下时 ASCII 码为 32769 sRect = Plugin.Window.Get

6、WindowRect(主窗口) dim MyArray MyArray = Split(sRect, “|“) L = Clng(MyArray(0): T = Clng(MyArray(1) GetCursorPos mx, myDelay 10Call Plugin.Bkgnd.LeftDown(同步窗口, mx-L, my-T) Delay 10DoMouse = GetLastClick()If Mouse = 0 Then /鼠标无点击操作GetCursorPos mx, myDelay 10Call Plugin.Bkgnd.MoveTo(同步窗口, mx-L, my-T)Dela

7、y 10End IfIf Mouse = 32770 Then /鼠标左键弹起时 ASCII 码为 32770 GetCursorPos mx, myDelay 10Call Plugin.Bkgnd.LeftUp(同步窗口, mx-L, my-T)Exit DoEnd If LoopEnd IfKey = GetLastKey()Call Plugin.Bkgnd.KeyPress(同步窗口 , Key)LoopNO.5-效果演示演示画图 记事本 注意 画图和记事本,获取窗口句柄的时候请点击白白的客户区进行获取,因为我们是要对它的客户区进行操作NO.6-温馨小提示温馨小提示* 游戏窗口中的同步,需要注意几个窗口中人物的朝向和坐标是否相同* 如果坐标朝向不同,一个窗口里的角色往西边走一个往北边走,就无法达到预期同步任务的效果

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 生活休闲 > 游戏攻略

本站链接:文库   一言   我酷   合作


客服QQ:2549714901微博号:道客多多官方知乎号:道客多多

经营许可证编号: 粤ICP备2021046453号世界地图

道客多多©版权所有2020-2025营业执照举报