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