瑞星卡卡安全论坛

VBS在QQ中的妙用
用Win自带的记事本就可以简单的做出VBS脚本，“按键精灵”就是
利用VBS实现键盘模拟的。
看了几篇关于vbs的文章，觉得很有趣，所以我做了教程。很多论坛
上自动登陆QQ的文章其实有错，多了个VBS按键TAB，所以很多都用
不了，这里我修正一下
——————————一、自动登陆QQ————————————
1.打开记事本 把以下代码粘贴进去(这里我用我自己做的记事本)

WScript.Sleep 2000 '等待2000毫秒
QQPath="C:\Progra~1\Tencent\QQ\QQ.exe" 'QQ的地址
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath '运行QQ
WScript.Sleep 2000 '等待2000毫秒
WshShell.AppActivate "QQ登录"
WshShell.SendKeys "……" 'QQ号码
WScript.Sleep 200 '等待200毫秒
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "……" 'QQ密码
WScript.Sleep 200 '等待200毫秒
WshShell.SendKeys "{ENTER}" '按下回车

2.修改代码注释的“QQ地址”(此地址必须把“Program Files”修改
成“Progra~1”)“QQ号码”、“QQ密码”前面"……"里的即可，然后保
存为**.vbs的形式

注意：可能登陆时，光标在QQ密码上，这是因为你以前登陆时自动记
录了QQ号导致的，需要你在QQ号码的输入里按下鼠标，把光标移动到
QQ密码上
————————————二、刷屏—————————————
使用方法：讲以下代码保存为QQ.vbs,然后复制你要发送的东西，打
开就可以自动刷屏拉！

Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "QQ刷屏"
for i=1 to 10 '要发送的次数
WScript.Sleep 500
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
next

QQ:983743 欢迎到我的QQ空间玩~