
版本 2
支持库 internet
子程序 取外网ip, 文本型, 公开
局部变量 网页, 字节集
局部变量 b, 整数型
局部变量 a, 整数型
局部变量 IP, 文本型
网页 = >
通过网站查询外网IP地址。
打开百度,输入“本机IP地址查询”回车,即可显示外网IP地址。
方法二
在路由器里查看外网IP地址。
登陆到路由器,切换到“运行状态”,WAN口状态下IP地址,就是外网IP地址。
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As SystemWindowsFormsWebBrowserDocumentCompletedEventArgs) Handles WebBrowser1DocumentCompleted
Dim str As String
str = MeWebBrowser1DocumentBodyInnerHtml
Dim a As Integer = 0
Dim b As Integer = 0
a = InStr(str, "[")
b = InStr(str, "]")
TextBox1Text = Mid(str, a + 1, b - a - 1)
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As SystemEventArgs) Handles MeLoad
MeWebBrowser1Navigate("
)
End Sub
End Class
网页上显示的有点问题,form1_load 中代码是:MeWebBrowser1Navigate(">
原理:访问查IP网页后,获取网页上显示的本机外网ip地址
import javanet;
public class Test {
public static void main(String[] args) throws UnknownHostException {
String IP = null;
String host = null;
InetAddress ia;
ia = InetAddressgetLocalHost();
host = iagetHostName();// 获取计算机名字
IP = iagetHostAddress();// 获取IP
Systemoutprintln(host);
Systemoutprintln(IP);
}
}
以上就是关于易语言获取本机外网ip调用哪个函数全部的内容,包括:易语言获取本机外网ip调用哪个函数、如何查询本机外网IP地址、VB.net 2015 如何获取外网IP并保存到软件目录下的IP.txt文件等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)