马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 mitchs 于 2015-3-21 17:55 编辑
TC很好爱你不容易啊............- //创建大漠对象
- 变量 dm=插件("dm.dmsoft")
- 变量 x1,y1,x2,y2,intx,inty,retarr
- 功能 启动_点击()
- 调试输出("开始判断游戏路径是否正确")
- 如果((文件是否存在(浏览框获取文本("路径")))==假)
- 消息框("您选择的路径不正确,请重新选择")
- 返回
- 结束
-
- 变量 数量=下拉框获取选项("下拉框0")+1
- 变量 hwnd = dm.EnumWindowByProcess("xy2_launch.exe","新大话西游2欢迎页","",1+4)
- 调试输出("欢迎页句柄为:"&hwnd)
- 变量 hwnds = dm.EnumWindow(0,"新大话西游2 ($Revision:","",1)
- 调试输出("游戏句柄为:"&hwnds)
- 变量 n = 字符串分割(hwnds,",",retarr)
- 调试输出("游戏数量为:"&n)
- 如果(hwnd=="" && n==0)
- 调试输出("条件1")
- 进程打开(浏览框获取文本("路径"),1)
- 等待(500)
- 循环(真)
- hwnd = dm.EnumWindowByProcess("xy2_launch.exe","新大话西游2欢迎页","",1+4)
- 如果(hwnd!="")
- 等待(500)
- 遍历(变量 i = 0; i < 数量; i++)
- 进程打开(浏览框获取文本("路径"),1)
- 等待(500)
- 结束
- 变量 hwndx = dm.EnumWindowByProcess("xy2_launch.exe","X","",1+4)
- dm.BindWindowEx(hwndx,"normal","windows","normal","",0)
- 等待(500)
- dm.MoveTo(5,5)
- 等待(100)
- dm.LeftClick()
- 等待(500)
- dm.UnBindWindow()
- 跳出
- 结束
- 等待(200)
- 结束
- 否则如果(hwnd>0 && n==0)
- 调试输出("条件2")
- 遍历(变量 i = 0; i < 数量; i++)
- 进程打开(浏览框获取文本("路径"),1)
- 等待(500)
- 结束
- 变量 hwndx = dm.EnumWindowByProcess("xy2_launch.exe","X","",1+4)
- dm.BindWindowEx(hwndx,"normal","windows","normal","",0)
- 等待(500)
- dm.MoveTo(5,5)
- 等待(100)
- dm.LeftClick()
- 等待(500)
- dm.UnBindWindow()
- 否则如果(hwnd=="" && 0<n<数量)
- 调试输出("条件3")
- 进程打开(浏览框获取文本("路径"),1)
- 等待(500)
- 循环(真)
- hwnd = dm.EnumWindowByProcess("xy2_launch.exe","新大话西游2欢迎页","",1+4)
- 如果(hwnd!="")
- 等待(500)
- 遍历(变量 i = 0; i < (数量-n); i++)
- 进程打开(浏览框获取文本("路径"),1)
- 等待(500)
- 结束
- 变量 hwndx = dm.EnumWindowByProcess("xy2_launch.exe","X","",1+4)
- dm.BindWindowEx(hwndx,"normal","windows","normal","",0)
- 等待(500)
- dm.MoveTo(5,5)
- 等待(100)
- dm.LeftClick()
- 等待(500)
- dm.UnBindWindow()
- 跳出
- 结束
- 等待(200)
- 结束
- 否则如果(hwnd>0 && 0<n<数量)
- 调试输出("条件4")
- 遍历(变量 i = 0; i < (数量-n); i++)
- 进程打开(浏览框获取文本("路径"),1)
- 等待(500)
- 结束
- 变量 hwndx = dm.EnumWindowByProcess("xy2_launch.exe","X","",1+4)
- dm.BindWindowEx(hwndx,"normal","windows","normal","",0)
- 等待(500)
- dm.MoveTo(5,5)
- 等待(100)
- dm.LeftClick()
- 等待(500)
- dm.UnBindWindow()
- 结束
- 等待(1000)
- 循环(真)
- hwnds = dm.EnumWindow(0,"新大话西游2 ($Revision:","",1)
- 调试输出(hwnds)
- n = 字符串分割(hwnds,",",retarr)
- 调试输出("已打开的游戏数量为:"&n)
- 如果(n=数量)
- 跳出
- 结束
- 等待(500)
- 结束
- 等待(500)
- 遍历(变量 i = 0; i < 数量; i++)
- 调试输出(retarr[i])
- 窗口激活(retarr[i])
- 等待(100)
- dm.GetClientRect(retarr[i],x1,y1,x2,y2)
- 调试输出(x1&","&y1&","&x2&","&y2)
- 等待(100)
- 找("一进")
- 等待(500)
- 找("一进")
- 等待(500)
- 结束
- 结束
- 功能 找(图片名)
- 调试输出("x1="&x1)
- 循环(真)
- dm.FindPic(x1,y1,x2,y2,"C:\\测试1\\测试1\\资源\"&图片名&".bmp","000000",0.9,0,intx,inty)
- 如果(intx>0)
- dm.MoveTo(intx,inty)
- 等待(100)
- dm.LeftClick()
- 等待(100)
- 跳出
- 结束
- 等待(100)
- 结束
- 结束
- 功能 退出_点击()
- dm.UnBindWindow()
- 退出()
- 结束
- 功能 启动热键_热键()
- 启动_点击()
- 结束
复制代码
|