有个方法可以试一下,加载一个卖世winsock控件枝禅On Error Resume NextWinsock1.Bind 1234 '测试1234端口if Err=0 then msgbox "1234端口中搭肢现在可用"
下个 VINHGS 就行了