Sub OnScriptExit()Call Plugin.RegDll.UnReg("c:\game_script\dm.dll")// 这句的作用就是解除大漠注册到系统，如果只想注册到系统，不想解除的话，请删除第16行
MessageBox "脚本已经停止！"End SubPutAttachment "c:\test" ,"*.*"PutAttachment ".\Plugin" ,"RegDll.dll"Call Plugin.RegDll.Reg("c:\test\dm.dll")set dm = createobject("dm.dmsoft")ver = dm.Ver()If len(ver) = 0 Then MessageBox "创建对象失败,检查系统是否禁用了vbs脚本权限" EndScriptEnd If
Hwnd = Plugin.Window.Find(0, "鹿鼎记 0.80.6336 (全国电信-电信龙掘世界四十三-笑傲江湖|笑傲江湖 御林军(红色)) 官方网址：http://ldj.changyou.com")sRect = Plugin.Window.GetClientRect(Hwnd)Dim MyArrayMyArray=Split(sRect,"|")Ux=CLng(MyArray(0))Uy = CLng(MyArray(1))Do
Rem xuanzheCall Plugin.Bkgnd.KeyPress(Hwnd, 192)Delay 200IfColor 373+Ux,34+Uy,"C1BD6",0 Then Rem gongji Call Plugin.Bkgnd.KeyPress(Hwnd, 49)IfColor 273+Ux,34+Uy,"333333",0 Then Goto xuanzhe Else Goto gongjiEnd IfEnd Ifdm.MoveTo 135 + Ux, 155 + Uymouse_tz = dm.GetCursorShape()If mouse_tz = "449fef04" Then Delay 100dm.LeftClickDelay 6000dm.MoveTo 402 + Ux, 408 + UyDelay 50dm.LeftClick Else Goto xuanzheEnd If
Delay 50dm.MoveTo 181+Ux,155+Uymouse_tz = dm.GetCursorShape()If mouse_tz = "449fef04" Then Delay 100dm.LeftClickDelay 6000dm.MoveTo 402 + Ux, 408 + UyDelay 50dm.LeftClick Else Goto xuanzheEnd If
Delay 50dm.MoveTo 221+Ux,157+Uymouse_tz = dm.GetCursorShape()If mouse_tz = "449fef04" Then Delay 100dm.LeftClickDelay 6000dm.MoveTo 402 + Ux, 408 + UyDelay 50dm.LeftClick Else Goto xuanzheEnd If
Delay 50dm.MoveTo 264+Ux,157+Uymouse_tz = dm.GetCursorShape()If mouse_tz = "449fef04" Then Delay 100dm.LeftClickDelay 6000dm.MoveTo 402 + Ux, 408 + UyDelay 50dm.LeftClick Else Goto xuanzheEnd If
Delay 50dm.MoveTo 306+Ux,159+Uymouse_tz = dm.GetCursorShape()If mouse_tz = "449fef04" ThenDelay 100dm.LeftClickDelay 6000dm.MoveTo 402 + Ux, 408 + UyDelay 50dm.LeftClick Else Goto xuanzheEnd If