拨号上网IP地址的检知

韩冰

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

* K1 \5 S3 Z- P8 |4 H1 |% {

王准

5 S3 a2 f/ w: G) n* Z

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

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

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

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

: d: f2 R& h8 K: }, n' [, Z* L

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

) J, @, z: _) s* L: I

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

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

0 B& ` f, R$ C8 B+ `9 V5 l. g0 I

样能运行）

6 e" S7 D5 n5 f% y1 F0 g

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

IPcheck.bpr。

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

示。

5 C+ A# O& t( K; Q0 G; J) L5 D1 T

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

void __fastcall TForm1::FormCreate(TObject

0 ^4 y( A# P4 m7 {

*Sender)

{

) G. g; v. |% V- o4 N' U

WSAData wsaData;

. G) L( g# ^: \# `3 u- Z! f

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

{ //初始化WINSOCK调用

; v, R) w" A8 P6 j9 q

4 s# [8 P+ y& a5 U( x

MessageBox(NULL,"Wrong WinSock

; D/ ~0 D4 H2 u5 H8 B8 G, V

Version","Error",MB_OK);

return ;

}

9 e) I9 x% z1 x0 R

5 F3 ~: {1 v6 _7 o% v x: ?/ j

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

; g* s9 i* n% g4 P% [* _

址

}

, y' s* j( d8 f3 U, H1 A8 ^+ S1 e

0 r7 j8 o! Y& I0 d; w8 p: E1 j, U

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

; r+ f/ L! Q8 \' B, _" [

void __fastcall TForm1::Refresh1Click(TObject

*Sender)

//刷新IP地址

+ l; ^& P$ l1 k6 T2 k% ^3 ]- S

{

# [% C3 F! P* k% n8 s5 R

char HostName[80];

! G! D% o( _8 @! V: `( J

, q' A% Z; U3 p- L

LPHOSTENT lpHostEnt;

f# m" C9 e. Q3 {" W. S0 x

+ `4 l) }6 P, S; M0 l

struct in_addr addr[2];

& N$ @6 o9 L+ g( P; O& J

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

% I4 {# B( N L' U' i. r; ]. K: }7 c

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

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

3 T; T! P# Z( Y1 }

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

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

+ w' D2 Q4 L ]- c: M

6 f& X$ A* \) P5 b4 d

}

if (gethostname(HostName,

sizeof(HostName))==SOCKET_ERROR)

+ N s+ ^- O# n6 n: n

{ // 得到本主机名

0 L- j7 _3 y1 M: K3 y% M$ N. H

, R v: O4 W) i+ g* r+ i5 A5 C

MessageBox(NULL,"Can't getting local

0 ^ l, I5 n0 R

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

return ;

* o" M; X t: ?1 D4 t5 g2 L

}

+ `7 }# \7 z" ~8 T% ]" g

Label3- >Caption=HostName;

5 k. |+ c7 ^% A9 t7 {

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

$ f0 `% y! z! Y4 \* K4 ?

主机名去获得主机结构

if (!lpHostEnt){

' c* Y/ ?- I9 j1 b

U: [7 Z8 ?; j0 A2 D3 s

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

"Error",MB_OK);

0 Q9 Q/ l! S; E1 ~3 ?0 ?6 A/ \" i

return ;

0 P; W, e. I% V5 s% w! |

, g0 V4 m8 V+ q- @8 T: U) G

}

! Y" ~( K9 n) C' R

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

i++)

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

: L* n' f# B" m

* A% @3 N5 p7 z

{

memcpy(&addr,lpHostEnt-

+ o7 K6 L$ U: |* z, p; A( I% b9 U8 y

>h_addr_list,sizeof(in_addr));

- n3 H4 S: S( F9 L5 ~% @

}

8 y' k$ }( b$ S+ w

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

) i/ e& W! a7 Y" P9 c5 X2 k9 t

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

' t( i8 f7 I7 N* p

* X* c/ E( t1 X

}

; z) I0 |6 O0 ]. K6 U7 y

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

5 W; N0 R% A& P* k% m

- k- Y7 D) F( I. D- i

void __fastcall TForm1::Button2Click(TObject

) b# D2 O9 u% R. H

*Sender)

2 [( t1 X/ H( \! s4 ?8 C. n3 m

{

1 v9 g3 M* F! v1 E V, w6 Z6 f

WSACleanup(); //释放WINSOCK调用

6 D# C# P' q4 T H

Close();

) T2 w4 A* M5 \+ p0 |6 ^+ a

}

: v2 ?* k3 Q/ {1 p6 ^0 C

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

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

+ X" [7 s. D; q1 G2 `' D

通过。