프로그래밍/VisualBasic
-
VB6.0 Multi Winsock (비베 다중 윈속)프로그래밍/VisualBasic 2019. 2. 2. 14:02
VB6.0 (비베 6.0) 기준으로 작성되었습니다. 12345678910111213141516171819202122232425Private 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) '윈속 컨트..