Code : Tout sélectionner
ShellExecute(@ScriptDir & "\ShadowCopy\shadowcopy.exe")
Winwait("[CLASS:TForm1]","")
ControlClick("[CLASS:TForm1]","", "[CLASS:TTntEdit.UnicodeClass; INSTANCE:3]","left", 0)
ControlSend("[CLASS:TForm1]","", "[CLASS:TTntEdit.UnicodeClass; INSTANCE:3]", @HomeDrive & "\")
ControlClick("[CLASS:TForm1]","", "[CLASS:TTntEdit.UnicodeClass; INSTANCE:2]","left", 2)
ControlSend("[CLASS:TForm1]","", "[CLASS:TTntEdit.UnicodeClass; INSTANCE:2]", "test.txt")
ControlClick("[CLASS:TForm1]","", "[CLASS:TTntEdit.UnicodeClass; INSTANCE:1]","left", 1)
ControlSend("[CLASS:TForm1]","", "[CLASS:TTntEdit.UnicodeClass; INSTANCE:1]", "{HOME}")
ControlSend("[CLASS:TForm1]","", "[CLASS:TTntEdit.UnicodeClass; INSTANCE:1]", "{DEL 40}")
ControlSend("[CLASS:TForm1]","", "[CLASS:TTntEdit.UnicodeClass; INSTANCE:1]", $SVG_txt)
Controlclick("[CLASS:TForm1]","", "[CLASS:TCheckBox; INSTANCE:4]","left", 1)
ControlClick("[CLASS:TForm1]","", "[CLASS:TBitBtn; INSTANCE:1]","left", 1)
WinWaitActive("Information")
ControlClick("Information","","OK","left",1)
WinWaitClose("Information")
ProcessClose("shadowcopy.exe")
ProcessWaitClose("shadowcopy.exe")