梦三国游戏初战副本脚本源代码按键精灵用大漠插件做的后台。不玩也可以学习如何做游戏脚本学习我思想步骤。本人不是靠卖脚本发生的人。所以有不足之处，不要扔鸡蛋。此梦三国初战源代码乃本人亲写。在我系统是游戏窗口选1027*768*32分辨率下运行，屏幕选1440*900*32下运行。编译器：按键精灵9。梦三国初战副本脚本源代码，没删改。直接可以运行.界面主要有三个按钮：ComboBox1、ComboBox2、ComboBox3ComboBox1下的数值周泰孙策黄月英孙坚其它ComboBox2下的数值F11F2F3F4F5F6F7ComboBox3下的数值普通难度困难难度传奇难度自己在界面找到上面按钮并建。Dimspeedkey,iDimMyVar1,MyVar2,Dtime,d50,buyDtime=500PutAttachment"c:\test_game","*.*"setws=createobject("Wscript.Shell")ws.run"regsvr32c:\test_game\dm.dll/s"setws=nothingDelay1500Setdm=CreateObject("dm.dmsoft")ver=dm.Ver()Iflen(ver)=0ThenMessageBox"创建对象失败,检查系统是否禁用了vbs脚本权限"EndScriptEndIfsetdm=createobject("dm.dmsoft")dm.SetPath"c:"hwnd=dm.GetMousePointWindow()Delay100dm_ret=dm.BindWindow(hwnd,"normal","windows","windows",0)Delay500//防脚本停止而不动，判断是否要走向打怪dm_ret=dm.CmpColor(90,727,"0B716E",0.8)Ifdm_ret=0Thengoto是否还在游戏EndIf//取得梦三句柄//Hwnd=Plugin.WindowEx5_01.GetForegroundWindow()Delay2000i=0Rem下一盘i=i+1CallPlugin.File.WriteINI("dsj","Val",i,".\uservar.ini")Delay500MyVar1=Minute(Now)Delay200//关积分dm.MoveTo1003,573Delayd50dm.LeftClickDelayDtimedm.MoveTo866,123Delayd50dm.LeftClick//是否单人挂机//是否出现系统菜单，取消弹出框dm.KeyPress27Delay500dm.KeyPress27//以下初始化房间，如果在外面就创建房dm.MoveTo688,749Delayd50dm.LeftClickDelayd50*200dm.MoveTo1003,573Delayd50dm.LeftClickDelay50dm.KeyPress27Delay2000Rem以下是准备开始dm_ret=dm.CmpColor(842,624,"ab4900",0.8)Ifdm_ret=0Thendm.MoveTo842,624Delayd50dm.LeftClickDelay2000EndIfRem是否离开房选英雄Delay50dm.KeyPress27Delay50dm_ret=dm.CmpColor(842,624,"ab4900",0.8)Ifdm_ret=0ThenDelay500Goto是否离开房选英雄EndIfRem界面选英雄Delay500//dm_ret=dm.CmpColor(22,70,"0",0.9)dm_ret=dm.CmpColor(670,16,"83E957",0.8)Ifdm_ret=1ThenDelay500Goto界面选英雄EndIfText=Plugin.File.ReadINI("acedfe9c-b51f-4f71-b2fa-28e0588b88c5","Form1.ComboBox1.ListIndex",".\uservar.ini")Delay1000Text=Cint(Text)//以下是选择英雄SelectCaseTextCase0//周泰dm.MoveTo782,132Delay200dm.LeftClickCase1//孙策dm.MoveTo831,79Delay200dm.LeftClickCase2//黄月英dm.MoveTo669,232Delay200dm.LeftClickCase3//孙坚dm.MoveTo881,79Delay200dm.LeftClickCaseElsedm.MoveTo916,657Delay200dm.LeftClickEndSelect//没有选到要选英雄，则等别人选择英雄后再选英雄Delay500//准备dm.MoveTo916,657'随机选英雄Delayd50dm.LeftClickDelay200dm.MoveTo988,732'准备Delayd50dm.LeftClickDelay100//以上随机选英雄Delay50dm.KeyPress27Delay50Rem是否游戏开始了dm_ret=dm.CmpColor(90,727,"0B716E",0.8)Ifdm_ret=1ThenDelay500Goto是否游戏开始了EndIf//以下游戏开始Text=Plugin.File.ReadINI("acedfe9c-b51f-4f71-b2fa-28e0588b88c5","Form1.ComboBox3.ListIndex",".\uservar.ini")Delay200//以下选择难度Text=Cint(Text)SelectCaseTextCase0dm.MoveTo900,395Delayd50dm.LeftClickCase1dm.MoveTo900,427Delayd50dm.LeftClickCase2dm.MoveTo900,458Delayd50dm.LeftClickCaseElseEndSelectDelay200//----------初始化血池位置Call初始化血池()dm.KeyPress112Delay100dm.KeyPress112//以下游戏正式开始//KeyPressspeedkey,1'打开商店Delay100dm.KeyPress79Delay100dm.KeyPress82Delay100dm.MoveTo716,208Delay100dm.LeftClickDelay100dm.KeyPress65Delay200dm.KeyPress27Call到左上角()Delay5000//编蛋为快捷2dm.MoveTo204,75Delay200dm.LeftDownDelay500dm.Mo...