如何获得本机的外网ip？(50分)

如何获得本机的外网ip，如没有外网ip显示无

用ASP的方法是这样：
http://www.pwsdns.com/getip.asp

我也想知道啊

记得有人出过2000多分都没有得到一个解（不通过读取返回IP的网页）。
这是指通过路由（包括用Adsl的路由方式）上网的。
如果是直接上网的话，那就太容易了。

用dos命令啊

nbtstat -n——显示寄存在本地的名字和服务程序
nbtstat -c——本命令用于显示NetBIOS名字高速缓存的内容。NetBIOS名字高速缓存用于寸放与本计算机最近进行通信的其他计算机的NetBIOS名字和IP地址对。
nbtstat -r——本命令用于清除和重新加载NetBIOS名字高速缓存。
nbtstat -a IP——通过IP显示另一台计算机的物理地址和名字列表，你所显示的内容就像对方计算机自己运行nbtstat -n一样
nbtstat -s IP——显示实用其IP地址的另一台计算机的NetBIOS连接表。

通关共享上网的没有什么好办法。

直接拨号才有可能
附：获得本机ip
function Tfrmmain.LocalIP: string;
type
TaPInAddr = array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
Buffer: Array[0..63] of Char;
I: Integer;
GInitData: TWSAData;
begin
WSAStartup($101,GInitData);
Result := '';
GetHostName(Buffer,SizeOf(Buffer));
phe := GetHostByName(buffer);
if phe = nil then exit;
pPtr := PaPInAddr(phe^.h_addr_list);
I := 0;
while pPtr^ <> nil do
begin
Result := inet_ntoa(pptr^^);
Inc(I);
end;
WSACleanup;
end;

接受答案了.