bende wermedi arkadaş. alla alla çok garip bu arada japon göndericeğimiz text i yazdıktan sonra nasıl karşı tarafa yollıcaz? yardım et lütfen

Merhaba Arkadaşlar Size Winsock Kullanımı Hakkında bilgi vericem. Öncelikle Bir form oluşturun Üzerine 3 Adet TextBox yerleştirin 1. TextBox Adı:Text1 2. TextBox Adı:TGelen MultiLine özelliğini True yapın. 3. TextBox Adı:TGiden 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 2. Butonun Name Kısmına: BaglantiBekle yazın 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 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 If Winsock1. State <> sckClosed Then Winsock1. Close End If Winsock1. Accept requestID Label1 = "BİR BAĞLANTI İSTEĞİ GELDİ" End Sub Private Sub Winsock1_DataArrival Dim s As String Winsock1. GetData s s = "Karsıdan" > "+s" TGelen. Text = TGelen. Text + s + enter End Sub Private Sub Winsock1_Error MsgBox "Şuganda Hata Oluştu" End Sub Private Sub Winsock2_Connect Label1 = "BAĞLANTI SAĞLANDI" End Sub Private Sub Winsock2_DataArrival Dim s As String Winsock2. GetData s s = "Karsıdan > " + s TGelen. Text = TGelen. Text + s + enter End Sub Private Sub Winsock2_Error Label1 = "BAĞLANTI KESİLDİ" End Sub 'KOD BİTİŞİ ŞİMDİ KULLANIMINI ANLATAYIM: File / Make Prpjet1. exe kısmından programı derleyin. 1. Bu dosyayı internet üzerinden 2. Ağ üzerinden veya 3. Aynı makineden çalıştırabilirsiniz. Kendi makinenizde çalıştırmak için programı 2 kere çalıştırın. 1. programda BAĞLANTI BEKLE Command butonuna basın 2. Programda ise Text1 e makinenizin IP adresini girin ve BAĞLAN tuşuna basın. Ve artık iki prpgram arasında mesaj alıp gönderebilirsiniz... İyi Çalışmalar.

Private Sub TGiden_KeyPress burda hata weriyo bi yardımcı olabilirmisin.. şimdiden saol

Bilgisayarlar'da Hele Service Pack 1'lerde VB'nin OCX Dosyaları Olmadığından'dır, VB Runtime Diye Aratıp ve Yüklesin.. - Ex.

flood yapmak gibi olmasın ama buldum japon kardeş. walla enter'a basmak bir türlü aklıma gelmedi bende bütün kodlara baktım da buldum. bu arada herşy için saol Ex.

Ya Kanka Bunu Yaptim DÜzgÜn ÇaliŞti ArkadaŞima Yolladim Exe Dosyasini, ArkadaŞ ÇaliŞtiramadi Dosyayi Ben Ne Yapicam..