拨号上网IP地址的检知

韩冰

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

7 A$ a$ m) D: C% Y& s$ O

王准

/ j2 y, i1 A% C3 s

- L/ Y4 n& r1 D: a5 p) C

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

7 S% M. V, O1 R2 W! P6 g

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

% `* h8 \% K3 I" h& V# X% q

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

4 C3 @. @0 G0 {! J) R' t

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

4 \8 M- Z8 A, }6 m

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

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

" g0 F; T2 s) H4 Q

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

# A% L; M$ E& { c u) u

样能运行）

2 ?! ~* F( b5 R7 j+ Y

; m3 J4 T. n; F9 o

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

IPcheck.bpr。

+ T3 P# w$ k# j, o. R- ~0 o; b- a

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

示。

7 Q" P& I1 V5 V8 r( m3 g

v0 N3 \$ q5 r

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

: Y8 l6 |' g0 }/ j

0 e4 n% d! U" |( K. w

void __fastcall TForm1::FormCreate(TObject

*Sender)

9 |4 p: j$ ?; e) y

{

! F1 {9 |' ?5 P7 a: a

WSAData wsaData;

8 r, P5 N; z: ]" v3 w9 S. V1 Q! ^

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

{ //初始化WINSOCK调用

/ G( J ^3 s* i: f- a. @

, `. U4 X: Z4 |: z# A4 }

MessageBox(NULL,"Wrong WinSock

Version","Error",MB_OK);

5 d( l0 _% T$ B$ u! n' W+ U

return ;

( i0 d! m; J) `' w- K" g

}

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

址

}

. @2 d' t; ?1 a. n/ ?

1 V2 ?. ]0 I) l* C0 l" ]

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

0 y/ O3 W+ `+ `- w% a" \

void __fastcall TForm1::Refresh1Click(TObject

' s! N3 S, R+ ?3 y9 x* c% R

*Sender)

//刷新IP地址

{

char HostName[80];

+ P4 u9 U0 k. d' c1 \3 a: i

- Q0 l1 Z3 O' Q5 h4 N7 Y( B

LPHOSTENT lpHostEnt;

" ~ W2 E6 U2 e' S1 d

4 C4 F0 q( e$ e# M% x

struct in_addr addr[2];

; `9 }$ w3 @' B: |- @0 Q6 T6 ]: ~+ d

' h* ?8 g5 N; G0 r4 J9 R/ X

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

6 P, v& H* S' K, G, }% L7 ^- o

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

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

4 S# h A% }& K0 Q3 q

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

3 C# A6 j) e% b) `5 j

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

! V9 O& W; m9 P3 A7 \+ e. y$ G3 c

}

0 }; t1 e' {8 k& n

if (gethostname(HostName,

5 e- n S0 V' m0 h, x/ y8 c

sizeof(HostName))==SOCKET_ERROR)

o' i# N- n- {, J+ E

3 O2 H) }, W5 @* x& Y8 m

{ // 得到本主机名

( I) ]1 ^' R5 q0 a

MessageBox(NULL,"Can't getting local

; a$ k8 {) ~$ k; c3 S. a( c. I

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

return ;

}

2 G8 p" _8 h- |' ?9 r

Label3- >Caption=HostName;

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

主机名去获得主机结构

" [' x: Y: ~& [; {$ {* U) V0 d

if (!lpHostEnt){

* N5 [3 n7 _- V, \5 [

1 N4 [, i/ k; P+ n* l; c# r7 `

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

"Error",MB_OK);

return ;

% S% Y: ]* S0 c6 X9 P

}

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

2 r9 [- M- y3 d/ k5 v7 Z0 P

i++)

' ?2 ~# u6 c8 D* l U

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

{

% Q7 j/ L: K, F& p7 J

memcpy(&addr,lpHostEnt-

* i" _4 I$ a9 I) E" t) S

>h_addr_list,sizeof(in_addr));

" [0 ^( @4 ^) u8 i2 a

}

- C: e5 H" V& q; W+ x# f

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

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

5 H2 J+ \( }+ [

}

1 |* a( k& I5 u; `, L0 @, O

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

4 B9 u6 v2 m! o6 Y

void __fastcall TForm1::Button2Click(TObject

+ Y' ~* w! m7 }

*Sender)

+ c- t0 f4 _" [) b% b1 f% E " V5 O4 E5 X! ~8 H

{

WSACleanup(); //释放WINSOCK调用

, R0 F% E" L7 x0 e) c/ I0 A

9 ~8 y$ ]4 e4 V

Close();

}

+ z# ?2 Y' ?$ s2 P+ h2 }" H: W

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

+ I; i4 M/ g# o

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

通过。