拨号上网IP地址的检知

韩冰

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

王准

; D4 ^) X$ w* B X4 @

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

3 \% s4 |' @& ?/ M J, z

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

% S" ^& F( k- c, }

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

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

2 H$ ?7 a- z8 e. w$ p

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

* E5 p7 g3 S3 j; n+ H; g

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

5 L0 Z5 }! O. ~

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

样能运行）

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

6 F7 {4 K) Q& x8 h4 I

IPcheck.bpr。

8 Y) t/ ]+ R' X' m9 L" u

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

( ~% S9 n: e/ N9 v8 z& l! P

示。

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

0 @. N0 c9 I" z4 u4 A

void __fastcall TForm1::FormCreate(TObject

*Sender)

/ s Z! A4 X( @7 X2 c

{

WSAData wsaData;

* B" ?% T4 G. O( Y3 i5 P

2 H/ G) ?4 ?& u; x2 Q

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

{ //初始化WINSOCK调用

MessageBox(NULL,"Wrong WinSock

. c1 n3 Q+ X K' z5 d! o8 T6 ]3 W

Version","Error",MB_OK);

. W7 i4 o8 L- L) R

return ;

$ {2 h' C) s3 K2 Q8 n. _

}

1 p% p- Q: F0 r* m% E* c+ K

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

( w5 I( T' r- e; O. P8 ?

址

}

7 F4 n; I% o0 N% ?' ?8 ~) ? [

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

" A2 H! o3 ]$ ~6 T& n/ J

void __fastcall TForm1::Refresh1Click(TObject

*Sender)

; @8 s. ]" Q X6 D1 y" ]

//刷新IP地址

+ Q' x! w0 Z% V

{

char HostName[80];

# ~8 R5 U, Z/ B$ m

" C* `4 q: `* e/ j' Y. A

LPHOSTENT lpHostEnt;

6 F# i' [: \. B* n& L! r3 a# g$ s

struct in_addr addr[2];

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

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

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

) b4 P. e2 W S/ Q

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

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

}

if (gethostname(HostName,

1 n/ \6 Y8 m7 n9 Q' N

sizeof(HostName))==SOCKET_ERROR)

6 R! Q" g4 P5 V. }$ e0 c

{ // 得到本主机名

7 m( D9 N$ s- l8 a

MessageBox(NULL,"Can't getting local

* T% x2 I& m; \& X# o/ h% h9 h

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

: Y- j; J* u' V, P8 ?8 X

return ;

% I$ }+ j, D" f' P' h, k. f/ ~7 a, R

}

8 C, ^) S. Z0 Q1 c( o7 \& d

Label3- >Caption=HostName;

" C) B. y7 i+ Q$ b h3 N: e

* p, ?8 o% z6 d9 X; ~

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

主机名去获得主机结构

if (!lpHostEnt){

+ {& o2 L; |& ^* p2 |# }

$ Y, v# J5 J& Q5 P' k1 o2 L- V: H

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

9 y6 R. p- i6 z% B! n0 v

"Error",MB_OK);

, L" X; p3 S9 j& H1 D

3 g1 X# O$ \" d+ |) m

return ;

}

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

3 |- I6 }- a: D, L

i++)

: n) g& m4 l; i* {: i+ p9 m

4 ?- c) i# g9 T: b3 Y

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

{

; d& w5 T7 y$ ^( R8 O. O

memcpy(&addr,lpHostEnt-

>h_addr_list,sizeof(in_addr));

3 L) {4 d" x% ` h" v

}

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

( E" i; Y/ b! H) Y% h

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

}

4 [. K' X. |, G: m# D D

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

7 N4 S2 E/ k H2 S+ L( ^6 R2 o

void __fastcall TForm1::Button2Click(TObject

9 ^: U* [" P' `1 Y2 `/ X3 b% A

*Sender)

9 ^5 X! I: d1 ~' B0 g, J7 {

4 c9 V/ y5 s$ y : ?: G2 [5 T5 n" R( o5 Z: A

{

7 F- p; q6 X: U

WSACleanup(); //释放WINSOCK调用

1 c8 N% B& O* b/ P& `7 e- _/ {

Close();

}

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

9 B* \- @( b0 q% G/ @. _

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

2 G* j, i( e/ ?+ |3 @9 O" I. ^

通过。