[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 


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

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