拨号上网IP地址的检知

韩冰

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

7 ~: N4 Y$ r5 D5 ]# ?

王准

/ K$ j( ]1 Q0 [. P. i: N

0 z8 S6 [& `$ `: x4 p( l: e- Q2 V

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

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

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

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

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

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

( T/ f( q( x" K: `$ E

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

3 [0 g, e! u+ o! M( x! K0 w* W

样能运行）

4 y7 G0 z5 c% N( A( O3 J/ C

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

IPcheck.bpr。

; O2 |2 v3 f, `. J) E* O/ e' C

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

0 ?0 q/ q- f+ ^) P: _

示。

$ H1 X: q% S# L

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

& I, Y! u+ D' d( L

void __fastcall TForm1::FormCreate(TObject

*Sender)

. C) c- [( P' \- d0 K# V) y8 T

{

, \( `6 i. x* H

WSAData wsaData;

* l* `% d" O0 W7 Y( r

0 D. @( v% l/ N+ `

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

, J; C9 C8 T& [" N

{ //初始化WINSOCK调用

MessageBox(NULL,"Wrong WinSock

Version","Error",MB_OK);

0 M/ o t1 _# H8 X/ [$ d$ y9 s

return ;

}

- l1 Q# b; A! S& m4 n4 ]6 k S

, m4 X6 W3 v9 L- o& M3 @

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

) X9 f+ ]( V9 G2 u$ U) U4 Q) T( _

址

3 G5 B# ?0 `3 F7 ?5 _! f7 J

}

. X6 X' F6 ^6 N, Q6 S$ d

. E7 b' w3 x- X6 |

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

void __fastcall TForm1::Refresh1Click(TObject

6 E r( L/ o0 R( ?" |" ?3 z$ T' E

*Sender)

% K' Q1 U5 x U- W6 R

//刷新IP地址

{

char HostName[80];

* o2 v5 e9 f2 X& q$ h

( ~) k7 K5 j) g$ q8 m! _1 j, U

LPHOSTENT lpHostEnt;

struct in_addr addr[2];

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

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

, Q {' W) _: M/ `9 f4 ] o# l

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

) |/ L% f$ [( C' k3 M$ a

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

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

, |1 w7 @( U) P: Z' ^! V

}

if (gethostname(HostName,

& h1 G% j) T' W+ G

sizeof(HostName))==SOCKET_ERROR)

# Z0 l) R+ i! @$ Z+ H

{ // 得到本主机名

MessageBox(NULL,"Can't getting local

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

return ;

}

* ^* m( [" W, b1 q5 ]/ L

; L4 C/ [( r! W# T5 N

Label3- >Caption=HostName;

0 F6 `( l# s* J

- D# F( I ]# c( d. `# S m8 p6 F

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

! \5 u8 C' {6 x% U; J& w% M

主机名去获得主机结构

9 M# X- \9 x0 k7 t x/ o

if (!lpHostEnt){

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

"Error",MB_OK);

return ;

6 t. `0 O- s! w

. x R8 _; O& ^% l: q' {6 k1 n, u: p

}

8 V: s% ^7 Q* r" `0 X( d' e) V

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

$ l2 ~$ b# @* E2 q$ r c$ O9 u

i++)

i7 F- g$ R" {! u' s7 E

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

{

3 l% `1 M2 O( ~7 ]# ^

1 U" A' j5 |, c3 _/ e6 n

memcpy(&addr,lpHostEnt-

>h_addr_list,sizeof(in_addr));

3 w- J( Q( S$ c ?

}

1 z; k7 P! p5 M

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

0 a, ]* ~( \; Q+ m8 d0 |" C2 H

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

3 _( R7 c) h3 m$ L- j! s6 j- R

}

' f; {9 _" H7 N

0 c6 X& C# A) ^! H# O1 o

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

void __fastcall TForm1::Button2Click(TObject

A3 r' Q6 c* ]) j5 e6 M: X

*Sender)

+ r+ y& k6 L, U# b

{

WSACleanup(); //释放WINSOCK调用

5 A: X% X% c8 `7 u8 a( F1 l& O" D

Close();

2 c* p# Q) f7 u" C

}

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

& A' f3 K- ?6 [1 W

' R* ]9 l' {3 i/ j

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

通过。