Basit bir Chat Programı

[rebel_]

'2 tane Command Buton var 1 tane Textbox var
'1 de timer attım oda bağlantı olup olmadığını kontrol ediyor ve
'timer internal 100 olacak

'Bu Terminaller içindir.

Dim i As Long
Dim Con As Long

Private Sub Command1_Click()
Winsock1(0).SendData Text1.Text
End Sub

Private Sub Command2_Click()
Winsock1(0).Close
End
End Sub

Private Sub Form_Unload(Cancel As Integer)
Winsock1(0).Close
End Sub

Private Sub Timer1_Timer()
Select Case Winsock1(0).State
Case 0
Label1.Caption = "Kapalı"
Case 1
Label1.Caption = "Açık"
Case 2
Label1.Caption = "Bağlantı bekleniyor"
Case 7
Label1.Caption = "Bağlı"
Case 9
Label1.Caption = "Hata!"
Case 8
Label1.Caption = "Bağlantı Kesildi"
'bağlantı kesildiğinde tekrar dinlemeye başlamak için
Winsock1(0).Close
Winsock1(0).LocalPort = 1024
End Select
End Sub

Private Sub Form_Load()
i = 0
Con = 0
Winsock1(0).Close
Winsock1(0).Connect "192.168.4.99", 1024 'Bağlanacak Serverın ip si ve port numarası
End Sub

Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
i = i + 1
Con = Con + 1
Load Winsock1(i)
Winsock1(i).LocalPort = 0
DoEvents
Winsock1(i).Accept requestID
DoEvents
End If
End Sub

Private Sub Winsock1_Error(Index As Integer, 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)
Winsock1(Index).Close
DoEvents
Con = Con - 1
End Sub



Arkadaşlar Alıntıdır:hhdil

 

[white_sun]

Winsock1 kısmında hata veriyor :S

 

[Slaughter]

Winsock1 kısmında hata veriyor :S

winsock u ekledinmi?

 

[white_sun]

öle bi companent var mıydı :S
pardon

EDİT: ya ben bulamadım öle bişi nerden eklenio o

 

[The_eXXe]

antivirüs, firewall programlarıda winsock'un çalışmasını engelleyebilir. o yüzden disable etmenizde fayda var çalıştırırken

 

[Slaughter]

öle bi companent var mıydı :S
pardon

EDİT: ya ben bulamadım öle bişi nerden eklenio o

Ctrl+T - Microsoft Winsock Control 6.0

tabi vb 6 icin 5 de farkli olablr

antivirüs, firewall programlarıda winsock'un çalışmasını engelleyebilir. o yüzden disable etmenizde fayda var çalıştırırken

ztn kendi sorar engeli kaldiralmmi die grk yok disable a

 

[rebel_]

Arkadaşlar winsock ekleyebilmek için CTRL+T tuşuna basın gelen sayfadan Microsoft Winsock Control 6.0 'ı chek edin ozaman cıkar meydana ve ayarlarını yapmayı unutmayın