程序的代碼以及說(shuō)明如下：

‘本程序在VB6.0＋Windows2000下測(cè)試通過(guò)！
DimtmpstrAsString
DimNOW_OUTAsInteger'總共出去連接的有幾個(gè)Winsock
Fori=0ToListPorts.ListCount-1
LoadWinsock1(i 1)'加載監(jiān)聽(tīng)端口的winsock1數(shù)組控件
Winsock1(i 1).LocalPort=ListPorts.List(i)'設(shè)定端口
Winsock1(i 1).Listen'監(jiān)聽(tīng)
Nexti
Command2.Caption="停止"
Else
Fori=1ToWinsock1.Count-1
UnloadWinsock1(i)
Nexti
Fori2=1ToWinsock2.Count-1
UnloadWinsock2(i2)
Nexti2
Command2.Caption="監(jiān)聽(tīng)"
EndIf
EndSub

PrivateSubCommand3_Click()
UnloadMe
EndSub

PrivateSubForm_Load()
txtLOG.Text="日志:"&vbCrLf
NOW_OUT=1
EndSub

PrivateSubWinsock1_ConnectionRequest(IndexAsInteger,ByValrequestIDAsLong)
LoadWinsock2(NOW_OUT)'加載建立連接的Winsock2數(shù)組控件
Winsock2(NOW_OUT).AcceptrequestID'建立連接
Winsock1(Index).Close
Winsock1(Index).Listen'Winsock1繼續(xù)監(jiān)聽(tīng)
NOW_OUT=NOW_OUT 1'連接的控件累加
myAddLog"來(lái)自"&Winsock1(Index).RemoteHosttmptext=tmptext&vbCrLf
txtLOG.SelStart=Len(txtLOG.Text)
txtLOG.SelText=tmptext
EndSub

總結(jié)：其實(shí)一些程序的原理很簡(jiǎn)單，我們只要善于實(shí)踐，并且能夠把所學(xué)的只是運(yùn)用到你的程序中去，我想編出類(lèi)似的程序是很簡(jiǎn)單的。如木馬、端口掃描器、客戶(hù)端工具、CGI漏洞掃描器……。VB的Winsock控件雖說(shuō)不是底層操作。及不上C語(yǔ)言的Socket編程的功能。但實(shí)現(xiàn)普通的操作還是很有用的。簡(jiǎn)單的例子就是Cookie欺騙，用VB來(lái)編寫(xiě)這種程序十分簡(jiǎn)單。