Excel VBA及Access如何群發(fā)QQ聊天信息

Excel VBA及Access如何控制QQ群發(fā)聊天信息

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

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

2. 在桌面右鍵，找到剛加的桌面快捷方式，右鍵 屬性中 找到  快捷方式中 目標(biāo)里的內(nèi)容 替換以下代碼相關(guān)的內(nèi)容即可

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("輸入發(fā)送次數(shù)",,20)

strMsg=InputBox("輸入發(fā)送內(nèi)容",,"")

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}"