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

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

dim program1,name,Msg  '定義變數並分配記憶體
'Inputbox()函數進行輸入
name=Inputbox("請輸入你要給誰傳送訊息")    
Msg=Inputbox("請輸入你傳送訊息的內容")
num=Inputbox("請輸入重複傳送多少次訊息")
'program1表示WeChat.exe的位置
'program1="D:other-systemsWeChatWeChat.exe"
'program1="D:other-systemsQQBinQQ.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