教你用vbs實現(xiàn)微信自動發(fā)送消息功能
最近對電腦或手機自動進(jìn)行某些操作很感興趣，于是去看了一下有關(guān)手機電腦微信自動回復(fù)消息相關(guān)的東西，發(fā)現(xiàn)很多惡搞代碼不僅可以通過實現(xiàn)病毒的方式，同時用vb就可以實現(xiàn)一個常見的惡搞腳本。
1、微信自動回復(fù)消息
微信，作為日前最熱最火的社交軟件，應(yīng)該是家喻戶曉的了，年輕人，老人甚至小孩都在用手機玩微信，對于上班族來說用的最多的可能是微信電腦版，我們每天都在手工輸入發(fā)送或者回復(fù)各類微信消息，難免會遇到一些情況我們需要電腦自動幫我們向指定人發(fā)送消息，而利用windows中的vbs的腳本我們就可以實現(xiàn)，我們首先了解一下vbs。
vbs，全稱Microsoft Visual Basic Script Edition，是微軟開發(fā)的一個基于Visual Basic的腳本語言，可以在windows上直接打開。
在vbs中我們可以通過sendkeys輕松的模擬發(fā)送各類按鍵和文字，但是直接發(fā)送中文字符會亂碼，所以我們需要先將待發(fā)送的中文字符放入剪切板然后再從剪切板取出內(nèi)容發(fā)送，在cmd中我們可以通過管道連接echo和clip.exe來將內(nèi)容放入剪切板，
echo 測試 | clip.exe 在cmd命令行窗口中輸入以上命令，你會發(fā)現(xiàn)“測試”這兩個字符被放入了剪切板，在vbs中我們只需要調(diào)用這個命令就可以實現(xiàn)將內(nèi)容放到剪切板的操作 ws.Run "cmd.exe /c echo 測試 | clip.exe", 0, True 現(xiàn)在我們清楚如果發(fā)送消息，也知道如何發(fā)送中文了，但是要向微信發(fā)送消息我們還需要知道怎么在任意界面下喚醒微信，一般的應(yīng)用我們可以通過appActivate來激活窗口，當(dāng)然我們也可以通過快捷鍵來喚醒某個軟件或執(zhí)行特定的操作，比如在微信中我們可以通過Ctrl+Alt+W來喚醒微信，用Ctrl+F來喚醒查找好友功能。
通過快捷鍵喚醒微信方式發(fā)送消息最終的代碼：
Dim name,Msg,num '定義變量并分配內(nèi)存
'Inputbox()函數(shù)進(jìn)行輸入
name=Inputbox("請輸入你要給誰發(fā)送消息")
Msg=Inputbox("請輸入你發(fā)送消息的內(nèi)容")
num=Inputbox("請輸入重復(fù)發(fā)送多少次消息")
set ws=wscript.createobject("wscript.shell")'創(chuàng)建Windows的shell對象打開shell窗口
'在Windows的shell窗口執(zhí)行cmd.exe /c echo " & Name & " | clip.exe"將name復(fù)制到剪切板中
ws.Run "cmd.exe /c echo " & Name & " | clip.exe",0,True
ws.Run "mshta javascript:window.execScript('window.close','vbs')",0,True
ws.sendKeys "^%w" '通過Ctrl+Alt+W快捷鍵打開微信
wscript.sleep 500
ws.sendKeys "^f" '執(zhí)行ctrl + F快捷鍵在微信窗口喚醒搜索功能
wscript.sleep 500
ws.sendKeys "^v" '粘貼要搜索的name
wscript.sleep 500
ws.sendKeys "{ENTER}"'按鍵盤的enter鍵，進(jìn)入要發(fā)送消息的name聯(lián)系人窗口
wscript.sleep 500
'在Windows的shell窗口執(zhí)行cmd.exe /c echo " & Name & " | clip.exe"將發(fā)送的消息內(nèi)容復(fù)制到剪切板中
ws.Run "cmd.exe /c echo " & Msg & " | clip.exe",0,True
wscript.sleep 500
for i=1 to num '循環(huán)發(fā)送num次
ws.sendKeys "^v"'粘貼要發(fā)送的msg消息內(nèi)容
wscript.sleep 500
ws.sendKeys "{ENTER}" '按enter鍵進(jìn)行發(fā)送
next
通過執(zhí)行WeChat.exe喚醒微信方式發(fā)送消息最終的代碼：
dim program1,name,Msg '定義變量并分配內(nèi)存
'Inputbox()函數(shù)進(jìn)行輸入
name=Inputbox("請輸入你要給誰發(fā)送消息")
Msg=Inputbox("請輸入你發(fā)送消息的內(nèi)容")
num=Inputbox("請輸入重復(fù)發(fā)送多少次消息")
'program1表示W(wǎng)eChat.exe的位置
'program1="D:\other-systems\WeChat\WeChat.exe"
'program1="D:\other-systems\QQ\Bin\QQ.exe"
program1=Inputbox("請輸入WeChat.exe或QQ.exe的存儲位置")
set wshshell=CreateObject("wscript.shell") '創(chuàng)建Windows的shell對象打開shell窗口
'在Windows的shell窗口執(zhí)行cmd.exe /c echo " & Name & " | clip.exe"將name復(fù)制到剪切板中
wshshell.Run "cmd.exe /c echo " & Name & " | clip.exe",0,True
wshshell.Run "mshta javascript:window.execScript('window.close','vbs')",0,True
'通過絕對路徑的方式打開微信窗口
set oexec=wshshell.exec(program1)
wscript.sleep 500 '停留500毫秒
wshshell.sendKeys "^f" '執(zhí)行ctrl + F快捷鍵在微信窗口喚醒搜索功能
wscript.sleep 500
wshshell.sendKeys "^v" '粘貼要搜索的name
wscript.sleep 500
wshshell.sendKeys "{ENTER}" '按鍵盤的enter鍵，進(jìn)入要發(fā)送消息的name聯(lián)系人窗口
wscript.sleep 500
'在Windows的shell窗口執(zhí)行cmd.exe /c echo " & Name & " | clip.exe"將發(fā)送的消息內(nèi)容復(fù)制到剪切板中
wshshell.Run "cmd.exe /c echo " & Msg & " | clip.exe",0,True
wscript.sleep 500
for i=1 to num'循環(huán)發(fā)送num次
wshshell.sendKeys "^v" '粘貼要發(fā)送的msg消息內(nèi)容
wscript.sleep 500
wshshell.sendKeys "{ENTER}" '按enter鍵進(jìn)行發(fā)送
next
wscript.quit
當(dāng)然除了可以給微信發(fā)送消息，也可以qq發(fā)送消息,基本思想就是通過按鍵盤的各種快捷鍵實現(xiàn)復(fù)制粘貼以及搜索聯(lián)系人的功能，通過按enter鍵進(jìn)行發(fā)送
2、vbs腳本運行方式
如果你的電腦上沒有安裝任何編輯器沒有關(guān)系，用電腦自帶的記事本就可以編寫腳本，右鍵->新建->文本文檔，在新建的文本文檔里編寫vbs腳本，寫完以后重命名，將后綴改為.vbs,出現(xiàn)以下提示，選擇是。
雙擊就可以運行vbs腳本啦。
總結(jié)
到此這篇關(guān)于教你用vbs實現(xiàn)微信自動發(fā)送消息功能的文章就介紹到這了,更多相關(guān)vbs微信自動發(fā)送消息內(nèi)容請搜索本站以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持本站！
版權(quán)聲明：本站文章來源標(biāo)注為YINGSOO的內(nèi)容版權(quán)均為本站所有，歡迎引用、轉(zhuǎn)載，請保持原文完整并注明來源及原文鏈接。禁止復(fù)制或仿造本網(wǎng)站，禁止在非maisonbaluchon.cn所屬的服務(wù)器上建立鏡像，否則將依法追究法律責(zé)任。本站部分內(nèi)容來源于網(wǎng)友推薦、互聯(lián)網(wǎng)收集整理而來，僅供學(xué)習(xí)參考，不代表本站立場，如有內(nèi)容涉嫌侵權(quán)，請聯(lián)系alex-e#qq.com處理。
關(guān)注官方微信