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

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

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

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

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

Dim name,Msg,num    '定義變量并分配內存     
 'Inputbox()函數(shù)進行輸入   
name=Inputbox("請輸入你要給誰發(fā)送消息")
Msg=Inputbox("請輸入你發(fā)送消息的內容")
num=Inputbox("請輸入重復發(fā)送多少次消息")
set ws=wscript.createobject("wscript.shell")'創(chuàng)建Windows的shell對象打開shell窗口
'在Windows的shell窗口執(zhí)行cmd.exe /c echo " & Name & " | clip.exe"將name復制到剪切板中
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鍵，進入要發(fā)送消息的name聯(lián)系人窗口
wscript.sleep 500
'在Windows的shell窗口執(zhí)行cmd.exe /c echo " & Name & " | clip.exe"將發(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消息內容
wscript.sleep 500
ws.sendKeys "{ENTER}"  '按enter鍵進行發(fā)送
next

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

dim program1,name,Msg  '定義變量并分配內存
'Inputbox()函數(shù)進行輸入
name=Inputbox("請輸入你要給誰發(fā)送消息")    
Msg=Inputbox("請輸入你發(fā)送消息的內容")
num=Inputbox("請輸入重復發(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復制到剪切板中
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鍵，進入要發(fā)送消息的name聯(lián)系人窗口
wscript.sleep 500
'在Windows的shell窗口執(zhí)行cmd.exe /c echo " & Name & " | clip.exe"將發(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消息內容
wscript.sleep 500
wshshell.sendKeys "{ENTER}"    '按enter鍵進行發(fā)送
next
wscript.quit

當然除了可以給微信發(fā)送消息，也可以qq發(fā)送消息,基本思想就是通過按鍵盤的各種快捷鍵實現(xiàn)復制粘貼以及搜索聯(lián)系人的功能，通過按enter鍵進行發(fā)送