拨号上网IP地址的检知

韩冰

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

王准

9 a# s2 J( V! H6 f- B6 b9 h8 B

+ Z- V+ p" p5 s; j/ b8 V

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

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

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

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

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

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

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

样能运行）

( y. f' L$ u# o, s6 t I& u

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

IPcheck.bpr。

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

+ F1 `+ O5 y3 g# k

示。

E3 o3 R' A' j4 W9 N% w

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

3 Z+ r: c( p' ]5 I) I

void __fastcall TForm1::FormCreate(TObject

*Sender)

{

WSAData wsaData;

* q9 Z- j' X0 `. S

1 |* S) }6 T* x# [9 h9 A* E. M

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

{ //初始化WINSOCK调用

% L8 s( d' G. e

2 g" `2 K# w: k. T

MessageBox(NULL,"Wrong WinSock

Version","Error",MB_OK);

return ;

}

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

6 ?# H3 G3 j1 e

址

% L% n6 L1 F" J5 o

}

- c4 n B+ h7 |8 g4 h# o2 K

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

* D4 l/ y g1 U' {1 t) v+ m! U

void __fastcall TForm1::Refresh1Click(TObject

# X" M0 S/ S" ^

*Sender)

/ n( }: b/ u' i% {" t2 ^" A6 `; t

//刷新IP地址

3 k# C. @ @( k3 b, T& a4 z

{

char HostName[80];

LPHOSTENT lpHostEnt;

struct in_addr addr[2];

0 ^: c% Q2 O f+ L

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

: F: D9 c3 p; u

& I, [% c: I* D5 S3 q

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

0 E8 j- Q8 \6 a3 b* O% d' |9 h

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

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

' z* @ @& f) @1 j7 ^- [% n) t

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

8 a1 M6 [" e- O+ U3 t. B9 I5 e% ~

}

; a4 [! m) E: i% U+ F

' U, X6 `/ l9 A( ^6 _

if (gethostname(HostName,

sizeof(HostName))==SOCKET_ERROR)

{ // 得到本主机名

6 u3 w" o: }, u! W, _. t: n$ V! a' r

MessageBox(NULL,"Can't getting local

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

) W: V1 v. O+ e$ ~0 B3 C/ b% o, k

return ;

$ X2 M5 l3 c5 C* `; z

}

0 ^; o" ~* ?. H7 m+ t5 e

6 d* o! u. k# J, @

Label3- >Caption=HostName;

/ J8 r* ?: a) K

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

主机名去获得主机结构

% L5 B- j. C! k9 s) g3 h

if (!lpHostEnt){

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

"Error",MB_OK);

/ c, m( T+ }' d+ t

+ X& g9 d+ u ~

return ;

" [$ t/ @. n9 ~ K! H# d5 ?

}

8 d6 g1 `5 K) J, [ V

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

i++)

/ Q. F2 s" ^6 }+ ]

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

5 {+ k5 ^" g# s! N

{

$ Z8 \( a* K9 x4 C4 D

memcpy(&addr,lpHostEnt-

>h_addr_list,sizeof(in_addr));

}

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

5 n+ g' `( {% f7 U; q5 n

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

5 C2 c( @7 E) o& }

}

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

! A b: E/ J+ U( _1 U4 K1 h! u( N

void __fastcall TForm1::Button2Click(TObject

*Sender)

$ M6 f) g" @) {# o! _

" `2 q8 M. c* p4 G# T' B " @+ I& ^, C+ ]3 u: I

{

5 o0 _% @! o* @" z8 t+ Z) T

WSACleanup(); //释放WINSOCK调用

Close();

) k* p7 u8 A4 T' `

}

1 } t4 d5 J6 D! M* n! T* d

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

, K% c9 l5 _$ `( n- h

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

$ p; t4 U% y/ U

通过。