下面是引用 dlc 於 2010-03-03 13:51 發表的 : 
Winsock.RemoteServer = 127.0.0.1
Winsock.RemotePort = 9666
Winsock.Protocol = sckUDPProtocol
連線上, 比較常使用Winsock.RemoteHost = "127.0.0.1"
基本上, 上面程式碼沒錯, 而且你說防火牆有連線提示, 代表也有嘗試在連線了
至於失敗, 感覺是發出要求的指令錯誤, 所以才叫你用telnet測試看看
在不然就先關閉無界在測試, 先排除問題是出在程式還是無界
感謝～最近幾天比較忙比較晚回覆...
排除是 無界 問題，因為同時間內用其他軟體測試沒問題
防火牆也排除 (關掉了)
可能真的是VB的我不太會打
底下是我目前的傳送封包程式碼，我發現問題還是一樣
似乎伺服器沒接收到我的封包 >>>
無界沒接收到 封包 而且每次的連接時間都極短 (小於 10 毫秒)，
感覺根本沒連接到 不知道哪邊有問題，可以麻煩看一下嗎?
還有我發現 我發問時有點打錯，是 RemoteHost 而非 RemoteServer
還有應該是 TCP 才對...
我的元件名稱是 W(No)，因為被 With 包起來所以前面有 .
複製程式
.W(No).Close
Randomize
.W(No).LocalPort = Fix((59999 - 50000 + 1) * Rnd) + 50000
.W(No).Protocol = sckTCPProtocol
.W(No).RemoteHost = "127.0.0.1"
.W(No).RemotePort = 9666
.W(No).Connect
Do While .W(No).State <> sckConnected And .W(No).State <> 0 And .W(No).State <> sckError
DoEvents
Loop
.W(No).SendData Socket
Do While .W(No).State <> sckConnected And .W(No).State <> 0 And .W(No).State <> sckError
DoEvents
Loop
