教你如何用vbs實現微信自動傳送訊息功能

導讀	無意中接觸了vbs這個 感覺挺好玩的,這篇文章主要給大家介紹了關於如何用vbs實現微信自動傳送訊息功能的相關資料,文中透過例項程式碼介紹的非常詳細,需要的朋友可以參考下

最近對電腦或手機自動進行某些操作很感興趣，於是去看了一下有關手機電腦微信自動回覆訊息相關的東西，發現很多惡搞程式碼不僅可以透過實現病毒的方式，同時用vb就可以實現一個常見的惡搞 。

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

vbs，全稱Microsoft Visual Basic Script Edition，是微軟開發的一個基於Visual Basic的指令碼語言，可以在windows上直接開啟。

在vbs中我們可以透過sendkeys輕鬆的模擬傳送各類按鍵和文字，但是直接傳送中文字元會亂碼，所以我們需要先將待傳送的中文字元放入剪下板然後再從剪下板取出內容傳送，在cmd中我們可以透過管道連線echo和clip.exe來將內容放入剪下板，

echo 測試 | clip.exe
在cmd命令列視窗中輸入以上命令，你會發現“測試”這兩個字元被放入了剪下板，在vbs中我們只需要呼叫這個命令就可以實現將內容放到剪下板的操作
ws.Run "cmd.exe /c echo 測試 | clip.exe", 0, True
現在我們清楚如果傳送訊息，也知道如何傳送中文了，但是要向微信傳送訊息我們還需要知道怎麼在任意介面下喚醒微信，一般的應用我們可以透過appActivate來啟用視窗，當然我們也可以透過快捷鍵來喚醒某個軟體或執行特定的操作，比如在微信中我們可以透過Ctrl+Alt+W來喚醒微信，用Ctrl+F來喚醒查詢好友功能。

透過快捷鍵喚醒微信方式傳送訊息最終的程式碼：

Dim name,Msg,num    '定義變數並分配記憶體     
 'Inputbox()函式進行輸入   
name=Inputbox("請輸入你要給誰傳送訊息")
Msg=Inputbox("請輸入你傳送訊息的內容")
num=Inputbox("請輸入重複傳送多少次訊息")
set ws=wscript.createobject("wscript.shell")'建立Windows的shell物件開啟shell視窗
'在Windows的shell視窗執行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"    '執行ctrl + F快捷鍵在微信視窗喚醒搜尋功能
wscript.sleep 500
ws.sendKeys "^v" '貼上要搜尋的name
wscript.sleep 500
ws.sendKeys "{ENTER}"   '按鍵盤的enter鍵，進入要傳送訊息的name聯絡人視窗
wscript.sleep 500
'在Windows的shell視窗執行cmd.exe /c echo " & Name & " | clip.exe"將傳送的訊息內容複製到剪下板中
ws.Run "cmd.exe /c echo " & Msg & " | clip.exe",0,True 
wscript.sleep 500
for i=1 to num  '迴圈傳送num次
ws.sendKeys "^v"   '貼上要傳送的msg訊息內容
wscript.sleep 500
ws.sendKeys "{ENTER}"  '按enter鍵進行傳送
next

透過執行WeChat.exe喚醒微信方式傳送訊息最終的程式碼：

dim program1,name,Msg  '定義變數並分配記憶體
'Inputbox()函式進行輸入
name=Inputbox("請輸入你要給誰傳送訊息")    
Msg=Inputbox("請輸入你傳送訊息的內容")
num=Inputbox("請輸入重複傳送多少次訊息")
'program1表示WeChat.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")  '建立Windows的shell物件開啟shell視窗
'在Windows的shell視窗執行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" '執行ctrl + F快捷鍵在微信視窗喚醒搜尋功能
wscript.sleep 500  
wshshell.sendKeys "^v"  '貼上要搜尋的name
wscript.sleep 500
wshshell.sendKeys "{ENTER}"  '按鍵盤的enter鍵，進入要傳送訊息的name聯絡人視窗
wscript.sleep 500
'在Windows的shell視窗執行cmd.exe /c echo " & Name & " | clip.exe"將傳送的訊息內容複製到剪下板中
wshshell.Run "cmd.exe /c echo " & Msg & " | clip.exe",0,True
wscript.sleep 500
for i=1 to num   '迴圈傳送num次
wshshell.sendKeys "^v"  '貼上要傳送的msg訊息內容
wscript.sleep 500
wshshell.sendKeys "{ENTER}"    '按enter鍵進行傳送
next
wscript.quit

當然除了可以給微信傳送訊息，也可以qq傳送訊息,基本思想就是透過按鍵盤的各種快捷鍵實現複製貼上以及搜尋聯絡人的功能，透過按enter鍵進行傳送

如果你的電腦上沒有安裝任何編輯器沒有關係，用電腦自帶的記事本就可以編寫指令碼，右鍵->新建->文字文件，在新建的文字文件裡編寫vbs指令碼，寫完以後重新命名，將字尾改為.vbs,出現以下提示，選擇是。

雙擊就可以執行vbs指令碼啦。

原文來自：