Winsock Kullanımı Basit Chat benzeri program yapımı .

Winsock
Arkadaşlar Şimdi sizlere winsock nasıl kullanılır onu göstereceğim anlatımımda anlamadığınız birşey olursa sizlere
source kodunuda vereceğim şimdi başlayalım
evet ilk önce server yazmamız gerekiyor port dinlememiz için kodları direk vereceğim yanlarında açıklama yapacağım server için forma 2 winsock 2 tane textbox text1 multiline özelliği true olacak 1 tanede command
yeni buton

------------------------------------------SERVER-----------------------------------------------


Private Sub Command1_Click()
Winsock2.SendData Text2' text2 yi veri olarak gönderiyoruz
Text1 = Text1 & Text2 & vbCrLf '' kendimizde görmemiz için kendi textbox ekliyoruz
End Sub

Private Sub Form_Load()
Winsock1.Close' ' winsock kapatıyoruz
Winsock1.LocalPort = 1111 '' 1111 portu ayarlıyoruz
Winsock1.Listen' ' ve linlemeye bağlıyoruz

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock2.Accept requestID '' bağlantı geldiğinde winsock2 olarak kabul ediyoruz
Command1.Enabled = True '' ve command1 i basılabilir yapıyoruz

End Sub

Private Sub Winsock2_Connect()
Me.Caption = "bağlandı"' ' winsock bağlandığında caption bağlandı yazdırıyoruz
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim data As String' ' data adında bir değişken yapıyoruz
Winsock2.GetData data' ' winsock2 den gelenleri dataya aktarıyoruz
Text1 = Text1 & data & vbCrLf '' ve görebilmemiz için text1 e aktarıp alta geçiyoruz
End Sub
------------------------------------------Client-----------------------------------------------

Private Sub Command1_Click()
Winsock2.SendData Text2 ' text2 yi veri olarak gönderiyoruz
Text1 = Text1 & Text2 & vbCrLf ' kendimizde görmemiz için kendi textbox ekliyoruz
End Sub

Private Sub Form_Load()
Winsock1.Connect "127.0.0.1", 1111' 127.0.0.1 yani biizim adresimize bağlanıyoruz hatırlarsanız 1111 portu dinliyorduk o yüzden bağlanmak içinde 1111 yazmamız gerekiyor
End Sub

Private Sub Winsock1_Connect()
Me.Caption = "Bağlandı" ' bağlandığımızda başlığımıza bağlandı yazdırıyoruz
Command1.Enabled = True ' command1 i basılabilir yapıyoruz
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String ' data adında bir değişken yapıyoruz
Winsock2.GetData data ' winsock2 den gelenleri dataya aktarıyoruz
Text1 = Text1 & data & vbCrLf ' ve görebilmemiz için text1 e aktarıp alta geçiyoruz
End Sub

------------------------------------------------------------
evet arkadaşlar bu kadar yapamayanlar için source kodu :

http://hotfile.com/dl/127891894/407ec44/winsock_Ders.rar.html

Categories: Visual Basic