理論上可以使用AppActivate切換到微信窗口,然后使用sendkeys輸入內(nèi)容、按回車發(fā)送。但是微信的窗口不好控制,我懶得鉆研,改用QQ發(fā)送,很容易就成功了。

創(chuàng)新互聯(lián)公司長期為成百上千家客戶提供的網(wǎng)站建設(shè)服務,團隊從業(yè)經(jīng)驗10年,關(guān)注不同地域、不同群體,并針對不同對象提供差異化的產(chǎn)品和服務;打造開放共贏平臺,與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為丁青企業(yè)提供專業(yè)的成都做網(wǎng)站、網(wǎng)站制作,丁青網(wǎng)站改版等技術(shù)服務。擁有十年豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。
本程序?qū)崿F(xiàn)定時向指定微信群發(fā)送指定消息的功能。
主要工具如下:
2020年受疫情影響,需要定時給小朋友所在學校的微信群發(fā)送體溫,于是想到了借助程序~~
pc保持開機狀態(tài),微信pc端在線
通過模擬鍵盤輸入,替代手工敲擊鍵盤,達到自動發(fā)送消息的效果。
Dim Name,Msg
Name = "微信群名"
Msg = "xxx小朋友,體溫36.5"
set ws=wscript.createobject("wscript.shell")
ws.Run "mshta vbscript:ClipboardData.SetData("chr(34)"text"chr(34)"," Chr(34) Name Chr(34) ")(close)",0,True
ws.sendKeys "^%w"
ws.appactivate "微信"
wscript.sleep 500
ws.sendKeys "^f"
wscript.sleep 500
ws.sendKeys "^v"
wscript.sleep 500
ws.sendKeys "{ENTER}"
wscript.sleep 2000
ws.Run "mshta vbscript:ClipboardData.SetData("chr(34)"text"chr(34)"," Chr(34) Msg Chr(34) ")(close)",0,True
wscript.sleep 200
ws.sendKeys "^v"
wscript.sleep 300
ws.sendKeys "{ENTER}"
僅針對微信群名未更換的情況,如果微信群名稱更換了,也要及時變更哦,喜歡的點個贊哈~
{
"articles": [
{
"thumb_media_id":"qI6_Ze_6PtV7svjolgs-rN6stStuHIjs9_DidOHaj0Q-mwvBelOXCFZiq2OsIU-p",
"author":"xxx",
"title":"Happy Day",
"content_source_url":"",
"content":"content",
"digest":"digest",
"show_cover_pic":"1"
},
{
"thumb_media_id":"qI6_Ze_6PtV7svjolgs-rN6stStuHIjs9_DidOHaj0Q-mwvBelOXCFZiq2OsIU-p",
"author":"xxx",
"title":"Happy Day",
"content_source_url":"",
"content":"content",
"digest":"digest",
"show_cover_pic":"0"
}
]
}
這是群發(fā)圖文的json
把這個json格式的字符串post到就行了。
群發(fā)詳細接口說明:
你這個口令令牌錯誤啊,需要在你的公眾號的后臺去獲取你的口令令牌地址填寫上去才行。另外你的url服務器地址也要填寫正確,不能有錯誤,這樣配置出來的信息才正確。
分享題目:vb.net微信發(fā)送 vbs發(fā)消息
URL地址:http://chinadenli.net/article46/doedehg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供手機網(wǎng)站建設(shè)、網(wǎng)站改版、小程序開發(fā)、Google、App設(shè)計、網(wǎng)站排名
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)