qq消息重復發送
操作方式
-
01
電腦桌面右鍵，選擇新建文本文檔。
-
02
點擊我的電腦，再點擊查看按鈕，將文件擴展名勾選上，可以看到之前新建的文本文檔的后綴顯示出來了。
-
03
填寫無數字的代碼。在.txt中填寫，代碼如下：（如圖）沒稀有字的，顯示發送了幾多次：
dim wshshell,a
set wshshell=createobject("wscript.shell")
a=inputbox ("輸入要發信息次數"&chr(13)&chr(13)&"*******★life建造★******"&chr(13)&chr(13)&"請確定適才光標是在QQ窗體內!","提醒")
WshShell.AppActivate "" '當前激活的聊天窗口名,例如"QQ群 - 群",在打開的對話框上有顯示'
wscript.sleep 1000
for i=1 to 100 '輪回的次數100'
wscript.sleep 500 '暫停500毫秒'
wshshell.sendkeys "^v" '粘貼
wshshell.sendkeys "%s" '%s=enter和sendkeysSendKeys +發送內容'
next
wscript.quit
-
04
填寫稀有字的代碼。在.txt中填寫，代碼如下：稀有字的，顯示發送了幾多次：
dim wshshell,a
set wshshell=createobject("wscript.shell")
a=inputbox ("輸入要發信息次數"&chr(13)&chr(13)&"*******★life建造★******"&chr(13)&chr(13)&"請確定適才光標是在QQ窗體內!","提醒")
WshShell.AppActivate "" '當前激活的聊天窗口名,例如"QQ群 - 群",在打開的對話框上有顯示'
wscript.sleep 1000
for i=1 to 100 '輪回的次數100'
wscript.sleep 500 '暫停500毫秒'
wshshell.sendkeys "^v" '粘貼'
wshshell.sendkeys i '數字'
wshshell.sendkeys "%s" '%s=enter和sendkeysSendKeys +發送內容'
next
wscript.quit
-
05
右鍵選中文檔，點擊重定名，將文本文檔的后綴改為.vbs，確定。這樣程序就設置好了。
-
06
雙擊程序，在對話框中輸入您想輸入的內容，如：芳華飛揚。然后選中輸入的內容，ctrl+x（剪切）或者ctrl+c（復制）確定，再把鼠標的光標放在qq輸入框里，就行了。
-
07
若是有防火墻組織，點擊許可即可。
-
08
圖片也可以這樣操作發送。
- End
- 發表于 2020-02-26 18:00
- 閱讀 ( 1226 )
- 分類：電腦網絡
0 篇文章
作家榜 ?
-
xiaonan123
189 文章
-
湯依妹兒
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
華志健
23 文章