WarTurks Yazılım&Programlama
Yazılım&Programlama  
  Ana Sayfa
  Paralı Hizmetlerimiz
  Visual Basic'e Giris
  VB İndirmeli Dersler[Artık Tüm Dersler Burda]]
  Visual Basic 6 Dersleri
  => Bize Ait Vb 6 Calısmalari Ve Yapimi
  => Visual Basic'de Tv Programi Yapmak
  => Winamp Yapimi
  => Visual Basicde Winsock Kullanarak CHAT Yapmak
  Visual Basic 6 Dersleri 2
  Visual Basic Ders Notlari[Resimli]
  Pascala Giris
  Pascal Dersleri
  Php'ye Giris
  Php Dersleri
  C ve C++'ya Giris
  C ve C++ Dersleri
  C++ Ders Notlari [Resimli]
  İletişim
Visual Basicde Winsock Kullanarak CHAT Yapmak
Visual Basicde Winsock Kullanarak CHAT Yapmak.



Öncelikle Bir form oluşturun
Üzerine 3 Adet TextBox yerleştirin

1.TextBox Adı:Text1 (Buraya IP Adresi girilecek)
2.TextBox Adı:TGelen (Buraya Karşıdan gelen mesajlar gelecek)
MultiLine özelliğini True yapın.
3.TextBox Adı:TGiden (Burası Sizin Yazacağınız mesajlar kısmıdır.)
MultiLine özelliği False olarak kalsın.

Daha Sonra 1 Adet Label Ekleyin (Adı: Label1)
Bu Bağlantı durumu hakkında size bilgi verecektir.

Sonra 2 Adet Commad Buton Ekleyin.
1. Butonun Name Kısmına: Baglan yazın (Caption: BA?LAN)
2. Butonun Name Kısmına: BaglantiBekle yazın (Caption: BA?LANTI BEKLE)


Sonra 2 Adet Winsock Ekleyin.
(Nasıl Eklerim: Project / Component i seçerek ekrana çıkan pencereden Microsoft Winsock Control 6.0 (SP6) işaretleyip Tamam tuşuna basın daha sonra artık Winsock sol taraftaki listeye eklenmiş olacaktır. )



DAHA SONRA AŞA?IDAKİ KOD SATIRINI FORMUNUZUN KOD SATIRINA OLDU?U GİBİ EKLEYİN.

'KOD BAŞLANGICI
Option Explicit
Dim enter

Private Sub Baglan_Click()
On Error GoTo HataHaluk_mrdos
Winsock2.RemoteHost = Text1
Winsock2.RemotePort = 1024
Winsock2.Connect
Exit Sub
HataHaluk_mrdos:

MsgBox "İKİNCİ KERE BA?LAN TUŞUNA BASTINIZ LÜTFEN PROGRAMI YENİDEN ÇALIŞTIRIN."
End
End Sub

Private Sub BaglantiBekle_Click()
If Winsock1.State = 2 Then
Winsock1.Close
BaglantiBekle.Caption = "BA?LANTIYI BEKLE"
Else
Winsock1.LocalPort = 1024
Winsock1.Listen
BaglantiBekle.Caption = "BA?LANTIYI KES"
End If

End Sub

Private Sub Form_Load()
enter = Chr(13) + Chr(10)
TGelen = ""
TGiden = ""
End Sub

Private Sub TGiden_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Winsock1.State = 7 Then
Winsock1.SendData TGiden.Text
TGelen = TGelen + "SİZDEN > " + TGiden + enter
TGiden = ""
End If

If Winsock2.State = 7 Then
Winsock2.SendData TGiden.Text
MsgBox TGiden.Text
TGelen = TGelen + "SİZDEN > " + TGiden + enter
End If

End If
End Sub

Private Sub Winsock1_Close()
Label1 = "BA?LANTI KESİLDİ"
End Sub

Private Sub Winsock1_Connect()
Label1 = "BA?LANTI SA?LANDI"
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <sckClosed> "+s"
TGelen.Text = TGelen.Text + s + enter
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Şuganda Hata Oluştu"
End Sub

Private Sub Winsock2_Connect()
Label1 = "BA?LANTI SA?LANDI"
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim s As String
Winsock2.GetData s
s = "Karsıdan > " + s
TGelen.Text = TGelen.Text + s + enter
End Sub

Private Sub Winsock2_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Label1 = "BA?LANTI KESİLDİ"
End Sub 2q1
Yazılım&Programlama  
   
Reklam  
   
 
   
 
   
 
   
 
   
Bugün 1 ziyaretçi (29 klik) kişi burdaydı!
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=