手机qq聊天特殊代码（QQ临时会话代码）

当然你也可以直接获取其中的URL(引号中的部分)，然后用一个超链接使用，即：

http://wpa.qq.com/msgrd?v=3&uin=3002789054&site=Accessoft麥田&menu=yes

在Access的VBA代码中可以用图像按钮，其代码如下：

Private Sub CmdQQ_Click()

Dim webAddreess As String

Dim Web

Set Web = CreateObject("InternetExplorer.Application")

Web.Visible = True

WebAddress = "http://wpa.qq.com/msgrd?v=3&uin=3002789054&site=Accessoft麥田&menu=yes"

'打开QQ 对话窗口

Web.Navigate WebAddress

End Sub

要想收到会话，首先将自己QQ的临时会话开启，否则别人是联系不到你的。在资料设置，隐私设置里面，开启临时会话即可。

如下图:

最后，关键的一步必须要做，就是用这个QQ号登录"QQ推广"，即开通免费QQ商家服务，否则，仍然会提示你需要加好友才能通话。