拨号上网IP地址的检知

韩冰

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

+ I' Z( g1 C1 {. F7 f4 _$ n6 @

王准

% V0 W1 m+ }+ d7 ^$ Z

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

9 T* |, m; B# C8 X7 s) Q4 X

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

2 l* R `* |4 v2 ~4 u/ m a- U6 w

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

( m6 M' v& _# z' C: |

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

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

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

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

样能运行）

7 a& m& R6 U4 w8 l. n! O

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

IPcheck.bpr。

9 J7 R, g5 k e# B

; s0 e3 H1 U, F( ^ U

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

1 a. o; o/ B5 R' U) F; f$ l

示。

/ f/ ^& b1 d3 C# T4 |+ z! w

3 b5 R3 d0 l* B! M) f1 n1 z

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

9 ], ~2 u% ~4 g: \7 j8 ~

! k9 X2 ]0 c- G c

void __fastcall TForm1::FormCreate(TObject

& J0 p4 Q% o+ Y0 K6 j

*Sender)

7 W: I" X! v8 ^# C4 p4 C4 z

{

: a8 ^+ M9 [- p2 F- F8 `

WSAData wsaData;

+ J( M6 \2 P% q! Q g

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

{ //初始化WINSOCK调用

0 q) D" v; H- \1 d

; ]" j, i7 E I+ ^) E8 ?

MessageBox(NULL,"Wrong WinSock

' k2 \7 I& x1 r( X' H) u" D# D6 X( p' Z

Version","Error",MB_OK);

' ^2 ^" u" K) Q9 r

return ;

}

: `6 f ?% E) F+ ?

0 H2 j0 C( u& L, s# f

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

" H' | ]$ ~# F; |# c9 s; `) _

址

}

. B5 g) ]/ q! i9 p: ?: n

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

+ X2 x# n( V" X7 L% }

G9 Q) K, s ]3 h% F3 Y+ J, P

void __fastcall TForm1::Refresh1Click(TObject

*Sender)

. p& e2 t+ u. _5 ^

//刷新IP地址

3 P5 J6 F# x8 m3 l1 t: l8 A

{

char HostName[80];

LPHOSTENT lpHostEnt;

2 i7 Q! |* r H6 h) i2 V8 `

0 a8 @8 e5 V/ F* J0 j

struct in_addr addr[2];

3 g1 H" r# {) u& l/ I

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

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

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

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

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

}

if (gethostname(HostName,

sizeof(HostName))==SOCKET_ERROR)

& e, H7 ]4 |( u# t I

{ // 得到本主机名

MessageBox(NULL,"Can't getting local

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

return ;

}

Label3- >Caption=HostName;

9 k0 l% O- b9 ~% C% R4 K8 \, X

, @, z1 i- N0 h2 g# D: u! g, \& u& @

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

主机名去获得主机结构

if (!lpHostEnt){

9 h, x* M& C4 q/ ^9 U# d

. m4 M9 \. X9 _- c- {) L @: H" e

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

7 C* E1 l5 ?/ H; [: n: C

"Error",MB_OK);

* D2 F y! a4 y4 m

1 k0 H1 N: H. v$ f) ?6 a

return ;

+ W+ R' o+ A7 R$ P! X8 I

% g; u$ r! T% y: v

}

o; {1 `8 D( Z8 I

' a) {% B0 ^" s0 O q& M

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

i++)

* E% Y* g: I/ D$ G ~; V

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

1 t; U1 c4 H3 D* Y

4 f9 H8 H7 c0 A6 K3 r% s

{

5 D) w# b7 c+ S9 s+ b) I

memcpy(&addr,lpHostEnt-

>h_addr_list,sizeof(in_addr));

: L# B* A4 \' i) t

}

) m6 b! p% J7 I; g

1 }- F V- |9 x- O3 ~! h

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

. M- Z X/ Y& e) A' q

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

}

. B/ P3 |* T; v8 V

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

8 _# ?0 ^! M/ x1 p% t

void __fastcall TForm1::Button2Click(TObject

*Sender)

$ N9 |( b3 u4 o5 C' P 3 Y" V9 H0 Z; [1 H( t2 @. i

{

$ @) F6 [1 i8 Y( t% d7 ^

( V7 t/ _) H4 m# G

WSACleanup(); //释放WINSOCK调用

Close();

}

- p& |9 m9 C# [7 a5 L

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

8 d! \$ K, v ?9 K

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

- S- P% U1 p8 k V

通过。