拨号上网IP地址的检知

韩冰

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

王准

a$ _4 C+ @, J, c

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

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

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

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

+ b* X7 {4 f* z1 i: _. D9 n* H' F

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

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

" N) R- r# }5 @; |2 ]) _, Q, h

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

4 `# U' T8 ~5 D: {1 B$ Z

样能运行）

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

: y. e0 n& ^7 ]; L4 k, W p) l5 }

IPcheck.bpr。

0 \, }6 a) F7 ?7 u/ S% i" k

8 K( {9 @: R/ [4 D7 }7 p

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

示。

) g: X# F0 B1 Y7 }3 T# R& H

4 u5 A' H; J# {) b5 J+ P

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

' g( V( ^+ j0 L

void __fastcall TForm1::FormCreate(TObject

*Sender)

5 N4 J7 f) ?6 d% w# ^

{

WSAData wsaData;

* c& e3 w& a7 D _4 [" I% o# f

/ S+ H, h$ C8 Q, j2 F% P

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

{ //初始化WINSOCK调用

7 Q& |5 H* K) g' P

MessageBox(NULL,"Wrong WinSock

' @6 P5 I Y# X- _' x

Version","Error",MB_OK);

return ;

}

; w+ `' C) s+ d) }# s0 i4 P( e5 A

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

c. m6 c& W5 Z) S! N

址

}

7 D- f s$ t! z

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

7 z/ G+ C1 \3 K S% O

void __fastcall TForm1::Refresh1Click(TObject

*Sender)

+ q) Y- {4 U+ K5 _" p9 Q

//刷新IP地址

{

' x7 L4 x. w/ X9 U' A9 ~) ~

char HostName[80];

7 H# w! m6 j. C1 \

K6 _; U+ U% }8 d) ?, }

LPHOSTENT lpHostEnt;

struct in_addr addr[2];

; ?; R5 _! h2 ]6 f

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

: S @) U8 S2 G( H4 K" a

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

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

' V& _0 z2 \" Y% k- x) ]7 E* z$ k

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

2 y6 n5 k/ T7 s0 v) z) m0 ]* Q

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

4 F2 u& t+ A* n4 C! U+ V; m, J

}

if (gethostname(HostName,

sizeof(HostName))==SOCKET_ERROR)

- S6 W! ^& Q# X" A7 v6 n) w4 j( ~1 T

{ // 得到本主机名

: M k9 K1 A5 y# j+ \6 j) t* J' n- W

MessageBox(NULL,"Can't getting local

' Y7 Q7 } l1 |/ j

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

return ;

}

3 ~+ Y, U2 Y6 L

Label3- >Caption=HostName;

+ g, i8 l: u8 W0 S" ]

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

; ~( l8 p+ Y7 }2 D

主机名去获得主机结构

3 O* v. ]* Q; S' l% C/ W+ N7 T7 t/ G# Q

, G/ y4 D& s7 l }4 m$ L: k7 o+ Q; F: E

if (!lpHostEnt){

/ A7 ]" P; E. ] o, `

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

7 L6 Y. {; z6 }% l

"Error",MB_OK);

' N, O: Z2 L4 M* ~' n% b3 k$ g

# ]: p, `# M2 m) Q0 }0 j C- A, G

return ;

# q; C( D/ J, A* w6 d

4 a( ^: _7 `- W: j8 m6 Y4 e

}

* S% ~/ U" i5 ^9 H

2 D- ]( T0 P9 e w% i7 a9 ?

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

& {$ R* y0 H+ G8 T' v! j6 }0 i

i++)

( Q( e: Y$ Z, T3 N9 e

; }" }2 [6 o4 V3 @ x3 L

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

% W4 Q$ b2 d$ Q) I; |( o

{

" |! I& Z8 W$ h* o4 y; h, ]" L8 J! y

memcpy(&addr,lpHostEnt-

>h_addr_list,sizeof(in_addr));

, ~" J" v& m0 P( T- h

}

5 T( Z% Q1 b8 G2 j; Q( [# \' u

; R% v5 i, y( Z

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

- O* u6 b! i$ D" R8 x

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

5 r! x1 e: |* q/ |/ a1 t4 e

}

, t7 l. o/ ^# r0 O) X d- s

0 G: F1 B' g* T! o8 X

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

void __fastcall TForm1::Button2Click(TObject

) [. A; q. q4 h

*Sender)

{

% Y+ g) |+ v: I

WSACleanup(); //释放WINSOCK调用

M9 g; W% x h E- y* b1 u# c

Close();

}

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

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

通过。