A
B
C
Ç
D
E
F
G
Ğ
H
I
İ
J
K
L
M
N
O
P
R
S
Ş
T
U
Ü
V
Y
Z
Q
W
X
+ Ekle
WinSock İle Chat (Düzgün)

WinSock İle Chat (Düzgün) WinSock İle Chat (Düzgün)
Ip adresini veya bilgisayar adını gidikten sonra bilgisayara bağlanarak veri gönderme...
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





brush




  • diline pelesenk olmak ne demek
  • dillere pelesenk olmuş ne demek
  • pelesenk
  • pelesenk ne demek
  • Pelesenk Ne Demek – Pelesenk Sözlük Anlamı
  • pelesenk olmak ne demek
  • pelesenk olmak ne demektir
  • pelesenk olmuş ne demek
  • Yüksek Yüksek Tepelere sözleri
  •   Ad Soyad
      Yorum