计算机技术论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

  • 欢迎访问 计算机技术论坛-电脑迷与初学者的家园!由于论坛管理严格,新注册会员可能遇到各种问题,无法解决的请发邮件 admin@jsjbbs.cn
查看: 5690|回复: 7

自己动手编写VBScript脚本刷QQ群信息

[复制链接]
发表于 2008-12-21 17:07:43 | 显示全部楼层 |阅读模式
Set WshShell=WScript.CreateObject(\"WScript.Shell\")
WshShell.AppActivate \"群 -零 起 点\"
For i=1 To 10 ' 要发送的次数
WScript.Sleep 500
WshShell.SendKeys \"^v\"
WshShell.SendKeys i
WshShell.SendKeys \"%s\"
Next

上面这是我写的代码,我加标注解释给大家了。。
哪里不明白的发贴问我。。。
把它保存成后缀为vbs的文件,然后把你说的话复制到你要发消息的群,记住一定要复制,否则会出现网页的地址。
然后你双击那个文件就行。。就会自动发消息了。。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
发表于 2008-12-25 18:32:48 | 显示全部楼层
谢谢分享、。、、
 楼主| 发表于 2008-12-26 12:50:38 | 显示全部楼层
不客气。。。在家一起学习嘛。。。呵呵。。。
发表于 2010-1-6 17:59:27 | 显示全部楼层
刚来[img][quote][/quote][/img]
发表于 2010-8-12 10:08:31 | 显示全部楼层
Set WshShell=WScript.CreateObject(\"WScript.Shell\")
WshShell.AppActivate \"群 -零 起 点\"
For i=1 To 10 ' 要发送的次数
WScript.Sleep 500
WshShell.SendKeys \"^v\"
WshShell.SendKeys i
WshShell.SendKeys \"%s\"
Next
发表于 2010-8-15 14:28:06 | 显示全部楼层
谢谢分享~~~~~
发表于 2010-8-29 07:04:32 | 显示全部楼层
WScript.Sleep 500
WshShell.SendKeys \"^v\"
WshShell.SendKeys i
WshShell.SendKeys \"%s\"
后面什么意思,求解答
发表于 2010-9-10 20:24:05 | 显示全部楼层
怎么弄啊这个???
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

无图版|手机版|计算机技术论坛 JSJBBS.CN @ 2008-2024 ( 鲁ICP备17021708号 )

技术支持 : 北京康盛新创科技有限责任公司

快速回复 返回顶部 返回列表