按键精灵群发脚本

Ⅰ 用按键精灵写一个定时自动发消息的脚本，怎么写发什么消息都可以

首先要把你的脚本生成按键小精灵，生成的时候勾选启动小精灵自动开始执行脚本。
然后去
控制面板
里面找计划任务，给你的小精灵添加到计划任务里，就可以定时启动了

Ⅱ 谁知道怎么在按键精灵2014中，把自己编辑好的脚本转发给好友

你这样哈：
1、制作成免费小精灵，在把小精灵发给你朋友。步骤：点击发布、点击自做小精灵、点击立即制作。这时需要账号密码。你可以申请个，不要钱
2、这个你在桌面上敬培右键单击按键精灵2014图标选择打开文件罩稿旅位置。然后在弹出的文件夹物凳中找到一个为QMScript的文件夹。你就能找到你编辑的脚本了，然后复制。用QQ或邮件发给你朋友叫他把这个文件也放在按键精灵、QMScript文件夹中即可

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

//自定义变量设置
UserVar Hua1="发送的第一句话"
UserVar Hua2="发送的第二句话"
UserVar Hua3="发送的第三句话"
UserVar Hua4="发送的第四句话"
UserVar Hua5="发送的第五句话"
UserVar Yanshi=1000 "发送两句话之间的时间间隔，默认1000就是1秒"
//用一个变量来设置需要发送的话的内容
Dim Hua
//发送第一句
Hua = Hua1
Call FaSongXiaoXi()
Delay Yanshi
//发送第二句，以下雷同
Hua = Hua2
Call FaSongXiaoXi()
Delay Yanshi
Hua = Hua3
Call FaSongXiaoXi()
Delay Yanshi
Hua = Hua4
Call FaSongXiaoXi()
Delay Yanshi
Hua = Hua5
Call FaSongXiaoXi()
Delay Yanshi
EndScript
//发送消息的子程序
Sub FaSongXiaoXi()
//填上要发的话
SayString Hua
Delay 100
//按下Alt+S的QQ发消息热键，发送成功
KeyDown 18, 1
KeyPress 83, 1
KeyUp 18, 1
End Sub
-------------------------------------------以上是例子-------------------------------------------------
下面是我以前写过的QQ群群发，基于TM写的，TM版本忘记了，你可以参考下：

Call Register
iFirst = true
hwnds = dm.EnumWindow(0,"","TXGuiFoundation",2+4+8+16) //获取Q群句柄
Call checkQQ //检测Q群是否已经打开并且是否只打开一个Q群
//dm_ret = dm.SetWindowState(hwnds, 12) //激活窗口
dm_ret = dm.BindWindow(hwnds,"gdi","windows","windows",0) //绑定窗口
Call Plugin.Window.Size(hwnds, 600, 520) //设置窗口分辨率
Delay 500
dm.MoveTo 275, 60
Delay 800
dm.LeftClick
Delay 800
dm.MoveTo 258, 495
Delay 800
dm.LeftClick
Delay 800
cHwnd = Plugin.Window.Foreground()
Call Plugin.Bkgnd.LeftClick(cHwnd, 22, 205)
Delay 1500
AtlHwnd = Plugin.Window.FindEx(cHwnd, 0, "ATL:30A4FE48", "")
Call Plugin.Bkgnd.LeftClick(AtlHwnd, 60, 30)
Delay 800
sGetColor = Plugin.Bkgnd.GetPixelColor(AtlHwnd, 2, 20)
TracePrint "获取到的颜色为：" & sGetcolor
Dim isender , iunsender , iNum , iAdmin
isender = 0 : iunsender = 0 : iNum = 0 : iAdmin = 0

Do
sFindcolor = Plugin.Bkgnd.FindColorEx(AtlHwnd, 0, 0, 410, 303, sGetColor, 0, 1.0)
//下面这句用于分割字符串
dim MyArray
MyArray = Split(sFindcolor, "|")
//下面这句将字符串转换成数值
intX = Clng(MyArray(0)): intY = Clng(MyArray(1))
TracePrint "获取到颜色X坐标="& intX & "，Y坐标=" & intY
Getqzc = Plugin.Bkgnd.GetPixelColor(AtlHwnd, 12, intY + 6)
TracePrint "该群员管理员和群主位置的颜色参数为：" & Getqzc
sFindColor = Plugin.Bkgnd.GetPixelColor(AtlHwnd, 395, 285)
TracePrint sFindColor
Delay 200

If sFindColor = "FDF8F1" Then
Call Plugin.Bkgnd.LeftDoubleClick(AtlHwnd, intX + 12, intY + 6)
Delay 500
Call sender
Exit Do
ElseIf Getqzc = "ACD3FF" then
iAdmin = iAdmin + 1
// Call Plugin.Bkgnd.KeyPress(AtlHwnd, 40)
TracePrint "发现管理员"
Else
Call Plugin.Bkgnd.LeftDoubleClick(AtlHwnd, intX + 12, intY + 6)
Delay 500
Call sender
End If
Call Plugin.Bkgnd.LeftClick(AtlHwnd, intX + 12, intY + 6)
Delay 200
Call Plugin.Bkgnd.KeyPress(AtlHwnd, 40)
iNum = iNum + 1
Loop

//--------------------------------子程序-------------------------------------
Sub Register //插件注册
PutAttachment ".\plugin","*.dll"
PutAttachment ".\plugin\dm","*.bmp"
//PutAttachment ".\plugin\dm","*.txt"
PutAttachment ".\plugin\dm","dm.dll"
//↑PutAttachment释放附件
Call Plugin.RegDll.Reg(".\plugin\dm\dm.dll")
set dm = createobject("dm.dmsoft")
//↑大漠·注册
dm.SetPath ".\plugin\dm"
//dm.SetDict 0,"zk.txt"
Delay 40
End Sub
Sub OnScriptExit()
dm_ret = dm.UnBindWindow()
MsgBox "发送完成，共执行："&iNum&"条,忽略管理员:"&iAdmin&",实际发送:"&isender&",忽略已发送："&iunsender
End Sub

Sub checkQQ //检测是否只打开一个Q群

hwnd = split(hwnds,",")
If UBound(hwnd) > 0 Then
MsgBox "桌面只能保留一个推广的Q群，其他的请先关闭！"
EndScript
ElseIf hwnds = "" Then
MsgBox "请先打开一个需要群发的群再运行脚本！"
EndScript
End If

End Sub

Sub sender
Delay 1000
Rem one
hwnd = Plugin.Window.Foreground()
hwnd = Cstr(hwnd)
AtlHwnd = Cstr(AtlHwnd)
If hwnd = AtlHwnd Then
TracePrint "错误002"
TracePrint hwnd & ":" & hwnds & "........."
Delay 2000
Goto one
Else
If iFirst = true Then
Call Plugin.Window.Size(hwnd, 540,492) //设置窗口分辨率
iFirst = false
End If
Delay 100
KeyDown 17, 1 // ctrl + v 粘贴
KeyPress 86, 1
KeyUp 17, 1
Delay 800
KeyDown 18, 1 // art + s 发送
KeyPress 83, 1
KeyUp 18, 1

Delay 500
Call Plugin.Bkgnd.LeftClick(hwnd, 250,468)
Delay 500
isender = isender + 1
End If

End Sub

Ⅳ 按键小精灵 怎么让QQ自动发送消息

楼上全是二货…楼主要实现群发的话就是多开，多开必然需要后台，这两类如果你都懂，那就好办了。首先，你获取每个所需发送消息的聊天框的句柄，然后对该句柄进行操作：SayString "消息内容"
Delay 200
KeyPress "Enter",1(以上代码为前台代码，你如果懂后台，应该没问题。)

Ⅳ 按键精灵怎么设置脚本

1、基础软件免费下载与环境搭建

网页搜索：按键精灵，找到官方网站，点一下进去，我们只要下载2个手机软件，第一个是按键精灵os版，第二个是按键精灵同步助手。

接着要下载一个手机模拟器，推荐用雷击，还有夜神和消遥，这2个也不错，用哪个都可以，看情况采用，例如有的手机软件用雷击无法打开，那么就可以试一下夜神或消遥。

直接网页搜索：雷电模拟器，去官方网站下载一个就行了。

手机模拟器就相当于一台安卓系统手机，在电脑上模拟手机的环境，因为引流方法的话一般是用手机模拟器来做，手机上因为屏幕分辨率不统一，写脚本制作的话会比较麻烦。

比如说一个荣耀手机和一个锤子手机或是红米手机，它们的屏幕分辨率都是不同的。

2、引流方法脚本制作写作全过程中常用的指令

打开按键精灵同步助手和雷电模拟器，将同步助手和手机模拟器链接上，随后在按键精灵同步助手点一下【新建脚本制作】，注意在写作操作界面要选择“源文件”，那样比较便于写作。

例如我们想在手机模拟器中打开“网络百家app软件”，那这个指令在按键精灵中应要怎么写呢？

其实按键精灵，它的本质就是说模拟我们手动去操作，例如我们想在手机模拟器中打开“网络百家app软件”，我们是不是要鼠标放在网络百家app软件的图标上单击一下？所以我们要用到一个【抓抓】工具，点一下抓抓工具，再点一下【截屏】工具，截屏就是说截现阶段手机模拟器的操作界面。

操作步骤非常简单：鼠标对准网络百家app软件右击一下，拷贝现阶段坐标。

返回写作操作界面，给大家介绍第一个指令：Tap，是点一下，读取这个指令之后空格粘帖刚才拷贝的坐标，即Tap 218,440。

写完之后，点一下【调试】作用，你会神奇的发现，网络百家app软件在手机模拟器中被自动化技术点开了。

3、引流脚本的版权信息

我们在写完一个脚本之后，肯定很开心，都想加上自己的版权，声明这个脚本是某某某写的，比如我写了一个脚本，我肯定会在这个脚本上注明版权是剑眉大侠。那怎么去声明呢？

我们先把之前写的全部注释掉，我们用到第七个命令：ShowMessage，然后空格再带两个英文状态下的引号，引号中间写版权信息，即ShowMessage "版权信息"。

记住，一定要加延迟

4、接码平台的注册及使用

为什么要用接码平台呢？两个原因：
其一是有时候不方便用自己的手机号去操作，就可以用接码平台的手机去注册，成本是一毛钱一个；

其二是我们做脚本引流不可避免遇到被封号的情况，因为每个平台不一样，我们频繁打广告，会容易被限制，甚至是封号。

所以就需要注册新的账号，但是我们本身没有那么多手机号，所以就需要用到接码平台，1毛钱搞定一个手机号，很方便。

5、实战聊聊吧app软件脚本引流

写脚本制作的前提，是研究平台的标准，然后用抓抓工具不断的抓地图坐标，配合系统命令即可。

所以我们先讨论一下聊聊吧这app软件的标准是怎么样的，需用如何去吸粉。

进入app软件点一下正中间那个按纽，默认是【广场】，这里还可以给别人发私信，我们就从这标准下手吧。

我们先手工制作一遍，看看整个工作流程是怎么样的，再用脚本制作去代替手工制作。

前提是写Tap点一下系统命令，也就是点一下首先用户，用抓抓工具先抓首先用户的地图坐标，然后点进她的主页后，有个私信功能性，再次抓地图坐标，再点一下私信，然后有个聊天文本框，再次抓地图坐标，然后输入文本，有个发送按纽，再次抓地图坐标，然后点击发送，然后点击两次回到，再下拉然后点击下一个用户，反复这工作流程即可。

Ⅵ 如何让按键精灵在后台qq上重复发同样的信息到群里，求脚本，求解答，谢谢

hwnd=Plugin.Window.MousePoint()//鼠标放在聊天窗口中启动脚本
Delay1000
Do
Plugin.Bkgnd.LeftClickhwnd,118,492//聊天栏的后台坐标，自行获取
Delay100
Plugin.Bkgnd.SendStringhwnd,"加油加油"////聊天内容自行修改
Delay1000
Plugin.Bkgnd.KeyPresshwnd,13////后台按回车键
Delay1000
loop