수다닷컴

--클라쪽--Private Sub Command1_Click()
Winsock1.Connect IP, 1596
End Sub Private Sub Command2_Click()
Dim Msg As String
If Winsock1.State = 7 Then
Winsock1.SendData Text1.Text
End If
End Sub Private Sub Form_Load()
If Winsock1.State 7 Then
Command2.Enabled = False
End If
End Sub Private Sub Winsock1_Connect()
MsgBox 연결이 되었습니다., vbInformation, 정보
Command2.Enabled = True
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)
MsgBox 연결이 실패되었습니다., vbCritical, 정보
End Sub
--------------------------------------------
--서버쪽--
Private Sub Form_Load()
Winsock1.Close
Winsock1.LocalPort = 1596
Winsock1.Listen
End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Msg As String
Dim Temp() As String
Winsock1.GetData Msg
Temp = Split(Msg, ,)
Select Case Temp(1)
Case 0: MsgBox Temp(0), 0, Temp(2)
Case 1: MsgBox Temp(0), vbInformation, Temp(2)
Case 2: MsgBox Temp(0), vbCritical, Temp(2)
Case 3: MsgBox Temp(0), vbQuestion, Temp(2)
End Select
End Sub

신청하기