对pbsocket认识

global variables
WinSock   ws
event:open
ws = create WinSock    //提供常数和函数winsock_error
event:close
destroy ws

sServer = create SocketStream         //数据流传输模式：自动创建套接字
 sServer.bind(ulAddr,iPort)
sServer.listen(5)

tmpSocketNum = sServer.Accept(ulClientAddr, iClientPort) 自动创建一个套接字节

nsServer = create Socket           //这就用socket就行
nsServer.initsocket(SocketNum)     //初始化accept建立的socket

nsServer.CloseSocket()   这句是错误的，因为destroy时就自动调用了它
destroy nsServer
sServer.CloseSocket()    这句是错误的，因为destroy时就自动调用了它
destroy sServer

integer iEvent, iRet
iEvent = ws.FD_READ + ws.FD_WRITE + ws.FD_CLOSE + ws.FD_OOB+FD_ACCEPT+FD_CONNECT
sServer.WSAAsyncSelect(handle(this), 1024, iEvent) //事件邦定

ws.winsock_error
有用的函数:
ws.gethostname() 获得当前计算机名称
ws.getho