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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] طلب برمجة برنامج يحول صفحات الويب الي فيديو elokely 0 14 16-10-17, 11:22 PM
آخر رد: elokely
  [VB.NET] سؤال عن برمجة برنامج Badi054 6 86 15-10-17, 04:43 PM
آخر رد: سعود
  برنامج محاسبة على الاندرويد محمود صالح 3 81 14-10-17, 02:00 AM
آخر رد: Amir_alzubidy
Thumbs Up [C#.NET] من فضلكم انا عاوز اعمل برنامج تنفيذ الاوامر الصوتيه والتحدث بالفيجوال بيسك ahmed kamal 0 50 04-10-17, 11:34 PM
آخر رد: ahmed kamal
Wink [سؤال] كيفية تحريك اداة TrackBar عند تصميم برنامج ميديا بلاير malzwy2003 0 60 01-10-17, 11:04 PM
آخر رد: malzwy2003
  [سؤال] عمل برنامج بالفجوال بيسك و تشغيلة على الجوال مهندس_خالد 2 129 20-09-17, 09:29 PM
آخر رد: محمود بكرى
  [سؤال] ممكن طريقة عمل برنامج وارسال التحديثات اليه عندما يتوفر تحديث Mina Botros 3 124 20-09-17, 01:11 AM
آخر رد: سعود الشامان
  [سؤال] كيف اجعل برنامج التحميل يحتفظ بقيمة التحميل لو النور انقطع ابو روضة 2 112 16-09-17, 05:44 AM
آخر رد: ابو روضة
  اريد كود لتحقق ان كان الفورم مفتوح ام لا The Light Fire 2 99 11-09-17, 06:57 PM
آخر رد: The Light Fire
  برنامج وارد ومصروفات abdohassan 0 89 09-09-17, 08:48 PM
آخر رد: abdohassan

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


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