[梦三国游戏初战副本脚本源代码.docVIP

梦三国游戏初战副本脚本源代码 按键精灵用大漠插件做的后台。不玩也可以学习如何做游戏脚本 学习我思想步骤。本人不是靠卖脚本发生的人。所以有不足之处，不要扔鸡蛋。 此梦三国初战源代码乃本人亲写。在我系统是游戏窗口选1027*768*32分辨率下运行，屏幕选1440*900*32下运行。编译器：按键精灵9。 梦三国初战副本脚本源代码，没删改。直接可以运行. 界面主要有三个按钮：ComboBox1、ComboBox2、ComboBox3 ComboBox1下的数值 周泰 孙策 黄月英 孙坚 其它 ComboBox2下的数值 F11 F2 F3 F4 F5 F6 F7 ComboBox3下的数值 普通难度 困难难度 传奇难度 自己在界面找到上面按钮并建。 Dim speedkey, i Dim MyVar1,MyVar2,Dtime,d50,buy Dtime=500 PutAttachment c:\test_game,*.* set ws=createobject(Wscript.Shell) ws.run regsvr32 c:\test_game\dm.dll /s set ws=nothing Delay 1500 Set dm = CreateObject(dm.dmsoft) ver = dm.Ver() If len(ver) = 0 Then MessageBox 创建对象失败,检查系统是否禁用了vbs脚本权限 EndScript End If set dm = createobject(dm.dmsoft) dm.SetPath c: hwnd = dm.GetMousePointWindow() Delay 100 dm_ret = dm.BindWindow(hwnd, normal, windows, windows, 0) Delay 500 //防脚本停止而不动，判断是否要走向打怪 dm_ret = dm.CmpColor(90, 727, 0B716E, 0.8) If dm_ret = 0 Then goto 是否还在游戏 End If //取得梦三句柄 //Hwnd = Plugin.WindowEx5_01.GetForegroundWindow() Delay 2000 i=0 Rem 下一盘 i = i + 1 Call Plugin.File.WriteINI(dsj, Val, i, .\uservar.ini) Delay 500 MyVar1 = Minute(Now) Delay 200 //关积分 dm.MoveTo 1003, 573 Delay d50 dm.LeftClick Delay Dtime dm.MoveTo 866, 123 Delay d50 dm.LeftClick //是否单人挂机 //是否出现系统菜单，取消弹出框 dm.KeyPress 27 Delay 500 dm.KeyPress 27 //以下初始化房间，如果在外面就创建房 dm.MoveTo 688, 749 Delay d50 dm.LeftClick Delay d50*200 dm.MoveTo 1003, 573 Delay d50 dm.LeftClick Delay 50 dm.KeyPress 27 Delay 2000 Rem 以下是准备开始 dm_ret = dm.CmpColor(842,624,ab4900,0.8) If dm_ret = 0 Then dm.MoveTo 842,624 Delay d50 dm.LeftClick Delay 2000 End If Rem 是否离开房选英雄 Delay 50 dm.KeyPress 27 Delay 50 dm_ret = dm.CmpColor(842,624,ab4900,0.8) If dm_ret = 0 Then Delay 500 Goto 是否离开房选英雄 End If Rem 界面选英雄 Delay 500 //dm_ret = dm.CmpColor(22, 70, 0, 0.9) dm_ret = dm.CmpColor(670,16 , 83E957, 0.8) If dm_ret = 1 Then Delay 500 Goto 界面选英雄 End If Text = Plugin.File.ReadINI(acedfe9c-b51f-4f71-b2fa-28e0588b88c5, Fo