qq消息重複發送

操作方法

電腦桌面右鍵,選擇新建文本文檔。

qq消息重複發送
qq消息重複發送 第2張

點擊我的電腦,再點擊查看按鈕,將文件擴展名勾選上,可以看到之前新建的文本文檔的後綴顯示出來了。

qq消息重複發送 第3張
qq消息重複發送 第4張

填寫無數字的代碼。在中填寫,代碼如下:(如圖)沒有數字的,顯示發送了多少次:
dim wshshell,a
set wshshell=createobject("l")
a=inputbox ("輸入要發信息次數"&chr(13)&chr(13)&"*******★life製作★******"&chr(13)&chr(13)&"請確定剛纔光標是在QQ窗體內!","提示")
WshShell.AppActivate "" '當前激活的聊天窗口名,例如"QQ羣 - 羣",在打開的對話框上有顯示'
p 1000
for i=1 to 100 '循環的次數100'
p 500 '暫停500毫秒'
keys "^v" '粘貼
keys "%s" '%s=enter和sendkeysSendKeys +發送內容'
next

qq消息重複發送 第5張

填寫有數字的代碼。在中填寫,代碼如下:有數字的,顯示發送了多少次:

dim wshshell,a
set wshshell=createobject("l")
a=inputbox ("輸入要發信息次數"&chr(13)&chr(13)&"*******★life製作★******"&chr(13)&chr(13)&"請確定剛纔光標是在QQ窗體內!","提示")
WshShell.AppActivate "" '當前激活的聊天窗口名,例如"QQ羣 - 羣",在打開的對話框上有顯示'
p 1000
for i=1 to 100 '循環的次數100'
p 500 '暫停500毫秒'
keys "^v" '粘貼'
keys i '數字'
keys "%s" '%s=enter和sendkeysSendKeys +發送內容'
next

qq消息重複發送 第6張

右鍵選中文檔,點擊重命名,將文本文檔的後綴改爲,確定。這樣程序就設置好了。

qq消息重複發送 第7張
qq消息重複發送 第8張

雙擊程序,在對話框中輸入你想輸入的內容,如:青春飛揚。然後選中輸入的內容,ctrl+x(剪切)或者ctrl+c(複製)確定,再把鼠標的光標放在qq輸入框裏,就行了。

qq消息重複發送 第9張
qq消息重複發送 第10張
qq消息重複發送 第11張

如果有防火牆組織,點擊允許即可。

圖片也可以這樣操作發送。

qq消息重複發送 第12張