拨号上网IP地址的检知

韩冰

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

6 `/ u# n. n5 ~+ J. [9 j( X q9 I, q

王准

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

" ]8 b" O, |3 z) j

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

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

4 C: v. j* {! t2 n

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

& _$ N% I/ E) m, Y0 K$ J5 g

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

4 f1 _. I. u1 a* s6 S: \

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

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

' L: x) _3 ?' w! @

样能运行）

5 l8 D- P, b" X) ]; M

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

IPcheck.bpr。

) Z8 w" z" ~" H' c, F ^6 H: s, F( L

( T, p- M& h$ S0 @7 t

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

: r" P8 L9 w: Y! p

示。

! f) o$ A7 q3 g7 w9 K8 H2 H$ v% P5 G

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

void __fastcall TForm1::FormCreate(TObject

" F; w4 B0 F+ c, Q; i. B

*Sender)

' }4 H* Y" l6 \" y" O( w9 }

{

WSAData wsaData;

@2 X; F1 n N6 c" I4 x d1 S

. x% N. }/ G& Q1 O1 ~

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

9 a+ X. I" C' c6 @! t

{ //初始化WINSOCK调用

; Z0 B% z; p5 y+ L( h

MessageBox(NULL,"Wrong WinSock

Version","Error",MB_OK);

- [' f* c! O8 k6 a* D

return ;

/ V1 z% {' V. j

}

2 k4 B/ A& T! x$ r1 F: u, H

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

5 W' [& \# e5 [4 k( }5 R! X

址

}

4 q7 W5 x$ @( \ Q

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

1 b: A% X6 L/ H1 r. o, n

void __fastcall TForm1::Refresh1Click(TObject

*Sender)

//刷新IP地址

- j5 k9 l2 n6 i r& E

{

char HostName[80];

LPHOSTENT lpHostEnt;

; s R3 ?' N* j8 B* c6 |

6 H6 D p0 U5 I

struct in_addr addr[2];

( m9 ]/ Q7 w4 f+ W

/ c9 o6 N. R+ J% @9 u. D! h( _

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

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

: }3 @% m$ W8 t. M5 Y

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

1 T; w$ E# q! j2 | P

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

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

: W, z+ E0 c/ A4 p5 V

8 `) ?% C6 v5 |9 \& x- s

}

8 V, V1 {* u3 I2 v" O

if (gethostname(HostName,

sizeof(HostName))==SOCKET_ERROR)

! s# C% x6 Y$ T. w2 Y" k

# v" `6 ?8 e$ N3 l4 Z0 w; K- [

{ // 得到本主机名

4 ]: [# g' {( u

MessageBox(NULL,"Can't getting local

8 z! o( q2 {0 K$ ]: A

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

return ;

}

. u$ K, i. k7 F1 e/ R, u: o2 ~

4 k2 J6 i$ v+ u! r2 n

Label3- >Caption=HostName;

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

主机名去获得主机结构

$ {) n6 r; [+ w, V+ r" E S5 Q7 i

7 e6 J! ~: \% v5 V% c {5 D2 T

if (!lpHostEnt){

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

: P7 ^$ a2 [* T

"Error",MB_OK);

! K4 x. F" A) k' I- E p9 Y

9 d& z, B' l: `& h7 L& L4 d$ e

return ;

, [$ f' |5 [: l5 e, [

}

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

i++)

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

{

" W7 r' B% L3 G- T" e$ A \: ]

memcpy(&addr,lpHostEnt-

>h_addr_list,sizeof(in_addr));

0 {5 Q4 {$ R* E+ H, E m

}

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

7 x( G9 q2 v; y. x* \# q

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

}

0 ~% |4 f& S8 ^3 |1 P0 X T

2 {3 m8 p) f; x! `4 \: M' F" n

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

3 k1 S9 h/ [, p _! ^

void __fastcall TForm1::Button2Click(TObject

*Sender)

2 D/ l2 }4 e9 ^9 V% R

{

! Z2 @' r/ B: f; L

7 g+ y5 M: q1 G0 U6 r9 s

WSACleanup(); //释放WINSOCK调用

9 u! S( s/ f8 l I1 O. j6 y

Close();

9 G3 a) a: ?9 }9 V

* u& k; z5 O1 \1 ~( y8 \7 D

}

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

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

通过。