QQ消息的重复发送VBS

最新推荐文章于 2024-07-28 22:52:08 发布
最新推荐文章于 2024-07-28 22:52:08 发布
阅读量4.3w 收藏 18
点赞数 13
文章标签： qq 聊天
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文件.复制需要重复发送的文字,然后打开一个QQ对话框,就可实现重复发送

i的值表示 : 重复发送的次数,例如10次

WshShell.AppActivate "" 当前激活的聊天窗口名,例如"QQ群 - 群",在打开的对话框上有显示

Sleep是延迟时间

SendKeys i 是是否要在发送的内容后加编号,不需要可删除

neok
关注
vbs无限循环代码_vbs整人代码
weixin_39850599的博客
12-12 6111
恶作剧(病毒)的vbs代码，这里提供的都是一些死循环或导致系统死机的vbs对机器没坏处，最多关机重启一下就可以了打开记事本，把代码复制粘贴进去，再另存为.vbs格式即可操作方法：把代码另存为.vbs运行即可vbs恶作剧(病毒)程序代码 代码如下:复制代码 代码如下:domsgbox "想说的话"loop你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发...
VBS实例参考：QQ消息连发工具
07-06
本程序可以实现在QQ上给好友连发消息，作为VBS代码编写的参考，本程序可以设置发送次数和发送间隔时间，易操作。 使用方法：将要发送的内容放入剪贴板（把内容写在记事本中复制一次），选择发送消息的方式，如CTRL+Enter发送或直接按Enter发送，打开相应的文件；在程序中输入发送次数和发送间隔时间。 注意：如果360等杀毒程序出现误报现象，认为是病毒程序，请允许程序运行或添加信任。
vb.net QQ消息获取
m0_45333735的博客
07-24 801
Imports System Imports System.Text Imports System.Windows.Automation Imports System.Runtime.InteropServices Imports System.Collections.Generic Imports System.Windows.Forms Module Module1 Private Decla...
vbs整人代码合集,详细分解为三大类投喂
最新发布
yaosichengalpha的博客
07-28 506
vbs整人代码合集,详细分解为三大类投喂
整蛊：聊天中，连续发送消息的vbs脚本
u013232219的博客
07-17 9217
如何实现连续发送消息呢？ 准备工作： 只要我们将下面这段代码复制放在记事本里，然后保存退出将记事本文件后缀名改为.vbs就可以了 On Error Resume Next Dim wsh,s,xTimes,tle set wsh=createobject("wscript.shell") xTimes = inputbox("请输入重发消息的次数") 'clipboardData.SetData s for i=1 to Cint(xtimes) wscript.sleep 30
使用vbs脚本实现多条消息在活动对话框快速发送以及ANSI编码
qq_22514513的博客
11-18 1133
使用vbs脚本实现多条消息在活动对话框快速发送 应用：比如在QQ或者微信聊天窗口中连续快速发送消息 这次系统学习vbs是在某一次视频中看到了一个vbs的小应用，然后就来了兴趣去学了一下VBS，之前虽然也看到过但是没有学，这次花了点时间学习了一下。学过代码的可能学的快一点，没学过的也不要紧很简单的 1. VBScript 是微软公司出品的脚本语言。 2. VBScript 是ASP (Active Server Pages)默认使用的脚本语言。 3. VBScript 是一个动态脚本语言。 4.
vbs自动随机发送QQ、微信消息（傻瓜式）
weixin_45743412的博客
10-20 1195
vbs自动随机发送QQ、微信消息（傻瓜式）谁适合阅读本文？傻瓜式教程一、创建文件二、复制代码到文件中三、更改文件后缀名四、运行程序 谁适合阅读本文？ 一、希望同恋人、基友、闺蜜QQ续火花、提升关系等级的人 二、想整蛊好友，来一波消息轰炸的人（友情提醒：拉黑警告！！） 三、vbs初学者 傻瓜式教程 一、创建文件 在桌面新建一个文本文档 二、复制代码到文件中 直接上代码！全部copy就完事儿了 On Error Resume Next Dim wsh,s,xTimes,tle,sentenceA
vbs qq自动登录脚本改进版
09-04
这篇关于“vbs qq自动登录脚本改进版”的文章，主要介绍如何使用Visual Basic Scripting Edition（VBS），这是一种简单的脚本语言，通过与Windows注册表交互和模拟键盘输入，实现自动登录QQ的功能。 ### 知识点： ...
Windows脚本文件VBS
06-29
Windows脚本，内容包括自动向特定QQ对象发送信息，启动后直接关机代码，自动报数代码（关不掉的），启动后直接关闭所有窗口代码（不断刷新Alt +F4 ）
vbs整人代码大集合2
12-17
通过VBS，用户可以执行一系列高级操作，例如显示消息框、运行程序、修改注册表等。 #### 示例分析： ```vbscript set ws = createobject("wscript.shell") ws.popup "Windows系统需要更新", 30, "WindowsXp", 64 ``...
自动发送qq消息的脚本
01-16
批量自动发送qq消息，群发，操作简单便捷； 启动qq聊天界面，设置好发送消息循环次数，双击vbs脚本，看结果吧 有可能被T哦
QQ强行聊天源代码，可以强行给某人发消息
04-27
QQ强行聊天源代码。代码非常简单，但是因为程序比较猥琐，多加一点分。
自动给QQ好友发消息
07-22
可以自动给QQ好友发送100条消息（这个数字可以自己更改）
qq自动发送代码块配套博客教程
11-02
上传没有看到设置0分数下载的选项，就默认选1分了。 qq自动发送代码块配套博客教程： https://blog.csdn.net/qq_20143169/article/details/80848015-搭建 https://blog.csdn.net/qq_20143169/article/details/80888739-使用
QQ微信实现连续发送消息【代码实现】
qq_56402474的博客
05-27 6927
QQ微信实现连续发送消息，通过代码实现
微信、QQ自动连续多条发送消息（python）
dgsuwgshsh的博客
04-23 3102
最近闲的无聊，看了一下pyautogui这个库，这个库的作用简单来说就是利用程序模拟键盘和鼠标进行输入，就相当于有了个模拟的自动键鼠。现在message是一个空列表，需要往里面加元素（也就是要发送的消息），因为是最基础的操作，所以这里只模拟了键盘输入，所以需要用到win11设置中的。注意，如果要使用用户自定义短语，一定要使用微软输入法且调成中文，如果其他输入法有类似功能也行，这段代码的核心就是基于自定义短语这个功能设计的。里面预先设置好自定义的消息，然后在代码里面添加消息，就可以实现一键发送消息啦！
【恶搞Python】Python实现QQ连续发送信息的代码，咋就说可还刑
Gtieguo的博客
03-23 2774
前言 如果你有一个喜欢秀恩爱的朋友，那这个代码可以然你的朋友闭嘴啦！ 相关文件 想学Python的小伙伴可以关注小编的公众号【Python日志】 有很多的资源可以白嫖的哈，不定时会更新一下Python的小知识的哈！！ Python源码、问题解答学习交流群：773162165 源码 from pynput.keyboard import Key, Controller as key from pynput.mouse import Button, Controller as mouse_el import t
vbs获取群聊当前内容_小程序获取群聊中各个成员的信息
weixin_30609645的博客
12-23 312
# 关于小程序微信群排名 #官方提供：转发到群成功后及用户点击转发的卡片进入后可获取群标志shareTicket ->通过wx.getShareInfo({shareTicket})可获取到encryptedData和iv，经解密后可获得群id(openGId) ->通过开放组件open-data可获取群名；排名：- 过程可参照《王者荣耀群排行》和《即刻运动排行》；- 1⃣️转发到群后...
vbs代码连续发送qq消息
09-07
VBScript 中发送 QQ 消息可使用 Sherry QQ 组件实现。 首先，将 Sherry QQ 组件注册到 Windows 系统中，然后创建一个 .vbs 文件，使用以下代码实现连续发送 QQ 消息： ```vbscript ' 创建 Sherry QQ 对象 Set QQ = CreateObject("Sherry.QQ") ' 打开 QQ QQ.OpenQQ ' 登录 QQ QQ.Login "YourQQNumber", "YourPassword" ' 连续发送 QQ 消息 For i = 1 To 5 ' 修改 5 为你想要发送的消息次数 QQ.SendQQMessage "YourFriendQQNumber", "Hello, World!" ' 修改 YourFriendQQNumber 为你的好友 QQ 号码 WScript.Sleep 2000 ' 休眠 2 秒，避免消息发送过快 Next ' 关闭 QQ QQ.CloseQQ ``` 在代码中，你需要替换 `YourQQNumber` 为你的 QQ 号码，`YourPassword` 为你的 QQ 密码，`YourFriendQQNumber` 为你要发送消息的好友 QQ 号码。还需根据需求调整循环次数，这里默认为发送 5 条消息。 运行该 .vbs 文件，即可实现连续发送 QQ 消息。请确保已正确安装 Sherry QQ 组件，并已注册到系统中。
评论 14
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值