利用Whois服务查询域名注册信息

任何一个国际域名的信息都记录在DNS(域名服务器)上，如何查询关于某个域名的注册信息呢？象POP3是用于接收电子邮件一样，Whois服务是用于查询域名信息的。在美国这个服务由InterNIC提供。当你想确定一个域名是否存在,或者想获得该域名注册信息时，这个服务很有用。

一、Winsock控件能够提供执行Whois查找所需要的所有信息。步骤如下：
1.连接到InterNIC服务器的端口43。
2.发送域名。
3.读取来自服务器的答复。
4.从服务器上断开连接。

二、设计界面以及源程序：

源程序包括以上窗体和一个模块文件，模块中的代码用来判断计算机是否连网。
1、模块中的代码：
Public Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long
Public Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long
Public Const RAS95_MaxEntryName = 256
Public Const RAS95_MaxDeviceType = 16
Public Const RAS95_MaxDeviceName = 32 '
Public Type RASCONN95
dwSize As Long
hRasCon As Long
szEntryName(RAS95_MaxEn