今天有時間，寫了網誌，很多人想寫通訊程式吧!，今天把它寫出來要使用Winsock，就要先設定使用元件，

So，在工具列按一下，找”Microsoft Winsock Control 6.0″，

有裝VB應該都會找到，按一下確定。

我們實做做看看!

再表單上拉出一個Winsock物件，Winsock屬性 — LocalPort設定23(Telnet通訊協定埠)，在Form_Load事件裡新增以下程式碼

Winsock1.Listen

代表表單載入時，Winsock會開始Listen，等待連線。

在Winsock1_ConnectionRequest事件也新增以下程式碼

If Winsock1.State = 2 Then

Winsock1.Close

Winsock1.Accept requestID    ‘接受他

Winsock1.SendData “連線成功!!”    ‘送出資料

End If

當停止Listen，接受遠端電腦的連線需求時，會與遠端連線。

現在執行程式，並在提示命令字元上鍵入”Telnet 127.0.0.1″，有沒有看到?，連線成功!!

改天利用此協定寫一個聊天室，哈哈!