阿里云服务器。
Dim IPAdress As System.Net.IPAddress
IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) '获得本机的IP
在打开窗口事件中获取本机IP，并记存在数据库表中以便客户端取用。
已经有若干个系统采用此办法运行正常。
一个新的阿里云服务器仍然用上述办法，获取到的ip地址竟然是阿里云服务器的私有地址而不是公网地址。
获取私有地址后服务器程序可以正常打开，显然客户端是打不开的。
在服务器端人工改动IP使用公网地址，这时就出现了错误提示。
此主题相关图片如下：qq截图20170421063853.png
QQServer.ServerIp = e.Form.Controls("txtIP").Value '指定IP地址
QQServer.ServerPort = e.Form.Controls("txtPort").Value '指定端口
QQServer.HeartbeatInterval = e.Form.Controls("txtInterval").Value '指定心跳时间
QQServer.HeartbeatTimeout = e.Form.Controls("txtTimeOut").Value '指定心跳超时时间
QQServer.Start() '启动QQServer
经测试是在QQServer.Start()这条语句出的错误。怎么解决呢？谢谢
加好友 
发短信
Post By：2017/4/21 6:42:00 [只看该作者]
