- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教如何通过OPENQQ功能返回本机客户端IP (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77177)
-- 发布时间：2015/11/12 12:32:00
-- 请教如何通过OPENQQ功能返回本机客户端IP
请教如何通过OPENQQ功能返回本机客户端IP
客户端向服务端发送一个消息,收到回程消息时如何获取客户端的IP
-- 发布时间：2015/11/12 14:27:00
--
客户端登陆的时候，直接给服务器发送其ip地址。
ip地址如下获取
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=59092&skin=0
-- 发布时间：2015/11/12 14:42:00
--
QQServer有个Users集合，包括所有登录用户(QQUser)。
QQUser有两个没有公开，但是非常有用的属性
WanIPAddress： 返回登录者的广域网IP，如果服务器和客户端不是同一个局域网的话、
LanIPAddress： 返回登录者的局域网IP
-- 发布时间：2015/11/13 17:01:00
--
If e.Message = "GetDate" Then
e.ReturnValue = Date.Now
End If
这个可以返回系统时间
那么想用
If e.Message = "GetWanIp" Then
e.ReturnValue = ?????.WanIPAddress
End If
这个应如何写
-- 发布时间：2015/11/13 17:08:00
--
QQserver.Users(e.UserName).WanIPAddress
-- 发布时间：2015/11/13 18:39:00
--
我郁闷了,原以为有了OPENQQ后可以获取准确的IP地址
此主题相关图片如下：1113001.png
此主题相关图片如下：1113002.png
-- 发布时间：2015/11/13 19:18:00
--
Dim cmd As new Process()
cmd.StartInfo.FileName = "tracert"
cmd.StartInfo.Arguments = "-h 1 www.baidu.com"
cmd.StartInfo.RedirectStandardOutput = True
cmd.StartInfo.RedirectStandardInput = True
cmd.StartInfo.UseShellExecute = False
cmd.StartInfo.CreateNoWindow = True
cmd.Start()
Dim info As String = cmd.StandardOutput.ReadToEnd()
msgbox(Info)
-- 发布时间：2015/11/13 19:23:00
--
这代码执行起来 在我的电脑上要5.5秒
-- 发布时间：2015/11/14 18:32:00
--
正需要这个功能,最佳方案是啥