수다닷컴

Dim GotData As String, PostString As String

Private Sub Form_Load()
Winsock1.Close
Winsock1.Bind 5000
Winsock1.Listen
End Sub
Private Sub Winsock1_Close()
Winsock1.Close
Winsock1.Bind 5000
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Winsock1.Close
Winsock1.Bind 5000
Winsock1.Listen
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData GotData
End Sub
서버는 이렇게 만들었습니다.

왜 윈속 접속이안되죠? 뭐 문제가 있나요?

친구집은 공유기가 아니라고 하네요.

신청하기