拨号上网IP地址的检知

韩冰

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

8 O0 W( N) _, h

王准

+ ]# E; h6 b1 d7 ]) e! D8 ~6 b

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

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

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

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

1 a* ~7 ~9 n2 d o5 ?) X9 ?) ~

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

# s! R8 \$ v" @3 O. }

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

1 D8 A6 R, K' M1 |; z" T

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

, z, }0 V! _6 i

样能运行）

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

4 z* f+ V0 N4 D" P6 j. w' w: k" n

IPcheck.bpr。

- `' E; k& G& k- S1 c5 `

. J! } x ]* C8 c

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

" W; _9 C, e" q Z f

示。

: u% x/ ^% K3 ]* Q) a

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

/ }- w! d& m! a1 g" \1 N. S

: ?& [% M, {, L6 J

void __fastcall TForm1::FormCreate(TObject

+ B! k/ j0 |5 E) ^) m; V

*Sender)

{

WSAData wsaData;

. H# d8 F3 n, I9 K

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

7 r" O( W- n4 ^+ H; W F% w

{ //初始化WINSOCK调用

MessageBox(NULL,"Wrong WinSock

Version","Error",MB_OK);

return ;

}

# R8 y8 l: ~' c% r; U' S

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

x& I' N+ R' ?6 F1 s/ i# x

址

: P) T! A" a) A% }/ I: j

}

; c& |8 k% G# _" n2 R# G

2 n$ q2 d8 z5 a! s$ L6 F) _; f

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

9 n+ X' n# c6 @% J& d) Q% U2 k

void __fastcall TForm1::Refresh1Click(TObject

*Sender)

0 ~9 v1 g7 J: z8 x' l9 a8 G v

//刷新IP地址

{

, F3 |" S, z" b! A

char HostName[80];

2 u. i9 q; T; B H8 a. t

& |9 p; O# N; H$ g4 a$ n4 a' w. V; R

LPHOSTENT lpHostEnt;

struct in_addr addr[2];

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

9 ^: h# T8 T! N* ^0 A, G5 r0 k) }2 r$ A

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

4 _" L; P% U( d" J; f

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

7 r2 W y/ g% N: x) b

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

9 U" M; G, H& b0 j$ a$ F5 Y

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

}

/ i5 J& Y w2 C* ^& X

( J( Z! P( n! @' ?6 f# c, T; D

if (gethostname(HostName,

sizeof(HostName))==SOCKET_ERROR)

2 `# @9 M; r4 l4 ?8 {7 N/ k

{ // 得到本主机名

* a. R# G7 Q9 a: [; \

MessageBox(NULL,"Can't getting local

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

return ;

: o' U4 }( g7 |4 h( C# V6 m

}

1 V7 I% T- r3 m |/ U$ y9 v6 G

Label3- >Caption=HostName;

. ^ F d" @4 {& X: K# X9 N# v

8 i# c8 Y( L, O: i' `- D

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

! D6 V/ Y2 p2 N% `% V! X

主机名去获得主机结构

/ W% i% Q$ C. D+ [" k9 m

; n- B7 |% J+ F5 G

if (!lpHostEnt){

* ~# O, r* g0 r% o8 P( v

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

"Error",MB_OK);

5 ^1 x; |4 L7 K5 Z% V2 }) H

return ;

: V9 F" H6 b, P8 ]

}

7 @. X+ b0 a4 |# \) w$ o* f

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

% ?7 d2 D4 q) ]5 W* z7 \

i++)

* \6 q6 y6 _2 N, p3 t% ?

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

; l0 }8 R4 z% Q( R% J7 N t

! u& ]" V H. d B6 b& Z$ c7 }

{

memcpy(&addr,lpHostEnt-

: @. c4 h0 k; R3 S( Y0 `. e

>h_addr_list,sizeof(in_addr));

0 e( |4 o d) e' R k5 Y

}

# Q7 e- u q: G% f4 Z

B e$ i! z1 ^

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

0 s1 } F5 r& K. `4 ]$ i& e7 N

. ?" W2 o% p, P4 N6 M7 j

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

}

$ L5 A5 K. x8 t+ O8 E

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

. a- N, L, B# R, ?. e

void __fastcall TForm1::Button2Click(TObject

*Sender)

\4 b% ?1 o! R8 C$ E

{

WSACleanup(); //释放WINSOCK调用

) y, t2 E! Z w" d

Close();

}

9 _; c- L A/ m% E# _+ T

: U$ {6 I9 C$ S7 Z

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

\8 \! ~3 A R7 p& r* d

8 ]" ]) p7 W( U% F9 H R

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

) S; x+ Q2 T0 F7 f6 Y+ j' z4 ^

通过。