vbs怎么实现QQ自动发信息给指定的人

[jukefeiyun]

vbs可以实现QQ自动登录，也可以在人为的打开某一个窗口下，不停的发信息给某个人，但怎么实现自动登录后，有选择发给指定用户一些信息呢？，谢谢大家：
'登录QQ
dim program1
program1="C:\Program Files\Tencent\QQ\QQ.exe"
set wshshell=CreateObject("wscript.shell")
set oexec=wshshell.exec(program1)
wscript.sleep 2000
wshshell.appactivate "腾讯QQ"
wshshell.sendkeys "+{TAB}"
wshshell.sendkeys "347671271"
wscript.sleep 2000
wshshell.sendkeys "{TAB}"
wshshell.sendkeys "*******"
wscript.sleep 2000
wshshell.sendkeys "{ENTER}"
Wscript.quit

'自动发信息
'一个QQ自动发信息脚本
Set WshShell= WScript.Createobject("WScript.Shell")
for i=1 to 100
WScript.Sleep 1000
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
next

但登录一后怎么选择用户，并打开许要的窗口阿，谢谢？