LeftClick 1
End If
                Call Plugin.Window.Show(Hwnd)
        x = Plugin.Window.Move(hwnd, 0, 0)
        Delay 800
            MoveTo 285, 399
    Delay 200
            LeftClick 1
    Delay 2000
        Next
if Form1.CheckBox6.Value=1  then
Call Plugin.Sys.ExitOS(1)
        End If  
    End Sub
Sub 第二()
    While true
   dim aa
                  aa=Form1.InputBox5.Text
 Delay aa
FindPic 0,0,1024,768,"Attachment:\a1.bmp",1,a1X,a1Y
If a1X > 0 And a1Y > 0 Then
IfColor a1X-231,a1Y-1,"212121",0 Then
                           dim ww
               dim we
              ww=Form1.InputBox3.Text
KeyPress ww, 1
            Call Plugin.Msg.Tips("自动加血（法）成功")
            Delay 1000
                          we=Form1.InputBox4.Text
        KeyPress we, 1
        Call Plugin.Msg.Tips("自动加血（法）成功")
End If
End If

        Wend
End Sub
    If Form1.OptionBox4.Value = 1 Then
        Call 第一()
    ElseIf Form1.OptionBox5.Value = 1 Then
        Call 第二()
        ElseIf Form1.OptionBox6.Value = 1 Then
Call 第三()
    End If  
Sub 第三()
Hwnd = Plugin.Window.GetKeyFocusWnd()
sRect = Plugin.Window.GetClientRect(Hwnd)
MyArray=Split(sRect,"|")
Ux = CLng(MyArray(0))
Uy = CLng(MyArray(1))

While true

GetColor=GetPixelColor(Ux+169,Uy+300)

R=Cint("&H"&Right(GetColor,2))
G=Cint("&H"&Mid(GetColor,3,2))
B=Cint("&H"&Left(GetColor,2))
        
If R > 180 And G < 180 Then 
        KeyPress "A", 1
End If

If G > 180 And R < 180 Then 
        KeyPress "S", 1
End If

If B > 180 And G < 180 Then 
        KeyPress "D", 1
End If

Delay 10

Wend
End Sub
Event Form1.Button2.Click
wj = Plugin.File.SelectFile()
                            Form1.InputBox7.Text=wj
               Form1.InputBox7.Enabled=0
End Event
Event Form1.Button1.Click

    RunApp Form1.InputBox7.Text
End Event
Event Form1.Button3.Click

gbjsj = lib.窗口.弹出对话框("本人出售大话西游2手工无毒脚本（跑真元、自动画符、采矿、秒买王元宝、制药、等；是否联系买脚本？",60,"鬼斧神工",4)
If gbjsj = 6 Then
        RunApp "http://user.qzone.qq.com/461180224/infocenter"
        Delay 4000
        MessageBox "订购脚本请在我空间留言"
	ElseIf gbjsj = 7 Then
        Call Plugin.Msg.Tips("欢迎使用")
End If	
End Event