查看: 2772|回复: 0

拨号上网IP地址的检知

字体大小: 正常放大

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

电梯直达

1^#

发表于 2005-1-26 13:04 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

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

王准

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

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

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

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

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

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

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

样能运行）

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

IPcheck.bpr。

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

示。

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

void __fastcall TForm1::FormCreate(TObject

*Sender)

{

WSAData wsaData;

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

{ //初始化WINSOCK调用

MessageBox(NULL,"Wrong WinSock

Version","Error",MB_OK);

return ;

}

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

址

}

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

void __fastcall TForm1::Refresh1Click(TObject

*Sender)

//刷新IP地址

{

char HostName[80];

LPHOSTENT lpHostEnt;

struct in_addr addr[2];

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

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

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

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

+ l2 g' ^9 T0 M5 N- E
//对in_addr结构清0，以利后面填写
" d8 M y0 t+ J( j5 v+ A& n8 G

( C! _. Q* \+ |: Q6 g3 u$ f0 f
}
e: D. S+ t9 p( N: \

' J T. q1 S4 e0 H( K% c1 H2 [, G% G
if (gethostname(HostName,
) {% f. ~: j+ x
sizeof(HostName))==SOCKET_ERROR)
- y- z$ h* x! Z' C

* ~+ f6 c( Y" _5 Q! a! y; T* M7 z
{ // 得到本主机名
% y; t( w/ p; I% w: t! O+ H

7 U4 v2 y( r3 ]
MessageBox(NULL,"Can't getting local
* _4 v0 }* O. `" H# T
host name.","Error",MB_OK);
7 Y( y# x, z0 o! t4 h; R3 g8 E
return ;
6 I& m8 I" U/ n- s4 g3 G Q
}
' N% R9 L( }; c( L. y9 Y, R) W" J

' X1 M; a, m( D% h0 Q5 h0 w
Label3- >Caption=HostName;
; r, ?$ r3 O/ R. h# X

/ z: g+ p& N; P" w
lpHostEnt=gethostbyname(HostName);//利用得到的
* L9 ^) [: c0 h, @: {% h
主机名去获得主机结构
2 d9 ~3 g7 a" }' B

4 A4 E% ~) L. G4 [/ ] v3 ~) a3 C
if (!lpHostEnt){
/ \' \. n& |# O6 m7 ?

* Q3 E8 `& @* ]% U
MessageBox(NULL,"Yow! Bad host lookup.",
% o9 D: U* v" K, k! f
"Error",MB_OK);
# m. E. M' \( b2 a7 [

" m4 q0 q' ]% H9 M( U
return ;
9 s- z8 _ R6 @: [8 k# o& k9 @

8 A! O+ l. S: v8 t
}
5 Z2 D: O% }, B( ~" w$ n

* a% |$ {8 a6 [0 E% B6 @) N
for (int i=0; lpHostEnt- >h_addr_list!=0;
% o' W# |9 ?! E; {2 C9 t0 k( |6 X
i++)
2 |1 J9 ~1 [; M7 d

0 ?; M5 w/ c& J' [6 R/ q! j
//从主机地址表中得到IP地址
+ h( M1 v( X" {2 ^* C

+ w3 D7 d& J) Q+ o* Q. r! |& |
{
/ I' }- F& C1 T" ^

. M. @: m# O" |1 B
memcpy(&addr,lpHostEnt-
4 s6 V+ }4 A6 G/ q! B; | B
>h_addr_list,sizeof(in_addr));
- \4 [, g4 T. W- C4 h

/ v! d/ U- d% }3 ]9 q6 Y
}
$ R( a r% ^- z+ h2 w! H! [

7 P# ?3 p+ D% M8 ?. ^1 n( I) a
Label4- >Caption=inet_ntoa(addr[0]);
- e) s7 }) ~* y! v- l

. J3 ]2 t0 N' A! q( n
Label5- >Caption=inet_ntoa(addr[1]);
) j5 g5 b" \8 ?8 d) r& d

6 [ R- W9 q! B1 ^3 i3 b$ H8 y
}
1 c. D1 j L+ c* L8 _! @7 t

7 b0 ~, u7 h A3 v
再双击Refresh按钮，在其中加上以下程序
2 x7 l3 b4 r' O- c: @" y

. g9 U. X1 ~5 ?& G) q' W
void __fastcall TForm1::Button2Click(TObject
( D5 q. U& D2 p* W5 t2 F/ x( I
*Sender)
+ @) H8 o/ z0 y' s( H6 u

* s; a. ]) L( n3 I 1 o; R0 J' h; j
{
: l/ p3 s! w! m) B

7 p& B) H8 ]( ^& b1 w
WSACleanup(); //释放WINSOCK调用
) J* r; a8 z1 x

1 B4 I* p* @, |& ~6 _
Close();
' ]4 m2 W Z# y/ D" Q* f

! I1 f; ~+ T( s& O. }
}
) Q1 @2 |( ^0 P# Q4 m. M2 C

* j% }& m* w* ]0 J& F
---- 最后，不要忘了在程序头部加上#include<winsock.h>.....哦。
) Y( B& A* C4 P

& a. F) r- R& s& ^4 T/ |
---- 好了，程序完成了，编译后就可运行了。本程序在中文WIN95/NT4.0下编译
$ `" X0 e- A4 u9 m
通过。