在VB 中如何实现QQ对话

Private Sub Command1_Click()

Dim qq$

qq = InputBox("请输竖桐入你要聊培纤凳天的QQ号码!")

Shell "配旅C:\Program Files\Internet Explorer\IEXPLORE.EXE http://wpa.qq.com/msgrd?V=1&Uin=" &qq &"&Site=ioshenmue&Menu=yes", 0

End Sub

记住 在答埋坦浏览器上输入 tencent:/液运/Message/?Uin=12345&websiteName=q-zone.qq.com&Menu=yes

就能临时会话12345替换成想对话的QQ

干嘛要清桐写那么无聊的东西

---