تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
برنامج يفحص هل البورت مفتوح او لا
#1
السلام عليكم اخواني آنا اريد عمل برنامج يفحص هل البورت مفتوح او لا مستعينا بهذا الموقع
http://www.canyouseeme.org/
يعني اكتب رقم البورت في التكست بوكس واضغط على البوتون ثم يعطيني النتيجة
الرد }}}
تم الشكر بواسطة:
#2
وينكم الله يرحم الولدين
الرد }}}
تم الشكر بواسطة:
#3
وينكم الله يرحم الولدين
الرد }}}
تم الشكر بواسطة:
#4
شهرين ولا احد يجيب
الرد }}}
تم الشكر بواسطة:
#5
تفضل ياغالي
هذا هو الكود
كود :
Dim Done As Boolean = False
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If Done = True Then Exit Sub
        WebBrowser1.Document.GetElementById("port").InnerText = "8080"
        WebBrowser1.Document.GetElementById("submit").InvokeMember("click")
        Done = True
    End Sub

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#6
sooriaty03 كتب :تفضل ياغالي
هذا هو الكود
كود :
Dim Done As Boolean = False
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If Done = True Then Exit Sub
        WebBrowser1.Document.GetElementById("port").InnerText = "8080"
        WebBrowser1.Document.GetElementById("submit").InvokeMember("click")
        Done = True
    End Sub

بالتوفيق
ممكن شرح للكود+الادوات لي بضيفهم للمشروع
الرد }}}
تم الشكر بواسطة:
#7
السلام عليكم ورحمة الله وبركاته

أخي الكريم
أنت تحتاج فقط إلى أداة WebBrowser
ومن خلال الخاصية Uri
قم بكتابة عنوان الموقع
http://www.canyouseeme.org/
ثم قم بلصق الكود

كود :
Dim Done As Boolean = False
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If Done = True Then Exit Sub ' هنا لضمان عدم تكرار الطلب مرة أخرى
        WebBrowser1.Document.GetElementById("port").InnerText = "8080" 'هنا تكتب رقم المنفذ
        WebBrowser1.Document.GetElementById("submit").InvokeMember("click")  'هنا تطلب من المتصفح الضغط على الزر
        Done = True
    End Sub

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#8
sooriaty03 كتب :السلام عليكم ورحمة الله وبركاته

أخي الكريم
أنت تحتاج فقط إلى أداة WebBrowser
ومن خلال الخاصية Uri
قم بكتابة عنوان الموقع
http://www.canyouseeme.org/
ثم قم بلصق الكود

كود :
Dim Done As Boolean = False
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If Done = True Then Exit Sub ' هنا لضمان عدم تكرار الطلب مرة أخرى
        WebBrowser1.Document.GetElementById("port").InnerText = "8080" 'هنا تكتب رقم المنفذ
        WebBrowser1.Document.GetElementById("submit").InvokeMember("click")  'هنا تطلب من المتصفح الضغط على الزر
        Done = True
    End Sub

بالتوفيق
شكرا الله يجازيك يغلق
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 598 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  [سؤال] مشكلة اتصال مفتوح dell 2 150 12-03-24, 09:46 PM
آخر رد: dell
  [VB.NET] كيف يمكنني استظافة سوفت وير برنامج ادارة جهاز السي بي سي في المختبر الى برنامجي الحزين اليماني 2 282 15-01-24, 10:39 PM
آخر رد: الحزين اليماني
  برنامج لحفظ اكوادي samsunggears 2 385 05-01-24, 12:57 AM
آخر رد: HALIM ELEULMA
  انشاء واجهات برنامج شؤون الموظفين والرواتب شمسـ لا تغيب 5 12,846 27-09-23, 10:05 PM
آخر رد: melad2002
  مطلوب برنامج لحوافظ المالية الاسطورة1 2 432 27-09-23, 09:12 PM
آخر رد: melad2002
  تشغيل برنامج خارجي ضمن شاشة برنامجي strongriseman 1 341 13-09-23, 10:14 PM
آخر رد: anes
  طلب برنامج Active report v1.1 ali_dark 2 436 19-07-23, 01:33 AM
آخر رد: مصمم هاوي
  [نقاش] مساعدة برنامج جمعية خيرية mgsmm 0 457 30-06-23, 01:03 AM
آخر رد: mgsmm
  برنامج الصادر والوارد vb.net crazykinko 3 910 23-06-23, 04:19 AM
آخر رد: kebboud

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


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