b\rPrivateSuba_ConnectionRequest(ByValrequestIDAsLong)\rDimiAsLong\rFori=libmaxn9Ï¢`pNOsТWinsockxyZÑÒ\rIfNotuser(i)Then\ruser(i)=True\rExitFor\rEndlf\rNexti\rIfi>maxnThen\rExitSub\rEndlfEvaluationWarning:ThedocumentwascreatedwithSpire.PDFfor.NET.\rLoadb(iÏ¢`pNOs¢Winsockxy\rb(i).AcceptrequestIDJÓÔÕÖLM\rIflbxtl.Text=""ThenJ&Qtu\rb(i).SendDataChr(O)\rElse\rb(i).SendDatalext1.Text\rEndlf\rForm2.Show\rEndSub\rPrivateSubs_Close(IndexAsInteger)\rb(Index).CloseJ®LM\rUnloadb(Index)J×¹¢£WinSockxy\ruser(Index)=False\rEndSub\rPrivatesubb_DataArrival(IndexAsInteger,ByValbytesTotalAsLong)\rDimstrAsString\rDimiAsLong\rb(Index).GetDatastr\rText1.lext=Text1.Textstr\rFori=llbmaxn\rIfuser(i)ThenEvaluationWarning:ThedocumentwascreatedwithSpire.PDFfor.NET.\rb(i).ScndDatastr\rEndlf\rNexti\rEndSub