vbaexcel中如何編程向微信自動發(fā)送信息

理論上可以使用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ā)。

vbscript定時發(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}"

僅針對微信群名未更換的情況，如果微信群名稱更換了，也要及時變更哦，喜歡的點個贊哈～

微信.net開發(fā)怎么群發(fā)消息求源代碼

{

"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ā)詳細接口說明：

微信小程序 消息推送 vb。net怎么配置token

你這個口令令牌錯誤啊，需要在你的公眾號的后臺去獲取你的口令令牌地址填寫上去才行。另外你的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)