拨号上网IP地址的检知

韩冰

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

王准

1 P$ z, Q* ]) d! ]

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

- i# W3 V8 r' e% G3 x) S6 t

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

- t8 V" {% z1 j* t$ ~3 t1 Y

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

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

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

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

9 p* O, ~% o% `, o T6 _

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

样能运行）

# B( Y ]4 o' E* h6 o4 e4 d8 d

( {3 _4 a9 ]* g) y

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

IPcheck.bpr。

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

7 K# y# y$ r! |* I

示。

' C, W/ S7 h7 I5 O! O7 s9 {

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

. T4 _4 U/ s* p7 g

void __fastcall TForm1::FormCreate(TObject

7 B/ R. a9 Z* _5 d" y; \

*Sender)

{

WSAData wsaData;

7 `8 Q# ~6 X @; F# e3 _

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

{ //初始化WINSOCK调用

MessageBox(NULL,"Wrong WinSock

Version","Error",MB_OK);

return ;

( J0 y) O8 g: O: p4 A5 z, W

}

: | k) x& p" h/ X; Y8 }

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

2 x" }0 V1 y8 Y# A5 a+ I

址

4 Z5 W6 A$ U6 \ O( o

}

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

6 I0 A; O! ?) R( H4 j5 W0 }. G

void __fastcall TForm1::Refresh1Click(TObject

*Sender)

//刷新IP地址

{

& }$ `" P4 o5 d1 E9 A

char HostName[80];

$ N( p1 K% X3 a& ?9 R

LPHOSTENT lpHostEnt;

' W9 r% I) ~% L; z0 C' l7 o0 b

struct in_addr addr[2];

+ ?8 Q" l$ a- s* k6 Q! z

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

" z6 f/ ]& i" }1 C3 d5 @, C* a

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

4 i+ Y, }% i+ S7 Y0 D% ]

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

6 ?$ q2 Q; K. K1 E

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

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

i& [' P- y" z$ M: l: [

) p' C9 B- P$ B4 b

}

) V$ l0 h% C) h

if (gethostname(HostName,

. C, `% K: @3 o& [6 w. @8 n

sizeof(HostName))==SOCKET_ERROR)

{ // 得到本主机名

6 q# g; n( a1 E; e( l

MessageBox(NULL,"Can't getting local

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

return ;

}

7 K. Q; p! N: z; ?& _

Label3- >Caption=HostName;

& _4 { h2 W$ m2 ]2 r

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

/ X5 V; f5 B `. j+ N: j0 l1 j

主机名去获得主机结构

if (!lpHostEnt){

' [3 Y% U O+ Q9 P

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

' x& u/ Z1 F+ c- ]8 A

"Error",MB_OK);

/ u$ _7 ^ [, ? o. z& V

return ;

+ }9 ~3 ?( [7 ~3 L" r$ E

}

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

$ u: e) q5 m5 E! ?4 I3 T* ~" C

i++)

4 U* F$ u" S" }+ |5 m" b

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

, a3 m' ] x8 c( B! R. ^

{

* @* G6 _$ Q9 W/ K* @. t3 s

memcpy(&addr,lpHostEnt-

. s! L$ m; z4 `; K2 `$ W4 u

>h_addr_list,sizeof(in_addr));

0 B& r8 S* H6 ~0 e u* [$ E+ G

}

9 ]# j0 j" O9 Y' m! r6 v% d

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

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

}

3 x* e' ]( j/ Z& N i$ j

- `# { U9 |4 z6 i4 z" @$ D; V5 d7 ~

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

void __fastcall TForm1::Button2Click(TObject

*Sender)

2 J. M- Q7 j! V 1 I+ {7 _5 ^6 b, a* m

{

; I; g8 U/ y/ \9 F5 a7 @" K0 o7 r

WSACleanup(); //释放WINSOCK调用

7 O9 N6 ^& t7 J

Close();

, K/ {3 L. W c& t" S) E

}

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

" L: b1 Q/ i, Z) u

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

通过。