拨号上网IP地址的检知

韩冰

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

, N- H/ n3 x8 V6 e2 O# x

王准

: h0 R% I! c c9 f4 V* m) Q7 I" o3 F

$ ^5 {, O9 ]5 S5 F2 Q4 R

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

, H+ x/ Q8 f0 P. s) i4 b

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

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

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

& F9 H1 }- }. K3 x

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

, O9 N9 k P- q! X

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

6 @9 P1 a! S$ D( g. A/ J( ~" M7 U2 U6 @

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

样能运行）

* j" V# @- H) q$ `, B) U# |

" P6 {* w+ {( |8 z; E+ e

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

IPcheck.bpr。

" W* }' V. L3 y' X6 Q# ]

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

* U+ [5 \; F( o- y9 Q+ h

示。

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

void __fastcall TForm1::FormCreate(TObject

*Sender)

{

WSAData wsaData;

: e6 ^) P2 i1 z/ T1 j1 y

7 r, U5 W6 h( j& G$ Z; `

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

{ //初始化WINSOCK调用

T5 V/ @& |8 S0 Q0 ]2 b+ F

MessageBox(NULL,"Wrong WinSock

Version","Error",MB_OK);

return ;

6 g( S$ G* q- x) @; B: Q

}

8 w$ p) d) T, R

5 q6 Y/ s) n, F I! a* m

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

址

}

. Q1 u: x2 m- g, {- X

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

: |" T( B& n! Z2 i7 r8 k" u2 s5 p

void __fastcall TForm1::Refresh1Click(TObject

*Sender)

//刷新IP地址

{

4 l# n @% M5 ~" V. m

char HostName[80];

( S! `8 g# u9 f! v8 b# g+ e& T1 R6 s

LPHOSTENT lpHostEnt;

# i6 i: o# o" @

struct in_addr addr[2];

+ Q+ u' i1 s4 t) x/ Y

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

7 H" M$ n* e& C& ^

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

+ Z, W$ o8 u5 i

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

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

+ \( b* x4 o B' ^! r$ [

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

}

9 S8 J# p, f8 U# L6 ]

if (gethostname(HostName,

sizeof(HostName))==SOCKET_ERROR)

/ G' X+ T. ^% m( G

+ e6 T1 C( x$ e& R3 g3 I8 w

{ // 得到本主机名

MessageBox(NULL,"Can't getting local

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

+ b W. g6 e) \$ V) ]

return ;

6 n) a8 w) Z, O0 j* ]6 b

}

' U4 m' s4 J6 Q k

Label3- >Caption=HostName;

- j N; x0 N1 H" k I' F! `

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

. P% A* l. j( ?7 |2 E2 d

主机名去获得主机结构

: F$ F; T) p# _5 \

if (!lpHostEnt){

9 a" w/ s" ~/ a9 |0 E

7 a5 P9 J, {4 i1 T# Q

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

"Error",MB_OK);

! O/ D" i# E7 B3 ?. f% D

return ;

% A! c/ p0 \+ Q/ z0 [

}

( { y. C. n( B2 a

# d3 x- p. ]/ K1 W" F' A {

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

5 c" M/ W/ C9 u/ k( U& d

i++)

& l9 G% S! h- u m* V

+ J9 o X. J7 C* E$ d( V& Q

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

{

# _, A1 ]7 Z! ~9 d

R: V, U! z3 D1 h, r1 m" P

memcpy(&addr,lpHostEnt-

+ W+ D* |( d9 ^( A3 R

>h_addr_list,sizeof(in_addr));

}

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

# ?6 J$ I" d+ v4 O; O5 E! e2 Q

( g5 L8 y6 E0 F& r- D" e

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

}

0 Y* \5 I) r- |" Y- ~/ Q% y

# ^, B( E$ u6 s- J- J$ r

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

void __fastcall TForm1::Button2Click(TObject

*Sender)

{

8 b: j4 Y) w7 ]7 P0 p: C

WSACleanup(); //释放WINSOCK调用

6 E s# N {. p9 O

Close();

* R7 D1 B' w. \+ {

}

9 n3 @: ^: R R5 B

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

" y' S* \9 n+ `" ~

& ^1 B" ~ ]- c( } M0 a

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

通过。