你的位置：
大话西游2顶号器
00:44:33 |
来源: 按键精灵资源站
本帖最后由 yangzhou1985 于
08:51 编辑
//新手入门 新手借鉴
本人刚按键 弄了个大话2顶号器 大家别笑话啊
个人感觉还是挺好用的分享源码 以后进步了在分享
说明 本脚本支持
以上的分辨率 32位 XP 和经典通过
每次开始最好把所有大话窗口移动到左上角
脚本开始鼠标指向大话2按开始键
在这里感谢下裴初菡老师
& & Call 注册()
& & Call 绑定()
& & Delay 1000
& & dm.MoveWindow hwnd,750,320
& & //↑移动“窗口”到指定位置，允许移到“屏幕”外
& & Delay 500
& & dm_ret = dm.UseDict(0)
& & dm_ret = dm.FindStr(0,0,,&进入游戏&,&005&,1.0,intX,intY)
& & //↑指定“范围”，查找“字符串”，只要“成功”找到一个，就返回坐标
& & //↑自定义，查找“字符串”，比如“长安|洛阳”
& & dm_ret = 0
& & If intX & 0 And intY & 0 Then
& && &&&dm.MoveTo&&intX,intY
& && &&&Delay 500
& && &&&LeftClick 1
& && &&&Delay 3000
& & End If
& & dm_ret = dm.UseDict(1)
& & dm_ret = dm.FindStr(0,0,,&进入&,&005&,1.0,intX,intY)
& & //↑指定“范围”，查找“字符串”，只要“成功”找到一个，就返回坐标
& & If intX & 0 And intY & 0 Then
& && &&&dm.MoveTo&&intX+1,intY+2
& && &&&Delay 800
& && &&&LeftClick 1
& && &&&Delay 1500
& & End If
& & dm_ret = dm.UseDict(2)
& & dm_ret = dm.FindStr(0,0,,&进入&,&005&,1.0,intX,intY)
& & //↑指定“范围”，查找“字符串”，只要“成功”找到一个，就返回坐标
& & //↑自定义，查找“字符串”，比如“长安|洛阳”
& & If intX &0 And intY &0 Then
& && &&&dm.MoveTo&&intX+2,intY+3
& && &&&Delay 200
& && &&&LeftClick 1
& & End If
& & Delay 500
& & Call OnScriptExit()
& & Delay 200
//&&--------------------------------------------------------------------&&
Sub 注册()
& & PutAttachment &.\plugin&,&*.dll&
& & PutAttachment &.\plugin\大漠梦想&,&*.bmp&
& & PutAttachment &.\plugin\大漠梦想&,&*.txt&
& & PutAttachment &.\plugin\大漠梦想&,&dm.dll&
& & //↑PutAttachment释放附件
& & Call Plugin.RegDll.Reg(&.\plugin\大漠梦想\dm.dll&)
& & set dm = createobject(&dm.dmsoft&)
& & //↑大漠·注册
& & dm.SetPath &.\plugin\大漠梦想&
& & //↑指定“全局路径?
& & dm.SetDict 0,&字库0.txt&
& & dm.SetDict 1,&字库1.txt&
& & dm.SetDict 2,&字库2.txt&
& & //↑多个字库
& & Delay 40
Sub 绑定()
& & hwnd = dm.GetMousePointWindow()
& & //↑获取“鼠标指向”窗口句柄
& & dm_ret = dm.BindWindow(hwnd,&normal&,&normal&,&normal&,0)
& & Delay 200
& & If dm_ret=0 Then
& && &&&MessageBox &绑定“失败”&
& && &&&ExitScript
& & End If
& & //↑绑定“窗口句柄”，支持“前台”和“后台”
& & //↑绑定之后，全部坐标，转换为“客户区”相对坐标
Sub OnScriptExit()
& & dm_ret = dm.UnBindWindow()