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

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

[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#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 

جميل اخي  الكريم الله يحفظك
الفكرة كنت اريد جلب احداثيات الماوس فوق الويب براوزر لهذا اضطريق استعمال هذه الطريقة 
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة: 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 

الله يجازيك يالف خير اخي على هذا المجهود
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:


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

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


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