: delphide falan şyle ama vb de nasıldır bilemicem if koşulun then kodların end else then kodların // koşul geçerli değilse çalışçak kodlar end elseyle yapılcak yani yok la onu bende biliyom :D Private Sub baglan_Click bekle. Enabled = Falsegonder2. Enabled = Falsesck. Closesck. RemoteHost = ipsck. RemotePort = portsck. ConnectIf... Thenbekle. Enabled = Truegonder2. Enabled = TrueEnd IfEnd Sub kodlar bu şekilde ama noktaların yerine ne yazcağımı bilemedim. butona tıklayınca 2 butonu iptal edip belirtilen ipye belirtilen porttan bağlanıyo, ama eğer bağlantı kurulamazsa butonları tekrar aktif hale getirmesini istiyorum,"bağlantı yoksa" yı nası yazıcam, dert orda :/ :)

Private Sub baglan_Click bekle. Enabled = Falsegonder2. Enabled = Falsesck. Closesck. RemoteHost = ipsck. RemotePort = portsck. ConnectIf bekle. enabled = false Thenbekle. Enabled = Truegonder2. Enabled = TrueEnd IfEnd Sub veya Private Sub baglan_Click bekle. Enabled = Falsegonder2. Enabled = Falsesck. Closesck. RemoteHost = ipsck. RemotePort = portsck. ConnectIf sck. State = 7 Then ' baglanti sağlandı isebekle. Enabled = Truegonder2. Enabled = TrueEnd IfEnd Sub

bak delphide if sck. Connectted=true then şeklindeydi vbdede yledir Bittik biz bittik

Winsock'un state değerini kontrol etmen gerek sanırım.

delphide falan şyle ama vb de nasıldır bilemicem if koşulun then kodların end else then kodların // koşul geçerli değilse çalışçak kodlar end elseyle yapılcak yani Bittik biz bittik

http://www.tahribat.com/Dokuman-Visual-Basicde-Winsock-Kontrolu-Ve-Kullanimi-195/1/ şu dkümandaki rnek chat programını yaptım, ancak tek taraflı olduğu için ve ilk winsock denemem olduğu için geliştirmek istedim... serverla clienti tek formda birleştirdim, eğerki bağlantı beklenecek olursa sadece server kısmı aktif olsun, bağlanılacak olursada client kısmı aktif olsun diye düşündüm... yaptımda, ancak bağlantı kurulamazsa butonların tekrar aktif hale geçmelerini sağlayamadım.. If... Thenbekle. Enabled = Truegonder2. Enabled = TrueEnd If dedim ama iften sonra bağlantının sağlanmamış olduğunu nası yazacağımı bilemedim :/ :)

: Private Sub baglan_Click bekle. Enabled = Falsegonder2. Enabled = Falsesck. Closesck. RemoteHost = ipsck. RemotePort = portsck. ConnectIf bekle. enabled = false Thenbekle. Enabled = Truegonder2. Enabled = TrueEnd IfEnd Sub veya Private Sub baglan_Click bekle. Enabled = Falsegonder2. Enabled = Falsesck. Closesck. RemoteHost = ipsck. RemotePort = portsck. ConnectIf sck. State = 7 Then ' baglanti sağlandı isebekle. Enabled = Truegonder2. Enabled = TrueEnd IfEnd Sub üstteki çok saçma olmuş. tıklayınca bi an pasif oluyo sonra tekrar aktif oluyo fln :D alttaki mantıklı. şu enabled false değerlerini sildim, if deyimindeki değerleri false yaptım.. tıkladığımda pasif olmuyo aynen kalıyo butonlar, ama bağlantı sağlanırsa pasif duruma geçiyolar :) :)