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

السلام عليكم
ان شاء الله تكونو بألف خير

عندي ويب بروزر و فيها زر
اريد عند الضغط على ذلك الزر ينفذ امر مثلا يفتح فورم جديد

(24-10-20, 03:38 AM)farfour كتب : [ -> ]السلام عليكم
ان شاء الله تكونو بألف خير

عندي ويب بروزر و فيها زر
اريد عند الضغط على ذلك الزر ينفذ امر مثلا يفتح فورم جديد

كود :

       WebBrowser1.DocumentText = ("  <button id=""myBtn"" onclick=""pageRedirect()"">Open</button>")

يعني انت تريد عند الضغط علي زر في الويب ولا في المشروع ياريت توضح

(24-10-20, 04:49 AM)اليوم السابع كتب : [ -> ]

(24-10-20, 03:38 AM)farfour كتب : [ -> ]السلام عليكم
ان شاء الله تكونو بألف خير

عندي ويب بروزر و فيها زر
اريد عند الضغط على ذلك الزر ينفذ امر مثلا يفتح فورم جديد

كود :

       WebBrowser1.DocumentText = ("  <button id=""myBtn"" onclick=""pageRedirect()"">Open</button>")

يعني انت تريد عند الضغط علي زر في الويب ولا في المشروع ياريت توضح

اضغط على زر في ويب بروزر لينفذ امر في البرنامج مثلا فتح فورم جديد

(24-10-20, 03:38 AM)farfour كتب : [ -> ]السلام عليكم
ان شاء الله تكونو بألف خير

عندي ويب بروزر و فيها زر
اريد عند الضغط على ذلك الزر ينفذ امر مثلا يفتح فورم جديد

كود :

       WebBrowser1.DocumentText = ("  <button id=""myBtn"" onclick=""pageRedirect()"">Open</button>")

(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

(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

الله ينورك اخي الكريم 
شكراااااا 

لدي سؤال الله إخليكم بحثث كثير وعملت عليه كتير لاكن لم أجد الحل من منكم يستطيع أن يعطيني الحل

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

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