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

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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية فتح ملف pdf بشرط محدد aftfm 3 193 14-02-20, 02:25 PM
آخر رد: سامي محمد
  كيفية عمل برنامج إصلاح الورش أمجد وضاح 6 395 14-02-20, 12:38 AM
آخر رد: أمجد وضاح
  [VB.NET] كيفية عمل قائمة منسدلة عن عمليات البحث ذات الصلة khairallah 0 71 12-02-20, 12:24 PM
آخر رد: khairallah
  كيفية حفظ وتحزيم المشروع وتشغيله كبرنامج علىجميع الاجهزة الرائد 0 87 07-02-20, 01:51 AM
آخر رد: الرائد
  كيفية حساب عدد الأرقام داخل textbox ahmedfa71 3 147 06-02-20, 08:24 PM
آخر رد: bajo
  [VB.NET] كيفية الانتقال لسطر جديد في السطور الطويلة Naefabdo 0 69 06-02-20, 05:36 PM
آخر رد: Naefabdo
  كيفية تتم عملية التحزيم لمشروع مع مرفقات ahmedfa71 2 154 06-02-20, 11:58 AM
آخر رد: ahmedfa71
  كيفية جعل القيمة null لحقل رقمي = 0 في الكريستال ريبورت bassant 2 183 29-01-20, 04:32 PM
آخر رد: alsalamoni
  [VB.NET] كيفية انشاء QR CODE داخل ريبورت فيوير khairallah 1 111 27-01-20, 04:54 PM
آخر رد: Rabeea Qbaha
  كيفية حذف صف من قاعدة البيانات باستخدام الكومبوبكس الرائد 4 229 24-01-20, 12:29 PM
آخر رد: abubasilIraq

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


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