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

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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية استخراج بيانات من اكثر من جدول وطباعتها المتألق9 4 242 12-06-19, 11:41 AM
آخر رد: new2016
  كيفية استخدام زر في لوحة المفاتيح لتطبيق امر معين Emam emam 5 175 11-06-19, 04:27 AM
آخر رد: Emam emam
Information [سؤال] كيفية جعل المشروع يحفظ الملفات في مجلد بالحاسوب مهما تغيير مكان تنصيب المشروع الرائد 3 119 09-06-19, 05:21 AM
آخر رد: ابراهيم ايبو
  كيفية جعل الكتابة التلقائية في الداتا قريد adminHN 1 113 30-05-19, 01:54 PM
آخر رد: اسامه الهرماوي
  كيفية طباعة الفواتير الريسيت alipro 0 98 30-05-19, 01:41 AM
آخر رد: alipro
  [VB.NET] مثال اتصال VB بال SQl اسامه الهرماوي 2 161 17-05-19, 03:09 PM
آخر رد: اسامه الهرماوي
  كيفية تشغيل برنامج exe باستخدام الفيجوال Emam emam 5 265 29-04-19, 03:04 PM
آخر رد: alsouf
  أريد مثال علي كيفية التعرف علي وجه شخص من خلال فديواو صورة ؟ PeterGhattas082460 3 198 18-04-19, 06:04 AM
آخر رد: محمد كريّم
  [سؤال] كيفية ربط ProgressBar بعملية حفظ البيانات mr_hso 0 128 17-04-19, 11:21 PM
آخر رد: mr_hso
  أريد معرفة كيفية اضافة نيت فيم ورك لفيجول استوديو 2010 PeterGhattas082460 5 167 10-04-19, 03:21 PM
آخر رد: بدري

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


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