下面是引用 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
