qq訊息重複傳送

操作方法

電腦桌面右鍵，選擇新建文字文件。

點選我的電腦，再點選檢視按鈕，將副檔名勾選上，可以看到之前新建的文字文件的字尾顯示出來了。

填寫無數字的程式碼。在中填寫，程式碼如下：（如圖）沒有數字的，顯示傳送了多少次：
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

填寫有數字的程式碼。在中填寫，程式碼如下：有數字的，顯示傳送了多少次：

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

右鍵選中文件，點選重新命名，將文字文件的字尾改為，確定。這樣程式就設定好了。

雙擊程式，在對話方塊中輸入你想輸入的內容，如：青春飛揚。然後選中輸入的內容，ctrl+x（剪下）或者ctrl+c（複製）確定，再把滑鼠的游標放在qq輸入框裡，就行了。

如果有防火牆組織，點選允許即可。

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