تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية ربط و فصل اتصال SSH
#1
السلام عليكم جميعا

أنا عملت زر لربط ب جهاز عن طريق 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
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

عليك عكس الامر بين 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
#3
(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
#4
الحمد لله والشكر لله
والحمد لله على كل حال

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم