منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] مثال عن web browser - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] مثال عن web browser (/showthread.php?tid=918)

مثال عن web browser - mamas1 - 11-11-13

السلام عليكم
إطلعت على بعض الدروس في لغة .net و يبدو أنها جميلة و سهلة
هل توجد أداة web browser لل Mozilla (لقد وجدتها فعلا هنا) Smile
لكن المشكلة كيف يمكنني الضغط على X , Y معين في صفحة معينة
أيضا هل هذه الأداة، بها كل ميزات Mozilla FireFox مثلا Flash Player أو VLC إلخ ..
و شكرا...
لقد واجهت هذه المشكلة في vb6 و هي بالضبط سبب إنتقالي لل .Net
بالتوفيق لنا و لكم Big Grin

RE: مثال عن web browser - mamas1 - 11-11-13

وجدت هذه المقالة الجميلة
http://social.msdn.microsoft.com/Forums/en-US/39273537-88e5-4658-87d4-d6993a770bc4/simulate-mouse-click-on-webbrowser-control-based-on-coordinates
شكرا لكم و لازلت بإنتظار أكواد أخرى بدون إستخدام الماوس و تحريكها

RE: مثال عن web browser - mamas1 - 14-11-13

للتوضيح
إقتباس : أريد برنامج يضغط على إحداثيات معينة في الفورم رغم أن الفورم غير فعالة و ليست On Top
يعني الفورم me.Visible = false
و لكن رغم ذلك.. الكود يضغط على الإحداثيات المطلوبة


RE: مثال عن web browser - الشاكي لله - 14-11-13

اقرا هذا الموضوع وبالتحديد اخر رد

هنا

RE: مثال عن web browser - غزوان خليل - 14-11-13

ممكن توضيع للمقالة لانني ترجمتها على google ولكن الترجمة ليست كما يجب

RE: مثال عن web browser - mamas1 - 15-11-13

(14-11-13, 05:08 PM)الشاكي لله كتب : اقرا هذا الموضوع وبالتحديد اخر رد

هنا

شكرا لك Smile Smile Smile
أعتقد أنه يقول بأن ال Web browser ليس فيه هذه الإمكانية
لكن ال Form بها إمكانية الضغط على إحداثيات معينة و يمكن إستغلالها
إذن كيف ذلك نظرا لكوني مبتدأ لا أعرف الأكواد اللازمة
شكرا .. Big Grin

RE: مثال عن web browser - الشاكي لله - 15-11-13

عندي حركة باستعمال API

انتظري اسوي مثال
هذا هو




عند الضغط على 1+5

يقوم البرنامج بتحريك الماوس والضغط على الرقم 1

ثم يحرك الماوس مجدد ويضغط على "+"

ثم يذهب للرقم 5

وبعدها يضغط "="


الكود هذا بالتحديد

PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'الضغط على رقم 1'
        Dim Num1Point = WebBrowser1.PointToScreen(New Point(14, 148))
        DoMouseLClick(Num1Point.X, Num1Point.Y)

        'الضغط على الزائد'
        Dim PlusBtnPoint = WebBrowser1.PointToScreen(New Point(107, 132))
        DoMouseLClick(PlusBtnPoint.X, PlusBtnPoint.Y)

        'الضغط على رقم 5'
        Dim Num5Point = WebBrowser1.PointToScreen(New Point(51, 125))
        DoMouseLClick(Num5Point.X, Num5Point.Y)

        'الضفط على يساوي'
        Dim EqualBtnPoint = WebBrowser1.PointToScreen(New Point(108, 158))
        DoMouseLClick(EqualBtnPoint.X, EqualBtnPoint.Y)
    End Sub 


ولكن اقولك ان الطريقة غبية جداا ولاتصلح لأن تكون في برنامج حقيقي


انت ليش مصر على الضغط على زر بهذه الطريقة ؟؟


تقدر تستعمل طرق عديدة للضغط على عنصر او تغيير قيمته

RE: مثال عن web browser - mamas1 - 15-11-13

لأنه في الحقيقة ليس زر
هو إحداثية معينة من صورة في صفحة أنترت مما يجعل استعمال الطريقة GetBy Id ...الخ غير ناجعة
و شكرا لك Cool لكن كسؤال
هل يمكنني أن أجعل البرنامج في Hide و عن طريق التايمر يقوم البرنامج بالضغط على هذه الأماكن
أعني هل هذه الطريقة لا تستعمل الماوس ؟

RE: مثال عن web browser - الشاكي لله - 15-11-13

(15-11-13, 08:44 PM)mamas1 كتب : لأنه في الحقيقة ليس زر
هو إحداثية معينة من صورة في صفحة أنترت مما يجعل استعمال الطريقة GetBy Id ...الخ غير ناجعة
و شكرا لك Cool لكن كسؤال
هل يمكنني أن أجعل البرنامج في Hide و عن طريق التايمر يقوم البرنامج بالضغط على هذه الأماكن
أعني هل هذه الطريقة لا تستعمل الماوس ؟

لازم ماوس

ممكن تعطيني الصورة الي تقول عنها !

RE: مثال عن web browser - mamas1 - 17-11-13

هذه حصيلة أبحاثي و محاولاتي

PHP كود :
Dim pnt As Point = New Point(158, 232) ' Specify the location where you want to click.
        Dim hWnd As IntPtr = WindowFromPoint(pnt)
        If hWnd <> IntPtr.Zero Then
            SendMessage(hWnd, BM_CLICK, 0, IntPtr.Zero) ' هذا لإستعمال الإحداثيات
            '   SendMessage(Me.Button2.Handle, BM_CLICK, 0, IntPtr.Zero) ' هذا لإستعمال إحداثيات الزر 2
        End If 

عندما أستخدم كود Me.Button2.Handle يعمل لكن
PHP كود :
SendMessage(hWnd, BM_CLICK, 0, IntPtr.Zero) ' هذا لإستعمال الإحداثيا 
لا يعمل
أتمنى أن يقوم أحد بالتعديل المناسب
و شكرا جزييييلا لكم