拨号上网IP地址的检知

韩冰

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

" `, A8 |1 W8 @' o, g; P( T# l6 C) ]) h5 q

王准

% e: m6 N [: b" e8 T! s

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

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

8 {* }0 C0 L( ^ e; w9 X6 Q

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

/ q! f$ |0 c. d0 P* W

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

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

) L: g4 s. _, d. W! F. v& @% A

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

! K( l9 c5 s% f5 _! G( O3 _) e

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

, ?8 m0 x8 s! y, W% Z6 |

样能运行）

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

+ M, K7 x. ~5 a, N/ F: ?6 G

IPcheck.bpr。

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

5 s' @0 m: w, s6 C3 w+ t t

示。

u. r7 |) `8 O: V4 m3 l* t! J

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

7 E( c. v) Q+ @# i8 a

+ L6 ~7 k5 @3 c2 l

void __fastcall TForm1::FormCreate(TObject

' \1 \3 r8 X# q: c# Z+ ]

*Sender)

" D! ]" x# J# Y+ Z

{

WSAData wsaData;

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

- i6 ^; U3 b) T! `0 {; [

{ //初始化WINSOCK调用

2 z* H$ y% b/ Y4 G7 n" |& D# `

MessageBox(NULL,"Wrong WinSock

/ c7 f! }# V" D7 @6 ]9 x

Version","Error",MB_OK);

return ;

}

: X7 \ P& q5 k, `4 Y. {

2 m* d c4 B, m0 O* T3 }, C+ [5 ?4 W

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

址

}

7 q7 X5 F; I) W, q* f% ^; K

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

4 ~* H5 ~% B" \

void __fastcall TForm1::Refresh1Click(TObject

*Sender)

//刷新IP地址

% D9 S. B% W; ^

{

2 |, Z! ], b4 S8 k9 G( U9 d

char HostName[80];

* u6 J- u: G3 `- l j9 _

LPHOSTENT lpHostEnt;

! y, D! T1 L4 H% G

struct in_addr addr[2];

& i8 B# J! c0 ]7 k+ ?6 ]

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

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

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

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

" t% W' v$ Z- K' N2 Q. L

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

7 }+ d' w2 G. r+ b: u/ I/ ?# Q

}

if (gethostname(HostName,

sizeof(HostName))==SOCKET_ERROR)

: {( ~! x) x( f% |) s

{ // 得到本主机名

MessageBox(NULL,"Can't getting local

/ T8 t$ p- O1 P5 t2 O

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

" s& t8 s8 E4 [3 ?

return ;

}

( o+ d/ b3 S9 n7 D# R

Label3- >Caption=HostName;

1 A! A! z$ }2 g- I+ o7 h' ]

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

主机名去获得主机结构

( W1 e6 x% b# a2 ]; T

if (!lpHostEnt){

- o/ E; R' u! P

4 G3 u- P* a" D

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

"Error",MB_OK);

return ;

6 g+ ~4 w+ _. Z& u/ Z( y6 w

; m q' ]- T6 ~, w& s

}

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

i++)

; W! o- x7 ]& [8 @

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

{

memcpy(&addr,lpHostEnt-

>h_addr_list,sizeof(in_addr));

5 ? \4 f8 Y" l2 S7 |* x, k, V: t! z7 |

: [6 m1 c5 M' O. C( c1 C* z% L

}

. |, f( Z( i( W4 G; ?5 _, J

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

8 m: d8 ~! q4 A; L2 Z2 F

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

+ s8 D& g: `. D# `% W% ]

}

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

8 m9 S5 K) z: Q+ U0 Y" A

5 l2 A4 a2 I# q3 m+ X) T

void __fastcall TForm1::Button2Click(TObject

8 `1 ]. u" B7 P0 c

*Sender)

" w5 _. Y% W- p+ `- F+ G' ~! N

* i9 k8 U! F1 U- R, c9 H& R# V

{

, P" f& U$ x1 d3 K

WSACleanup(); //释放WINSOCK调用

Close();

) d0 d& U6 F' P1 o, B2 U

}

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

( P: }1 m3 d" j4 c

& f0 w) _( ]! Z, I+ M& v

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

) p) v+ [* F( L" b4 C/ ~

通过。