Je vais me répondre à moi même, je sais pas si c'est la meilleur solution mais j'ai réussi en faisant comme ci-dessous
à l'aide de la fonction API SendInputs (voir le site de Pinvoke)
je positionne mon curseur et j'envoi le texte défini dans ma procédure
Public Shared Sub MouseMoveText(dx As UInteger, dy As UInteger, Text As String) Try Dim Inpts(Text.Length - 1 + 2) As INPUT Inpts(0).type = InputType.Mouse Inpts(0).mi.dx = dx Inpts(0).mi.dy = dy Inpts(0).mi.dwFlags = MOUSEEVENTF.ABSOLUTE + MOUSEEVENTF.MOVE + MOUSEEVENTF.LEFTDOWN Inpts(1).type = InputType.Mouse Inpts(1).mi.dx = dx Inpts(1).mi.dy = dy Inpts(1).mi.dwFlags = MOUSEEVENTF.ABSOLUTE + MOUSEEVENTF.MOVE + MOUSEEVENTF.LEFTUP For Compt = 0 To Len(Text) - 1 Inpts(Compt + 2).type = InputType.Keyboard Inpts(Compt + 2).ki.wVk = 0 Inpts(Compt + 2).ki.wScan = AscW(Text.Substring(Compt, 1)) Inpts(Compt + 2).ki.time = 0 Inpts(Compt + 2).ki.dwFlags = KEYEVENTF.[UNICODE] Next Compt SendInput(Inpts.Length, Inpts, Marshal.SizeOf(GetType(INPUT))) Catch ex As Exception End Try End Sub
Voila, si vous avez mieux je suis preneur
Bonjour,
en VB.net c'est ça!
Dim v As Int32 = Convert.ToInt32("0"c)
11 mars 2023 à 08:18