öcelikle bir formun üstüne
3 tne text
ekleyin
text1 bire ip no girilecek

text2 bu da mesajların geldiği yer olacak bu yüzden biraz büyük geniş tutun ve multiline özelliğini ture yapın

2 tne command tuşu ekleyin

command1.captionu bağlan
command2.captionu bağlantı bekle yazın
bir tanede label ekleyin


text1 =ip nosu girmek için kulanın

text2= yi multi line özeliğini true yapın

text3 tende mesajınızı gönderin

label2 yi ben durum kontrolü için kulandım değiştirmek isterseniz labek2 yazan yere ne kulancaksanız onun yazın

Program kodları

Option Explicit
Dim enter

Private Sub Command1_Click()
Winsock2.RemoteHost = Text1
Winsock2.RemotePort = 1024
Winsock2.Connect
End Sub

Private Sub Command2_Click()
If Winsock1.State = 2 Then
Winsock1.Close
Command2.Caption = “Bağlantı Bekle”
Else
Winsock1.LocalPort = 1024
Winsock1.Listen
Command2.Caption = “Bağlantıyı Kes”
End If

End Sub

Private Sub Form_Load()
enter = Chr(13) + Chr(10)
Text2 = “”
Text3 = “”

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

If Winsock1.State = 7 Then
Winsock1.SendData Text3.Text
Text2 = Text2 + “sizden > ” + Text3 + enter
Text3 = “”
End If

If Winsock2.State = 7 Then
Winsock2.SendData Text3.Text
Text2 = Text2 + “sizden > ” + Text3 + enter
Text3 = “”
End If

End If

End Sub

Private Sub Winsock1_Close()
Label2 = “bağlantı kesildi”
End Sub

Private Sub Winsock1_Connect()
Label2 = “bağlantı Saglandı”
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
Label2 = “bir bağlantı istegi geldi”

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s As String
Winsock1.GetData s
s = “Karsıdan” > “+s”
Text2.Text = Text2.Text + s + enter
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 “Şuganda Hata Oluştu”
End Sub

Private Sub Winsock2_Connect()
Label2 = “Bağlantı Sağlandı”
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim s As String
Winsock2.GetData s
s = “Karsıdan > ” + s
Text2.Text = Text2.Text + s + enter

End Sub

Private Sub Winsock2_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)
Label2 = “Bağlantı Kesildi”
End Sub

evet program kodlarını yazdıktan sonra deneme aşamasına geldik bunu bir internete veya evdede deneye bilirsiniz
evde denemek için programı exe haline gewtirin ve iki kere çalıştırın
bir tanesinde aglantıyı bekle tuşuna basın
diğerinde ise ip nonuzu yazın ve bağlan tuşuna basın sonra mesajınızı yazın ve entere basın bukadar