UserVar Hao=0 "输入账号"
UserVar Ma=0 "输入密码"
UserVar Lj="E:\ProgramFiles\Tencent" "QQ所在路径"
RunApp Lj &"\QQ\Bin\QQ.exe"
Delay 1777
    Hwnd = Plugin.Window.Find(0, "QQ2011")
Call Plugin.Window.Move(Hwnd, 0, 0)
Call Plugin.Window.Active(Hwnd)
Delay 500
MoveTo 179, 146
Delay 222
LeftClick 1
Delay 222
SayString Hao
Delay 400
    KeyPressS "Tab", 1
Delay 444
a=1
For len(Ma)
    key=Asc(UCase(Mid(ma,a,1)))
    KeyPressS key,1
    Delay 10
    a=a+1
EndFor 
Delay 444
KeyPress "Enter", 1
Delay 500
Call Plugin.Msg.Tips("自动登录完毕！")

Dim 色彩(10)
色彩(0) = "000000"
色彩(1) = "FF0000"
色彩(2) = "00BB00"
色彩(3) = "0000E3"
色彩(4) = "ADADAD"
色彩(5) = "FF5809"
色彩(6) = "FF0080"
色彩(7) = "4B0091"
色彩(8) = "53FF53"
色彩(9) = "808040"
色彩(10) = "5151A2"
i = 0
Rem 输出
If i = 10 Then 
i = 0        
End If
Call Plugin.Msg.ShowScrTXT(0, 0, 150, 16, "由a417484830制作~", 色彩(i))
i = i + 1
Delay 88
Goto 输出