[عاااشق ميسي]

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

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

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


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

[sooriaty03]

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

بالتوفيق

[sooriaty03]

السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم هذا شرح للكود
مع توضيح كيف يتم معرفة الـ 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

بالتوفيق

[learning.net]

ممتاز sooriaty03

[sooriaty03]

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

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

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

بالتوفيق