PutAttachment "D:\急速封妖1.2.2\DM","*.*" set ws=createobject("Wscript.Shell") ws.run "regsvr32 D:\急速封妖1.2.2\DM\dm.dll /s" set ws=nothing Delay 1500 Set dm = CreateObject("dm.dmsoft") UserVar jikai=DropList{"1":"a"|"2":"b"|"3":"c"|"4":"d"|"5":"e"}=1 "几开" UserVar wuyi=DropList{"是":"a"|"否":"b"}=1 "是否巫医" UserVar d1ID=0 "主号ID" UserVar d2ID=0 "2号ID" UserVar d3ID=0 "3号ID" UserVar d4ID=0 "4号ID" UserVar d5ID=0 "5号ID" UserVar d1anj=DropList{"alt+q":"alt+q"|"alt+d":"alt+d"|"alt+a":"alt+a"}=1 "主号杀怪按键" UserVar d2anj=DropList{"alt+q":"alt+q"|"alt+d":"alt+d"|"alt+a":"alt+a"}=1 "2号杀怪按键" UserVar d3anj=DropList{"alt+q":"alt+q"|"alt+d":"alt+d"|"alt+a":"alt+a"}=1 "3号杀怪按键" UserVar d4anj=DropList{"alt+q":"alt+q"|"alt+d":"alt+d"|"alt+a":"alt+a"}=1 "4号杀怪按键" UserVar d5anj=DropList{"alt+q":"alt+q"|"alt+d":"alt+d"|"alt+a":"alt+a"}=1"5号杀怪按键" UserVar d1banj=DropList{"alt+q":"alt+q"|"alt+d":"alt+d"|"alt+a":"alt+a"}=1 "主号BB杀怪按键" UserVar d2banj=DropList{"alt+q":"alt+q"|"alt+d":"alt+d"|"alt+a":"alt+a"}=1 "2号BB杀怪按键" UserVar d3banj=DropList{"alt+q":"alt+q"|"alt+d":"alt+d"|"alt+a":"alt+a"}=1 "3号BB杀怪按键" UserVar d4banj=DropList{"alt+q":"alt+q"|"alt+d":"alt+d"|"alt+a":"alt+a"}=1 "4号BB杀怪按键" UserVar d5banj=DropList{"alt+q":"alt+q"|"alt+d":"alt+d"|"alt+a":"alt+a"}=1 "5号BB杀怪按键" Call 网络验证 //EndScript //Call ckcl(8066488, 0, 0) Call fenyao //Call ssi //Delay 100 //Call 找妖 Sub cwl FindPic 0,0,1024,768,"Attachment:\cwl.bmp",0.7,cwlX,cwlY If cwlX > 0 And cwlY > 0 Then Goto budaoj End If Call wu1 Rem budaoj End Sub Sub chutu While i=0 FOR I=1 TO 11 Call FindPic(0,0,650,500,"Attachment:\cl" & I & ".bmp",0.6,clX,clY) If clX > 1 Then goto wanyi End If Next Wend Rem wanyi Delay 100 Call 移动(clX, clY) Delay 100 LeftClick 1 Delay 100 End Sub Sub paotu i=0 While i=0 FOR I=1 TO 9 Call FindPic(0,0,650,500,"Attachment:\cc" & I & ".bmp",0.6,ccX,ccY) If ccX > 1 Then Call chutu End If Next Wend End Sub Sub wu1 //Delay 100 // Call ckcl(d1ID, 0, 0) Delay 200 KeyPress "Tab", 1 Delay 200 FindPic 0,0,650,500,"Attachment:\51.bmp",0.7,wzX,wzY If wzX > 0 And wzY > 0 Then Goto shangwz End If Call wu1 Rem shangwz Call 移动(wzX, wzY) Delay 100 LeftClick 1 Delay 100 KeyPress "Tab", 1 Call dianwue End Sub Sub dianwue Rem dianww Delay 100 KeyPress "F9", 1 Delay 100 FindPic 0,0,650,500,"Attachment:\511.bmp",0.7,wz1X,wz1Y If wz1X > 0 And wz1Y > 0 Then Goto shangwz1 End If Goto dianww Rem shangwz1 Call 移动(wz1X, wz1Y) Delay 100 LeftClick 1 Delay 100