J'utilise depuis des années un script pour saisir le user et le mot de passe automatiquement.
Depuis a peu prés le début d'année c'est devenu moins fiable (maj Windows!) certain caractères sont modifiés un 3 devient un " , un M devient m ..
ci joint mon code qui traite cette action
une fois exécuté placez vous dans un notepad puis appuyez sur les touches CRTL SHIFF u pour saisir le user puis CTRL SHIFF pour le MDP
répétez cette action pour voir le problème
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("SendKeyDelay", 5)
Opt("SendKeyDownDelay", 5)
Opt("SendAttachMode", 0)
Global $mdp = "Ms932wj:5,LWr.Msç32wj:5,LWr.Ms93"
Global $skd = 5
Global $skdd = 5
Global $sam = 0
Global $nbr = 10
Global $user = "User222935User"
HotKeySet("^+p", "ctrlaltp") ; ctrl-alt-p
HotKeySet("^+u", "crtlaltu") ; crtlaltu()
#Region ### START Koda GUI section ### Form=C:\pi\forum\test_envoie_touche.kxf
Global $Form1 = GUICreate("Form1", 492, 224, 192, 124)
Global $Inp_skd = GUICtrlCreateInput("", 120, 30, 121, 21)
Global $Inp_skdd = GUICtrlCreateInput("", 120, 54, 121, 21)
Global $Inp_nbr = GUICtrlCreateInput("", 336, 81, 121, 21)
Global $Checkbox1 = GUICtrlCreateCheckbox("SendAttachMode", 123, 87, 97, 17)
Global $Label1 = GUICtrlCreateLabel("SendKeyDelay", 15, 27, 74, 17)
Global $Label2 = GUICtrlCreateLabel("SendKeyDownDelay", 15, 57, 102, 17)
Global $Label3 = GUICtrlCreateLabel("Nombre d'envoie", 240, 84, 84, 17)
Global $Inp_mdp = GUICtrlCreateInput("", 108, 114, 292, 21)
Global $Label4 = GUICtrlCreateLabel("Mot de passe", 15, 114, 68, 17)
Global $Inp_test = GUICtrlCreateInput("", 108, 150, 292, 21)
Global $Inp_error = GUICtrlCreateInput("", 108, 186, 121, 21)
Global $Label5 = GUICtrlCreateLabel("Nombre d'erreur", 12, 192, 79, 17)
Global $Label6 = GUICtrlCreateLabel("Test", 18, 156, 25, 17)
Global $But_test = GUICtrlCreateButton("Test erreur", 405, 147, 78, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetData($Inp_skd, $skd)
GUICtrlSetData($Inp_skdd, $skdd)
GUICtrlSetData($Inp_nbr, $nbr)
GUICtrlSetData($Inp_mdp, $mdp)
$erreur = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Inp_skd
$skd = GUICtrlRead($Inp_skd)
Opt("SendKeyDelay", $skd)
Case $Inp_skdd
$skdd = GUICtrlRead($Inp_skdd)
Opt("SendKeyDelay", $skdd)
Case $Inp_nbr
$nbr = GUICtrlRead($Inp_nbr)
Case $Checkbox1
If _IsChecked($Checkbox1) Then
$sam = 1
Else
$sam = 0
EndIf
Opt("SendAttachMode", $sam)
Case $Inp_mdp
$mdp = GUICtrlRead($Inp_mdp)
Case $But_test
ControlFocus($Form1, "", $Inp_test)
For $i = 1 To $nbr
_envoie()
If GUICtrlRead($Inp_test) <> $mdp Then
$erreur = $erreur + 1
GUICtrlSetData($Inp_error, $erreur)
EndIf
GUICtrlSetData($Inp_test, "")
Next
EndSwitch
WEnd
Asc
Func ctrlaltp()
For $i = 1 To $nbr
_envoie()
Next
EndFunc ;==>ctrlaltp
Func _envoie()
Send($mdp, 1)
Send("{SHIFTDOWN}")
Sleep(10)
Send("{SHIFTUP}")
Send("{CTRLDOWN}")
Sleep(10)
Send("{CTRLUP}")
Sleep(10)
Send("{CTRLUP}")
Send("{SHIFTUP}")
Sleep(50)
Send("{ENTER}")
EndFunc ;==>_envoie
Func crtlaltu()
;~ MsgBox($avant_plan, "CRTL u OK",$mp_user)
Send($user, 1)
Sleep(100)
Send("{TAB}")
Send("{SHIFTDOWN}")
Sleep(10)
Send("{SHIFTUP}")
Send("{CTRLDOWN}")
Sleep(10)
Send("{CTRLUP}")
Sleep(10)
Send("{CTRLUP}")
Send("{SHIFTUP}")
EndFunc ;==>crtlaltu
Func _IsChecked($control)
Return BitAND(GUICtrlRead($control), $GUI_CHECKED) = $GUI_CHECKED
EndFunc ;==>_IsChecked
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("SendKeyDelay", 5)
Opt("SendKeyDownDelay", 5)
Opt("SendAttachMode", 0)
Global $mdp = "Ms932wj:5,LWr.Msç32wj:5,LWr.Ms93"
Global $skd = 5
Global $skdd = 5
Global $sam = 0
Global $nbr = 10
Global $user = "User222935User"
HotKeySet("^+p", "ctrlaltp") ; ctrl-alt-p
HotKeySet("^+u", "crtlaltu") ; crtlaltu()
#Region ### START Koda GUI section ### Form=C:\pi\forum\test_envoie_touche.kxf
Global $Form1 = GUICreate("Form1", 492, 224, 192, 124)
Global $Inp_skd = GUICtrlCreateInput("", 120, 30, 121, 21)
Global $Inp_skdd = GUICtrlCreateInput("", 120, 54, 121, 21)
Global $Inp_nbr = GUICtrlCreateInput("", 336, 81, 121, 21)
Global $Checkbox1 = GUICtrlCreateCheckbox("SendAttachMode", 123, 87, 97, 17)
Global $Label1 = GUICtrlCreateLabel("SendKeyDelay", 15, 27, 74, 17)
Global $Label2 = GUICtrlCreateLabel("SendKeyDownDelay", 15, 57, 102, 17)
Global $Label3 = GUICtrlCreateLabel("Nombre d'envoie", 240, 84, 84, 17)
Global $Inp_mdp = GUICtrlCreateInput("", 108, 114, 292, 21)
Global $Label4 = GUICtrlCreateLabel("Mot de passe", 15, 114, 68, 17)
Global $Inp_test = GUICtrlCreateInput("", 108, 150, 292, 21)
Global $Inp_error = GUICtrlCreateInput("", 108, 186, 121, 21)
Global $Label5 = GUICtrlCreateLabel("Nombre d'erreur", 12, 192, 79, 17)
Global $Label6 = GUICtrlCreateLabel("Test", 18, 156, 25, 17)
Global $But_test = GUICtrlCreateButton("Test erreur", 405, 147, 78, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetData($Inp_skd, $skd)
GUICtrlSetData($Inp_skdd, $skdd)
GUICtrlSetData($Inp_nbr, $nbr)
GUICtrlSetData($Inp_mdp, $mdp)
$erreur = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Inp_skd
$skd = GUICtrlRead($Inp_skd)
Opt("SendKeyDelay", $skd)
Case $Inp_skdd
$skdd = GUICtrlRead($Inp_skdd)
Opt("SendKeyDelay", $skdd)
Case $Inp_nbr
$nbr = GUICtrlRead($Inp_nbr)
Case $Checkbox1
If _IsChecked($Checkbox1) Then
$sam = 1
Else
$sam = 0
EndIf
Opt("SendAttachMode", $sam)
Case $Inp_mdp
$mdp = GUICtrlRead($Inp_mdp)
Case $But_test
ControlFocus($Form1, "", $Inp_test)
For $i = 1 To $nbr
_envoie()
If GUICtrlRead($Inp_test) <> $mdp Then
$erreur = $erreur + 1
GUICtrlSetData($Inp_error, $erreur)
EndIf
GUICtrlSetData($Inp_test, "")
Next
EndSwitch
WEnd
Asc
Func ctrlaltp()
For $i = 1 To $nbr
_envoie()
Next
EndFunc ;==>ctrlaltp
Func _envoie()
Send($mdp, 1)
Send("{SHIFTDOWN}")
Sleep(10)
Send("{SHIFTUP}")
Send("{CTRLDOWN}")
Sleep(10)
Send("{CTRLUP}")
Sleep(10)
Send("{CTRLUP}")
Send("{SHIFTUP}")
Sleep(50)
Send("{ENTER}")
EndFunc ;==>_envoie
Func crtlaltu()
;~ MsgBox($avant_plan, "CRTL u OK",$mp_user)
Send($user, 1)
Sleep(100)
Send("{TAB}")
Send("{SHIFTDOWN}")
Sleep(10)
Send("{SHIFTUP}")
Send("{CTRLDOWN}")
Sleep(10)
Send("{CTRLUP}")
Sleep(10)
Send("{CTRLUP}")
Send("{SHIFTUP}")
EndFunc ;==>crtlaltu
Func _IsChecked($control)
Return BitAND(GUICtrlRead($control), $GUI_CHECKED) = $GUI_CHECKED
EndFunc ;==>_IsChecked
exemple de retour
pour le userUser222935User Ms932wj:5,LWr.Msç32wj:5,LWr.Ms93
User22é935User Ms932wj:5,LWr.Msç32wj:5,LWr.Ms93
User2é2935User Ms932wj:5,LWr.Msç32wj:5,LWr.Ms93
User222935User Ms932wj:5,LWr.Msç32wj:5,LWr.Ms93
User222935User Ms932wj:5,LWr.Msç32wj:5,LWr.Ms93
User222935User Ms9"2wj:5,LWr.Msç32wj:5,LWr.Ms93
A la 2 èmm ligne le troisième 2 est devenu un é
A la 3 èmm ligne le deuxième 2 est devenu un é
pour le mot de passe le 1er chiffre 3 est devenu un " sur la dernière ligne
J'ai tenté de modifier les délais sans résultat, ça le fait que quand on manip au clavier CTRL SHIFF u , CTRL SHIFF p ....
Voila si vous avez des suggestions SVP sur une correction ou une autre méthode
Je vous remercie
Jean-luc