拨号上网IP地址的检知

韩冰

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

王准

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

- T, x4 x' s4 S$ i3 v, g

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

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

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

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

: T9 |: |" a1 ?7 f7 F

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

" I; q1 v6 r0 J Z7 O2 V- ?) q

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

8 U) g- {% P+ w T H- O8 v

样能运行）

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

1 z4 t; Y1 k5 S$ Y! a9 c8 D

IPcheck.bpr。

. ?/ ]5 n) U% Q3 s+ I2 |; U" g6 A

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

3 F% I4 A$ b. v! S+ t4 P' D' |3 a

示。

, _5 v( S# q8 |# a* c5 R( t$ F

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

, u0 ]3 _ Y6 T

void __fastcall TForm1::FormCreate(TObject

* \3 o8 M- ?# M- C( Z

*Sender)

{

) Y' }6 ~$ b4 S! @' \

WSAData wsaData;

/ u5 n4 G0 _# A/ w( G/ {

/ S2 ^; t/ Y2 ~! H

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

{ //初始化WINSOCK调用

# T# C) B" Q: M+ y! U0 M

MessageBox(NULL,"Wrong WinSock

$ ]9 a+ U% I8 N1 t' {* ^

Version","Error",MB_OK);

: X+ ]* g4 N! v4 z

return ;

( a! E4 _! K4 q0 K+ o* ~* R

}

2 w O! f' o2 E* }$ f" |

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

址

}

) e0 g/ G! z( f) Z' ~

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

1 c4 M {# c5 _! I7 P1 w

void __fastcall TForm1::Refresh1Click(TObject

4 d o" P8 S+ _

*Sender)

//刷新IP地址

: X- o2 |0 h) U

{

char HostName[80];

2 A" J w' G; s" ~& q

LPHOSTENT lpHostEnt;

5 W' |7 z; v1 Q. I1 E

struct in_addr addr[2];

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

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

" P) W, ^! w8 N$ P* C+ A8 m2 ^0 u4 u

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

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

! L1 e4 w6 I# c3 `

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

}

u2 j( B+ L) k( g1 Z

if (gethostname(HostName,

) ?, q0 G- M* `5 s! F/ X

sizeof(HostName))==SOCKET_ERROR)

: Q8 \! t7 f2 S$ {4 I+ h

- A3 T1 Z" r( T' O5 f9 k. }

{ // 得到本主机名

% S, r. j0 b" s

MessageBox(NULL,"Can't getting local

f5 c9 {' @' U0 G. o6 w

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

8 `8 V0 H& y8 l# j% i% T

return ;

}

g3 U8 f! g; ]5 O* Z3 C0 O

Label3- >Caption=HostName;

/ C7 Y3 ~+ }7 N3 y3 z( b1 z! L

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

主机名去获得主机结构

- d+ j7 Q% ]! R. c3 s3 P' D3 [

; V H3 W: t8 k+ u

if (!lpHostEnt){

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

) k: _/ E6 n; w( R: t- X

"Error",MB_OK);

( d9 h7 l7 W5 }8 C% K! O: T/ E

return ;

}

$ O: q6 o( h- k* B/ I

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

' H/ U# j r" |" Q t( }

i++)

( x# K' P8 l0 D) G

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

' U. q$ ?4 u& c; l' l

{

l$ t* B- z" d) X+ I6 G. v

memcpy(&addr,lpHostEnt-

>h_addr_list,sizeof(in_addr));

" ?( a7 ?/ r9 x- D. U

}

& P* P6 O8 s+ @0 X6 p+ |

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

* t( W+ K* m+ y

# ^0 j, @; h/ i4 O1 F' r# ]3 D

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

/ t" m P; K7 m

}

$ G8 d$ m! c0 f

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

void __fastcall TForm1::Button2Click(TObject

5 d# [9 J$ ^6 s0 w6 b

*Sender)

# u% r" C" b# ?* ?

1 p1 P+ I3 [5 P0 O# g % r* b3 S0 G6 ~ V$ j1 q5 D" M' V

{

WSACleanup(); //释放WINSOCK调用

' ^1 d2 r. A) o" n& u# k: e

+ h( _8 O2 `* p! [8 T

Close();

) K* z8 F- A6 n4 ~# o# |( [6 u T( f

! [6 a" F5 Y6 C6 ?2 r

}

2 d" W! [" V; K9 P/ o! W

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

- g+ P7 @7 b$ @7 \. `0 T0 e, P

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

0 d$ ?5 S, k7 ?$ {! c! ]

通过。