如何知道某一网站的IP地址？ ( 积分: 50 )

G

gzyhl1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-27

• #1

如题。

 

G

gzyhl1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-27

• #2

如题。

 

Y

yangpu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-27

• #3

procedure TForm1.Button1Click(Sender: TObject);
type
//copy the add_list
TAddrList = array [0..20] of PInAddr;
PAddrList = ^TAddrList;
var
phent : PHostEnt;
P: PAddrList;
I : Integer;
begin

//detect yahoo.com
phent := GetHostByName(pchar(edit1.text));
if phent<>nil then
begin
I := 0;
P := PAddrList(phent^.h_Addr_list);
while P <> nil do
begin
listbox1.items.Add(StrPas(inet_ntoa(P^)));
Inc(I)
end
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
WSAData : TWSAData;
begin
//initiates use of WS2_32.DLL
if (WSAStartup(MAKEWORD(2,0),WSAData)<>0) then
raise Exception.Create('Winsock Version Error');
end;


procedure TForm1.FormDestroy(Sender: TObject);
begin
WSACleanUP;
end;

 

A

Avalon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-27

• #4

ping www.delphibbs.com >>c:/111.txt

 

孩

孩子他爸

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-27

• #5

[]楼上的方法太妙了

 

G

gzyhl1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-27

• #6

Avalon:
我根据你的方法没有生成111.txt文件？

 

D

dawnsong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-27

• #7

Avalon:
我根据你的方法没有生成111.txt文件？
----------------------------------------
因为111.txt还不存在，
可以这么来
ping www.delphibbs.com >c:/111.txt

 

A

Avalon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-27

• #8

奇怪了 我的生成啊

 

G

gzyhl1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-27

• #9

多人接受答案了。

 

D

dawnsong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-27

• #10

----------
Avalon, 时间：2005-4-27 16:08:49, ID：3059060
奇怪了 我的生成啊
----------
呵呵，确实生成了，不好意思，刚才有点儿臆断

估计楼主看不到是因为权限的问题，毕竟要把返回结果放到C盘的根目录么