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