拨号上网IP地址的检知

韩冰

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

王准

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

4 y# M7 f U! \6 ?. b

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

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

8 H- I: O f7 |" |

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

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

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

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

样能运行）

2 ]; P$ q6 l# a! i3 s& C( Y4 e: Q

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

- Y/ D9 J: d7 W: v# Q1 y

IPcheck.bpr。

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

$ V! _5 ` R7 m6 L" G2 K: ]9 L

示。

3 x) z% ?! y7 }3 {2 C3 ^* p

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

void __fastcall TForm1::FormCreate(TObject

) ~+ h6 I4 ]9 r* K' J1 y6 _9 x

*Sender)

; y9 v7 z1 j) T' l6 s* Y

{

4 {! C U1 W4 J7 T1 ?6 o0 x/ J' C

WSAData wsaData;

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

* V& F x6 z7 J# X

{ //初始化WINSOCK调用

( A* N9 C# P* D! U+ ` g

1 | ^+ y$ q( F7 ?( b3 B

MessageBox(NULL,"Wrong WinSock

Version","Error",MB_OK);

return ;

! z- V/ z3 `5 A) r0 W

}

" {2 V& B% Z' E }! M: l! L4 V4 k% r

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

址

}

+ I& t' O! L0 |9 B, H

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

# g' c8 e+ V3 Y s2 V+ R

. l1 u/ h$ I$ r

void __fastcall TForm1::Refresh1Click(TObject

4 _5 G' G6 u8 f( ~, {7 N

*Sender)

//刷新IP地址

{

$ B2 Z2 J# M% j1 R" d. V. C6 |. i b

char HostName[80];

LPHOSTENT lpHostEnt;

* [6 a2 E) E! k, J+ K

struct in_addr addr[2];

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

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

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

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

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

) S& y# |# S/ d; m5 A

}

if (gethostname(HostName,

sizeof(HostName))==SOCKET_ERROR)

! U* Z* a& h5 Q

{ // 得到本主机名

MessageBox(NULL,"Can't getting local

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

# `% i, j L, ?" `9 Y- S

return ;

% }2 A! d& X$ J) w1 P

}

0 a; C) x: v. c8 I) x0 |

( b: P+ z8 n; D2 T1 K- T8 R* H

Label3- >Caption=HostName;

! z, i! c5 W# g

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

' Y4 ^# E3 @/ ^( S+ \* R4 |9 D( B

主机名去获得主机结构

& |/ M4 I p+ ?6 O1 k# D0 C

2 v& ^( [3 K) G, g o; w

if (!lpHostEnt){

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

"Error",MB_OK);

- w" n4 z: T) d* c3 ^4 }! ^

( ^5 p. Q& s) U5 [: N/ _# q

return ;

( n' t5 H% P6 w r9 o+ Q$ E

}

! E0 \/ {3 F$ m E/ M

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

i++)

/ l8 {! E$ F0 q& A0 A6 O( I: p* n

# U0 l" W7 R2 @7 {: P( }

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

7 q9 \, G0 L* s3 n9 S

{

memcpy(&addr,lpHostEnt-

>h_addr_list,sizeof(in_addr));

; o3 T) c3 o8 ^1 D k

}

) O/ ~% X* q) x* K2 C* d

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

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

}

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

# q7 M( G0 D* \

5 o2 `* `) s; m7 Z7 ~

void __fastcall TForm1::Button2Click(TObject

- [+ \( d5 T' R6 x: P

*Sender)

0 ^, D' T% Y! S: i& o- U i

{

WSACleanup(); //释放WINSOCK调用

( P. S* v) M. @3 N$ S/ j5 _

Close();

# M% [1 v- m5 K( t+ `; F q

}

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

' q7 }; n* [7 i: a; O

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

通过。