تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف تتحقق من وجود برنامج مثبت وان لم يكن مثبت تثبته محمد بن عطية 1 59 20-05-17, 09:26 PM
آخر رد: محمود بكرى
  تشغيل برنامج دون الحاجه للاقلاع ببرامج اخري medoddd 0 36 19-05-17, 12:46 PM
آخر رد: medoddd
  افكاركم بخصوص برنامج ادارة محلات بلاي ستيشن Basil Abdallah 3 79 18-05-17, 07:49 PM
آخر رد: Basil Abdallah
  [VB.NET] عايز اعرف ازاى اعمل برنامج بقاعدة بيانات xaml MOSTAFA.KAMEL 3 119 13-05-17, 11:01 PM
آخر رد: العواد الصغير
  طلب برنامج .NET Reactor مع التفعيل OakenShield 0 41 13-05-17, 01:28 PM
آخر رد: OakenShield
  [VB.NET] مشكلة بسيطة في برنامج بسيط يعتمد على( Multi-Threading) أبو نقطة 5 141 13-05-17, 07:41 AM
آخر رد: أبو نقطة
  مساعدة في ربط برنامج بالسكنر zinab ali 3 84 09-05-17, 10:55 PM
آخر رد: mansoor
  [سؤال] تعليم عمل برنامج مبيعات المبرمج العبقري 4 172 30-04-17, 12:42 PM
آخر رد: جميل علي
  انترنت اكسبولور داخل برنامج ديسك توب weswes88 1 60 18-04-17, 05:57 AM
آخر رد: Anas Mahmoud
  برنامج لتعليم ذوي الاحتياجات الخاصة Basil Abdallah 4 134 14-04-17, 12:24 AM
آخر رد: Amir_alzubidy

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


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