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