天龙八部免费脚本(打怪跑商采集种植).doc

天龙八部免费脚本(打怪跑商采集种植) //=======================================================脚本开始=========================================================== If Form1.pk.ListIndex 1 Then IsFile = Plugin.File.IsFileExit(C:\排骨科技\GWC.bmp) If IsFile = false Then MessageBox 开启防害刀，请先绑定怪物头像 EndScript End If End If If Form1.照顾.Value = 1 and Form1.打怪.ListIndex = 1 Then MessageBox 极速拉怪模式下,不能照顾队友，否则会引起混乱 EndScript End If MessageBox 请在点击确定后3秒内,将鼠标移动至游戏窗口内 //====================================================创建绑定大漠对象 Delay 3000 set dm = createobject(dm.dmsoft) dm.SetPath C:\排骨科技 all_pic = GW?.bmp|验证.bmp dm_ret = dm.LoadPic(all_pic) dm_ret = dm.SetDict(0, tlbb.txt) dm_ret = dm.UseDict(0) hwnd1 = dm.GetMousePointWindow //======================================================初始化自定义变量 Dimenv hwnd1, xue, lan, rou, dui,totalSec3 xue = CInt(Form1.加血.Text) lan = CInt(Form1.补蓝.Text) rou = CInt(Form1.口粮.Text) If rou 40 Then rou = 40 End If koushui=Form1.口令.Text dui = CInt(Form1.队友.Text) road = split(Form1.路线.Text, -, - 1 , 1) zba = CStr(Form1.zba.Text) zbb = CStr(Form1.zbb.Text) zbc = CStr(Form1.zbc.Text) zbd = CStr(Form1.zbd.Text) choose = array(24, 41, 58, 75, 92) lie = choose(Form1.列表.ListIndex) l = CInt(Form1.范围.Text) fang = array(手动,微锐,信诺,答题器) fans=fang(Form1.答题.ListIndex) If Form1.打怪.ListIndex = 1 Then jn = 5 Else jn = 1 End If a=9 : b=9 : c=9 : d=9: s=95 : u=9 //root = Plugin.File.ReadINI(账号, root, C:\排骨科技\cfg.ini) //pasd = Plugin.File.ReadINI(密码, pasd, C:\排骨科技\cfg.ini) pstr = Plugin.File.ReadINI(上传, 密码串, C:\排骨科技\cfg.ini) //========================================================================= title = dm.GetWindowTitle(hwnd1) MyVar = MsgBox(将要绑定的游戏名称如下： Chr(10) Chr(10) title, 65, 排骨科技) If MyVar = 2 Then EndScript End If dm_ret = dm.BindWindow(hwnd1, dx, dx2, dx, 0) Delay 1000 If dm_ret = 0 Then MessageBox 后台绑定失败，请到初始化页面做兼容性测试分析具体原因 End If dm.LockInput 1 If Form1.解锁.Value = 1 Then dm.LockInput 0 End If If Form1.CPU