刷屏vbs代码（谁能给我个刷屏脚本）
本文目录
谁能给我个刷屏脚本
楼主还在吗？我可以给电脑的qq刷屏脚本900下的，刷屏内容在剪切板(百度上的有给自己留后路，有后缀，加上速度慢)
创建vbs
代码复制黏贴
如下
set a=CreateObject("wscript.shell")（创建对象，如果不知道对象什么意思你就把他当成创建一个人）
for i=1 to 900 （循环次数，就是刷几次 i＝2的话是1800下，不过2000以上会被qq的安全管家判成使用第三方软件封号）
wscript.sleep 50（限速（单位毫秒），不要调快，否则会被封号，电脑卡死）
wscript.sendkeys"^v"（黏贴剪切板）
wscript.sendkeys"%s"（你调一下enter发送，本意按enter）
Next(循环结束)
故答案：
Set a= WScript.CreateObject("WScript.Shell")
for i=1 to 900
WScript.Sleep 50
a.Sendkeys"^v"
a.sendkeys"%s"
Next
游戏的话我还在背按键代码，希望对你有用，我也是刚学，可能有bug，有Bug艾特我一声，不过你2006年会回复也是个谜团了，求你采纳我吧！
请讲解下面这段VBS代码的含义
这是一个QQ刷屏用的. 首先复制一段文字后,运行此VBS,将把此段文字发送10次,并在尾部加上1到10的序号.如若有误的话,就是AppActivate ""这没指定窗口标题,比如AppActivate "与孤星_交谈中",不过当鼠标手动激活窗口的话,程序同样能用. ---------- Set WshShell= WScript.CreateObject("WScript.Shell") ’创建对象 WshShell.AppActivate "" ’激活窗口,但应指定标题才对. for i=1 to 10 ’1到10循环 WScript.Sleep 500 ’延时0.5秒 WshShell.SendKeys "^v" ’发送按键Ctrl+V,也就是粘贴 WshShell.SendKeys i ’分别发送按键1到10 WshShell.SendKeys "%s" ’发送按键Alt+s.也就是发送消息. Next ’循环结束,对应for命令的. ----------
qq群刷屏器VB小脚本
Set WshShell= WScript.CreateObject("WScript.Shell")WshShell.AppActivate"ghjj"for i=1 to 15WScript.Sleep 500WshShell.Sendkeys"^v"WshShell.Sendkeys iWshShell.Sendkeys "%s"Next使用方法：先复制好一段文字，然后打开本VBS脚本，然后点击聊天窗口的输入框，OK。for i=1 to 15，15是发送次数。WScript.Sleep 500，500是发送时间间隔单位是毫秒。WshShell.Sendkeys i 这一句可以去掉，去掉后发送时就不显示发送的次数。
更多文章：
thinkdesign（thinkdesign可以设计雕花吗）
2024年7月18日 18:08
运行chkdsk工具（怎么运行chkdskchkdsk工具在哪）
2024年2月1日 07:20
2024年6月30日 22:07
2024年9月9日 22:25
2024年7月21日 02:26
2024年7月28日 03:30
lol s8总决赛（对于这次英雄联盟的S8总决赛，你怎么看）
2024年5月17日 07:24
免费算个人感情婚姻（免费婚姻生辰八字配对，免费算个人感情婚姻）
2024年5月27日 21:18
2024年6月1日 05:50
2024年7月20日 08:30
2024年3月16日 01:45
热血传奇怀旧版下载（老版热血传奇客户端如何下载啊求下载地址）
2024年7月3日 21:08
2024年6月4日 18:34
wow猎人稀有宝宝（WOW索拉查盆地有什么猎人的稀有BB 吗 分别在什么地方分布出现）
2024年6月8日 19:22
2024年9月4日 04:35
2024年7月18日 16:01
2024年5月9日 14:34
2024年7月2日 23:30
迅雷下什么都任务出错（迅雷每次下载都出现任务出错，重新下载也没办法解决）
2024年6月13日 08:33
2024年7月14日 13:46
