Başlıktadanda anlaşılacağı gibi arkadaşlar size bu konuda Visual Basic'in iletişim komponentlerinden olan Winsock komponentinden bahsedeceğim. Winsock nesnesi, belirtilen bir ip adresi ve iletişim portu numarası ile windows ́un soketlerini kullanarak iki bilgisayar arasında iletişim kurulmasını sağlar. Şimdi Bu Winsock Nesnesinin nasıl kullanıldığını inceleyelim... Winsock ile programlama yapılırken bilinmesi gereken en önemli kriter, taraflardan bir tanesi İstemci durumunda iken, diğer taraf sunucu durumundadır. Aşağıda iki bilgisayar arasında iletişim sağlamaya yönelik bir örnek program bulunmaktadır. Sunucu tarafının programı: Dim GelenVeri As String Private Sub Form_Load Winsock1. LocalPort = 23 Winsock1. Listen End Sub Private Sub Winsock1_ConnectionRequest If winsock1. State <> sckClosed Then Winsock1. Close Winsock1. Accept RequestID End Sub Private Sub Winsock1_DataArrival Winsock1. GetData GelenVeri End Sub Evet arkadaşlar Şimdide Yukarıda Ki komutların Açıklamaları Var.. GelenVeri isimli değişkene aktarılmış olan veri herhangi bir metin kutusu etiket nesnesine aktarılarak görülebilir. (Örn: Text1. Text = GelenVeri veya Label1. Caption = GelenVeri) İstemci Tarafının Programı: Private Sub Form_Load Winsock1. Connect "Sunucu Bilgisayarın IP adresi", karşı taraftaki bilgisayarda dinlenmek üzere açılan portun numarası (Az önce biz 23 nolu portu dinlenmek üzere açmıştık.) End Sub Private Sub Form_Click Winsock1. SendData "ibrahim" End Sub Yukarıda görülen kodlar için fazla bir şey söylemeye gerek yok. Connect komutunu kullanarak (Winsock1. Connect Karşı tarafın ip adresi, karşı tarafın dinleme portu) bağlantı kuruluyor. Form ́a tıkladığınızda SendData komutu ile tırnak içindeki mesaj karşı tarafa aktarılıyor. İşte herşey bu kadar basit... Yukarıdaki tipte yapılan bağlantı dinleme yöntemi aynı anda sadece bir adet bağlantıyı kabul etmektedir... Alıntıdır...