拨号上网IP地址的检知

韩冰

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

V7 p3 J% u9 z; I$ H

王准

- x1 Y1 c* a, G$ X

6 Y8 S+ _. D5 m8 x6 w% N7 j

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

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

5 s/ i2 v; A; J' f

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

* V# D& e j$ R5 J* [- E( h ~

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

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

2 o6 }7 I8 g. p9 `

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

& A1 u" ?- G" U. w# k5 ?4 k( C

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

样能运行）

9 g: \* E5 p7 r5 w& P

8 o( |. T& j: Q2 D4 R3 ^4 b7 D+ w9 @

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

2 p' {' P( O9 a* q

IPcheck.bpr。

* j. p/ y) N# F) `

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

示。

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

% b7 t5 ^8 \& Q5 ]- E4 q, ~! \

' ~$ l0 L4 ~2 p3 e9 K

void __fastcall TForm1::FormCreate(TObject

*Sender)

{

: n P0 f: z9 w9 |+ L8 n

WSAData wsaData;

1 `) \& e( i' K& \. z! B

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

M: u6 N1 l' [1 r

{ //初始化WINSOCK调用

; p* N! R |, Y0 v) s

7 [/ B; y: ~* p

MessageBox(NULL,"Wrong WinSock

Version","Error",MB_OK);

return ;

1 i1 A# q8 L- {# K. d

}

6 `* n3 O% C$ Q6 X/ Z

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

址

+ w2 L% l1 Q# q

}

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

; R6 O3 b9 `# k. R/ B

void __fastcall TForm1::Refresh1Click(TObject

: ]3 I) q1 |) D+ A& T; k

*Sender)

. l( ^, c0 x% N) C4 R

//刷新IP地址

' |. o0 M$ | ^) f/ e+ U/ G

{

char HostName[80];

/ J, }% K% n, ]

LPHOSTENT lpHostEnt;

struct in_addr addr[2];

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

0 W7 N* D, v% H a

" `7 Z" L- j, i- j

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

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

2 Y6 {7 u4 z% ~0 I* w0 K

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

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

+ ~/ U- E/ J! [! M& }& {% v

}

4 r) U2 u8 F7 O' e

if (gethostname(HostName,

sizeof(HostName))==SOCKET_ERROR)

$ m4 i& M) I6 L

{ // 得到本主机名

# M6 N ], N# H7 P% X( G- h4 `

MessageBox(NULL,"Can't getting local

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

return ;

}

9 g& m: ^ o8 u- n* X

Label3- >Caption=HostName;

. M' d6 F- P+ e0 s1 ?, a/ s

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

$ G+ C+ n& W! b/ N7 ?6 V1 p

主机名去获得主机结构

if (!lpHostEnt){

+ V3 R0 U. d8 S- k

[ N5 J7 u: c' B Y( O% r

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

"Error",MB_OK);

0 b0 m7 p, V: X! l* p9 Z2 Z/ m

return ;

+ Q% ]. _3 E4 y+ [

}

0 o8 _( ]0 K! U

$ w& Z- k$ S/ N4 J

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

3 u; W5 ^& R4 W) t

i++)

9 Z" n* }; E" I: |9 d5 @1 K

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

{

% C4 Y; V4 N5 ]& O$ V! ^1 z. j

memcpy(&addr,lpHostEnt-

>h_addr_list,sizeof(in_addr));

7 D% k( o8 U$ o, A) s# Q+ X9 a

}

/ t. ~6 z5 i$ D# @. I4 l8 V

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

3 P- M4 o% \ ~# z' u

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

1 O3 x- y1 o& n8 w- W+ W

}

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

8 T8 A! ~" b i2 \. t! V {

4 Q3 G8 b/ i, g

void __fastcall TForm1::Button2Click(TObject

* A1 i1 j+ w9 ^. Z. G5 ]

*Sender)

/ G. |, @: ?& N

{

! P: a! j" i/ B2 s& d

WSACleanup(); //释放WINSOCK调用

- Z! [4 T5 A. |. B: `6 u! b0 d

& ?7 a9 i6 r" G, s: M

Close();

8 g- ^7 P2 k& o \* G y

" q0 |. \1 j' v

}

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

, \, N; w' n; e, R% w9 S

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

通过。