[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