拨号上网IP地址的检知

韩冰

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

1 b5 W5 w0 j G4 V5 T, R

王准

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

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

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

: J S' k5 ?" V

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

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

/ L7 M4 Z7 P p8 k: {

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

. L! J) n9 @) p+ q5 Z* t

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

5 S4 Y& F8 q* H

样能运行）

, W; q. Y( @- P9 `; k8 C7 u( Z

) [4 r7 Y% b$ ]$ w+ a2 ^# P! U

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

IPcheck.bpr。

% A0 L! i& o& M+ a4 @' n) b

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

示。

/ V( X, G$ o; s

" S& r! g- G1 z

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

8 {' U7 |6 Y+ h

void __fastcall TForm1::FormCreate(TObject

*Sender)

0 y& K9 [* D. M/ \' S

{

WSAData wsaData;

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

. R: ^3 x* P, C) Y) p

{ //初始化WINSOCK调用

4 h9 L; {' r C# }

MessageBox(NULL,"Wrong WinSock

Version","Error",MB_OK);

return ;

9 e% s) S H1 I B7 U# d6 x

}

0 j' [% Y/ \/ ~# R& e

$ Z h6 ?1 G% u$ S/ N- @0 D

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

址

}

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

void __fastcall TForm1::Refresh1Click(TObject

*Sender)

$ O$ |+ U' I) [7 v% Y

//刷新IP地址

5 f9 d& P# ]9 p

{

char HostName[80];

, R, n5 q! t& A; @7 f1 j

LPHOSTENT lpHostEnt;

; F# F+ Z* ?% o0 G- T; K; C

8 B2 I+ [' q' ~8 t

struct in_addr addr[2];

8 n! q! T- U, U, B

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

# d9 O. W5 a/ I; i& Y3 U

, J7 T* H; J6 p6 \$ n2 ]* y7 F- g

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

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

2 @. m. `5 Z- E8 f

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

7 r$ [5 b) {2 Q' N

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

# J5 |* B6 S$ a9 L: o

2 D% h2 \2 k9 w% T* J8 @ U

}

if (gethostname(HostName,

8 D# T; z1 q0 T! e4 b7 D' E0 W# }

sizeof(HostName))==SOCKET_ERROR)

- I# }- |0 R/ F# e) G; N

{ // 得到本主机名

& ^' ~' S3 L& `! N; j" E( ^$ c

MessageBox(NULL,"Can't getting local

! D& R2 w3 v! k

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

return ;

0 x) t. a- ]4 X. A

}

Label3- >Caption=HostName;

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

- n6 O* t' ?! J' K! H: e7 ?9 U

主机名去获得主机结构

. i8 z b( C8 g; ?& _, j* D1 D

if (!lpHostEnt){

. o7 y3 P, a; c7 T q2 V" o' M

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

8 E3 a) j/ A, F5 M8 L; g

"Error",MB_OK);

4 i: ?2 t* L7 q! g

: m) b2 e7 r; A5 F8 s* x% Y4 V) d

return ;

}

$ O4 w- t$ F# A( y

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

i++)

* @, k% `$ W( l

" i3 m( g- ]) k; r3 O$ J- ]

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

! c- r4 l6 u1 C( ^; H

{

& B" j5 p; \4 s

memcpy(&addr,lpHostEnt-

( ?( z# q5 E' G

>h_addr_list,sizeof(in_addr));

* Y" P* H& K9 x* K' B

}

! K1 C$ B( y* a4 i1 H" H

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

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

. h& N' N2 C/ X7 s# M; l6 r- m" y8 P

}

) I, @# h5 H$ g/ P+ y0 @& y

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

; o( y$ r1 I' I# a; R2 `, M

$ u8 t# P* R# A8 D9 C1 Z

void __fastcall TForm1::Button2Click(TObject

. x' @- R. W) d v

*Sender)

5 D, e2 @4 f+ {' Y: A. @/ N

{

. b- r( H# }( N$ R/ [

WSACleanup(); //释放WINSOCK调用

}' \, }/ X& b

Close();

}

4 S4 v/ ^) K9 ?2 A

- p. | k, p8 k+ D6 Z

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

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

通过。