拨号上网IP地址的检知

韩冰

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

王准

" `; ^9 v5 J8 ^0 c0 O

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

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

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

. g0 l/ }5 q) {- t6 x

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

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

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

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

) w% I* X; m# t9 J; P z

样能运行）

; C6 b: x- `! Q

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

IPcheck.bpr。

5 f {! p' L. }, |9 Y

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

示。

- a% x4 w5 N U7 \" m* c G+ n. u

: ]0 v {, k+ u6 L

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

void __fastcall TForm1::FormCreate(TObject

: U) X3 J- B3 p

*Sender)

{

WSAData wsaData;

8 \) Z$ R2 v# D. L$ h+ j, f! _

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

{ //初始化WINSOCK调用

3 m: j) z1 r8 t6 I

MessageBox(NULL,"Wrong WinSock

6 z2 u) H i& W/ \6 P* N

Version","Error",MB_OK);

8 p/ n% r- @- r/ ?

return ;

}

, W. v K0 b9 M5 d/ F' f

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

址

1 X9 u' Z% Q3 G8 h2 X6 n$ Z

}

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

9 c( m$ k- z8 N" ]) X

void __fastcall TForm1::Refresh1Click(TObject

*Sender)

8 D* w+ B8 A5 R3 k' D& T

//刷新IP地址

9 P) z, @0 M7 k7 |/ t+ r

{

char HostName[80];

LPHOSTENT lpHostEnt;

5 M) j( r5 }( x7 N. n

5 ^5 Z+ e) J, e* R2 v

struct in_addr addr[2];

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

: _: v3 O2 J) r+ @

0 E, A3 _" f3 a4 ]! f1 q1 E

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

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

4 ^! M. S& T' \( X% [/ @* U/ F

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

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

2 q1 z. @. e7 r% y ^! k3 B

}

" T% m) s$ s$ t

; d4 t, [& P# B

if (gethostname(HostName,

' ? ?" i2 J1 j! v

sizeof(HostName))==SOCKET_ERROR)

{ // 得到本主机名

9 | L$ u. j2 ^& q

% z& V% d c- O

MessageBox(NULL,"Can't getting local

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

" O8 T1 |* }, Y4 ^" d" K' ~

return ;

}

/ i8 a0 H5 W5 f8 [9 {/ R

Label3- >Caption=HostName;

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

主机名去获得主机结构

if (!lpHostEnt){

, a' J" F! `5 @2 h2 P9 t) i- M

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

"Error",MB_OK);

/ K; ^/ Y' X& W& I% i5 n

return ;

) r; l: D7 Y1 S/ h& Z% k; I

}

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

! |- h% m7 v; S! g6 U' z! S# ^$ W* T

i++)

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

2 k" f3 K# w6 X: B1 d0 m0 u7 m

& X/ F3 t2 }4 t$ H" \, M1 x

{

memcpy(&addr,lpHostEnt-

5 x4 J! r! p8 }! G6 h

>h_addr_list,sizeof(in_addr));

t( [' B, r: ?! V6 Q" h+ F

) j( T$ W8 ~* l$ M7 ~3 d

}

+ T Z/ |2 C" U: K7 s! `+ [

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

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

1 B+ H9 R Y% ]9 u, @

}

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

2 ^# d1 n( m3 R/ V' {- }

4 M$ Q! S1 s; [$ m( Q, z c

void __fastcall TForm1::Button2Click(TObject

*Sender)

( r% a# W/ F( H9 X# q9 I9 P

/ N2 t5 q( [& ^( v' W q2 s' c - S5 I4 N% Y" f

{

! L; M% N6 ?( b+ T8 V; ]

WSACleanup(); //释放WINSOCK调用

7 W. ~: r7 k: @% _) M9 s

( m# k2 r4 O0 ^/ E

Close();

3 w2 ~" _, E* |3 Q$ k* |5 t* ^+ C

}

4 @: x: {% D* Z9 k+ v) z

; k' r5 B+ z5 D% O5 a! J

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

/ K$ `7 R% l S+ M, ~7 s) f

1 h1 m7 K# K. g0 T# P

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

' S& l2 r3 s7 _$ w

通过。