快捷導(dǎo)航

教你用vbs實(shí)現(xiàn)微信自動(dòng)發(fā)送消息功能

更新時(shí)間：2022年04月21日 15:41:53 作者：清風(fēng)木子云

無(wú)意中接觸了vbs這個(gè)腳本感覺(jué)挺好玩的,這篇文章主要給大家介紹了關(guān)于如何用vbs實(shí)現(xiàn)微信自動(dòng)發(fā)送消息功能的相關(guān)資料,文中通過(guò)實(shí)例代碼介紹的非常詳細(xì),需要的朋友可以參考下

前言

最近對(duì)電腦或手機(jī)自動(dòng)進(jìn)行某些操作很感興趣，于是去看了一下有關(guān)手機(jī)電腦微信自動(dòng)回復(fù)消息相關(guān)的東西，發(fā)現(xiàn)很多惡搞代碼不僅可以通過(guò)實(shí)現(xiàn)病毒的方式，同時(shí)用vb就可以實(shí)現(xiàn)一個(gè)常見(jiàn)的惡搞腳本。

1、微信自動(dòng)回復(fù)消息

微信，作為日前最熱最火的社交軟件，應(yīng)該是家喻戶(hù)曉的了，年輕人，老人甚至小孩都在用手機(jī)玩微信，對(duì)于上班族來(lái)說(shuō)用的最多的可能是微信電腦版，我們每天都在手工輸入發(fā)送或者回復(fù)各類(lèi)微信消息，難免會(huì)遇到一些情況我們需要電腦自動(dòng)幫我們向指定人發(fā)送消息，而利用windows中的vbs的腳本我們就可以實(shí)現(xiàn)，我們首先了解一下vbs。

vbs，全稱(chēng)Microsoft Visual Basic Script Edition，是微軟開(kāi)發(fā)的一個(gè)基于Visual Basic的腳本語(yǔ)言，可以在windows上直接打開(kāi)。

在vbs中我們可以通過(guò)sendkeys輕松的模擬發(fā)送各類(lèi)按鍵和文字，但是直接發(fā)送中文字符會(huì)亂碼，所以我們需要先將待發(fā)送的中文字符放入剪切板然后再?gòu)募羟邪迦〕鰞?nèi)容發(fā)送，在cmd中我們可以通過(guò)管道連接echo和clip.exe來(lái)將內(nèi)容放入剪切板，

echo 測(cè)試 | clip.exe
在cmd命令行窗口中輸入以上命令，你會(huì)發(fā)現(xiàn)“測(cè)試”這兩個(gè)字符被放入了剪切板，在vbs中我們只需要調(diào)用這個(gè)命令就可以實(shí)現(xiàn)將內(nèi)容放到剪切板的操作
ws.Run "cmd.exe /c echo 測(cè)試 | clip.exe", 0, True
現(xiàn)在我們清楚如果發(fā)送消息，也知道如何發(fā)送中文了，但是要向微信發(fā)送消息我們還需要知道怎么在任意界面下喚醒微信，一般的應(yīng)用我們可以通過(guò)appActivate來(lái)激活窗口，當(dāng)然我們也可以通過(guò)快捷鍵來(lái)喚醒某個(gè)軟件或執(zhí)行特定的操作，比如在微信中我們可以通過(guò)Ctrl+Alt+W來(lái)喚醒微信，用Ctrl+F來(lái)喚醒查找好友功能。

通過(guò)快捷鍵喚醒微信方式發(fā)送消息最終的代碼：

Dim name,Msg,num    '定義變量并分配內(nèi)存     
 'Inputbox()函數(shù)進(jìn)行輸入   
name=Inputbox("請(qǐng)輸入你要給誰(shuí)發(fā)送消息")
Msg=Inputbox("請(qǐng)輸入你發(fā)送消息的內(nèi)容")
num=Inputbox("請(qǐng)輸入重復(fù)發(fā)送多少次消息")
set ws=wscript.createobject("wscript.shell")'創(chuàng)建Windows的shell對(duì)象打開(kāi)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"  '通過(guò)Ctrl+Alt+W快捷鍵打開(kāi)微信
wscript.sleep 500
ws.sendKeys "^f"    '執(zhí)行ctrl + F快捷鍵在微信窗口喚醒搜索功能
wscript.sleep 500
ws.sendKeys "^v" '粘貼要搜索的name
wscript.sleep 500
ws.sendKeys "{ENTER}"   '按鍵盤(pán)的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

通過(guò)執(zhí)行WeChat.exe喚醒微信方式發(fā)送消息最終的代碼：

dim program1,name,Msg  '定義變量并分配內(nèi)存
'Inputbox()函數(shù)進(jìn)行輸入
name=Inputbox("請(qǐng)輸入你要給誰(shuí)發(fā)送消息")    
Msg=Inputbox("請(qǐng)輸入你發(fā)送消息的內(nèi)容")
num=Inputbox("請(qǐng)輸入重復(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("請(qǐng)輸入WeChat.exe或QQ.exe的存儲(chǔ)位置")
set wshshell=CreateObject("wscript.shell")  '創(chuàng)建Windows的shell對(duì)象打開(kāi)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
'通過(guò)絕對(duì)路徑的方式打開(kāi)微信窗口
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}"  '按鍵盤(pán)的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ā)送消息,基本思想就是通過(guò)按鍵盤(pán)的各種快捷鍵實(shí)現(xiàn)復(fù)制粘貼以及搜索聯(lián)系人的功能，通過(guò)按enter鍵進(jìn)行發(fā)送

2、vbs腳本運(yùn)行方式

如果你的電腦上沒(méi)有安裝任何編輯器沒(méi)有關(guān)系，用電腦自帶的記事本就可以編寫(xiě)腳本，右鍵->新建->文本文檔，在新建的文本文檔里編寫(xiě)vbs腳本，寫(xiě)完以后重命名，將后綴改為.vbs,出現(xiàn)以下提示，選擇是。

雙擊就可以運(yùn)行vbs腳本啦。

總結(jié)

到此這篇關(guān)于教你用vbs實(shí)現(xiàn)微信自動(dòng)發(fā)送消息功能的文章就介紹到這了,更多相關(guān)vbs微信自動(dòng)發(fā)送消息內(nèi)容請(qǐng)搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！

您可能感興趣的文章: