怎么用按键精灵群发QQ信息?

怎么用按键精灵群发QQ信息?,第1张

//自定义变量设置\x0d\x0aUserVar Hua1="发送的第一句话"\x0d\x0aUserVar Hua2="发送的第二句话"\x0d\x0aUserVar Hua3="发送的第三句话"\x0d\x0aUserVar Hua4="发送的第四句话"\x0d\x0aUserVar Hua5="发送的第五句话"\x0d\x0aUserVar Yanshi=1000 "发送两句话之间的时间间隔,默认1000就是1秒"\x0d\x0a//用一个变量来设置需要发送的话的内容\x0d\x0aDim Hua\x0d\x0a//发送第一句\x0d\x0aHua = Hua1\x0d\x0aCall FaSongXiaoXi()\x0d\x0aDelay Yanshi\x0d\x0a//发送第二句,以下雷同\x0d\x0aHua = Hua2\x0d\x0aCall FaSongXiaoXi()\x0d\x0aDelay Yanshi\x0d\x0aHua = Hua3\x0d\x0aCall FaSongXiaoXi()\x0d\x0aDelay Yanshi\x0d\x0aHua = Hua4\x0d\x0aCall FaSongXiaoXi()\x0d\x0aDelay Yanshi\x0d\x0aHua = Hua5\x0d\x0aCall FaSongXiaoXi()\x0d\x0aDelay Yanshi\x0d\x0aEndScript \x0d\x0a//发送消息的子程序\x0d\x0aSub FaSongXiaoXi()\x0d\x0a//填上要发的话\x0d\x0aSayString Hua\x0d\x0aDelay 100\x0d\x0a//按下Alt+S的QQ发消息热键,发送成功\x0d\x0aKeyDown 18, 1\x0d\x0aKeyPress 83, 1\x0d\x0aKeyUp 18, 1\x0d\x0aEnd Sub\x0d\x0a-------------------------------------------以上是例子-------------------------------------------------\x0d\x0a下面是我以前写过的QQ群群发,基于TM写的,TM版本忘记了,你可以参考下:\x0d\x0a\x0d\x0aCall Register\x0d\x0aiFirst = true\x0d\x0ahwnds = dm.EnumWindow(0,"","TXGuiFoundation",2+4+8+16) //获取Q群句柄\x0d\x0aCall checkQQ //检测Q群是否已经打开并且是否只打开一个Q群\x0d\x0a//dm_ret = dm.SetWindowState(hwnds, 12) //激活窗口\x0d\x0adm_ret = dm.BindWindow(hwnds,"gdi","windows","windows",0) //绑定窗口\x0d\x0aCall Plugin.Window.Size(hwnds, 600, 520) //设置窗口分辨率 \x0d\x0aDelay 500\x0d\x0adm.MoveTo 275, 60\x0d\x0aDelay 800\x0d\x0adm.LeftClick \x0d\x0aDelay 800\x0d\x0adm.MoveTo 258, 495\x0d\x0aDelay 800\x0d\x0adm.LeftClick \x0d\x0aDelay 800\x0d\x0acHwnd = Plugin.Window.Foreground()\x0d\x0aCall Plugin.Bkgnd.LeftClick(cHwnd, 22, 205)\x0d\x0aDelay 1500\x0d\x0aAtlHwnd = Plugin.Window.FindEx(cHwnd, 0, "ATL:30A4FE48", "")\x0d\x0aCall Plugin.Bkgnd.LeftClick(AtlHwnd, 60, 30)\x0d\x0aDelay 800\x0d\x0asGetColor = Plugin.Bkgnd.GetPixelColor(AtlHwnd, 2, 20)\x0d\x0aTracePrint "获取到的颜色为:" &sGetcolor\x0d\x0aDim isender , iunsender , iNum , iAdmin\x0d\x0aisender = 0 : iunsender = 0 : iNum = 0 : iAdmin = 0\x0d\x0a\x0d\x0aDo\x0d\x0asFindcolor = Plugin.Bkgnd.FindColorEx(AtlHwnd, 0, 0, 410, 303, sGetColor, 0, 1.0) \x0d\x0a//下面这句用于分割字符串 \x0d\x0adim MyArray \x0d\x0aMyArray = Split(sFindcolor, "|") \x0d\x0a//下面这句将字符串转换成数值 \x0d\x0aintX = Clng(MyArray(0)): intY = Clng(MyArray(1)) \x0d\x0aTracePrint "获取到颜色X坐标="&intX &",Y坐标=" &intY \x0d\x0aGetqzc = Plugin.Bkgnd.GetPixelColor(AtlHwnd, 12, intY + 6)\x0d\x0aTracePrint "该群员管理员和群主位置的颜色参数为:" &Getqzc\x0d\x0asFindColor = Plugin.Bkgnd.GetPixelColor(AtlHwnd, 395, 285)\x0d\x0aTracePrint sFindColor\x0d\x0aDelay 200\x0d\x0a\x0d\x0aIf sFindColor = "FDF8F1" Then \x0d\x0aCall Plugin.Bkgnd.LeftDoubleClick(AtlHwnd, intX + 12, intY + 6)\x0d\x0aDelay 500 \x0d\x0aCall sender\x0d\x0aExit Do\x0d\x0aElseIf Getqzc = "ACD3FF" then\x0d\x0aiAdmin = iAdmin + 1\x0d\x0a// Call Plugin.Bkgnd.KeyPress(AtlHwnd, 40)\x0d\x0aTracePrint "发现管理员"\x0d\x0aElse \x0d\x0aCall Plugin.Bkgnd.LeftDoubleClick(AtlHwnd, intX + 12, intY + 6)\x0d\x0aDelay 500 \x0d\x0aCall sender\x0d\x0aEnd If\x0d\x0aCall Plugin.Bkgnd.LeftClick(AtlHwnd, intX + 12, intY + 6)\x0d\x0aDelay 200\x0d\x0aCall Plugin.Bkgnd.KeyPress(AtlHwnd, 40)\x0d\x0aiNum = iNum + 1\x0d\x0aLoop\x0d\x0a\x0d\x0a//--------------------------------子程序-------------------------------------\x0d\x0aSub Register //插件注册\x0d\x0aPutAttachment ".\plugin","*.dll"\x0d\x0aPutAttachment ".\plugin\dm","*.bmp"\x0d\x0a//PutAttachment ".\plugin\dm","*.txt"\x0d\x0aPutAttachment ".\plugin\dm","dm.dll"\x0d\x0a//↑PutAttachment释放附件\x0d\x0aCall Plugin.RegDll.Reg(".\plugin\dm\dm.dll")\x0d\x0aset dm = createobject("dm.dmsoft")\x0d\x0a//↑大漠·注册\x0d\x0adm.SetPath ".\plugin\dm"\x0d\x0a//dm.SetDict 0,"zk.txt"\x0d\x0aDelay 40\x0d\x0aEnd Sub\x0d\x0aSub OnScriptExit()\x0d\x0adm_ret = dm.UnBindWindow()\x0d\x0aMsgBox "发送完成,共执行:"&iNum&"条,忽略管理员:"&iAdmin&",实际发送:"&isender&",忽略已发送:"&iunsender\x0d\x0aEnd Sub\x0d\x0a\x0d\x0aSub checkQQ //检测是否只打开一个Q群\x0d\x0a\x0d\x0ahwnd = split(hwnds,",")\x0d\x0aIf UBound(hwnd) >0 Then \x0d\x0aMsgBox "桌面只能保留一个推广的Q群,其他的请先关闭!"\x0d\x0aEndScript\x0d\x0aElseIf hwnds = "" Then\x0d\x0aMsgBox "请先打开一个需要群发的群再运行脚本!"\x0d\x0aEndScript\x0d\x0aEnd If\x0d\x0a\x0d\x0aEnd Sub\x0d\x0a\x0d\x0aSub sender\x0d\x0aDelay 1000\x0d\x0aRem one\x0d\x0ahwnd = Plugin.Window.Foreground()\x0d\x0ahwnd = Cstr(hwnd)\x0d\x0aAtlHwnd = Cstr(AtlHwnd)\x0d\x0aIf hwnd = AtlHwnd Then \x0d\x0aTracePrint "错误002"\x0d\x0aTracePrint hwnd &":" &hwnds &"........."\x0d\x0aDelay 2000\x0d\x0aGoto one\x0d\x0aElse \x0d\x0aIf iFirst = true Then\x0d\x0aCall Plugin.Window.Size(hwnd, 540,492) //设置窗口分辨率\x0d\x0aiFirst = false\x0d\x0aEnd If\x0d\x0aDelay 100\x0d\x0aKeyDown 17, 1 // ctrl + v 粘贴\x0d\x0aKeyPress 86, 1\x0d\x0aKeyUp 17, 1\x0d\x0aDelay 800\x0d\x0aKeyDown 18, 1 // art + s 发送\x0d\x0aKeyPress 83, 1\x0d\x0aKeyUp 18, 1\x0d\x0a\x0d\x0aDelay 500\x0d\x0aCall Plugin.Bkgnd.LeftClick(hwnd, 250,468)\x0d\x0aDelay 500\x0d\x0aisender = isender + 1\x0d\x0aEnd If\x0d\x0a\x0d\x0aEnd Sub

QQ怎么群发消息

QQ群发消息的方法总共有三个,它们分别是:在QQ群里直接发消息给群好友;点击QQ界面上的“创建”,选择“发起多人聊天”;QQ消息群发器; 1 QQ群方法:在QQ群里直接发消息给群好友。

2、讨论组方法: 点击QQ界面上的“创建”,选择“发起多人聊天”; 从左边选择要群发消息的好友后,点击“确定”即可创建讨论组群发消息。 3 QQ消息群发器:现在有QQ消息群发器,可以下载一个使用,但是大量发动相同消息给不同的QQ,但是缺点是可能会被腾讯封号。

所以最好还是不要用这种方法。个人觉得第三方软件是非常不好的。

另外:推荐一个QQ自带的群发功能。在设置在线离开的下拉菜单里找到我的QQ中心。

在新建提醒里,可以同时对5个QQ好友群发消息,而且可以根据你的备注智能生成称呼。唯一缺点就是只能5个5个发,但是优点是可以定时,不会被封号。

参考资料 一条信息如何能群发给QQ好友?.知乎[引用时间2018-4-29]。

qq怎么群发消息?

方法一:QQ群群发信息

1、向多人群发消息最好的功能莫过于QQ群了,可以向多人聊天,但有群主管理。QQ查找群里即可搜索到很多兴趣相投的人组成的QQ群。

2、击群即可打开群聊天对话框,输入你的信息,点击发送即可向多人聊天

3、可自主创建QQ群,把你想群发的人拉入群内,根据提示进行 *** 作。

方法二:QQ讨论组群发消息

1、Q讨论组是一个完全自由的一键生成的QQ群,在里面你可以畅聊,没有管理员,自由退出。双击讨论组即可打开聊天对话框,如同群聊天一样。

2、自主创建讨论组,与创建QQ群一样。

qq怎么群发信息

统共分三种方法——

第一个是建立讨论组

优势:讨论组是不限于你的好友名单还是群友的,只要出现在你Q上的QQ都可以加进去,而且是强制d窗的,也就是说对方如果上线就能收到(未上线保留多少天没有测试过)

劣势:一个讨论组只能加19个你的好友(共20人,包含你1个),如果你要通知的好友数量巨大,需要建立太多个讨论组。每天建立的讨论组有上限要求,9位Q约为50个,10位十来个就会要求打验证码。

第二个是消息群发器

请参考@解辞 的详细说明。

第三个是手动发布,加他们为好友,建立一个临时分组,然后挨个手动发消息。

优势:保证了聊天消息能收到,有些人是屏蔽群内私聊的;如果是长期联系,也可以邀请这个组群的所有人加入自己设定的群,进行统一的信息发送,此时推荐采用群邮件;

劣势:工作量比较大。

如何给QQ好友群发消息???

好像网上有一种专门的QQ群发软件的,QQ本身是不支持群发的 我给你推荐两款吧,一款收费的,一款免费的,都非常不错,但免费的相比之下功能肯定不如收费的了~ 1.燕子QQ群发器 2.1 不需要将用户添加到QQ好友列表,即可直接发送信息,真正做到想发就发; 循环使用多个QQ帐号进行工作,避免了腾讯QQ系统的限制; *** 作简单、支持数据的导入导出功能; 无人值守:只需要选择要发送的条件(不管在不在线均可),其它由软件完成。

发生故障,软件能够自动恢复正常工作; 稳定:软件可以在7*24小时长时间稳定工作,经严格测试,从未发生崩溃显现象; 不影响其它工作; 准确统计发送情况,可以将已发送的QQ帐号导出为邮件地址,在需要的时候用邮件群发器导入发送信息。要了解详细使用方法及注册信息,请阅读软件的“帮助”。

newhua/soft/42225 2.QQ群发器 - 免费单发版 v1.6 crsky/soft/5540。

Qq里面能群发消息吗?不建群 发给所有好友 可以吗 教教我吧

方法一 *** 作如下:

1、首先下载一个按键精灵,安装。打开qq,登录,进入主页面。

2、找到需要群发的组,点开。

3、找到这个组的最后一个好友,编辑你想要发送的消息。

4、编辑好之后复制,然后删除。再将复制好的消息粘贴上去,发送。这样就可以群发了。

方法二:

创建讨论组:

1.登录qq,然后切换到qq群。在右边可以看到创建,点向下倒三角形,创建讨论组。 2.在d出的创建讨论组对话框左侧好友列表里选择好友,也可以直接将某个组的全部好友添加进去。讨论组最多只能选择50人。

怎么把一条消息群发给QQ好友?

终极QQ消息群发大师是一款极好的QQ消息群发软件,它能迅速地将你的广告信息发送到所有在线的QQ用户。

所发送的内容完全由用户指定,您可以发送您的产品宣传、供求信息、甚至是您的网址(接收者可以直接点击进入)等。与同类软件相比,本软件使用简单,效率极高,是您的首选宣传工具。

您不妨下载试试,相信您一定会喜欢它的^_^ 功能特点: 1、不需要将用户添加到QQ好友列表,即可直接发送信息,真正做到想发就发。(现在许多此类软件都是先进行群加好友,然后发送信息,然后再删好友,这种 *** 作方式受到很大限制,一是QQ网站对添加好友数量有限制,二是如果对方不通过你,你只能发送验证信息。

而我们一改传统方式:不用加成好友,即可直接向对方发送信息) 2、速度快,发送速度可根据自己计算机与网络情况自行调整。 3、 *** 作简单、适合24小时全自动工作、无需任何人工干预,只要设定QQ号码段即可发送。

华军软件园认正 nn.onlinedown/soft/46079 进入下载。


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/tougao/11316383.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-15
下一篇 2023-05-15

发表评论

登录后才能评论

评论列表(0条)

保存