拨号上网IP地址的检知

韩冰

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

5 _6 V- B5 l5 B. H/ R9 o

王准

& e& u$ P% v7 [/ p

- a8 h8 S* B) T4 ^

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

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

2 ?$ M; Z% q- o$ W8 x

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

* h! i I$ O7 j2 b

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

. R# t1 ~3 [9 D( u' `2 b5 e' j

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

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

# M9 `3 m7 k5 q5 B9 n; i, Q

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

% D+ n( ~% B! N1 s! X' M

样能运行）

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

IPcheck.bpr。

2 c9 H6 S" r. Y+ i

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

示。

5 A% e4 ]; ^! R

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

9 q. O: P* i" E

1 q9 [8 Q7 Y3 A

void __fastcall TForm1::FormCreate(TObject

*Sender)

; t, V2 v7 l- Z" j9 I* {1 v

{

WSAData wsaData;

# V& [; S% s, i; o2 k

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

{ //初始化WINSOCK调用

- N8 t3 U: b q( S$ t

MessageBox(NULL,"Wrong WinSock

, ~. {. \, [+ k: ]5 L( ]2 n

Version","Error",MB_OK);

return ;

}

' Q2 |0 ^ J( W9 K! {2 k7 i

" W; [- D$ F( A6 [6 e, h

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

# D' s7 k, `+ f& z+ \, b5 H

址

/ _2 O3 \0 v0 k/ S2 e/ i, _8 S6 R

}

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

void __fastcall TForm1::Refresh1Click(TObject

*Sender)

5 \3 F/ f! z9 P6 d1 b: p7 f9 z7 T

//刷新IP地址

{

char HostName[80];

8 [$ t; F" t' U

LPHOSTENT lpHostEnt;

struct in_addr addr[2];

* k# b" v( B5 |) W$ A1 V. c: ?$ c

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

+ _0 b' ^! ?, {

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

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

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

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

* R( y) d. @+ U5 ~! c( x* j: T6 t7 t7 m

}

: y+ ]# b& f# J

if (gethostname(HostName,

sizeof(HostName))==SOCKET_ERROR)

& ~6 _' D j* r1 w! ]" L

' A( ?$ h4 H& D6 j+ J/ F

{ // 得到本主机名

0 Q" i; G7 G. I U" r0 e+ z8 t

MessageBox(NULL,"Can't getting local

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

return ;

. z* I% N) c) j1 Q

}

( t0 I% a. p+ U3 {' l

/ c4 `4 M( `& i/ P8 U

Label3- >Caption=HostName;

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

主机名去获得主机结构

if (!lpHostEnt){

1 N; p3 ]# W6 k

: j' k% {/ D+ a. v/ W

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

) Q4 b2 }% @9 @

"Error",MB_OK);

1 Q2 e3 e% ?2 `, b; O' v( {

return ;

}

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

i++)

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

0 C x( v' o s% |

{

( p w* k& T: _. R8 F1 |( D. d* l

3 h# V6 G% q7 E1 h3 j/ D

memcpy(&addr,lpHostEnt-

>h_addr_list,sizeof(in_addr));

}

7 |3 j0 x; B" |2 t

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

8 ?$ r# Q b* |

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

}

. r: p4 j% |) E. W7 x( p

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

- _, m& w( |! ]0 ^( Z

void __fastcall TForm1::Button2Click(TObject

9 O) y% H* T0 F! Q+ w( Q

*Sender)

M) F6 ]+ [* {4 x 7 U: g c) S* M" G& d! v9 Y

{

2 [7 j3 b0 [$ S' E: K

9 ^. m; X! j. L. b. t" s

WSACleanup(); //释放WINSOCK调用

8 Z& N' X; T- j& {; f/ q

Close();

: I! S8 X1 W) \* N0 F% m8 Y# e1 f

}

& @* \ S" m$ c5 i0 o

5 m5 x( q: t2 j) C

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

. ], G3 I7 L1 o: A! J

6 k" \2 Q$ j; a. `0 ^! X

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

通过。