[bidaya]

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

احاول جلب نص الى الليبل من رابط عبارة على احداثيات الماوس ولم افلح

اتمنى من الاخوة الكرام المساعدة

[bidaya]

PHP كود :

Public Class Form1

    Dim WithEvents tmr As New Timer With {.Interval = 10, .Enabled = True}

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://ane.myartsonline.com/e.y.php")
    End Sub

    Private Sub tmr_Tick(sender As Object, e As EventArgs) Handles tmr.Tick
        If WebBrowser1.Document IsNot Nothing Then
            Dim p = WebBrowser1.Document.GetElementById("demo")
            If p IsNot Nothing Then Label1.Text = p.OuterText
        End If
    End Sub

End Class 


جميل اخي  الكريم الله يحفظك

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

[351028]

(24-03-20, 01:58 PM)bidaya كتب :

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

احاول جلب نص الى الليبل  من رابط عبارة على احداثيات الماوس ولم افلح

اتمنى من الاخوة الكرام المساعدة

(24-03-20, 06:04 PM)bidaya كتب :

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

Webbrowser: Mouse Events

PHP كود :

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("https://google.com")
    End Sub

    Dim IsAssigned As Boolean = False
    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If WebBrowser1.Document <> Nothing AndAlso Not IsAssigned Then
            IsAssigned = True
            AddHandler WebBrowser1.Document.MouseMove, AddressOf Document_MouseMove
        End If
    End Sub

    Private Sub Document_MouseMove(sender As Object, e As HtmlElementEventArgs)
        Label1.Text = "X coords: " & e.MousePosition.X & ", Y coords: " & e.MousePosition.Y
    End Sub

End Class 


---

OffsetMousePosition

PHP كود :

Private Sub Document_MouseMove(sender As Object, e As HtmlElementEventArgs)
    Label1.Text = "X coords: " & e.OffsetMousePosition.X & ", Y coords: " & e.OffsetMousePosition.Y
End Sub 


[bidaya]

Webbrowser: Mouse Events

PHP كود :

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("https://google.com")
    End Sub

    Dim IsAssigned As Boolean = False
    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If WebBrowser1.Document <> Nothing AndAlso Not IsAssigned Then
            IsAssigned = True
            AddHandler WebBrowser1.Document.MouseMove, AddressOf Document_MouseMove
        End If
    End Sub

    Private Sub Document_MouseMove(sender As Object, e As HtmlElementEventArgs)
        Label1.Text = "X coords: " & e.MousePosition.X & ", Y coords: " & e.MousePosition.Y
    End Sub

End Class 


---

OffsetMousePosition

PHP كود :

Private Sub Document_MouseMove(sender As Object, e As HtmlElementEventArgs)
    Label1.Text = "X coords: " & e.OffsetMousePosition.X & ", Y coords: " & e.OffsetMousePosition.Y
End Sub 


الله يجازيك يالف خير اخي على هذا المجهود