拨号上网IP地址的检知

韩冰

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

5 V7 u# r7 E& J k+ Q4 G

王准

1 R, e6 r( ~& k( G8 m

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

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

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

$ U; I3 ^, C3 }0 r# k4 U) [2 D

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

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

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

* t8 t7 V8 r4 Y- z; K

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

样能运行）

Y% J) [ _1 f

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

IPcheck.bpr。

+ }% g2 Z" l5 l% n1 X3 i

$ U9 g$ x' J( T2 ^* x& B9 S; g

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

示。

% q# W$ M# D3 }4 w" _% R

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

0 Y }% H" t4 r K+ ?

void __fastcall TForm1::FormCreate(TObject

7 C) s# `; \7 |( U

*Sender)

{

5 A' O1 M4 c' T

WSAData wsaData;

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

8 g+ ~5 B1 E( Z- F

{ //初始化WINSOCK调用

$ P' w$ E& \7 b9 B: I- V8 ?# u

MessageBox(NULL,"Wrong WinSock

Version","Error",MB_OK);

return ;

}

5 q ]' j$ O7 w$ @

% C( p" {6 ?* O* E1 @' Q4 p

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

址

}

& |$ h1 T5 V- [" S

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

. m( _6 ~* b# ^' g9 g4 d1 p: ~

void __fastcall TForm1::Refresh1Click(TObject

% x% k; e8 n. D

*Sender)

$ n5 V- F6 k% F8 @& y% E% X0 i/ F7 h

//刷新IP地址

+ U1 l# G% x0 w1 @/ e

{

char HostName[80];

& Y+ f+ V* u+ {7 ^7 L4 V4 A

- ]9 j( Q) b, W

LPHOSTENT lpHostEnt;

- R9 Q. {1 q8 A/ X- j& i0 `

struct in_addr addr[2];

- ]0 }/ q/ v# @! x

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

; X# w1 b: V$ w0 `

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

' L+ Z. ` K @1 a

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

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

0 v3 M0 W3 q, R5 w5 D% m% [) A

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

2 d- [- w, K8 `: F/ p

}

0 t9 E* H# a4 \6 X: @4 W7 P* C" t4 m

* }, `3 {5 K/ ]1 d

if (gethostname(HostName,

& k: Y3 D L% w4 b0 @) F

sizeof(HostName))==SOCKET_ERROR)

1 _( y' i2 [. E' F3 k, _" c

( T* [3 Q6 ?, W9 a

{ // 得到本主机名

MessageBox(NULL,"Can't getting local

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

return ;

}

; L4 C0 v5 H$ X% U, F, n

Label3- >Caption=HostName;

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

- o- M1 m3 v1 S$ y% B" q p: j! W6 U

主机名去获得主机结构

if (!lpHostEnt){

' G/ i6 F2 s$ E. w5 j& _6 N

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

"Error",MB_OK);

9 a; L, d3 E. q) @+ O

return ;

* a5 ]$ J7 O% W' @

; x G* j y6 K8 j2 A3 f

}

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

i++)

3 I& e9 X6 p s( I- K% M: R; o

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

( ^1 l' S0 Z9 P* y

7 {5 q& _0 f0 O {: h6 M* a

{

memcpy(&addr,lpHostEnt-

>h_addr_list,sizeof(in_addr));

+ Z# L7 d$ `6 u1 W7 L

}

i& [6 g2 C+ D

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

$ v9 y! Q( S- h

$ d9 u9 Q" H" j4 W

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

# f& Q. @- y$ `3 C' |8 |9 a5 w

3 @3 m' {' A* A- i

}

9 M/ _- n9 Q& }; i% E* q

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

. h- a7 [6 o! m7 U# C* x

8 X7 ]1 U7 f2 r' [

void __fastcall TForm1::Button2Click(TObject

! i& E& D2 J$ R

*Sender)

- r% M- n- J+ C# ^

{

/ V! B/ x3 ~7 V6 F! Q

WSACleanup(); //释放WINSOCK调用

Close();

$ P7 V3 Y/ Q9 y6 _; ~

}

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

! ~/ @5 _& D: G& O8 h6 ^- w

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

$ A' |& Z1 y0 q& W; I

通过。