منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب معرفة id لهذا الزر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب معرفة id لهذا الزر (/showthread.php?tid=8542)

طلب معرفة id لهذا الزر - عاااشق ميسي - 19-04-13

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

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

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


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

طلب معرفة id لهذا الزر - sooriaty03 - 19-04-13

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

بالتوفيق

طلب معرفة id لهذا الزر - sooriaty03 - 19-04-13

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

بالتوفيق

طلب معرفة id لهذا الزر - learning.net - 20-04-13

ممتاز sooriaty03

طلب معرفة id لهذا الزر - sooriaty03 - 20-04-13

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

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

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

بالتوفيق