//======================================================================欢迎使用独处软件
If Form1.HP＜多少用回城.Value = 1 Then
    While true
        QA=Form1.InputBox7.Text
        QQ=Form1.InputBox8.Text
        FindPic 0,0,2000,2000,"Attachment:\aa.bmp",1,aaaX,aaaY
        If aaaX > 0 And aaaY > 0 Then
        Else
            FindPic 0,0,2000,2000,"Attachment:\回了.bmp",1,intX,intY
            If intX > 0 And intY > 0 Then
                IfColor intX+QA-589,intY+7,"9AFF",1 Then
                    KeyPress QQ, 1
                    Delay 500
                    MessageBox "[独处软件]提醒你---你以回城,软件关闭"
                    EndScript
                End If
            End If
        End If
    Wend
End If
//======================================================================欢迎使用独处软件
If Form1.前台幻师学校.Value = 1 Then
    Hwnd = Plugin.Window.GetKeyFocusWnd()
    QW=Form1.InputBox9.Text
QE=Form1.InputBox10.Text
    While true
        sRect = Plugin.Window.GetClientRect(Hwnd)
        MyArray=Split(sRect,"丨")
        Call Plugin.Bkgnd.MoveTo(Hwnd, 72+Ux,63+Uy)
        Call Plugin.Bkgnd.LeftClick(Hwnd, 72+Ux, 63+Uy)
        Delay 100
            KeyPress QW, 1
        Delay 100
        Call Plugin.Bkgnd.MoveTo(Hwnd, 399+Ux,297+Uy)
        Call Plugin.Bkgnd.RightClick(Hwnd, 399+Ux,297+Uy)
        Delay 1100
        Call Plugin.Bkgnd.MoveTo(Hwnd, 72+Ux,63+Uy)
        Call Plugin.Bkgnd.LeftClick(Hwnd, 72+Ux, 63+Uy)
        Delay 100
            KeyPress QE, 1
        Delay 1100
        Call Plugin.Bkgnd.MoveTo(Hwnd, 72+Ux,63+Uy)
        Call Plugin.Bkgnd.LeftClick(Hwnd, 72+Ux, 63+Uy)
        Delay 100
            KeyPress QE, 1
        Delay 100
        FindPic 0,0,2000,2000,"Attachment:\qw1.bmp",1,intX,intY
        If intX > 0 And intY > 0 Then
            Call Plugin.Media.Beep(800, 200)
            Call Plugin.Media.Beep(500, 200)
            Delay 1000
            Call Plugin.Media.Beep(800, 200)
            Call Plugin.Media.Beep(500, 200)
            Delay 1000
            Call Plugin.Media.Beep(800, 200)
            Call Plugin.Media.Beep(500, 200)
            Delay 1000
            Call Plugin.Media.Beep(800, 200)
            Call Plugin.Media.Beep(500, 200)
            Delay 1000
            Call Plugin.Media.Beep(800, 200)
            Call Plugin.Media.Beep(500, 200)
            Delay 1000
            Call Plugin.Media.Beep(800, 200)
            Call Plugin.Media.Beep(500, 200)
        Else
            Delay 7000
        End If
    Wend
Else
End If
//======================================================================欢迎使用独处软件
If Form1.后台喊话.Value = 1 Then
    Hwnd = Plugin.Window.GetKeyFocusWnd()
    While true
        Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
        Call Plugin.Bkgnd.SendString(Hwnd, Form1.InputBox1.Text)
        Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
        Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
        Delay Form1.InputBox6.Text*1000
        //
        Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
        Call Plugin.Bkgnd.SendString(Hwnd, Form1.InputBox2.Text)
        Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
        Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
        Delay Form1.InputBox6.Text*1000
        //
        Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
        Call Plugin.Bkgnd.SendString(Hwnd, Form1.InputBox3.Text)
        Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
        Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
        Delay Form1.InputBox6.Text*1000
        //
        Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
        Call Plugin.Bkgnd.SendString(Hwnd, Form1.InputBox4.Text)
        Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
        Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
        Delay Form1.InputBox6.Text*1000
        //
        Call Plugin.Bkgnd.KeyPress(Hwnd, 13)