當前位置:首頁 » 網頁前端 » 腳本怎麼群發到評論區
擴展閱讀
webinf下怎麼引入js 2023-08-31 21:54:13
堡壘機怎麼打開web 2023-08-31 21:54:11

腳本怎麼群發到評論區

發布時間: 2022-07-25 07:46:13

㈠ 在一個QQ群里 怎麼能群發消息給群里的人 求大神指教 需要什麼軟體啊

拼多多,淘寶,網路上搜qq群發消息輔助,找的到的,不過腳本有風險,會封號,看幾率,自己衡量值不值

㈡ 按鍵精靈寫好的腳本怎麼發到叉叉里

3。可以用工具在內存抽取游戲數據,處理後再偽裝幾個數據包同時發回伺服器,對其埠攔截下來後,用反匯編工具搜索到自己想要處理的關鍵代碼。
21。再放到軟體上用。可以在客戶端發送數據時。可以從沒運行游戲客戶端

㈢ 無敵腳本圈寫的人人美客粉絲關注+私信引流腳本 效果怎麼樣能不能引流到微信上

不靠譜,關鍵是用著用著就自己關閉不運作了,還沒有售後,估計全是抄襲別人的腳本,它跟黑貓就是一家,大雜燴,專業騙人的

㈣ 求往QQ群裡面群發信息或者QQ好友群發信息的按鍵精靈腳本

你好啊,按鍵精靈腳本會破壞電腦系統的啊,建議不要使用啊。

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

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

㈥ 誰知道怎麼樣在QQ群里群發信息就是給每個人發消息,好像有個什麼群發軟體,我想問群發軟體只有電腦可

有的啊,這種你通過腳本動作軟體就能完成,現在做qq群發的都是用的無敵點擊狗。

無敵點擊狗是一款靈活實用的腳本工具,可以給qq群每個人發消息,也能設置發送內容、時間間隔這些。

㈦ 如何讓按鍵精靈在後台qq上重復發同樣的信息到群里,求腳本,求解答,謝謝

hwnd=Plugin.Window.MousePoint()//滑鼠放在聊天窗口中啟動腳本
Delay1000
Do
Plugin.Bkgnd.LeftClickhwnd,118,492//聊天欄的後台坐標,自行獲取
Delay100
Plugin.Bkgnd.SendStringhwnd,"加油加油"////聊天內容自行修改
Delay1000
Plugin.Bkgnd.KeyPresshwnd,13////後台按回車鍵
Delay1000
loop

㈧ 電腦版微信群發用按鍵精靈腳本編程怎麼寫

private static Handler getHandler() {
synchronized (AsyncTask.class) {
if (sHandler == null) {
sHandler = new InternalHandler();
}
return sHandler;
}
}

㈨ QQ消息群發腳本

信鴿軟體,我們有郵件群發專家,論壇群發專家,博客群發專家,問答口碑營銷,商務營銷專家,QQ群營銷專家,微博營銷專家,數據整合分析專家,分類信息營銷專家,QQ空間營銷專家,一共是10款軟體。

㈩ 怎麼用按鍵精靈群發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