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

运行环境：分辨率：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