Excel VBA及Access如何群發QQ聊天信息

2019-07-07 10:19:00
zstmtony
原創
485

Excel VBA及Access如何控制QQ群發聊天信息

方法比較簡單,首先取得你要發送消息的對方QQ的桌面快捷方式


1. 打開這個對方QQ的聊天窗口

    


2. 在桌面右鍵,找到剛加的桌面快捷方式,右鍵 屬性中 找到  快捷方式中 目標里的內容 替換以下代碼相關的內容即可

    


Dim WshShell,lngCnt,strMsg

Set WshShell=WScript.CreateObject("WScript.Shell")

WshShell.Run"C:\Program Files (x86)\Tencent\QQ\Bin\QQScLauncher.exe /uin:18449932 /quicklunch:01A1A9ADA4C6F751AACE28272CD7454BDD88F7D4F29BB64ED0248B441AE498B101D06621F0*****2"

WScript.Sleep 3000  '等待QQ聊天對話框加載完  

lngCnt=Inputbox("輸入發送次數",,20)

strMsg=InputBox("輸入發送內容",,"")

WshShell.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""& strMsg &""""+")(close)",0,true

For i=1 To lngCnt

	WshShell.SendKeys "^v"

	WshShell.SendKeys "{ENTER}"

	WScript.Sleep 200

Next

WScript.Sleep 3000

WshShell.SendKeys"%{F4}"
    分享
    黑龙江p62开奖公告l