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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] المرجو المساعدة كود الاضافة ليعمل في تصميم برنامج صانع الاكواد brioule 1 57 25-02-17, 06:31 PM
آخر رد: khodor1985
  [سؤال] فكرة عمل برنامج تنبيهات abdulla2 1 86 20-02-17, 12:47 AM
آخر رد: EnormousSoft
  [كود] كود برنامج chat متعدد المستخدمين YazanOtoum 2 70 17-02-17, 11:54 PM
آخر رد: احمد مهران
  [سؤال] حل مشكلة برنامج لتغير التاريخ عبدالرحمن المكاوي 6 147 17-02-17, 11:19 PM
آخر رد: EnormousSoft
  تصميم برنامج امتحان الاوفيس والويندوز القيصر بيلا 0 62 12-02-17, 03:07 PM
آخر رد: القيصر بيلا
  طلب برنامج لزيادة دقة الصور احمد علي احمد سلمان 1 84 10-02-17, 05:33 PM
آخر رد: مساعدة
  اخفاء برنامج بعد استدعائه وتشغيله moshax 4 120 07-02-17, 09:53 PM
آخر رد: moshax
Heart [VB.NET] احتاج الى مساعدة في برنامج لمحل لحساب الفاتورة malek369 1 187 06-02-17, 02:44 AM
آخر رد: ٌRy SAEED
  برنامج اسئلة بين برنامجين mohssan 11 2,254 05-02-17, 06:24 PM
آخر رد: ٌRy SAEED
  [سؤال] كيف ابطل زر tab فى برنامج على الفيجوال بيسك Mohamed371 1 92 20-01-17, 02:11 AM
آخر رد: مساعدة

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


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