Communauté Francophone AutoIt
https://www.autoitscript.fr/forum/
Code : Tout sélectionner
#include <GUIConstants.au3>
#Include <File.au3>
#Include <ExcelCOM_UDF.au3>
HotKeySet("{ESC}", "Fin")
run("d:\gasifier.exe")
WinWaitActive("[CLASS:TAboutBox]","OK")
Send("{ENTER}")
WinWaitActive("gasifier.exe","OK")
Send("{ENTER}")
WinWaitActive("[CLASS:TEES_D]","Diagram Window")
Send("{F2}")
WinWaitActive("Calculations Completed","Continue")
Send("{ENTER}")
WinWaitActive("[CLASS:TEES_D]","Diagram Window")
Send("^u")
WinWaitActive("[CLASS:TEES_D]","FUNCTION Hm_vand_damp (T; m_vand_damp;H_fordampning)")
Send("^a")
Send("^c")
Send("^q")
run("notepad.exe")
WinWaitActive("Sans titre - Notepad","")
Send("^v")
$text = WinGetText("* Sans titre - Notepad","")
Send ("!{F4}")
Send ("!N")
$text2=StringRegExpReplace($text,".+=|\[.+|L.+","",0)
_FileCreate(@TempDir&"\gaz.txt")
FileOpen(@TempDir&"\gaz.txt",2)
FileWrite(@TempDir&"\gaz.txt",$text2)
FileClose(@TempDir&"\gaz.txt")
Sleep(3000)
_ExcelBookOpen(@TempDir&"\gaz.txt",1,False,"","")
Func Fin()
Exit 0
EndFunc
Dans l'exemple donné, il suffit d'appuyer sur "Echap" pour arreter le script en cours.faraudvictor a écrit :Sinon n'y a t il pas un script qui permette de récupérer la main, quand le programme bugue ça devient facilement irritant
Pour ce qui est de décompiler du code c'est une autre affaire et un autre forum que celui-ci .....faraudvictor a écrit :Sinon je cherche un moyen de voir le code qu'il a derrière le programme?
je veux dire les équations sont a peu près dispos mais est-il possible d'avoir le code (genre le C++/ java ) qu'il y a derrière?
Nop Non plus A part les tests, non C'est fait, ca na rien changer:) c'est la première chose à laquelle j'ai pensé, mais Quenini Très bonne idée si ca en reste làCode : Tout sélectionner
WinWaitActive("Sans titre - Notepad","")
Send("^v")
$text = WinGetText("* Sans titre - Notepad","")
Code : Tout sélectionner
WinWaitActive("Sans titre - Bloc-notes","")
Send("^v")
$text = WinGetText("Sans titre - Bloc-notes","")
Code : Tout sélectionner
#include <GUIConstants.au3>
#Include <File.au3>
#Include <ExcelCOM_UDF.au3>
HotKeySet("{ESC}", "Fin")
run("C:\Users\victor\Desktop\Autoit\gasifier.exe")
WinWaitActive("[CLASS:TAboutBox]","OK")
Send("{ENTER}")
WinWaitActive("gasifier.exe","OK")
Send("{ENTER}")
WinWaitActive("[CLASS:TEES_D]","Diagram Window")
Send("{F2}")
WinWaitActive("Calculations Completed","Continue")
Send("{ENTER}")
WinWaitActive("[CLASS:TEES_D]","Diagram Window")
Send("^u")
WinWaitActive("[CLASS:TEES_D]","FUNCTION Hm_vand_damp (T; m_vand_damp;H_fordampning)")
Send("^a")
Send("^c")
Send("^q")
run("notepad.exe")
WinWaitActive("Sans titre - Bloc-notes","")
Send("^v")
$text = WinGetText("Sans titre - Bloc-notes",""
Send ("!{F4}")
Send ("!N")
$text2=StringRegExpReplace($text,".+=|\[.+|L.+","",0)
_FileCreate(@TempDir&"\gaz.txt")
FileOpen(@TempDir&"\gaz.txt",2)
FileWrite(@TempDir&"\gaz.txt",$text2)
FileClose(@TempDir&"\gaz.txt")
Sleep(3000)
_ExcelBookOpen(@TempDir&"\gaz.txt",1,False,"","")
Func Fin()
Exit 0
EndFuncCode : Tout sélectionner
$text = WinGetText("Sans titre - Bloc-notes",""Etes vous sous un OS anglais ?... vous avez fait cette remarque après que je vous ai proposé de francisé les titres de la fenêtre Notepad ....faraudvictor a écrit :bizzare j'ai changé bloc note/note pad etc...
et cela ne se lance plus du tout, ça fait pareil chez vous?
autoit se met dans la barre des taches mais j'ai bien l'impression qu'il ne fait rien...