WinSock ile chat (düzgün)

ByToluidin

ByToluidin

Özel Üye
27 Ocak 2007
3,178
1
603
Programa 3 adet buton 3 adet textbox 2 adet label ve 1 adet winsock yerleştirin

Private Sub Command1_Click()
On Error GoTo ht
Dim RM
Dim RP As Long

RM = Text1.Text
RP = 8080
sck.Connect RM, RP
Command2.Enabled = False
Exit Sub
ht:
lbl.Caption = "Hatalı bağlantı isteği..."
End Sub

Private Sub Command2_Click()
On Error GoTo ht
sck.Listen
Command1.Enabled = False
Exit Sub
ht:
lbl.Caption = "Bağlantı bekleniyor..."
End Sub

Private Sub Command3_Click()
Command1.Enabled = True
Command2.Enabled = True
sck.Close
End Sub

Private Sub Form_Load()
sck.LocalPort = 8080
sck.RemotePort = 8080
End Sub

Private Sub sck_Close()
lbl.Caption = "Bekleniyor..."
Command3.Enabled = False
Command2.Enabled = True
Command1.Enabled = True
End Sub

Private Sub sck_Connect()
lbl.Caption = "Bağlantı kuruldu..."
Command3.Enabled = True
Command2.Enabled = False
Command1.Enabled = False
End Sub

Private Sub sck_ConnectionRequest(ByVal requestID As Long)
If sck.State <> sckClosed Then sck.Close
sck.Accept requestID
lbl.Caption = "Bağlantı kabul edildi..."
End Sub

Private Sub sck_DataArrival(ByVal bytesTotal As Long)
Dim GelenVeri As String
sck.GetData GelenVeri
List1.AddItem GelenVeri, 0
lbl.Caption = "Veri alındı..."
End Sub

Private Sub sck_SendComplete()
lbl.Caption = "Veri yollandı..."
End Sub

Private Sub sck_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)
lbl.Caption = "Gönderiliyor..."
End Sub

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
On Error GoTo ht
If KeyCode = 13 Then
sck.SendData Text2.Text
List1.AddItem Text2, 0
Text2 = ""
Text2.SetFocus
lbl.Caption = "Veri yollandı..."
End If
Exit Sub
ht:
lbl.Caption = "Veri ulaştırılamadı..."
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.