QQ临时会话代码

iamlaosong文

如果需要别人通过QQ和自己联系，留下QQ号码是一种方法，但更好的方法是在软件或者网页上留下QQ临时会话的链接，让别人点击一下就可以打开QQ会话窗口。

嵌入网页中的代码如下：

<a target="_blank" href="http://wpa.qq.com/msgrd?v=3&uin=1611969865&site=&menu=yes"> <img border="0" src="http://wpa.qq.com/pa?p=2:1611969865:51" alt="点击这里给我发消息" title="点击这里给我发消息"/> </a>

上面代码中uin内容就是你的QQ号，site的内容是无所谓的，写什么都行。img部分是显示图形样式，51是标准型，52简洁，53则是拓展型。

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

http://wpa.qq.com/msgrd?v=3&uin=1611969865&site=&menu=yes

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=1611969865&site=&menu=yes" '打开QQ 对话窗口 Web.Navigate WebAddress End Sub

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

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

参见：在网站添加客服QQ，打开临时回话框（不用加为好友）