24-03-20, 01:58 PM
24-03-20, 06:04 PM
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
جميل اخي الكريم الله يحفظك
الفكرة كنت اريد جلب احداثيات الماوس فوق الويب براوزر لهذا اضطريق استعمال هذه الطريقة
24-03-20, 07:42 PM
(24-03-20, 01:58 PM)bidaya كتب : [ -> ]السلام عليكم ورحمة اللهاحاول جلب نص الى الليبل من رابط عبارة على احداثيات الماوس ولم افلح
اتمنى من الاخوة الكرام المساعدة
(24-03-20, 06:04 PM)bidaya كتب : [ -> ]الفكرة كنت اريد جلب احداثيات الماوس فوق الويب براوزر لهذا اضطريق استعمال هذه الطريقة
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
25-03-20, 01:31 AM
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
الله يجازيك يالف خير اخي على هذا المجهود