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

1、按键藉灵夜键字昵好好学习，天天按键，总有你想要的知识：bbs,学习游戏脚本制作：按键精灵键鼠同步器源码分享来源：按键学院【按键精灵】小编之前也有使用过其它大牛编写的游戏同步的脚本，突然间对于它是如何实现同步感到十分好奇，我们一起来研究看看，同步到底是怎么实现的吧 NO.1-同步的前提前提K1同步的两个窗口需要是同一个应用窗口，并且窗口大小要相同2同步窗口可以接收到按键的键鼠发送信息3同步的窗口支持后台键鼠操作1画图工具，实现同步画图2记事本，实现同步删除内容功能 键鼠同步支持组合键NO.2-本节例子及其能实现的功能按键藉灵夜键字昵NO.3 -思路大剖析好好学习，天天按键，总有你想要的知识：bb

2、s.anjianxom WaitKey命令等待键盘按下 。按下 F6则获取当前鼠标指向的窗口句柄，作为主窗口句柄。按下 F7则获取当前鼠标指向的窗口句柄，作为同步窗口句柄。用 Do 循环来等待按键，当主窗口句柄和同步窗口句柄都获取到时，退出DoKey = WaitKey()If Key = 117 Then主窗口 = Plugin.Window.MousePoint()End IfIf Key = 118 Then同步窗口 = Plugin.Window.MousePoint()End IfDelay 500If 主窗口 0 and同步窗口 0 ThenExit DoEnd IfLoop2设置

3、两个窗口的窗口大小一致窗口大小一致，同步的时候鼠标才能移动到正确的位置。代码Call Plugin.Window.Size( 主窗 口，800,600)Call Plugin.Window.Size( 同步窗 口 ,800,600)按键篇灵技键字院Do 循环好好学习，天天按键，总有你想要的知识：bbs,按键藉灵技键字际3获取主窗口的左上角坐标GetWindowRect命令获取主窗口的左上角坐标. R码sRect = Plugin.Window.GetWindowRect( 主窗口)dim MyArrayMyArray = Split(sRect, |)L = Clng(MyArray(0):

4、T = Clng(MyArray(1)4获取当前鼠标在主窗口的位置GetCursorPos命令获取当前鼠标位置.k码GetCursorPos mx, my5计算主窗口内当前鼠标位置和窗口左上角距离公式：当前鼠标位置减去窗口左上角坐标值( mx-L,mx-L, my-Tmy-T ) )6开始同步被同步窗口，使用按键后台键鼠命令，将鼠标移动到和主窗口相同的位置(按键后台命令鼠标移动是以窗口客户区左上角坐标为基点). 码Call Plugin.Bkgnd.MoveT o(同步窗 口，mx-L, my-T)好好学习，天天按键，总有你想要的知识：按键藉灵股键字际在主窗口内按下任意键时，同步窗口也执行同样

5、的操作Key = GetLastKey()Call Plugin.Bkgnd.KeyPress( 同步窗 口，Key)Key = WaitKey()If Key = 117 Then主窗口 = 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 and 同步窗口 0 ThenExit

6、DoEnd IfLoopDoMouse = GetLastClick()If Mouse = 32769 Then /鼠标左键按下时 ASCII 码为 32769sRect = Plugin.Window.GetWindowRect( 主窗口)dim MyArrayMyArray = Split(sRect, |)L = Clng(MyArray(0): T = Clng(MyArray(1)GetCursorPos mx, myDelay 10Call Plugin.Bkgnd.LeftDown( 同步窗 口，mx-L, my-T)Delay 10NO.4-Do好好学习，天天按键，总有你想要

7、的知识：按键藉灵股键字际Do好好学习，天天按键，总有你想要的知识：按键藉灵技键字晰Mouse = GetLastClick（）If Mouse = 0 Then /鼠标无点击操作GetCursorPos mx, myDelay 10Call Plugin.Bkgnd.MoveT o（同步窗 口，mx-L, my-T）Delay 10End IfIf Mouse = 32770 Then /鼠标左键弹起时 ASCII 码为 32770GetCursorPos mx, myDelay 10Call Plugin.Bkgnd.LeftUp（ 同步窗 口，mx-L, my-T）Exit DoEnd IfLoopEnd IfKey = GetLastKey（）Call Plugin.Bkgnd.KeyPress（ 同步窗 口，Key）LoopNO.5-效果演示画图好好学习，天天按键，总有你想要的知识：bbs,anjianmm夜键藉灵技键字际记事本注点画图和记事本，获取窗口句柄的时候请点击白白的客户区进行获取，因为我们是要对它的客户区进行操作温髻小提小*游戏