Remplacer du texte dans un notepad pendant la saisie clavierRésolu

Question

Salut &#224; tous!

Public Sub WriteIntoAppli()

    Dim hWnd As Long

    hWnd = GetForegroundWindow

    AttachThreadInput App.ThreadID, GetWindowThreadProcessId(hWnd, 0), True

    hWnd = GetFocus()

    AttachThreadInput App.ThreadID, GetWindowThreadProcessId(hWnd, 0), False

    SendMessage hWnd, WM_SETTEXT, 0, "What's the problem"

End Sub



A partir d'un Keylogger, j'arrive &#224; savoir quelles touches sont appuy&#233;es.

Ce que j'aimerais, c'est remplacer certains mots par d'autres dans le notepad ou autre.

Je sais &#224; quel moment l'utilisateur &#233;crit Philippe par exemple.

Et j'aimerais que ce texte soit imm&#233;diatement remplacer par Marc par exemple.

Dans le code fournit ci-dessus, au moment o&#249; je sais que l'user &#224; &#233;crit Philippe

J'appelle la fonction WriteIntoAppli pour &#233;crire dans le notepad par exemple.

Le probl&#232;me, c'est qu'au lieu de m'&#233;crire "What's the problem"

Il &#233;crit 3 caract&#232;res ascii &#224; la place de tout le texte contenu dans le notepad!

Comment faire, pour n'&#233;crire que ce que je veux &#224; la place du mot Philippe?

TBBUIM

cs_neria · Accepted Answer

Salut !

      je n'ai pas la solution &#224; ton probl&#232;me, mais je sais que tu peut simuler l'envoie de caract&#232;res au clavier avec la fonction SendKeys, si ca peut t'aider...

@+ Neria

tbbuim1 · Answer

C'&#233;tait pas la r&#233;ponse que j'attendais, mais il est vrai que &#231;a marche aussi.

Merci 

TBBUIM

Remplacer du texte dans un notepad pendant la saisie clavier

2 réponses

Discussions similaires