| Visual Basic Code |
| PrivateTypeSockServerInfo EnabledAsBoolean EndType DimServer ( ) AsSockServerInfo PrivateSubForm_Load ( ) CreateServer EndSub PrivateSubWinsock1_ConnectionRequest ( _ IndexAsInteger,_ ByValrequestIDAsLong) IfWinsock1 ( Index ) .State <>0ThenWinsock1 ( Index ) .Close Winsock1 ( Index ) .Accept requestID CreateServer EndSub PrivateSubWinsock1_DataArrival ( IndexAsInteger,ByValbytesTotalAsLong) DimNetWorkStringAsString Winsock1 ( Index ) .GetData NetWorkString,vbString,bytesTotal Print"Index "& Index &" 收到数据："& NetWorkString Winsock1 ( Index ) .SendData"转发回去的数据" EndSub PrivateSubWinsock1_Error ( IndexAsInteger,_ ByValNumberAsInteger,_ DescriptionAsString,_ ByValScodeAsLong,_ ByValSourceAsString,_ ByValHelpFileAsString,_ ByValHelpContextAsLong,_ CancelDisplayAsBoolean) CancelDisplay = True Winsock1_Close Index EndSub PrivateSubWinsock1_Close ( IndexAsInteger) StopServer Index EndSub PrivateSubCreateServer ( ) DimServerMaxCountAsLong DimXAsLong DimIsHaveFalseAsLong OnErrorResumeNext ServerMaxCount = UBound( Server ) IfErr.Number <>0Then ServerMaxCount = 0 ReDimServer ( ServerMaxCount ) Else IsHaveFalse = 0 ForX = 0ToServerMaxCount IfServer ( X ) .Enabled = FalseThen ServerMaxCount = X IsHaveFalse = 1 ExitFor EndIf NextX IfIsHaveFalse = 0Then ServerMaxCount = ServerMaxCount +1 ReDimPreserve Server ( ServerMaxCount ) EndIf Load Winsock1 ( ServerMaxCount ) EndIf Winsock1 ( ServerMaxCount ) .LocalPort = 60000 Winsock1 ( ServerMaxCount ) .Listen Server ( ServerMaxCount ) .Enabled = True EndSub PrivateSubStopServer ( IndexAsInteger) DimServerMaxCountAsLong IfWinsock1 ( Index ) .State <>0ThenWinsock1 ( Index ) .Close OnErrorResumeNext ServerMaxCount = UBound( Server ) IfIndex = ServerMaxCountThen IfIndex = 0Then EraseServer Else Unload Winsock1 ( Index ) ReDimPreserve Server ( ServerMaxCount -1) EndIf Else Unload Winsock1 ( Index ) Server ( Index ) .Enabled = False EndIf EndSub |
