تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
جلب احداثيات الماوس
#1
السلام عليكم ورحمة الله
احاول جلب نص الى الليبل من رابط عبارة على احداثيات الماوس ولم افلح

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

الرد
تم الشكر بواسطة:
#2
PHP كود :
Public Class Form1

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

 
   Private Sub Form1_Load(sender As ObjectAs EventArgsHandles MyBase.Load
        WebBrowser1
.Navigate("http://ane.myartsonline.com/e.y.php")
 
   End Sub

    Private Sub tmr_Tick
(sender As ObjectAs EventArgsHandles 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 

جميل اخي  الكريم الله يحفظك
الفكرة كنت اريد جلب احداثيات الماوس فوق الويب براوزر لهذا اضطريق استعمال هذه الطريقة 
الرد
تم الشكر بواسطة: baha
#3
(24-03-20, 01:58 PM)bidaya كتب :
السلام عليكم ورحمة الله
احاول جلب نص الى الليبل  من رابط عبارة على احداثيات الماوس ولم افلح

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


(24-03-20, 06:04 PM)bidaya كتب :
الفكرة كنت اريد جلب احداثيات الماوس فوق الويب براوزر لهذا اضطريق استعمال هذه الطريقة 





PHP كود :
Public Class Form1

    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        WebBrowser1
.Navigate("https://google.com")
 
   End Sub

    Dim IsAssigned 
As Boolean False
    Private Sub WebBrowser1_DocumentCompleted
(sender As ObjectAs WebBrowserDocumentCompletedEventArgsHandles WebBrowser1.DocumentCompleted
        If WebBrowser1
.Document <> Nothing AndAlso Not IsAssigned Then
            IsAssigned 
True
            AddHandler WebBrowser1
.Document.MouseMoveAddressOf Document_MouseMove
        End 
If
 
   End Sub

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

End 
Class 


OffsetMousePosition

PHP كود :
Private Sub Document_MouseMove(sender As ObjectAs HtmlElementEventArgs)
 
   Label1.Text "X coords: " e.OffsetMousePosition.", Y coords: " e.OffsetMousePosition.Y
End Sub 
الرد
تم الشكر بواسطة: bidaya
#4
Shocked 

PHP كود :
Public Class Form1

    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        WebBrowser1
.Navigate("https://google.com")
 
   End Sub

    Dim IsAssigned 
As Boolean False
    Private Sub WebBrowser1_DocumentCompleted
(sender As ObjectAs WebBrowserDocumentCompletedEventArgsHandles WebBrowser1.DocumentCompleted
        If WebBrowser1
.Document <> Nothing AndAlso Not IsAssigned Then
            IsAssigned 
True
            AddHandler WebBrowser1
.Document.MouseMoveAddressOf Document_MouseMove
        End 
If
 
   End Sub

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

End 
Class 


OffsetMousePosition

PHP كود :
Private Sub Document_MouseMove(sender As ObjectAs HtmlElementEventArgs)
 
   Label1.Text "X coords: " e.OffsetMousePosition.", Y coords: " e.OffsetMousePosition.Y
End Sub 

الله يجازيك يالف خير اخي على هذا المجهود
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] لو سحمتو بدي مثلا لو الماوس دخل ع ليبل يطلع كتابه بجانب الماوس ! Re9x 2 400 17-03-20, 07:24 PM
آخر رد: Re9x
  ظهور رسالة في حالة عدم لمس لوحة المفاتيح او تحريك الماوس بعد مدة معينة atefkhalf2004 2 702 09-10-19, 06:21 PM
آخر رد: Rabeea Qbaha
  اواجه صعوبه في تحديد موضع موشر الماوس علي صوره ما مدرجه في الفورم 01063390896 2 874 04-06-19, 12:59 PM
آخر رد: 01063390896
  [سؤال] كيف اجلب احداثيات الماوس بالنسبة لكونترول معين ولتكن صورة ابراهيم ايبو 5 999 31-05-19, 04:15 AM
آخر رد: sami4
  [VB.NET] استفسار بخصوص تحريك الماوس والضغط dubai.eig 1 960 02-03-19, 11:19 AM
آخر رد: dubai.eig
  حصر الماوس bidaya 11 1,502 03-02-19, 01:36 PM
آخر رد: asemshahen5
  [VB.NET] استفسار :- اضهار معلومات تظهر مع الماوس dubai.eig 5 1,281 26-07-18, 12:14 AM
آخر رد: dubai.eig
  اريد كود عند مرور الماوس علي تكست بوكس = " " ؟ DanyGhost2010 1 867 31-12-17, 04:45 PM
آخر رد: طالب برمجة
  [VB.NET] طلب كود معرفة موضع مؤشر الماوس داخل التيكست بوكس waelalmsry75 7 2,425 07-08-17, 02:46 AM
آخر رد: waelalmsry75
  مساعدة لو سمحتو (طريقة تحريك صورة من خلال احداثيات موجودة في ملف نصي بدون ازرار) marten363 3 1,399 27-12-16, 08:20 PM
آخر رد: مساعدة

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


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