07.按键精灵乐玩插件例子
在开发脚本中，其实有很多厉害的插件可以供我们使用，不再自己再去额外的写复杂的代码，类似的插件很多，比如：天使插件、DD、大漠等，各个插件都有比较擅长的功能，有些小众的插件更是给力，因为可以过NP。
//代码演示开始
Call 乐玩注册() //乐玩属于免费插件
Call 绑定窗口()//绑定窗口
Sub 乐玩注册
Dim ver
PutAttachment "c:\mycom\lwsoft", "*.*"
Set lw = createobject("lw.lwsoft3")//创建乐玩对象
ver = lw.Ver()
If len(ver) > 0 Then
TracePrint ("乐玩注册成功")
End If
End Sub
Dim hwnd,设置窗口的大小,游戏窗口标题,获取游戏进程,游戏窗口大小,激活游戏窗口,窗口属性A,窗口属性B,移动窗口位置
Sub 绑定窗口()
//窗口查找
hwnd = lw.FindWindow("寻仙2","TTY3DMainWnd","TTY3D.EXE")//标题，类名，进程名 常用三个查找方式
TracePrint "游戏句柄：" & hwnd
设置窗口的大小 = lw.SetWindowSize(hwnd, 1296, 838)//游戏窗口大小
TracePrint "设置窗口的大小：" & 设置窗口的大小
游戏窗口标题 = lw.GetWindowTitle(hwnd,1)
TracePrint "游戏窗口标题：" & 游戏窗口标题
获取游戏进程 = lw.GetWindowProcessPath(hwnd)
TracePrint "获取游戏进程：" & 获取游戏进程
游戏窗口大小 = lw.GetClientSize(hwnd)
TracePrint "客户区域窗口宽度为：" & lw.x &","& "客户区域窗口高度为：" & lw.y
激活游戏窗口 = lw.SetWindowState(hwnd, 12)
TracePrint "激活游戏窗口句柄数值：" & hwnd & "波哥逆向分析 QQ：1007175627 网站:lb1989.com"
窗口属性A = lw.SetWindowBorder(hwnd,2) // 2 移除窗口的最小化按钮
窗口属性B = lw.SetWindowBorder(hwnd,3) // 3 移除窗口的最大化按钮
移动窗口位置 = lw.MoveWindow(hwnd, 0, 0)// 移动游戏窗口位置
//--------------常用命令调用方法-----------//
后台绑定 = lw.BindWindow(hwnd, 3, 1, 1, 0,0)// 后台绑定模式大家自己测试
TracePrint "后台绑定状态：" & 后台绑定
//等待延迟
For 3
lw.Delay 1000 //波哥逆向分析 QQ：1007175627 网站:lb1989.com 获取最新最稳定的辅助脚本源码
Next
End Sub
//-----------常用命令调用方法 ----------- //
Call 键盘鼠标测试()
Sub 键盘鼠标测试()
lw.KeyPress 27, 10 //前面是键码，后面是次数
//
lw.MoveTo 0, 0 //鼠标移动
lw.LeftClick //鼠标左键单击
End Sub
Call 乐玩找图功能()
Sub 乐玩找图功能()
Dim 找图
For 9
找图 = lw.findpic(0, 0, 1280, 800, "c:\mycom\lwsoft\Jiao.bmp", "0", 0.90, 0, 1000, 1, 0, 0, 350)
TracePrint 找图
If 找图 = 1 Then
TracePrint "找到图片"
lw.MoveTo 0, 0
End If
Next
End Sub
Call 乐玩找色功能()
Sub 乐玩找色功能()
Dim 找色
For 9
找色 = lw.FindColor(624, 744, 656, 776, "db5700-123123", 0.90, 0, 1000, 1, 0, 0, 350)
TracePrint 找色
If lw.x>= 0 and lw.y>= 0 Then
TracePrint "找到颜色"
End If
Next
End Sub
Call 乐玩找字功能()
Sub 乐玩找字功能()
ret = lw.SetDict(0,"c:\mycom\lwsoft\游戏字库.txt")//设置游戏字库
Dim 找字
For 1
找字 = lw.FindStr(0, 0, 1280, 800, "包", "dddddd-737373", 0.90,0)
TracePrint 找字
If 找字 = 1 Then
TracePrint "找到文字"
lw.MoveTo lw.x, lw.y
lw.LeftClick
lw.MoveTo 0, 0
lw.KeyPress 27, 2
End If
Next
End Sub
//----------附件里有工具和说明书------------//
//代码演示结束
站长QQ：1007175627
网游安全逆向分析群:191075097
波哥