自动登录QQ

dim program1
program1="C:\Program Files\Tencent\QQ\QQ.exe"
set wshshell=CreateObject("wscript.shell")
set oexec=wshshell.exec(program1)
wscript.sleep 3000
wshshell.appactivate "腾讯QQ"
wshshell.sendkeys "{TAB}"
wshshell.sendkeys "QQ号"
wscript.sleep 2000
wshshell.sendkeys "{TAB}"
wshshell.sendkeys "QQ密码"
wscript.sleep 2000
wshshell.sendkeys "{ENTER}"
Wscript.quit

自动发信息

Set WshShell= WScript.Createobject("WScript.Shell")
for i=1 to 100     
WScript.Sleep 1000
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
next