//*============以下用户可修改的代码============ UserVar Ztai=1 此功能是加状态,1为只加一个状态,2为只加二个状态,3为只加三个状态。0为不加 UserVar Fka=20 此功能是防卡,20=20秒<单位:秒>在20秒左右,有时候回卡住或被人拉走导致人物发呆 UserVar Zdj=1 此功能是死亡后自动关机1为开,2为关闭功能 //*============以上是用户修改的代码============ Dim PFx,PFy,Ztai,Swx,Swy,fx,fy,Fka Dim File,F1,SaveString,FileName FileName="long\"&now&".ini" Set File = CreateObject("Scripting.FileSystemObject") Set F1 =File.CreateTextFile(FileName,2) F1.Close t2=now t1=now Gshu=0 Plugin Fx=Sys.GetScRX() Plugin Fy=Sys.GetScRY() Rem Gxue IfColor 432,35,a5,2 VBSCall Gxue=GetPixelColor(432,35) Else KeyPress 9,1 Delay 500 Goto Gxue EndIf Gosub 自动加状态 Gosub 背包 SaveString="*****************欢迎使用恶魔游武林-挂机开始*****************" Gosub 保存日志 SaveString="***当前分辨率 "&Fx&"×"&Fy&"" Gosub 保存日志 SaveString="***当前加状态 "&Ztai&"" Gosub 保存日志 SaveString="***当前防卡设置 "&Fka&"" Gosub 保存日志 SaveString="***当前自动关机 "&Zdj&"" Gosub 保存日志 Rem 开始 VBSCall Gxue=GetPixelColor(432,35) If Gxue=0000A5 Gshu=Gshu+1 Gosub 打怪 EndIf Gosub 拣东西 KeyPress 9,1 Delay 200 Gosub 自动红蓝 Gosub 死亡回城 Goto 开始 Sub 自动红蓝 IfColor 179,34,b5,1 KeyPress 50,1 Delay 1000 EndIf IfColor 135,46,ad9e00,1 KeyPress 57,1 Delay 1000 EndIf Return 自动红蓝 Sub 紧急加血 IfColor 179,34,b5,1 KeyPress 50,1 Delay 800 EndIf Return 紧急加血 Sub 背包 KeyPress 66,1 Delay 200 IfColor 179,34,b5,1 KeyPress 50,1 Delay 1000 EndIf VBSCall FindPic(0,342,281,768,"Attachment:\配方.bmp",0.8,PFx,PFy) While PFx>0 and PFy>0 MoveTo PFx+4,PFy+4 Delay 200 IfColor 179,34,b5,1 KeyPress 50,1 Delay 1000 EndIf LeftDown 1 Delay 200 MoveTo 146,251 Delay 200 LeftUp 1 Delay 200 IfColor 179,34,b5,1 KeyPress 50,1 Delay 1000 EndIf VBSCall FindPic(0,342,281,768,"Attachment:\配方.bmp",0.8,PFx,PFy) EndWhile IfColor 179,34,b5,1 KeyPress 50,1 EndIf VBSCall FindPic(0,342,281,768,"Attachment:\配方win.bmp",0.8,fx,fy) While fx>0 and fy>0 MoveTo fx+4,fy+4 Delay 200 RightClick 1 For 5