// 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