Kesinlikle kendi yazımdır alıntı,çalıntı yoktur!
html,php,asp,VB.NET, Delphi, C++'den sonra VB6'yada elimi attım. VB.Net'in eziği ama daha daha iyisi VB.Net'te daha çok araç var ama VB6'da bunları kodlarla sağlayabiliyoruz ve VB6'nın eklentileri daha güzel

Yazı: x3uqm4
Dil: Visual Basic 6
Link koyardım fakat deneme versionunu internette bulamadım hep full version var

Başlayalım...

1. VB6'yı açıyoruz. Yeni projemiz Standart EXE

2. Üstteki menüden Components'i seçin

3. Açılan pencerede Microsoft Winsock Control (SP6)'yı seçiyoruz. (Tik koyalım) ve tamam'a tıklayalım.

4. Şimdi sağda araçlar yerine Winsock nesnesi geldi. Bunu form'a ekleyelim.
(Ekleme şöyle olur: Aracı seçeriz ve form'un üstünde dandirik bir kare çizeriz obje eklenmiş olur.)

5. Bir Button koyalım isterseniz koymayabilirsiniz

6. Şimdi Form'a çift tıklayalım ve kodlarımızı yazalım.

Kod:

Private Sub Command1_Click()
Winsock1.Close
Winsock1.RemoteHost = "192.168.1.33"
Winsock1.RemotePort = "2001"
Winsock1.Connect
End Sub

Private Sub Command1_Click() // Command1 Adlı buttona tıklanınca olacak olayı belirtir.
(Eğer Button istemiyorsanız kodumuz: Private sub Form_Load()Olacaktır)

Winsock1.Close // Bir Bağlantı Varsa Sonlandırır.
Winsock1.RemoteHost = "192.168.1.33" // Bağlanılacak IP
Winsock1.RemotePort = "80" // Port burada olacak (80 Portundan bağlanamazsınız benim virüslerimin portu 666dır )
Winsock1.Connect // IP'e belirtilen porttan giriş yapar
End Sub // Olay bitişi

Kod:

Private Sub Winsock1_Connect() 
MsgBox ("Bilgisayara Bağlantı kuruldu!")
End Sub

MsgBox ("Bilgisayara Bağlantı kuruldu!") // Bağlantı yapılınca belirtilen uyarıyı verir.
Uyarı vermesi yerine başka kodlar koyarak, bağlantı kurulunca başka şeyler yapmasını sağlayabilirsiniz.

Şimdi Diğer kodlarımız:
Gelen Bağlantıyı Kabul Etme

Kod:

Private Sub Form_Load()
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByV al requestID As Long) 
Winsock1.Close
Winsock1.Accept requestID 
MsgBox "Bağlandı"
End Sub

Veri Gönderme

Kod:

Private Sub Command2_Click()
Winsock1.SendData Text2.Text ’Text2.Text`i Gönder.
End Sub

Veri Alımı

Kod:

Dim GelenVeri As String

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 
Winsock1.GetData GelenVeri
MsgBox ("GelenVeri")
End Sub