我家电脑通过ADSL路由器上网，本机IP属于内网IP，由于ADSL每次登陆IP地址都会改变，然而外网IP地址只能通过路由器里或www.这类网站得知。登陆路由器获取IP地址我觉得这可能有点难，可能对于不同的路由器代码什么的也不一样。那么只有通过访问www.网站获取本机外网IP，在浏览器里，只要一登陆这个网站就能看到本机的IP地址，那么我想用VB编程软件编个程序，让它自动帮我查看我的外网IP，不用每次都手动去打开浏览器，去打开IP38网站，我希望只要一打开这个程序就能看到我的外网IP地址。
由于本人只学过VB基础，对于扩展部分，尤其是网络部分一点不懂。。如果有愿意帮我编出这个程序的，我在此非常感激。如果有人能有什么好的建议或想法也请发表一下，谢谢！

' by octillion
' 2008.7.27

On Error Resume Next

Dim xmlhttp
Set xmlhttp=CreateObject("msxml2.xmlhttp")
If Err Then
  Msgbox "对象创建失败"
  Wscript.Quit()
End If

xmlhttp.open "Get","http://www.,false
xmlhttp.send
If xmlhttp.readyState=4 and xmlhttp.status=200 Then
  Dim s
  s=xmlhttp.responseText
  Dim startpos,endpos
  startpos=878
  endpos=Instr(startpos,s," ")
  s=Mid(s,startpos,endpos-startpos)
  msgbox "IP地址为:" & s
Else
  Msgbox "获取出错"
End If

Set xmlhttp=Nothing

保存成vbs文件运行。

哇噻！！！你太帅了！！！

非常感谢！！！

雕虫小技 不足挂齿。

还有。。如果我想在最后弹出IP地址的消息框前，把s这个变量复制到剪贴板中，应在msgbox语句前加什么？

建议你把代码迁移到VB里，这样可以用Clipboard对象实现。当然，用VB做一个访问剪贴板的接口也行。

VBS里修改剪贴板真的很麻烦，似乎可以通过建立一个IE的实例然后通过IE里页面的DOM来访问剪贴板……

噢。。在VB里很简单，只要一两句就可以了，我以为在VBS里也会这样简单呢。。
OK。。谢谢了~