网上摘录，便自己使用。以下是2008版的
******************************************** 

Dim WshShell, QQPath
QQPath="""输入QQ程序的完整路径"""
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 200
WshShell.AppActivate"QQ程序窗口名称"
wshshell.sendkeys"{TAB}"
WshShell.SendKeys"输入QQ号码"
WScript.Sleep 500
wshshell.sendkeys"{TAB}"
wshshell.sendkeys"输入QQ密码"
WScript.Sleep 500
WshShell.SendKeys"{ENTER}"

********************************************
  *号不是。老手应该知道。呵呵。。。对新手而言只要把上面的内容拷贝到记事本中，修改其中的各项。（路径QQ账号QQ密码QQ程序窗口名称，WScript.Sleep后面的数字是延时毫秒）然后保存为.vbs文件就可以了。。以后登录QQ只要双击这个文件就可以了。
再提供一个下载

新增2009版本登录脚本：
***********************************************
Dim WshShell, QQPath
QQPath="""输入QQ程序的完整路径"""
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 200
WshShell.AppActivate"QQ程序窗口名称"
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 200
wshshell.sendkeys"{TAB}"
WshShell.SendKeys"输入QQ号码"
WScript.Sleep 500
wshshell.sendkeys"{TAB}"
wshshell.sendkeys"输入QQ密码"
WScript.Sleep 500
WshShell.SendKeys"{ENTER}"
***********************************************

Rand Posts: