MSN Programı

Dim a As String
Private Sub Command1_Click()
ww.RemotePort = 808
ww.RemoteHost = Text1
ww.Connect
End Sub

Private Sub Command2_Click()
With ww
.LocalPort = 808
.Listen
End With
End Sub

Private Sub Command3_Click()
ww.SendData Text2
Label2 = "gönderildi"
End Sub


Private Sub ww_ConnectionRequest(ByVal requestID As Long)
ww.Close
ww.Accept requestID
End Sub

Private Sub ww_DataArrival(ByVal bytesTotal As Long)
ww.GetData a
Text3.Text = a
Label2 = "Alındı"
End Sub

Private Sub ww_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 Description
End Sub