VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - Whois 示例程序
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:8476, 日期:2001-07-01
Whois 示例程序
WhoIs服务允许你获得有关域名所有者,电子邮件地址所有者的有关信息。所有的信息储存在Internic的数据库中。这个不会向服务器发送任何命令。你只需要通过rs.internic.net的43号端口同服务器建立连接,然后发送你要查的域名或电子邮件地址就行了。如果找不到你要查找的信息,服务器会告诉你信息未找到,然后服务器将关闭与你的连接。

打开一个新的工程(都成一句废话了)。将Winsock控件添加到窗体中:

将txtResponse文本框控件的属性作小小的修改:MultyLine=True,ScrollBars - "3 - Both". 将下面的代码粘贴到相应的事件中:

Private Sub Command1_Click()

txtResponse = ""
Winsock1.Close
Winsock1.LocalPort = 0
Winsock1.Connect "rs.internic.net", 43

End Sub

Private Sub Command2_Click()

txtSearch = ""
txtResponse = ""

End Sub

Private Sub Winsock1_Connect()

Winsock1.SendData txtSearch & vbCrLf

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim strData As String

On Error Resume Next

Winsock1.GetData strData
txtResponse = txtResponse & strData

End Sub

请务必记住在尾处加上vbLf,表示要传送的文本的结束,否则服务器会一直在那里傻等。这点对任何Internet协议都适用。

运行程序后在文本框中输入要查找的东西,例如oracle.com,然后按Lookup按钮。几秒钟之后服务器会将查到的资料返回给你。这些信息看起来象下面这个衰样。


原因是UNIX系统用相当于VB的vbLf来作为分行符,而不是vbCrLf。所以为了读起来更容易一些,你需要对收到的信息作一点处理。如果你用的是VB6,可以用下面的语句,用vbCrLf代替掉vbLf。

strData = Replace(strData, vbLf, vbCrLf)

Now the Winsock1_DataArrival event should look like this:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim strData As String

On Error Resume Next

Winsock1.GetData strData
strData = Replace(strData, vbLf, vbCrLf)
txtResponse = txtResponse & strData

End Sub

如果你要查某人的电子邮件地址,输入名字就行了。比如说 "gates,bill"。服务器会返回所有符合条件的记录。其中紧跟在名称后面的括号内是记录的ID。你也可以直接输入ID去查,但记住在ID前面加一个感叹号。


网上还有其他很多Whois服务器,你可以查国家,大学等等。在下面这个地址可获得Whois服务器的清单。ftp://sipb.mit.edu/pub/whois/whois-servers.list