如何用VB获得网站服务器的外网IP地址? 如何用VB获得网站服务器的外网IP地址?VB程序运行于这台服务器上 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果是具有外网的合法IP的,可以用API列举本地网卡资源,稍加判断就可以得到外网IP了 '先添加一个inet控件Const str1 = "您的真实<b>IP</b> 是:"Const str2 = ","Private Sub Form_Load() Dim urlstr As String, theip As String, thestart As Long, theend As Long 'urlstr = Inet1.OpenURL("http://www.bliao.com:2000/ip.phtml") thestart = InStr(1, urlstr, str1) thestart = thestart + Len(str1) theend = InStr(thestart, urlstr, str2) theip = Mid(urlstr, thestart, theend - thestart) theip = urlstr MsgBox "ip地址为" & theipEnd Sub 用API列举本地网卡资源的代码有吗? 刚做一个源代码放在这里: http://www.51mis.com 下载看一下就知道怎么做了 如何用vb解决保存的TXT文件 我实在是没办法了!谁解释下 100分实现一个功能,明天13:00结贴,还请帮忙 怎样禁用mdi窗体的最大化呀 如何使用Excel类型库,最好能贴些代码 为什么某些控件在进行“使程序界面随显示器分辨率大小变化”的程序执行时,位置并没有改变? VB色差比较 紧急求助,在RichTextBox中如何正确显示带有表格的rtf格式的文件。 報表中的一個怪問題,請各位幫忙!! 关于数据库报表的调查 关于在FlexGrid中显示数据 txt
Const str2 = ","Private Sub Form_Load()
Dim urlstr As String, theip As String, thestart As Long, theend As Long
'urlstr = Inet1.OpenURL("http://www.bliao.com:2000/ip.phtml")
thestart = InStr(1, urlstr, str1)
thestart = thestart + Len(str1)
theend = InStr(thestart, urlstr, str2)
theip = Mid(urlstr, thestart, theend - thestart)
theip = urlstr
MsgBox "ip地址为" & theip
End Sub