-
VB6.0 Multi Winsock (비베 다중 윈속)프로그래밍/C# + Unity 2019. 2. 2. 14:02728x90
VB6.0 (비베 6.0) 기준으로 작성되었습니다.
Private Sub Form_Load() winsock1(0).LocalPort = 숫자 '열 포트 winsock1(0).Bind '소켓에 주소 할당 winsock1(0).Listen '소켓을 열어둠 Msgbox "Port : " & winsock1(0).LocalPort & " Success Open!" '열린 포트를 msgbox로 출력 End Sub Private Sub winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)'연결이 들어오면 n = n + 1 '인원수를 늘린다. Load winsock1(n) '윈속 컨트롤 배열을 하나 로드함 winsock1(n).Accept requestID '생성된 클라이언트에 연결한다. Msgbox winsock1(n).RemoteHostIP & "Connect!" '연결되었다는 메세지를 보여준다. End Sub Private Sub winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long) '데이터가 들어오면 Dim temp As String 'temp를 문자열 배열로 선언 Dim i As Long 'i를 long으로 선언 winsock1(Index).GetData temp, vbString, bytesTotal For i = 1 To n Step 1 'i~n까지 돌려가며 전송 If winsock1(i).State = 7 Then '윈속이 연결 되어 있다면 winsock1(i).SendData getclientdata '전송 DoEvents End If Next i 'i를 1 늘린다 End Sub
728x90댓글