用vbs实现qq自动登陆 - [转]

[ 2005-06-18 19:12:03 | 作者: Admin ] 字号: | |
Dim WshShell, QQPath, QQselect
QQPath="d:\progra~1\tencent\qq2005\CoralQQ.exe" 'QQ路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "Q登录"
WshShell.SendKeys "+{ TAB }"
WshShell.SendKeys "12345678" 'QQ号码
WScript.Sleep 200
WshShell.SendKeys "{ TAB }"
WshShell.SendKeys "1234" 'QQ密码
WScript.Sleep 200
WshShell.SendKeys "{ ENTER }"
Share
评论Feed 评论Feed: http://www.85815.com/feed.asp?q=comment&id=328
UTF-8 Encoding 引用链接: http://www.85815.com/trackback.asp?id=328&key=
浏览模式: 显示全部 | 评论: 3 | 引用: 0 | 排序 | 浏览: 8317
引用 yelianke*
[ 2005-08-31 11:03:40 ]
晕, QQ升级好难, 为什么要这样呢 , 我希望该回来,
那QQ升级,有好多用呢,
引用 yelianke*
[ 2005-08-31 11:04:33 ]
该了QQ升级就是 [no]
晕,我伤心的很,
引用 浪漫健健*
[ 2005-09-01 01:59:53 ]
引用至 yelianke
晕, QQ升级好难, 为什么要这样呢 , 我希望该回来,
那QQ升级,有好多用呢,
你希望有什么用,除非去CAO马化腾的妈妈才有用`
发表
表情图标
[smile] [confused] [cool] [cry]
[eek] [angry] [wink] [sweat]
[lol] [stun] [razz] [redface]
[rolleyes] [sad] [yes] [no]
[heart] [star] [music] [idea]
UBB代码
转换链接
表情图标
悄悄话
用户名:   密码:   注册?
验证码 * 请输入验证码