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

2019-07-07 10:19:00
zstmtony
原创
402

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