تقييم الموضوع :
  • 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
الحمد لله والشكر لله
والحمد لله على كل حال

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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أريد مثال علي كيفية التعرف علي وجه شخص من خلال فديواو صورة ؟ PeterGhattas082460 3 82 18-04-19, 06:04 AM
آخر رد: محمد كريّم
  [سؤال] كيفية ربط ProgressBar بعملية حفظ البيانات mr_hso 0 34 17-04-19, 11:21 PM
آخر رد: mr_hso
  أريد معرفة كيفية اضافة نيت فيم ورك لفيجول استوديو 2010 PeterGhattas082460 5 90 10-04-19, 03:21 PM
آخر رد: بدري
  [VB.NET] [تم الحل] كيفية انشاء صندوق نص و زر شفاف textbox & button الماجيك مسعد 4 173 09-04-19, 02:25 AM
آخر رد: بدري
  كيفية طرح تاريخين من بعض Emam emam 4 99 01-04-19, 12:02 AM
آخر رد: Emam emam
  كيفية عمل رصيد اخر مده للبضاعه hedra samir 2 103 28-03-19, 09:32 PM
آخر رد: hedra samir
Photo كيفية دمج 2 داتا حريد فيو فى داتا جريد فيو واحدة code3x 0 48 27-03-19, 11:41 AM
آخر رد: code3x
  [سؤال] تغير اتصال قاعدة sql الى mysql Mohamed Magdy 0 41 26-03-19, 09:39 PM
آخر رد: Mohamed Magdy
  [سؤال] عن كيفية عمل اختصار من لوحة المفاتيح لسه مبتدئ 2 71 25-03-19, 10:32 PM
آخر رد: لسه مبتدئ
  كيفية مشاركة قاعدة بيانات اكسس على الانترنت Lathe1 5 171 24-03-19, 08:48 PM
آخر رد: Lathe1

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


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