以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]Open服务器  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89252)
--  作者：cd_tdh
--  发布时间：2016/8/18 9:26:00
--  [求助]Open服务器
Open服务器有没办法启动的时候，自动获取本机的IP地址啊？如能这个代码怎么写呢？
--  作者：大红袍
--  发布时间：2016/8/18 9:29:00
--  
 获取本机ip地址做什么啊？
--  作者：cd_tdh
--  发布时间：2016/8/18 9:57:00
--  
以下是引用大红袍在2016/8/18 9:29:00的发言：
 获取本机ip地址做什么啊？

大红袍老师，服务器不是本机的IP，没法登录啊？我这网络是透那个过路由器连接到分支器上在到电脑上的，之前半个月IP都没变，今天登陆时发现IP变了，应该是路由器重启过，我就想没有办法让服务器的IP自动获取本机的IP。


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160818095258.png
图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：2016/8/18 10:22:00
--  
服务器的ip地址，可以不填。
--  作者：cd_tdh
--  发布时间：2016/8/18 10:46:00
--  

帮助里面找到了，但是登陆窗口还是需要获取本机的IP啊？
--  作者：大红袍
--  发布时间：2016/8/18 10:50:00
--  
Dim IPAdress As System.Net.IPAddress 
Dim HostName As String
HostName = System.Net.Dns.GetHostName \'获得本机的机器名 
IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) \'获得本机的IP 
OutPut.Show( HostName )  \'本机机器名 
OutPut.Show(IPAdress.ToString )  \'本机的IP