Discussion :

[baloub]

Bonjour,
Dans mon programme j'envoi à une tablette des copies d'écran d'un PC distant.
Comme je ne sais pas capturer la souris je le simule en incrustant un curseur dans la copie.
Le Hic c'est que c'est toujours une flèche ou un sablier (avec Cursor.Current).
Je souhaiterai connaître la vrai forme du curseur à l'instant de la capture (flèche, curseur text, double flèche sur un bords de fenêtre, etc...).

J'ai également essayé en passant par les API:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 Dim hdc1 As IntPtr = gfx.GetHdc ' pointeur dessin
 Dim hdc2 As IntPtr = GetDC(0) ' pointeur écran
 Dim Pcur As IntPtr = GetCursor() ' pointeur souris
 BitBlt(hdc1, 0, 0, bmpc1.Width, bmpc1.Height, hdc2, 0, 0, 13369376)  ' copie zone écran
 DrawIcon(hdc1, Cursor.Position.X, Cursor.Position.Y, Pcur) ' dessin curseur
 gfx.ReleaseHdc(hdc1)
 ReleaseDC(0, hdc2)

Mais toujours le sablier....

[Jean-Philippe André]

Salut,

une piste possible ici :
https://docs.microsoft.com/en-us/dot...tframework-4.8

[baloub]

Merci pour ta réponse mais ce n'est malheureusement pas ça.
Ton lien indique comment définir le curseur en xaml. (en code, il est d'ailleurs bien précisé d'utiliser la class "Cursors").
Ce que je cherche c'est connaître la forme du curseur à un instant t (typiquement au moment de la capture de l'écran).

[MABROUKI]

bonjour

Il faut appeler l'API GetCursorInfo en spécifiant le paramètre cbSize de la structure CURSORINFO au préalable...

code exemple .vb :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
Imports System.Runtime.InteropServices
Imports System.Drawing.Imaging
 
Public Class Form1
    Const CURSOR_SHOWING As Int32 = &H1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ' ici tu peux tester en changeant du curseur
        Me.Cursor = Cursors.Hand
        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
 
        PictureBox1.Image = CaptureScreen(True)
    End Sub
 
 
 
 
    Public Shared Function CaptureScreen(CaptureMouse As Boolean) As Bitmap
        Dim result As Bitmap = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, PixelFormat.Format24bppRgb)
        Try
            Using g As Graphics = Graphics.FromImage(result)
                g.CopyFromScreen(0, 0, 0, 0, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)
                If (CaptureMouse) Then
                    Dim pci As CURSORINFO
                    pci.cbSize = Marshal.SizeOf(GetType(CURSORINFO))
                    If (GetCursorInfo(pci)) Then
                        If (pci.flags = CURSOR_SHOWING) Then
                            DrawIcon(g.GetHdc(), pci.ptScreenPos.x, pci.ptScreenPos.y, pci.hCursor)
                            g.ReleaseHdc()
                        End If
                    End If
                End If
 
 
 
 
            End Using
 
        Catch ex As Exception
            result = Nothing
        End Try
 
        Return result
 
    End Function
 
 
 
    <DllImport("user32.dll")>
    Shared Function GetCursorInfo(ByRef pci As CURSORINFO) As Boolean
    End Function
    <DllImport("user32.dll")>
    Shared Function DrawIcon(hDC As IntPtr, X As Int32, Y As Int32, hIcon As IntPtr) As Boolean
    End Function
    <StructLayout(LayoutKind.Sequential)>
    Structure CURSORINFO
        Public cbSize As Int32
        Public flags As Int32
        Public hCursor As IntPtr
        Public ptScreenPos As POINTAPI
    End Structure
 
    <StructLayout(LayoutKind.Sequential)>
    Structure POINTAPI
        Public x As Int32
        Public y As Int32
    End Structure
 
 
End Class

bon code...

[baloub]

Merci pour le code.
Je le testerai dans la journée.

[baloub]

Bon, je viens de tester ton code.
Coté forme du curseur, c'est tout bon: On a la forme du curseur au moment de la capture écran.
Toutefois, seul la flèche (arrow), la flèche avec le point d'interrogation (help) et partiellement la main (hand) sont positionnés correctement.
Toutes les autres formes sont dessinées décalées vers le bas et vers la droite.

J'ai modifié ton code pour faire la capture écran en appuyant sur la barre d'espace et l'appui sur le bouton change cycliquement la forme du curseur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
 
Imports System.Runtime.InteropServices
Imports System.Drawing.Imaging
 
Public Class Form1
    Const CURSOR_SHOWING As Int32 = &H1
    Dim curseurs() As Cursor = {Cursors.Arrow, Cursors.Cross, _
                                 Cursors.Hand, Cursors.Help, _
                                 Cursors.HSplit, Cursors.IBeam, Cursors.No, _
                                 Cursors.NoMove2D, Cursors.NoMoveHoriz, Cursors.NoMoveVert, _
                                 Cursors.PanEast, Cursors.PanNE, Cursors.PanNorth, _
                                 Cursors.PanNW, Cursors.PanSE, Cursors.PanSouth, _
                                 Cursors.PanSW, Cursors.PanWest, Cursors.SizeAll, _
                                 Cursors.SizeNESW, Cursors.SizeNS, Cursors.SizeNWSE, _
                                 Cursors.SizeWE, Cursors.UpArrow, Cursors.VSplit, Cursors.WaitCursor}
    Dim curseurIndex As Integer = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' ici tu peux tester en changeant du curseur
        curseurIndex += 1
        If curseurIndex > 25 Then
            curseurIndex = 0
        End If
        Me.Cursor = curseurs(curseurIndex)
    End Sub
 
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Space Then
            PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
            PictureBox1.Image = CaptureScreen(True)
            e.SuppressKeyPress = True
        End If
    End Sub
 
    Public Shared Function CaptureScreen(ByVal CaptureMouse As Boolean) As Bitmap
        Dim result As Bitmap = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, PixelFormat.Format24bppRgb)
        Try
            Using g As Graphics = Graphics.FromImage(result)
                g.CopyFromScreen(0, 0, 0, 0, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)
                If (CaptureMouse) Then
                    Dim pci As CURSORINFO
                    pci.cbSize = Marshal.SizeOf(GetType(CURSORINFO))
 
                    If (GetCursorInfo(pci)) Then
                        If (pci.flags = CURSOR_SHOWING) Then
                            DrawIcon(g.GetHdc(), pci.ptScreenPos.x, pci.ptScreenPos.y, pci.hCursor)
                            g.ReleaseHdc()
                        End If
                    End If
                End If
            End Using
        Catch ex As Exception
            result = Nothing
        End Try
 
        Return result
 
    End Function
 
 
 
    <DllImport("user32.dll")>
    Shared Function GetCursorInfo(ByRef pci As CURSORINFO) As Boolean
    End Function
    <DllImport("user32.dll")>
    Shared Function DrawIcon(ByVal hDC As IntPtr, ByVal X As Int32, ByVal Y As Int32, ByVal hIcon As IntPtr) As Boolean
    End Function
    <StructLayout(LayoutKind.Sequential)>
    Structure CURSORINFO
        Public cbSize As Int32
        Public flags As Int32
        Public hCursor As IntPtr
        Public ptScreenPos As POINTAPI
    End Structure
 
    <StructLayout(LayoutKind.Sequential)>
    Structure POINTAPI
        Public x As Int32
        Public y As Int32
    End Structure
 
 
 
End Class

Je ne comprend pas ce décalage...