Sub 自动登陆(帐号,密码)
    LockMouse
    If Form1.BrowseBox1.Path <> "" Then 
        Call Lib.API.运行程序(Form1.BrowseBox1.Path )
        //        RunApp Form1.BrowseBox1.Path   
    End If  
    Delay 5000
    While i = 0
        hwnd = 0
        Delay 1000
        Hwnd = Plugin.Window.Find("WSGAME", "梦幻西游ONLINE")
        If hwnd > 0 Then 
            i = 1
            TracePrint hwnd
            TracePrint i
            Delay 1000
            Call Plugin.Window.Move(Hwnd, 0, 0)
            Call Plugin.Window.Active(Hwnd)
            Delay 500
            sRect = Plugin.Window.GetClientRect(Hwnd)
            Dim MyArray
            MyArray=Split(sRect,"|")
            Ux=CLng(MyArray(0))
            Uy = CLng(MyArray(1))
        Else 
            i = 0
            Delay 1500
        End If
    Wend
    //    给程序启动五秒时间 
    //539 134 色000000 558 170
    While i = 1
        Call 找色(539, 134, "000000", 558, 170)
    wend
    Delay 500
    //64 88色 000000 574,409 000890
    While i=2
        Call 找色(64, 88, "000000", 574, 409)
        Delay 500
    wend
    //106,398 000000 575,411
    While i=3
        Call 找色(106, 398, "000000", 574, 411)
        Delay 500
    Wend
    //281,164 000000
    While i = 4
        Call 找色(281, 164, "000000", 0, 0)
        Delay 2000
        SayString 帐号
        Delay 500
        KeyPress "Enter", 1
        Delay 500
        SayString 密码
        Delay 500
        KeyPress 13, 1
        UnlockMouse 
        i=5
    wend
End Sub
While i = 5
    EndScript
Wend
//Hwnd = Plugin.Window.MousePoint()
//se1= Plugin.Bkgnd.GetPixelColor(Hwnd, 636, 122)
//TracePrint se1
//If se1 = 605000 Then 
//    Delay 200
//    KeyDown "Alt", 1
//    Delay 200
//    Call Plugin.Bkgnd.KeyPress(Hwnd, 81)
//    Delay 200
//    KeyDown "Alt", 1
//    Delay 200
//    KeyDown "Alt", 1
//    Delay 200
//    Call Plugin.Bkgnd.KeyPress(Hwnd, 65)
//    Delay 200
//    KeyDown "Alt", 1
//End If
//Hwnd = Plugin.Window.Find(0, "梦幻西游ONLINE - (河南2区[牡丹亭] - 九月い天堂[3594970])")
//Call Plugin.Window.Active(Hwnd)
//sRect = Plugin.Window.GetClientRect(Hwnd)
//Dim MyArray
//MyArray=Split(sRect,"|")
//Ux=CLng(MyArray(0))
//Uy=CLng(MyArray(1))
//Rem 开始挂机
//IfColor Ux+636,Uy+122,"605000",0 Then
//    Call 战斗()
//Else
//    Call 战斗判断()
//End If
//Sub 战斗()
//    FindPic Ux,Uy,Ux+630,Uy+450,"Attachment:\fashu.bmp",0.7,intX,intY
//    If intX > 0 And intY > 0 Then
//        Delay 200
//        KeyDown 18, 1
//        Delay 200
//        KeyPress 81, 1