DimEnv jj,bb,qq

Event Form1.Load

End Event

Event Form1.InputBox1.Change   
    jj=Form1.InputBox1.Text 
    bb=Form1.InputBox2.Text 
    qq = Form1.InputBox3.Text
End Event  



Hwnd = Plugin.Window.Find("GAMEAPP", 0)
Delay 1000
Call Plugin.Window.Active(Hwnd)
Delay 1000
Call Plugin.Window.Move(Hwnd, 0, 0)
For jj	
    Call Plugin.Bkgnd.SendString(Hwnd,qq)
    Delay bb
    Call Plugin.Bkgnd.KeyPress(Hwnd,13)
Next


Event Form1.Button1.Click

RunApp "tencent://Message/?Uin=173402731&websiteName=q-zone.qq.com&Menu=yes"

End Event