Call 主线() Sub 主线() Set dm = createobject("dm.dmsoft") dm_ret = dm.setpath("C:\test_game") Call 登录() End Sub Function 登录() //打开程序 RunApp "F:\魔域\play.exe" 等等开始界面,并且点击开始游戏按钮 Do dm_ret = dm.FindPic(0,0,2000,2000,"开始游戏.bmp","000000",0.9,0,intX,intY) If intX >= 0 and intY >= 0 Then TracePrint "找到开始游戏按钮" Call 左键单击(intX, intY) Exit Do End If Delay 1000 Loop End Function Function 左键单击(x, y) dm.moveto x, y Delay 1000 dm.leftclick End Function // ////////////////////////////// //注册大漠--常用函数////////// ////////////////////////////// Function 注册大漠() //释放附件内容 PutAttachment "C:\test_game", "*.*" Set ws = createobject("Wscript.shell") Do //注册stl跟dm插件 ws.run ("regsvr32 atl.dll -s") ws.run ("regsvr32 C:\test_game\dm.dll -s") Delay 200 Set ws = nothing Set dm = createobject("dm.dmsoft") ver = dm.ver() //输出版本号 If ver <> "" Then Exit Do End If Loop Set dm = nothing Delay 10 End Function