منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

[COLOR="#0000CD"]السلام عليكم ورحمة الله وبركاته ،

إخواني الكرام لدي مشروع مهم بلغة الفيجوال بيسك دوت نت ، وأنا إنتهيت بنسبة كبيرة جداً من البرنامج (95 % ) ~

المشكلة التي واجهتني هي أنني أريد من برنامجي الضغط على زر في صفحة ما , لكني لا أعرف ال id الخاص بهذا الزر ,. أرجو أن تساعدوني في معرفته للأهمية الكبيرة ,.
رابط الصفحة :
http://globfone.com

قمت بالدخول للصفحة والضغط على زر Send SMS بعدها سيظهر لك صفحة صغيرة فيها زرين Cancel و Send
الآي دي الذي أريده أنا هو الخاص بزر Send <
أتمنى المساعدة بارك الله فيكم .
[/COLOR]

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

بالتوفيق

السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم هذا شرح للكود
مع توضيح كيف يتم معرفة الـ ID الخاص بالزر Send

كود :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        [color=#008000]'تشغيل المؤقت لمتابعة نتيجة الإرسال[/color]

        Timer1.Enabled = True

        [color=#008000]'مسح النتيجة السابقة[/color]

        Label1.Text = ""

        [color=#008000]'إسناد أحرف الكابتشا داخل المكان المخصص لها[/color]

        WebBrowser1.Document.GetElementById("recaptcha_response_field").Focus()

        WebBrowser1.Document.GetElementById("recaptcha_response_field").InnerText = TextBox3.Text

        [color=#008000]'هنا الجواب على سؤالك[/color]

        [COLOR=#008000]'وهو القيام بالبحث عن الزر

        'Send

        'بدلالة الكود الخاص به وهو هنا

        '<span class="ui-button-text">Send</span>

        'فإذا تم العثور عليه قام البرنامج بالضغط

        'عليه والخروج من الحلقة التكرارية[/COLOR]

        For U = WebBrowser1.Document.All.Count - 1 To 0 Step -1

            If WebBrowser1.Document.All.Item(U).InnerHtml <> "" AndAlso WebBrowser1.Document.All.Item(U).InnerHtml = "<span class=""ui-button-text"">Send</span>" Then

                WebBrowser1.Document.All.Item(U).Focus()

                WebBrowser1.Document.All.Item(U).InvokeMember("click")

                Exit For

            End If

        Next

    End Sub

بالتوفيق

ممتاز sooriaty03

السلام عليكم ورحمة الله وبركاته

أخيرا أخي الكريم تم حل المشكلة
وهي أن كود صفحة النت تختلف اختلافا بسيطا من جهاز لآخر على حسب إصدار الويندوز ومستكشف الانترنت

وأخيرا المثال بعد التعديل في المرفقات

بالتوفيق

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عاااشق ميسي

sooriaty03

sooriaty03

learning.net

sooriaty03