拨号上网IP地址的检知

韩冰

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

王准

; r. n4 c3 e/ L1 l2 _9 N4 b

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

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

$ ?' s1 Y# r7 P% X

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

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

* i: I" { l4 k- y- a8 X

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

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

) N* _4 `9 @- x% T C

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

样能运行）

% B1 k, k# j5 f8 @) y

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

7 L' |! u" U- H$ k& j$ P7 _

IPcheck.bpr。

5 h' F9 j: j5 D5 @& }0 `6 i$ I

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

示。

. y* J% o+ W# y: I4 E# D! e

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

4 [8 a# A: N$ q) x% v

0 I3 r, Z L' M+ K, `% @

void __fastcall TForm1::FormCreate(TObject

*Sender)

{

WSAData wsaData;

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

: I G) G! y8 ?! j6 L) [

{ //初始化WINSOCK调用

9 n8 `0 ~' N8 T0 S' y8 f# r3 X

MessageBox(NULL,"Wrong WinSock

Version","Error",MB_OK);

6 {* u a+ g4 Y* Q

return ;

}

! b, ], v' i a6 \

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

址

3 G5 A: ^; a3 x

}

+ [7 P, T4 o% J, j8 b" w

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

5 u K& j- D3 s! ~" a1 o1 [

void __fastcall TForm1::Refresh1Click(TObject

*Sender)

//刷新IP地址

5 `# z% F4 N. Z* i4 S4 N! A$ C2 m

{

char HostName[80];

LPHOSTENT lpHostEnt;

5 O; S* a5 t. [# u

: Z/ ~$ L' |0 h; |1 V

struct in_addr addr[2];

" `4 b0 D; K+ @( e; }5 e- p

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

* W" K# K& j2 B2 m3 k

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

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

* A+ \/ s: Z* T: Y7 s7 d

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

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

}

0 c5 e0 n( U* y" U @

if (gethostname(HostName,

2 E7 L% k$ z2 w, {1 r L( j1 S

sizeof(HostName))==SOCKET_ERROR)

, m$ e3 _% u& K8 ?7 T$ f7 F

" b8 m' k8 V3 Z2 k

{ // 得到本主机名

MessageBox(NULL,"Can't getting local

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

; |; J9 J2 B: o0 j; b: s7 X3 Q

return ;

! Q# {7 |+ }9 [

}

V; G6 T9 D4 V1 ]

Label3- >Caption=HostName;

g0 N% O" z& W' x

/ K P2 I" ]( ^, M. S

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

主机名去获得主机结构

# b8 h5 m7 L U/ Z z5 r0 j

+ H: o6 F8 g$ t+ d$ A$ Z4 Z- {2 r

if (!lpHostEnt){

/ A. l1 {! t% w2 y

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

9 Y+ F6 W @3 r

"Error",MB_OK);

, n2 j( S* t1 m& B" @( R

return ;

* u& J# M6 L, U) K6 K/ P0 A9 c

}

" O( g# k: w6 |" o" s

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

m) Y! I# J) K- J j* R- d

i++)

; C% F( U4 b! K

+ ^5 P! R$ J. q- A# t

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

3 e. a) N6 k4 O5 y

" s: J% K' {2 x+ c; c$ p

{

8 V3 o8 E5 {+ Y6 j- L

0 A6 y/ s+ N9 G; v

memcpy(&addr,lpHostEnt-

>h_addr_list,sizeof(in_addr));

7 C% a3 p, R3 Z! L/ _4 E" M. P

}

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

) k% d% Y1 I; K/ N V. Y

' \8 ~+ h/ V ?- x5 A; e

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

- } N, D" @* i; D) N7 e3 f) {

}

f/ d9 w# G, h6 E

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

# S1 o. |: I/ q. Z- U. _

void __fastcall TForm1::Button2Click(TObject

*Sender)

+ E% V u* s, q8 _* j

, \% k/ N- |% n 4 e& L6 W' ?! F1 }7 Y' H

{

o6 u, Y# P7 e

4 a0 R) R1 s6 ?9 z7 R: _3 [

WSACleanup(); //释放WINSOCK调用

* e a) b( W d$ L3 Z

Close();

, V' ?$ W$ m x! L& E" N8 R

}

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

: M1 j1 S7 [" [( d

# s k# f) j9 c! v2 c) b; E1 d

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

通过。