1、lse Call 寻怪Do While 7 = 7dm.KeyPressChar “F12“Delay 500 elay 200dm.KeyPressChar “F4“Delay 200Do While 7=7dm.KeyPressChar “F2“Delay 10dm.KeyPressChar “F3“If intX = 0 and intY = 0 Then Delay 200dm.KeyPressChar “F1“dm.KeyPressChar “F2“Delay 10dm.KeyPressChar “F3“Exit DoE dm_ret = dm.FindCoEnd IfLoopEnd
2、ScriptEnd IfEnd SubSub 天堂2游戏窗口绑定Set dm = createobject(“dm.dmsoft“)dm.SetPath“c:天堂2“dm.SetDict 0, “c:天堂2天堂2.txt“hwnd = dm.GetMousePointWindow()dm_ret=dm.BindWindow(hwnd, “gdi2“, “dx2“, “windows“, 0)End SubSub 打怪dm_ret = dm.FindColor(438,28,439,29,“42312a-222222“,1.0,0,intX,intY)If intX = 0 and intY =
3、 0 ThenDelay 10dm.KeyPressChar “Esc“Delay 20dm.KeyPressChar “F4“Delay 200dm.KeyPressChar “F4“Delay 200dm.KeyPressChar “F4“DCall 打怪LoopCall 解除窗口绑定()Sub 大漠插件注册PutAttachment “c:天堂2“, “*.*“PutAttachment “c:天堂2大漠plugin“, “Regdll.dll“dm.LeftClick Else dm.KeyDown 68Delay 1000dm.keyUp 68End IfEnd Sublor(590
4、,28,591,29,“6f1713-050505“,1.0,0,intX,intY)Do While 7 = 7dm.KeyPressChar “F1“Delay 10Delay 10Sub 解除窗口绑定dm.UnBindWindowEnd Subcall Plugin.Regdll.reg(“c:天堂2dm.dll“)Set dm = createobject(“dm.dmsoft“)ver = dm.ver()If len(ver) = 0 Thendm.KeyPressChar “F4“Delay 200Exit DoEnd IfLoopEnd SubSub 寻怪dm.KeyPressChar “F4“Delay 20dm.KeyPressChar “F4“Delay 20dm.KeyPressChar “F4“Delay 20dm.KeyPressChar “F4“Delay 20dm.KeyPressChar “F4“Delay 20怪物名称 = Form1.InputBox1.Textdm_ret = dm.FindStrFast(0,0,2000,2000,怪物名称 ,“ffffff-000000“,0.9,intX,intY)If intX = 0 and intY = 0 Then Delay 10dm.MoveTo intX, intYDelay 20
