if Form1.CheckBox7.Value=1  then
Call Lib.系统.结束进程(QQDL.exe)
    End If
SetSimMode 2
Call Plugin.Msg.Tips("欢迎使用----鬼斧神工制作----QQ:461180224")
//*********************************************************************************************
Sub 第一()
       dim pl
        pl=Form1.InputBox1.Text
    For pl
 Delay 2000
hwnd=Plugin.Window.MousePoint 
    Hwnd = Plugin.Window.Find(0, "地下城与勇士")
    Call Plugin.Window.Active(Hwnd)
        Call Plugin.Window.Show(Hwnd)
x = Plugin.Window.Move(hwnd, 0, 0)
        Delay 1000
        FindPic 0,0,1024,768,"Attachment:\条.bmp",1,intX,intY
If intX > 0 And intY > 0 Then
        MoveTo intX,intY
                        Delay 200
            LockMouse
            LeftClick 1
            UnlockMouse
End If
        Delay 200
        Call Plugin.Window.Top(Hwnd, 1)
        KeyDown "A", 1
Delay 4000
        KeyUp "A", 1
        Delay 20
        KeyPress "S", 1
                Delay 30
        //选择地图   Delay 30
        MoveTo 502, 187
Delay 500
        LeftClick 1
//难度选择
//判断选中情况
        Delay 30
    If Form1.OptionBox1.Value = 1 Then
            KeyPress "D", 1
    ElseIf Form1.OptionBox2.Value = 1 Then
            KeyPress "D", 1
            Delay 200
            KeyPress "D", 1
                ElseIf Form1.OptionBox3.Value = 1 Then
            KeyPress "D", 1
            Delay 200
            KeyPress "D", 1
            Delay 200
                        KeyPress "D", 1
                        Delay 200
            KeyPress "D", 1
    End If
        KeyPress "Space", 1
Delay 4000
   //小号使用法药
    If Form1.CheckBox1.Value = 1 Then
            KeyPress "1", 1
            Delay 1000
    Else  
      Form1.CheckBox1.Enabled=0
    End If  
        KeyDown "W", 1
dim zou
      zou=Form1.InputBox8.Text
Delay zou
        KeyUp "W", 1
    Delay 1000
    //技能使用
    dim CD
    CD=Form1.InputBox6.Text
    If Form1.CheckBox2.Value = 1 Then
            KeyPress "F3", 1
            Delay CD*1000
           elseif Form1.CheckBox3.Value = 1 Then
            KeyPress "F4", 1
                        Delay CD*1000
                       elseif Form1.CheckBox4.Value = 1 Then
            KeyPress "F5", 1
                                    Delay CD*1000
                                   elseif Form1.CheckBox5.Value = 1 Then
            KeyPress "F6", 1
                                                Delay CD*1000
    Else
      Enabled=0
    End If  
        KeyPress "8", 1
Delay 1000
        dim CDc
        CDc=Form1.InputBox2.Text
    For CDc
            KeyPressS "J", 1
    Delay 20
Next
        FindPic 0,0,1024,768,"Attachment:\哈哈.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
        MoveTo intX,intY
            Delay 100