拨号上网IP地址的检知

韩冰

北京山武川仪控制系统有限公司

王准

. q. p3 X& k; U& z

---- 随着INTERNET在世界范围内的迅速普及，上网的人数也越来越多。其中，

绝大多数人是通过普通电话线拨号上网的。我们知道，每一台上网的计算机，不

x+ b0 D3 ~& L) H b3 z

论是用何种方式上网，都被分配了一个或多个独立无二的IP地址。对于拨号上网

的用户，一般是由其ISP在其每次拨号上网时动态分配一个IP地址，这个地址可

能每次都不相同（其原因主要是为了充分利用有限资源）。那么，我们能否通过

6 [# T& }3 r/ k1 Z: s' M

某种方法随时方便地检知自己上网时的IP地址呢？答案是肯定的。下面我们就用

. S* p7 Z/ ~1 F- X$ _

C++BUILDER编制一个小巧的程序来实现这种功能。（注：本程序在局域网中也同

: F. L0 Z P* O0 {# N0 k

样能运行）

a- z" K* a+ H* i6 a9 ~

---- 首先用BCB的FILE菜单下的New Application创建一个新项目，取名为

IPcheck.bpr。

: N* s9 S+ Z! ~: h* T- q

9 ?: @7 m! b# V c8 v

---- 然后，在窗体FORM1上添加五个标签（LABEL）和两个按钮(BUTTON),如图所

示。

, Y# o( Y8 i6 D+ b9 _8 V; N

---- 接下来，双击窗体的OnCreate事件，在其中加上以下程序：

0 t" f2 a( H+ q

void __fastcall TForm1::FormCreate(TObject

# v9 |! q) Y1 u, i) [

*Sender)

{

8 Y+ l+ G" A/ c! [5 p N' X9 V2 k

WSAData wsaData;

) Q4 F. E# C; H3 z* w h) ]# l+ Y7 B# q

if (WSAStartup(MAKEWORD(1,1),&wsaData)!=0)

5 j9 F8 R& F E

{ //初始化WINSOCK调用

+ Q+ d+ I+ @. Y" K7 m

MessageBox(NULL,"Wrong WinSock

Version","Error",MB_OK);

return ;

% B& f. S0 K# `# ^* N Q# w

}

8 H$ V# B m! v4 i( E

Refresh1Click(Sender); //程序一开始，就调检知IP地

+ o1 c8 V/ | _. l i9 `# B" D

址

# H3 i! C5 }! o1 p

}

再双击Refresh按钮，在其中加上以下程序

5 Q' Q" X9 _$ }

void __fastcall TForm1::Refresh1Click(TObject

*Sender)

$ g4 w. S7 o4 b* K& E

//刷新IP地址

{

0 L2 P$ \+ |$ L$ {7 Q

char HostName[80];

5 F' \" g/ |! u# G' G! a

/ n8 r! l% d8 }

LPHOSTENT lpHostEnt;

- p. }9 I0 J+ i; s

struct in_addr addr[2];

//本程序假设主机不是多宿主机，即最多只有

8 ~" R/ [0 z- t2 Y5 g

% O$ i' S, j$ R8 U' Y, P' i I

// 一块网卡和一个动态IP

for (int i=0; i< 2; i++){

) H7 f; T2 A6 n D2 V

memset(&addr,0,sizeof(in_addr))；

+ ?1 c# q% E( H

//对in_addr结构清0，以利后面填写

5 A# O6 h' T; y/ `) p, i" |

}

if (gethostname(HostName,

sizeof(HostName))==SOCKET_ERROR)

* h) Y2 s) y. A/ x) G" f' Y

; w/ O5 M. n% G5 m: c

{ // 得到本主机名

0 `+ K) m; |; Y2 i' |

MessageBox(NULL,"Can't getting local

host name.","Error",MB_OK);

return ;

}

( ]4 ^. |+ M* |) }( r( Z: d2 q& C

, j/ B* `: B' k) T- O

Label3- >Caption=HostName;

3 N! j- I6 D- ], T0 \

lpHostEnt=gethostbyname(HostName);//利用得到的

主机名去获得主机结构

if (!lpHostEnt){

MessageBox(NULL,"Yow! Bad host lookup.",

- Z2 p% Y K5 \# |5 R

"Error",MB_OK);

return ;

) Z! `+ z. @- X0 T1 x

}

for (int i=0; lpHostEnt- >h_addr_list!=0;

) l9 i+ C" f2 P5 e" f/ Y% @6 h s

i++)

9 [. Q3 H. C4 m, r2 f p8 b

//从主机地址表中得到IP地址

1 N( C1 p6 a: E. F7 Q- A

{

* v& v- t) D. H5 `

/ n7 G% C( ]0 M8 b. R: p

memcpy(&addr,lpHostEnt-

>h_addr_list,sizeof(in_addr));

% P: @/ j: c/ q

}

Label4- >Caption=inet_ntoa(addr[0]);

" m# I3 b) t& ^2 t/ G0 N

Label5- >Caption=inet_ntoa(addr[1]);

}

再双击Refresh按钮，在其中加上以下程序

. J2 k( h# m. b0 J

6 |6 [# m! B. K" a# ~% D9 m

void __fastcall TForm1::Button2Click(TObject

*Sender)

; c( t4 m' F& _1 {4 E

{

& w P: @! Q) i' f& U* R: k5 U4 V

WSACleanup(); //释放WINSOCK调用

Close();

}

& b. i0 E, |( p6 x, u/ p0 b0 D

; [" ?( D5 J6 g. S- X$ k+ Z

---- 最后，不要忘了在程序头部加上#include<winsock.h>.....哦。

---- 好了，程序完成了，编译后就可运行了。本程序在中文WIN95/NT4.0下编译

- |9 X- @! @ T+ c$ d( f4 T# n

通过。