按鍵精靈群發腳本

Ⅰ 用按鍵精靈寫一個定時自動發消息的腳本，怎麼寫發什麼消息都可以

首先要把你的腳本生成按鍵小精靈，生成的時候勾選啟動小精靈自動開始執行腳本。
然後去
控制面板
裡面找計劃任務，給你的小精靈添加到計劃任務里，就可以定時啟動了

Ⅱ 誰知道怎麼在按鍵精靈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