Whois示例程序

2019-11-18 17:27:51

字體：大中小

供稿：網(wǎng)友

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

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

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

EndSub

PrivateSubWinsock1_Connect()

Winsock1.SendDatatxtSearch&vbCrLf

EndSub

PrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)

DimstrDataAsString

OnErrorResumeNext

Winsock1.GetDatastrData
txtResponse=txtResponse&strData

EndSub

請(qǐng)務(wù)必記住在尾處加上vbLf，表示要傳送的文本的結(jié)束，否則服務(wù)器會(huì)一直在那里傻等。這點(diǎn)對(duì)任何Internet協(xié)議都適用。

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

原因是UNIX系統(tǒng)用相當(dāng)于VB的vbLf來作為分行符，而不是vbCrLf。所以為了讀起來更容易一些，你需要對(duì)收到的信息作一點(diǎn)處理。如果你用的是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"。服務(wù)器會(huì)返回所有符合條件的記錄。其中緊跟在名稱后面的括號(hào)內(nèi)是記錄的ID。你也可以直接輸入ID去查，但記住在ID前面加一個(gè)感嘆號(hào)。

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

上一篇：在桌面上建立一個(gè)Internet快捷鍵

下一篇：怎樣接收電子郵件（POP3協(xié)議簡(jiǎn)介）