UserVar jiaoseming = 0 "输入角色名称"
jiaoseming = Form1.InputBox1.text
Hwnd = Plugin.Window.Find(0, "[" & jiaoseming & "]-新蓬莱Online")
If hwnd =""or hwnd = 0 then
MessageBox "没有找到游戏窗口,请检查角色名输入是否正确！！！"
ExitScript
Else 
Call Plugin.Window.Active(Hwnd)
End if
Rem 寻怪
IfColor 421,65,"F75910",1 Then
Call Plugin.Bkgnd.KeyPress(Hwnd, 9)
Else 
if Form1.CheckBox1.Value then
        KeyPress "1", 1
Delay 200
                    End If
        if Form1.CheckBox2.Value then
        KeyPress "2", 1
Delay 200
                End if
if Form1.CheckBox3.Value then
        KeyPress "3", 1
Delay 200
                    End if
if Form1.CheckBox4.Value then
        KeyPress "4", 1
Delay 200
                End If
                if Form1.CheckBox5.Value then
        KeyPress "1", 1
Delay 200
                    End If
        if Form1.CheckBox6.Value then
        KeyPress "2", 1
Delay 200
                End if
if Form1.CheckBox7.Value then
        KeyPress "3", 1
Delay 200
                    End if
if Form1.CheckBox8.Value then
        KeyPress "4", 1
Delay 200
                End if
    if Form1.shiquwupin.Value then
Call Plugin.Bkgnd.KeyPress(Hwnd, 32)
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd, 32)
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd, 32)
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd, 32)
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd, 32)
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd, 32)
Delay 300
End If
Goto 寻怪
    End If