[mohammadsaeed01]

السلام عليكم جميعا

أنا عملت زر لربط ب جهاز عن طريق ssh و الربط نجح لكن عملية الفصل مش قابلة تشتغل ، مثلا لما اضغط على الزر اول مرة يتصل و تظهر كلمة  Connect و لما اضغط مرة أخرى اريده ان يظهر Disconnect  و يفصل الاتصال. هذا هو الكود يعمل في الاتصال لكن لما اضغل مرة اخرى لفصل الاتصال تظهر كلمة disconnect لكن الاتصال يبقى متصل و لا ينفصل!! ما السبب؟

كود :

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       "Dim client As SftpClient = New SftpClient(192.168.1.1, "2222", "root", "1234")


       If Button3.Text = "Connect" Then
           client.Connect()
           Button3.Text = "Disconnect"
           Timer1.Enabled = True
       Else
           Button3.Text = "Connect"
           client.Disconnect()
           Timer1.Enabled = False
       End If


   End Sub

[elgokr]

وعليكم السلام ورحمة الله وبركاته

عليك عكس الامر بين Disconnect و Connect

كود :

       Dim client As SftpClient = New SftpClient(192.168.1.1, "2222", "root", "1234")
       If Button3.Text = "Connect" Then
           client.Disconnect()
           Button3.Text = "Disconnect"
           Timer1.Enabled = True
       Else
           Button3.Text = "Connect"
           client.Connect()
           Timer1.Enabled = False
       End If

تحياتى لك

وتمنياتى لك التوفيق

[mohammadsaeed01]

(19-04-19, 12:05 PM)elgokr كتب :

وعليكم السلام ورحمة الله وبركاته

عليك عكس الامر بين Disconnect و Connect

كود :

       Dim client As SftpClient = New SftpClient(192.168.1.1, "2222", "root", "1234")
       If Button3.Text = "Connect" Then
           client.Disconnect()
           Button3.Text = "Disconnect"
           Timer1.Enabled = True
       Else
           Button3.Text = "Connect"
           client.Connect()
           Timer1.Enabled = False
       End If

تحياتى لك

وتمنياتى لك التوفيق

نعم صحيح بارك الله فيك لم انتبه لها تمام اشتغلت تسلم

[elgokr]

الحمد لله والشكر لله

والحمد لله على كل حال

لى ولك وللجميع بامر الله

تحياتى لك

وتمنياتى لك التوفيق