拨号上网IP地址的检知

韩冰

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

王准

* A% l. l" B5 B" l2 J

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

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

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

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

" ]8 i3 m% |: F! @% A: {

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

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

]! N9 n. c+ B* k

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

样能运行）

+ k: ]1 }6 u1 j7 w7 }; u

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

0 Q1 ~! a* n; [ h0 O. q- g

IPcheck.bpr。

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

: D6 {& h# [2 D5 G7 U4 ~6 S0 D h) o

示。

* v# Q3 A$ Y R* ~% a+ \

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

# ]! H: e, F# T

void __fastcall TForm1::FormCreate(TObject

& m% _ y# M% r" ^

*Sender)

' n* u! y2 O% `' H( f" X5 e

{

% Y7 K" N# d4 w5 ~8 w/ K6 Q

WSAData wsaData;

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

$ ?( N; }6 r. V; Y( `- [! a* R

{ //初始化WINSOCK调用

, e0 v: O5 _+ Z" x" S

MessageBox(NULL,"Wrong WinSock

Version","Error",MB_OK);

return ;

' }1 ?! `- E3 N8 ^

}

: ~9 K9 C- Q& U5 u+ |5 a

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

" v. @+ ^4 q" l- L. T( w

址

}

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

void __fastcall TForm1::Refresh1Click(TObject

*Sender)

//刷新IP地址

{

char HostName[80];

/ P/ H+ Y* H t% D' G5 ^+ {

, j9 V* @0 u( p. F( n& E. V

LPHOSTENT lpHostEnt;

: X- y" f% y8 Y

2 X2 n/ [' J5 i0 O1 V

struct in_addr addr[2];

$ z% R: L/ r( A( g0 s

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

, e7 A9 _% Z) k! k; v: Z0 {

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

$ y+ H$ }+ S$ r s

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

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

4 K& u7 u; q$ E" \0 f

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

; C/ R7 U. \9 z% @

}

% R5 z5 Q6 e$ O

if (gethostname(HostName,

sizeof(HostName))==SOCKET_ERROR)

5 h' N! C Y; T5 j6 ^

3 t4 x1 C0 o& ~0 L4 k: @

{ // 得到本主机名

6 r/ x$ [: W* z' g/ z) ?

( y' D: ^2 b9 M' [% f/ g: y, Z; W+ s

MessageBox(NULL,"Can't getting local

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

return ;

3 ]( { r8 ]2 r1 Y, Z3 Z

}

9 X( y" J4 ~; t5 H) Z

Label3- >Caption=HostName;

, c3 I, T# K7 i7 e8 q) i

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

主机名去获得主机结构

$ Q! u8 }( c! e( t$ v: D, _0 T- B5 v

; b# o% N" E% e& C. t

if (!lpHostEnt){

! R3 G+ n. Q" a9 Y+ V4 ]

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

"Error",MB_OK);

( ^! }1 ~' V v* V0 q

return ;

}

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

i++)

" \% y& h+ {% j9 N" u

, D- P' @; x2 @; t

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

{

1 D$ Y8 ]& M) {- T

memcpy(&addr,lpHostEnt-

- M5 U2 U/ Z7 v" S- ]5 z

>h_addr_list,sizeof(in_addr));

- p1 W4 A' H# ?( Y

( Y5 o; ]( l: C5 o) c9 a1 Q2 Y8 s

}

. a: Q3 C# z2 I! _( h; O

) }0 @- |( ^8 A3 u; X% K5 D

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

, r' r- L2 ?8 x

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

4 b( `4 I* Y- k* Y( y: t6 A7 b4 t

}

: E5 c# H4 ^( o# n

: s/ ?/ s2 C. y2 O& q

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

9 N& K, I- u" t) J+ S p

void __fastcall TForm1::Button2Click(TObject

# W& P7 I# N2 S8 V; [5 {0 c

*Sender)

' \, k8 Z+ X! n8 O

{

. Z. V/ G" t9 y8 K+ s. b) l

WSACleanup(); //释放WINSOCK调用

Close();

) m1 h' f: { Q! D9 `

}

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

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

9 t$ [+ }9 z# b' s5 B$ p- b$ C8 ^+ b

通过。