拨号上网IP地址的检知

韩冰

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

& Y/ f# T5 _, b: `& F7 S2 g& m

王准

8 O! j3 l: P g/ ~: e" ?

- C* l+ _, ~9 g, a! J/ w! X$ b

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

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

. I% a9 Q0 N0 v4 q3 a1 G3 K

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

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

* o- M" a$ @; l( U$ @/ V

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

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

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

样能运行）

8 |0 D) q# G0 j |; P, j( u+ j9 |

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

IPcheck.bpr。

0 p, u9 X7 E- K

! t- H) w+ P6 V. g1 I# F: C

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

* x2 ], K; l- W, ~6 R/ I0 w

示。

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

9 U$ p7 y, c& \7 e8 f2 |& E

void __fastcall TForm1::FormCreate(TObject

. s) z) v+ K9 s

*Sender)

8 `; N8 O5 O; g$ ?6 s) T& s

{

+ X# @4 n& r+ i% M% Z

WSAData wsaData;

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

1 b6 B& l. ], f

{ //初始化WINSOCK调用

1 S4 E) i0 W/ U3 ~6 R

MessageBox(NULL,"Wrong WinSock

6 e- ]+ m2 t2 {/ H d. [1 T# y4 g' |

Version","Error",MB_OK);

( S( X, u$ I7 q2 y" K. i$ Y

return ;

}

, E( H/ w# K; O% }' ^: z2 c3 a) ]

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

8 M! s- G+ E7 d8 o

址

}

6 c& W0 t4 L. Z j

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

void __fastcall TForm1::Refresh1Click(TObject

) i! q# U1 U4 [

*Sender)

//刷新IP地址

# K: O# {+ M& [( u

{

9 h7 s; M. t* S6 Y# s# g" f

char HostName[80];

/ F5 y/ z8 \8 [# h

LPHOSTENT lpHostEnt;

( y- Y" b2 F* z! u1 C) q) L

struct in_addr addr[2];

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

! b& f- _! K/ J! n" w5 s: Z2 t* [

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

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

/ N7 n; y2 G; ^- m5 }& {7 F/ m- ]

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

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

3 O5 z5 G. s2 Z; L# i: Q

}

% {& u- n! ?( ?4 U

- ^" V6 L- E2 T( |- p3 x

if (gethostname(HostName,

sizeof(HostName))==SOCKET_ERROR)

: ]$ Y9 G( s8 }

{ // 得到本主机名

; T3 k9 j/ X5 [. T4 S; S4 g

MessageBox(NULL,"Can't getting local

8 O) [, D9 n3 t Y' r R

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

return ;

}

3 I0 t4 }) i# h: t7 V" O, ~

Label3- >Caption=HostName;

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

0 [0 f0 W0 i v. R) n

主机名去获得主机结构

5 Q \( H$ I( s

9 o. {3 M3 }$ _ N7 u& t0 }* g

if (!lpHostEnt){

& \3 S! R0 o: Y" R

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

"Error",MB_OK);

' k7 V, U. p6 Y, d8 k# n

return ;

$ Q0 b- ]: b" {7 s

}

, N9 W( @1 V( l! M/ U1 y! D

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

7 u3 ~" I5 L7 n3 H( n$ \

i++)

8 s# A* E/ {8 C. r) y; z# ]

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

+ ~4 e8 ]; p; v

; N1 e2 g8 a/ s; a$ m$ @

{

# Y2 H3 Z. ? O2 V

& m5 j) ]. R, r- [% E8 U

memcpy(&addr,lpHostEnt-

5 g8 u& U. }! f2 ^5 m; ^

>h_addr_list,sizeof(in_addr));

( w: ~1 X( Z S; B

8 `$ n' q+ [4 @ u

}

5 v; Q8 M9 Q9 ]' m7 t% \6 d* G

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

7 [, b3 ]$ Q; E; V1 @

0 {) Z$ r3 @8 v8 |9 h

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

5 L8 L/ ?9 c, ~9 s+ D o2 W( q

}

7 s# L; l: H. w* h; s

' l! u1 U( e% v9 d5 `' k

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

. ~8 M& ?' X t* q; E$ n+ E

) m. a. H- R" |- @0 X

void __fastcall TForm1::Button2Click(TObject

*Sender)

8 s, b( m3 o' G" F' C

{

WSACleanup(); //释放WINSOCK调用

- T+ N- g& U7 `. o" P3 W

Close();

}

% G4 z8 C! d+ O9 H

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

$ }/ U4 q4 T& n/ N7 c

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

通过。