Whois示例程序

2019-11-18 17:27:51

字體：大中小

來源：轉載

供稿：網友

WhoIs服務允許你獲得有關域名所有者，電子郵件地址所有者的有關信息。所有的信息儲存在Internic的數據庫中。這個不會向服務器發送任何命令。你只需要通過rs.internic.net的43號端口同服務器建立連接，然后發送你要查的域名或電子郵件地址就行了。如果找不到你要查找的信息，服務器會告訴你信息未找到，然后服務器將關閉與你的連接。

打開一個新的工程(都成一句廢話了)。將Winsock控件添加到窗體中：

將txtResponse文本框控件的屬性作小小的修改：MultyLine=True，ScrollBars-"3-Both".將下面的代碼粘貼到相應的事件中：

EndSub

PrivateSubWinsock1_Connect()

Winsock1.SendDatatxtSearch&vbCrLf

EndSub

PrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)

DimstrDataAsString

OnErrorResumeNext

Winsock1.GetDatastrData
txtResponse=txtResponse&strData

EndSub

請務必記住在尾處加上vbLf，表示要傳送的文本的結束，否則服務器會一直在那里傻等。這點對任何Internet協議都適用。

運行程序后在文本框中輸入要查找的東西，例如 Oracle.com，然后按Lookup按鈕。幾秒鐘之后服務器會將查到的資料返回給你。這些信息看起來象下面這個衰樣。

原因是UNIX系統用相當于VB的vbLf來作為分行符，而不是vbCrLf。所以為了讀起來更容易一些，你需要對收到的信息作一點處理。如果你用的是VB6，可以用下面的語句，用vbCrLf代替掉vbLf。

strData=Replace(strData,vbLf,vbCrLf)

NowtheWinsock1_DataArrivaleventshouldlooklikethis:

PrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)

DimstrDataAsString

OnErrorResumeNext

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

EndSub

如果你要查某人的電子郵件地址，輸入名字就行了。比如說"gates,bill"。服務器會返回所有符合條件的記錄。其中緊跟在名稱后面的括號內是記錄的ID。你也可以直接輸入ID去查，但記住在ID前面加一個感嘆號。

網上還有其他很多Whois服務器，你可以查國家，大學等等。在下面這個地址可獲得Whois服務器的清單。ftp://sipb.mit.edu/pub/whois/whois-servers.list->

上一篇：在桌面上建立一個Internet快捷鍵

下一篇：怎樣接收電子郵件（POP3協議簡介）