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
Dim IP As WinForm.TextBox = e.Form.Controls("IP")
IP.Value=IPAdress.Tostring
之前我也遇见同样问题 在有点蓝版主指导下 采用自动获取本机ip即可解决你的问题
在阿里云服务器上 不能直接使用阿里云提供给你的对外访问ip 要用获得本机ip的方式 用本机内部ip启动服务 才能用外部ip进行访问