日本免费高清视频-国产福利视频导航-黄色在线播放国产-天天操天天操天天操天天操|www.shdianci.com

學無先后，達者為師

網站首頁 編程語言 正文

教你用vbs實現微信自動發送消息功能_vbs

作者：清風木子云 ? 更新時間： 2022-06-19 編程語言

前言

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

1、微信自動回復消息

微信，作為日前最熱最火的社交軟件，應該是家喻戶曉的了，年輕人，老人甚至小孩都在用手機玩微信，對于上班族來說用的最多的可能是微信電腦版，我們每天都在手工輸入發送或者回復各類微信消息，難免會遇到一些情況我們需要電腦自動幫我們向指定人發送消息，而利用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鍵進行發送

2、vbs腳本運行方式

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

雙擊就可以運行vbs腳本啦。

總結

原文鏈接：https://blog.csdn.net/qq_41311259/article/details/118482555

欄目分類
最近更新