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

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

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

前言

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

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

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

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

在vbs中我們可以通過sendkeys輕松的模擬發(fā)送各類按鍵和文字，但是直接發(fā)送中文字符會亂碼，所以我們需要先將待發(fā)送的中文字符放入剪切板然后再從剪切板取出內(nèi)容發(fā)送，在cmd中我們可以通過管道連接echo和clip.exe來將內(nèi)容放入剪切板，

echo 測試 | clip.exe
在cmd命令行窗口中輸入以上命令，你會發(fā)現(xiàn)“測試”這兩個(gè)字符被放入了剪切板，在vbs中我們只需要調(diào)用這個(gè)命令就可以實(shí)現(xiàn)將內(nèi)容放到剪切板的操作
ws.Run "cmd.exe /c echo 測試 | clip.exe", 0, True
現(xiàn)在我們清楚如果發(fā)送消息，也知道如何發(fā)送中文了，但是要向微信發(fā)送消息我們還需要知道怎么在任意界面下喚醒微信，一般的應(yīng)用我們可以通過appActivate來激活窗口，當(dāng)然我們也可以通過快捷鍵來喚醒某個(gè)軟件或執(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ā)送消息,基本思想就是通過按鍵盤的各種快捷鍵實(shí)現(xiàn)復(fù)制粘貼以及搜索聯(lián)系人的功能，通過按enter鍵進(jìn)行發(fā)送