vbs_刷屏 - 电脑/交流 - 广东财经大学华商学院广州华商职业学院华商开心网

查看: 2046\|回复: 4	go [经验交流] vbs_刷屏 [复制链接]

lala0815

超级版主

Rank: 16

UID: 1332
金币: 0
银币: 1031
铜币: 1009
在线时间: 61 小时
注册时间: 2010-6-30
最后登录: 2011-8-4

楼主

发表于 2010-10-3 16:38 |只看该作者 |倒序浏览 |打印

本帖最后由 lala0815 于 2010-10-4 00:45 编辑

‘使用方法：在文本文档下编写以下代码保存为*.vbs,然后复制你要发送的东西，输入光标定位，双击*.vbs即以自动刷屏！

Set WshShell= WScript.CreateObject("WScript.Shell")                '设置变量Wshshell为wscript.shell事件
WshShell.AppActivate "华商少林寺-软2分寺"                   '激活指定窗口；群名字——华商少林寺-软2分寺（可修改）
for i=1 to 5                                        '循环；要发送的次数——5次（可修改）
WScript.Sleep 500                         '暂停/延时500ms(可修改)
WshShell.SendKeys "^v"             '粘贴到当前光标所在处  即ctrl+v
WshShell.SendKeys i                      '显示循环次数（可去掉，则每句后面不会显示循环次数）
WshShell.SendKeys "%s"                   '发送  即alt+s （SendKeys是模拟键盘操作:Shift + ,Ctrl ^ ,Alt %。）
next

PS：
初涉编程，小弟愚笨，还请多指教。
老鸟请无视本帖，并愉快地飘过……

收藏0 分享0 支持0 反对0

回复引用

举报返回顶部

crachim