[..] Aide Send clavier

[yanius]

Bonjour à tous !!

Donc voilà je voulais savoir s'il quelqu'un pouvait m'aider pour un script. Alors voilà le principe de mon programme : lorsque (par exemple) la touche "a" est actionnée, la lettre "a" va s'écrire automatiquement dans un fichier .txt
Jusque là pas de problème, par contre lorsque j'écris "autoit" dans la recherche google (par exemple), il me met "utoit".
Voici mon code :

► Afficher le texte

Code : Tout sélectionner

HotKeySet("{ESC}", "Quitter")
HotKeySet("a", "a")

$file = FileOpen("test.txt", 1)

If $file = -1 Then
    MsgBox(0, "Error", "Fichier inexistant.")
    Exit
EndIf

While 1
    Sleep(100)
WEnd

Func Quitter()
    FileClose($file)
    Exit
EndFunc

Func a()
    FileWrite($file, "a") ; écrit "a" dans le fichier test.txt
    Send("a") ; écris normalement "a" dans la recherche google (c'est là où ça ne marche pas)
EndFunc
 

Quelle est le problème de mon code ?
Merci d'avance pour vos réponse !

[Strofe]

Bonsoir

Bizarre comme projet...

► Afficher le texte

When you set a hotkey, AutoIt captures the key-press and does not pass it on to the active application, with one exception: the Lock keys (NumLock, CapsLock, and ScrollLock) still toggle their respective state!
To Send() a key combination which will trigger a HotKeySet() event, either use ControlSend() or unregister the HotKeySet() event, otherwise, the Send() event may trigger an infinite loop.

; capture and pass along a keypress
HotKeySet("{Esc}", "captureEsc")
Func captureEsc()
; ... can do stuff here
HotKeySet("{Esc}")
Send("{Esc}")
HotKeySet("{Esc}", "captureEsc")
EndFunc

Bon courage

[yanius]

La fonction HotKeySet n'est donc pas appropriée ?

[zeshrek]

ohhhhh que voila quelquechose qui sent bon le keyloger !!!!!

J'attend avec scepticisme (et gourmandise) un démenti, et des explications sur la vocation tout a fait légitime d'un programme qui intercepte les touches pressées pour les enregistrer dans un fichier....

[legend]

tout a fait d'accord avec zeshrec.
explique nous l'utilité de ton script et je te donne 2solutions.

[Yarillo]

Un tel script étant ensuite exploitable dans un Keylogger par la suite, ne serait-il pas plus intelligent de bloquer tout de suite la discussion ?

[ZDS]

Bonjour, vaudrait mieux verrouiller oui.

@Yanius : Pour quelqu'un qui semble un éclairé transcendant avec une signature de matheux, tu as pas beaucoup de jugeote à demander de l'aide pour bots sur un forum AutoIt, langage trop longtemps décrié pour cette raison alors que ses possibilités sont infinies (beaucoup plus agréables que de faire de faux OS ou autres subtils pourrisseurs de travail).

A bientôt.

PS: Bizarrement depuis le message de ZeShrek, pas de réponse pour contredire, c'est tout de même bizarre... ^^

[yanius]

@ZDS
En effet, "bizarrement", je n'ai pas répondu car "bizarrement" je n'ai guerre l'habitude de lire mes messages en matinée.
Mauvaise déduction, tu m'envoies vraiment déçu...

@zeshrek
lol^^ Tu as totalement raison...
Bien sur que des "explications sur la vocation tout a fait légitime d'un programme qui intercepte les touches pressées pour les enregistrer dans un fichier" doivent être rendus et doivent être de taille (j'espère pour cela être à la hauteur de tes exigences lol)

En revanche, obligé de constaté avec mépris que ma demande fait l'objet d'un bot [ce qui pourrais l'être mais ne l'ai pas (petite nuance tout de même)], je me dois de vous expliquer mon projet !

Donc voilà, je voulais réaliser un programme (et plus précisément un logiciel-chat) qui me permette de réaliser un chat interactif. En effet, au lieu de voir une phrase afficher avec une petite pression (cela dépend des personnes ^^) sur la touche "entrée", les clients du chat verront de façon quasi simultanée la conception des messages.

Si tenté soit-il qu'il y ait des sceptiques, de plus amples explications seront à votre disposition !
Toute fois, si ma demande ne semble pas respecter l'intégrité du combat contre les hackeurs, je ne m'opposerai pas au blocage de la discussion

En attendant vos réponses, qui pour ma part, peuvent faire preuve d'un écart temporel (n'est-ce-pas ZDS ), je vous remercie d'avance !

[ZDS]

Mea culpa Yanius, mais tu pourras avouer qu'une demande aussi courte et pauvre en explication sur le besoin ou les exigences pouvait faire penser à un bot keylogger

Sinon pour le coté délai de réponse, j'ai cru voir ton premier message vendredi soir en partant du taf, ce qui n'est pas le cas il date seulement d'hier. Bref, pour me faire pardonner, je te prépare un exemple de prise en charge pour demain. Néanmoins faut pas oublier que HotKeySet n'est pas trop prévu pour être lancé sur toutes les touches du clavier.

A bientôt !

PS: Version rapide en attendant :

► Afficher le texteScript

Code : Tout sélectionner

HotKeySet("{ESC}", "Quitter")
HotKeySet("a", "a")

$file = FileOpen("test.txt", 1)

If $file = -1 Then
    MsgBox(0, "Error", "Fichier inexistant.")
    Exit
EndIf

While 1
    Sleep(100)
WEnd

Func Quitter()
    FileClose($file)
    Exit
EndFunc

Func a()
    HotKeySet("a") ; Arret de la capture du "a"
    FileWrite($file, "a") ; écrit "a" dans le fichier test.txt
    Send("a") ; écris normalement "a" dans la recherche google (c'est là où ça ne marche pas)
    HotKeySet("a", "a") ; Reprise de la capture du "a"
EndFunc

EDIT: Exact, à taper trop vite j'ai confondu bot et keylogger dans ma phrase.

[yanius]

Il est vrai que vu sous cet angle ... cela ressemble à un bot lol !

Sinon je te remercie pour cette exemple et te présente toutes mes excuses (^^)
Merci encore

[legend]

Même si je suis pas convaincu par ton projet je donne une autre solution. (en tout cas c'est pas moi qui a commencé ^^)
tu remplace la ligne send de ton premier code par :
controlsend ("", "", "", "a")
bonne journée.

[zeshrek]

Alors en fait, c'est pas un bot, mais un keylog... nuance
En même temps l'un comme l'autre sont prohibés sur ce forum donc...
Bref, vu que c'est ni l'un ni l'autre on peut continuer a papoter.

Donc je ne vais pas revenir sur l'aspect technique vu que d'autres l'ont fait, mais il est inutile d'intercepter les touches pour savoir au fur et a mesure ce qui est tapé dans un input. Il suffit tout simplement de le lire, et même si l'utilisateur n'a pas tapé entrée, sa valeur se modifie au fur et a mesure.

[TommyDDR]

HotKeySet étant vraiment à proscrir pour ce genre d'utilisation (même pour un keylogger au passage...)
Je vous conseil d'utiliser GUIRegisterMsg.
Je viens de vous faire un petit script que vous pouvez assez facilement reprendre pour votre programme :

► Afficher le textecode

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>

Opt("GUIOnEventMode", 1)

Dim $Gui

$Gui = GUICreate("test", 300, 300)
$Input = GUICtrlCreateInput("", 10, 10, 280, 20)
$Edit = GUICtrlCreateEdit("", 10, 40, 280, 250, 0)
GUICtrlSetState($Edit, $GUI_DISABLE)
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
GUISetState()

GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")

While(True)
    Sleep(10)
WEnd

Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
    Local $hWord = "0x" & Hex(BitShift(BitAND($wParam, 0xFFFF0000), 16), 4)
    Local $lWord = "0x" & Hex(BitAND($wParam, 0xFFFF), 4)
    If($hWnd = $Gui And GUICtrlGetHandle($Input) = $lParam) Then
        If($hWord = 0x0300) Then
            RemplacerEdit()
        EndIf
    EndIf
EndFunc

Func RemplacerEdit()
    Local $Time = "Mise à jour : " & @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & @CRLF
    GUICtrlSetData($Edit, $Time & GUICtrlRead($Input))
EndFunc

Func quit()
    Exit
EndFunc

[yanius]

@TommyDDR
Merci beaucoup !! C'est exactement ce que je voulais (enfin la base ) !!


@zeshrek
En fait, je parlais d'un chat et non d'un input, donc il n'est pas possible à un client de voir le message avant que la touche entrée soit appuyée ! C'est le but même de mon projet ! ^^

[zeshrek]

ton systeme de chat, il passe forcément par un input coté émeteur non ?
voilà un exemple tout bete :

Code : Tout sélectionner

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiEdit.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$MsgEnvoye=""

$Form1 = GUICreate("Form1", 615, 438, 192, 124)
$Edit = GUICtrlCreateLabel("", 384, 96, 217, 300, $SS_SUNKEN)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Input1 = GUICtrlCreateInput("", 16, 296, 257, 21)
$Label1 = GUICtrlCreateLabel("On va dire que ici c'est la zone ou tu"&@crlf&"saisis ce que tu tapes dans ton chat", 16, 216, 189, 32)
$Label2 = GUICtrlCreateLabel("Et on va dire que ici c'est"&@crlf&"l'affichage chez ton correspondant", 392, 8, 209, 32)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Input1
            $MsgEnvoye=$MsgEnvoye & GUICtrlRead($Input1)&@CRLF
            GUICtrlSetData($Input1,"")
    EndSwitch
    If GUICtrlRead($Edit)<>$MsgEnvoye & _GUICtrlEdit_GetText($Input1) Then
        GUICtrlSetData($Edit,$MsgEnvoye& _GUICtrlEdit_GetText($Input1))
    EndIf
WEnd