QQ临时会话代码

来源:www.accessoft.com 点击数:9706 　 | 收藏 | 复制

时　间:2018-07-28 09:20:52
作　者:麥田 ID：11 城市：上海 QQ：3002789054
摘　要:QQ临时会话代码
正　文:

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

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

如下图:

当然你也可以直接获取其中的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的临时会话开启，否则别人是联系不到你的。在资料设置，隐私设置里面，开启临时会话即可。

如下图: