تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال في webbrowser
#1
السلام عليكم
ان شاء الله تكونو بألف خير

عندي ويب بروزر و فيها زر
اريد عند الضغط على ذلك الزر ينفذ امر مثلا يفتح فورم جديد
كود :
       WebBrowser1.DocumentText = ("  <button id=""myBtn"" onclick=""pageRedirect()"">Open</button>")
الرد }}}
تم الشكر بواسطة: bidaya
#2
(24-10-20, 03:38 AM)farfour كتب : السلام عليكم
ان شاء الله تكونو بألف خير

عندي ويب بروزر و فيها زر
اريد عند الضغط على ذلك الزر ينفذ امر مثلا يفتح فورم جديد
كود :
       WebBrowser1.DocumentText = ("  <button id=""myBtn"" onclick=""pageRedirect()"">Open</button>")

يعني انت تريد عند الضغط علي زر في الويب ولا في المشروع ياريت توضح
الرد }}}
تم الشكر بواسطة: farfour , bidaya
#3
(24-10-20, 04:49 AM)اليوم السابع كتب :
(24-10-20, 03:38 AM)farfour كتب : السلام عليكم
ان شاء الله تكونو بألف خير

عندي ويب بروزر و فيها زر
اريد عند الضغط على ذلك الزر ينفذ امر مثلا يفتح فورم جديد
كود :
       WebBrowser1.DocumentText = ("  <button id=""myBtn"" onclick=""pageRedirect()"">Open</button>")

يعني انت تريد عند الضغط علي زر في الويب ولا في المشروع ياريت توضح
اضغط على زر في ويب بروزر لينفذ امر في البرنامج مثلا فتح فورم جديد
الرد }}}
تم الشكر بواسطة: bidaya
#4
(24-10-20, 03:38 AM)farfour كتب : السلام عليكم
ان شاء الله تكونو بألف خير

عندي ويب بروزر و فيها زر
اريد عند الضغط على ذلك الزر ينفذ امر مثلا يفتح فورم جديد
كود :
       WebBrowser1.DocumentText = ("  <button id=""myBtn"" onclick=""pageRedirect()"">Open</button>")

تفظل اخي الكريم

جرب هذا
كود :
Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
       WebBrowser1.DocumentText = ("<button id=""myBtn"" onclick=""pageRedirect()"">Open</button>")
   End Sub



   Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       For Each div As Windows.Forms.HtmlElement In WebBrowser1.Document.Body.GetElementsByTagName("button")
           If div.Id = "myBtn" Then div.AttachEventHandler("onclick", AddressOf OpenForm)
       Next
       
   End Sub

   Private Sub OpenForm()
       Dim form As New Form2
       form.Show()
   End Sub
الرد }}}
تم الشكر بواسطة: farfour , ابو روضة , ابو روضة , الماجيك مسعد
#5
Heart 
(24-10-20, 02:07 PM)bidaya كتب :
(24-10-20, 03:38 AM)farfour كتب : السلام عليكم
ان شاء الله تكونو بألف خير

عندي ويب بروزر و فيها زر
اريد عند الضغط على ذلك الزر ينفذ امر مثلا يفتح فورم جديد
كود :
       WebBrowser1.DocumentText = ("  <button id=""myBtn"" onclick=""pageRedirect()"">Open</button>")

تفظل اخي الكريم

جرب هذا
كود :
Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
       WebBrowser1.DocumentText = ("<button id=""myBtn"" onclick=""pageRedirect()"">Open</button>")
   End Sub



   Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       For Each div As Windows.Forms.HtmlElement In WebBrowser1.Document.Body.GetElementsByTagName("button")
           If div.Id = "myBtn" Then div.AttachEventHandler("onclick", AddressOf OpenForm)
       Next
       
   End Sub

   Private Sub OpenForm()
       Dim form As New Form2
       form.Show()
   End Sub

شكراااا ربي يحفظك 
جربته في webbrowser شغال ما شاء الله
لو كنت استعمل GeckoWebBrowser كيف يكون الكود 
لان AttachEventHandler غير متوفرة في gecko
الرد }}}
تم الشكر بواسطة: bidaya , bidaya
#6
كود :
Private Sub GeckoWebBrowser1_DomClick(sender As Object, e As Gecko.DomMouseEventArgs) Handles GeckoWebBrowser1.DomClick
       Dim element As Gecko.GeckoHtmlElement = CType(e.Target.CastToGeckoElement(), Gecko.GeckoHtmlElement)
       If element.TextContent = "Open" Then
           OpenForm()
       End If


   End Sub
الرد }}}
تم الشكر بواسطة: farfour , kiki
#7
(24-10-20, 05:14 PM)bidaya كتب :
كود :
Private Sub GeckoWebBrowser1_DomClick(sender As Object, e As Gecko.DomMouseEventArgs) Handles GeckoWebBrowser1.DomClick
       Dim element As Gecko.GeckoHtmlElement = CType(e.Target.CastToGeckoElement(), Gecko.GeckoHtmlElement)
       If element.TextContent = "Open" Then
           OpenForm()
       End If


   End Sub

الله ينورك اخي الكريم 
شكراااااا  Heart
الرد }}}
تم الشكر بواسطة: bidaya
#8
لدي سؤال الله إخليكم بحثث كثير وعملت عليه كتير لاكن لم أجد الحل من منكم يستطيع أن يعطيني الحل

أنا عملت برنامج يتعامل مع الواتساب ويب ولاكن المشكل الوحيد الذي واجهني وهو كيفية برمجة البرنامج لكي يضغط على زر إرسال في واتساب ويب مفتوح في webbrowser1 تعمل بمكتبة CefSharp ويكون الضغط على زر إرسال حتى لو كانت webbrowser1 غير ظاهرة أو حتى لو كنت أستخدم برنامج أخر يعني الارسال في الزر بالضبط
لاني إستخدمت SendKeys.Send("{enter}") وهذا يضغط أنتر في أي برنامج على الواجهة وليس بالتحديد الزر الذي أريد إلى لو كنت فاتح الواتساب في الواجهة

المرجو إجابتي على سؤالي وجزاكم الله خيرا.
يمكنكم مراسلتي على الواتساب التالي لو أردتم ذلك +212690397805 لكي نتبادل الخبرات قد أفيدكم لو لكم أي تساؤل أو مشكل تواجهونه
وشكرا
الرد }}}
تم الشكر بواسطة:



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


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