按键精灵脚本源码 梦幻自动登陆修改

运行环境：分辨率：1366×768 色深：32位 操作系统：Windows 7 Ultimate 按键精灵版本：9.50.11632

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  
//        Delay 200  
//        KeyUp 18, 1  
//        Delay 200  
//        KeyDown 18, 1  
//        Delay 200  
//        KeyPress 65, 1  
//        Delay 200  
//        KeyUp 18, 1  
//        Delay 200  
//    End If  
//End Sub  
//Sub 战斗判断()  
//    IfColor Ux+636,Uy+122,"605000",0 Then  
//        Goto 开始挂机  
//    End If  
//End Sub  
//Goto 开始挂机  
//  
Sub 找色(a,b,色,点击x,点击y)  
    色1=GetPixelColor(Ux+a,Uy+b)  
    TracePrint 色1  
    If 色1 = 色 Then   
        Call 点击(点击x, 点击y)  
        i=i+1  
    Else   
        Delay 500  
    End If  
End Sub  
Sub 点击(cx,cy)  
    MoveTo Ux + cx, Uy + cy  
    Delay 200  
    LeftClick 1  
End Sub  
Event Form1.InputBox1.Change  
    帐号1=Form1.InputBox1.Text  
End Event  
Event Form1.InputBox2.Change  
    密码1=Form1.InputBox2.Text  
End Event  
Event Form1.InputBox3.Change  
    帐号2=Form1.InputBox3.Text  
End Event  
Event Form1.InputBox4.Change  
    密码2=Form1.InputBox4.Text  
End Event  
Event Form1.InputBox5.Change  
    帐号3=Form1.InputBox5.Text  
End Event  
Event Form1.InputBox6.Change  
    密码3=Form1.InputBox6.Text  
End Event  
Event Form1.InputBox7.Change  
    帐号4=Form1.InputBox7.Text  
End Event  
Event Form1.InputBox8.Change  
    密码4=Form1.InputBox8.Text  
End Event  
Event Form1.Button1.Click  
    Delay 1000  
    Call 自动登陆(帐号1,密码1)  
End Event  
Event Form1.Button2.Click  
    Delay 1000  
    Call 自动登陆(帐号2,密码2)  
End Event  
Event Form1.Button3.Click  
    Delay 1000  
    Call 自动登陆(帐号3,密码3)  
End Event  
Event Form1.Button4.Click  
    Delay 1000  
    Call 自动登陆(帐号4,密码4)  
End Event