如何用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中调用Oracle的存储过程时出错 在线等。。。 求:实现word操作自动评分的相关资料 重装sql后,数据库连接出错!急!在线等! 菜鸟问题:不知道这句该引用何对象 大家好:我请求帮助。。。。。。。。。。。。。。。。。。。。。 ************ch21st(风尘鸟)请进******** 有谁知道Vertical Menu控件为什么会在显示窗体时出错!? 菜鸟级的VB概念问题:NOTHING,NULL,EMPTY的区别,分别怎么判别? 怎么才可以通过一个按纽打开一个颜色对话框。谢谢 记费软件方案?????????????? 关于在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