Question

VB 获取本机IP地址

要获得真实的IP，就是获得的IP 在电信查就知道我住哪哪就行，不管用什么方式上网都要获得那IP
可以做得到吗？
代码，加100分
谢谢
换好多次——你的方法很好，不过没网络连接会出现错误——实时错误‘91’对象变量或WITH块变量未设置
怎么解决这个错误好

Answer 1

'工程 部件 浏览 shdocvw.dll 打开 确定
'然后添加一个WebBrowser控件
Private Sub Form_Load()
WebBrowser1.Navigate "www.ip138.com"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
on error resume next '忽略错误 没有网络连接就没有从电信那获得外网IP 也就没有结果
IPstr = WebBrowser1.Document.getelementsbytagname("iframe")(0).contentwindow.Document.body.innerhtml
IP = Right(IPstr, Len(IPstr) - InStr(IPstr, "["))
IP = Left(IP, InStr(IP, "]") - 1)
MsgBox IP
End Sub

Answer 2

现在上网大多是随机分配ip的吧，也就是说机子ip是不定的，顶多只能知道你是在那个市，我就知道这些了，你联网后在打开宽带连接，状态里详细信息选项卡里也有，不知是不是你要的

Answer 3

等高手出现