拨号上网IP地址的检知

韩冰

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

王准

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

8 w2 f5 L+ C$ ?! t$ L- a

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

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

# s$ k" m" P# o! H) |. X

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

$ ]2 y+ q* d0 N/ r. N- b5 [5 N3 N

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

, v, Y5 N( G7 W+ i( f$ o' ~

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

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

3 o! S4 l3 B9 |

样能运行）

: i" U" `* A( H

1 W! p/ b& k/ r+ P8 p H# ], T

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

IPcheck.bpr。

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

0 q5 Y" ^/ U' L7 ~: ?5 D# K! Y* ?

示。

& g* R: y/ t* {' y( q+ k

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

; {- |2 n0 e& T- R- H1 V5 q

void __fastcall TForm1::FormCreate(TObject

8 n% ?$ Y' @0 [9 a" ]3 R- t3 a

*Sender)

{

WSAData wsaData;

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

{ //初始化WINSOCK调用

: ]+ s4 I! x6 H. L4 z8 O

, t5 j; c2 a$ C8 w8 }) ^/ ?

MessageBox(NULL,"Wrong WinSock

Version","Error",MB_OK);

3 V& F* I9 R' q; Y( M

return ;

}

- _% M7 @: j( v7 ~! k

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

址

}

# Z0 M" t1 W7 d/ D. ?; O$ |. J

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

2 S/ C) E0 X- {) E* Z' O. ?, R, s

void __fastcall TForm1::Refresh1Click(TObject

*Sender)

//刷新IP地址

{

char HostName[80];

* R) V' P2 k) U

! x8 ^4 }6 n" y; F. {- E m

LPHOSTENT lpHostEnt;

struct in_addr addr[2];

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

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

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

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

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

7 c5 D6 a6 V* W+ i: R' a

}

if (gethostname(HostName,

sizeof(HostName))==SOCKET_ERROR)

{ // 得到本主机名

- K) I, _, X$ A' m# h7 s

MessageBox(NULL,"Can't getting local

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

: j& {4 ]8 q* P' F8 I. U! T$ N$ S

return ;

}

Label3- >Caption=HostName;

. A$ D* v. V! d( g# j0 i

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

主机名去获得主机结构

* j4 s- S( }6 {; j# X

# u& ]9 h) a, ]. T

if (!lpHostEnt){

/ z1 T& _: ?* \4 d8 F, b3 Q

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

3 p6 |+ p* R* |

"Error",MB_OK);

2 G/ ~ ^! \) ]: c

return ;

" D A8 A: V7 G8 X$ [( V; m

}

8 d: b8 \6 {* W( l* @ e

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

( N" q% \4 h: D2 Y0 ?2 |- i E

i++)

6 b# k9 i9 J9 |- J6 @) r2 r

& ?" C5 U* H; f% E9 @. a

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

{

& e, O# M1 O( }% [, _+ g8 r

memcpy(&addr,lpHostEnt-

4 R6 \+ T0 W9 t; Z

>h_addr_list,sizeof(in_addr));

1 a5 t6 X- H, E7 s

}

3 F: ~6 k5 h9 t

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

; ?8 v" d8 M" c' m' Z

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

U- O( g6 q9 v$ l

}

7 D. X9 J. s# C" w# |

. X& i2 c$ n0 C8 s$ v0 a, S1 \7 U

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

3 {7 W* f8 ?. \ I# ]: E& Z

void __fastcall TForm1::Button2Click(TObject

) \5 ~7 I7 G" C l1 P. H

*Sender)

6 L7 b; L, a2 J) I* j( R0 ^

7 Z% U# a6 X4 Y) _6 q % Z' o- x" u+ ^$ c2 E0 L

{

7 I9 D) u7 J8 n/ C6 ?& z% @

5 q3 c& t8 ~# e$ Y

WSACleanup(); //释放WINSOCK调用

Close();

. K& ~4 Y( s# z' p- h( t' N2 L+ T

}

0 I# V4 h a) P! x& i

$ a3 I: {& S* _8 t* v: y: L

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

) B5 C9 Z- h X: Q. k6 ]0 A1 H

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

通过。