vb ‘ΡΊ port αΕΠ winsock
Size:318 Byte Create: 19/12/2547 Time: 13:29:13
http://www.codeproject.com/internet/COMSocketServer.asp
http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/VB_Controls/Q_20948723.html
Winsock.LocalPort = 0
Do While Winsock.State <> sckClosed
Winsock.Close
Loop