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

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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow قاعدة بيانات اكسس مع فيجوال بيسك نت كيفية عمل ربط بين حاسبات اياد او سكار 2 60 أمس, 01:22 AM
آخر رد: عبد العزيز البسكري
  [سؤال] كيفية التحكم في ادوات وخصائص برنامج من خلال مشروعك الرائد 0 39 17-08-19, 02:54 AM
آخر رد: الرائد
  [سؤال] كيفية تحويل ملف وورد خارجي الى ملف pdf الرائد 3 117 15-08-19, 11:05 PM
آخر رد: الرائد
Question كيفية التخلص من تكرار تخزين البيانات الرائد 13 480 14-08-19, 12:25 PM
آخر رد: الرائد
  [سؤال] اريد كيفية عمل اتصال بموقع معين ramygamalvb 3 655 13-08-19, 02:24 PM
آخر رد: dasktop
  كيفية ربط vb.net بmysql عماني939 3 91 12-08-19, 12:13 PM
آخر رد: عماني939
Lightbulb [سؤال] كيفية جعل textbox يكتب ارقام الهاتف بوضع علامة بعد كل رقمين الرائد 3 93 07-08-19, 11:18 AM
آخر رد: الرائد
  كيفية عمل استعاده لقاعدة بيانات سيكوال Emam emam 3 103 01-08-19, 08:34 PM
آخر رد: ابراهيم ايبو
  كيفية جعل الكتابة التلقائية في الداتا قريد adminHN 4 298 29-07-19, 11:54 AM
آخر رد: شوقي محي الدين
  كيفية اضافة اسم وصورة المنتج في الفورم نور الهدى الهدى 2 149 18-07-19, 10:29 PM
آخر رد: asemshahen5

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


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