[..] Copier du texte non sélectionnable

[faraudvictor]

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?

[moutelous]

Bonjour,

Ci joint un exemple rapide de ce qui peut être fait pour solutionner votre problème.

Pour que cela fonctionne l'executable doit être dans la racine du lecteur "D:\" , sinon il suffit d'adapter le code.

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

 

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

Dans l'exemple donné, il suffit d'appuyer sur "Echap" pour arreter le script en cours.

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?

Pour ce qui est de décompiler du code c'est une autre affaire et un autre forum que celui-ci .....
A+

[faraudvictor]

#Include <ExcelCOM_UDF.au3>

quand j'exécute il me dit qu'il ne connait pas cette bibliothèque!!!

[moutelous]

Bonjour,

Normal si vous n'avez pas téléchargé cet UDF , voir ici :
http://www.autoitscript.fr/forum/viewto ... =21&t=1098
ou ici :
http://www.autoitscript.com/forum/index ... t&id=18417

A placer dans le répertoire des includes d'autoit

A+

[faraudvictor]

ok merci
mais ça ne marche toujours pas; une fois que le notepad est ouvert il ne copie rien à l'intérieur...
à la fin de l'execution il me dit qu'il a eu un problème:
access violation at adress 00000000.Read of adress 00000000
access violation at adress 01333B34.Write of adress 1C000000

[moutelous]

Bonjour,

Vraiment bizarre autant qu'étrange ..... cela fonctionne très bien chez moi .

Il va vous falloir déboguer


- Quel est votre OS ?
- description de votre machine (cpu, ram etc..)
- Avez vous lancez d'autres applis avant ou pendant l'exécution du script ?
- d'autres instances de notepad sont elles ouvertes ?
- y a t'il de votre part des actions clavier ou souris pendant l'exécution du script ?
- Il serait peut-être interressant de mettre un sleep de 2 ou 3 secondes avant le run de notepad ...
- sinon remplacer la copie dans notepad par une copie dans un clipboard ...

A vous de jouer ...


A+

[timmalos]

très très bizarre en effet; j'ai testé ton script et téléchargé son programme, mais la copie ne s'effectue pas à l'interieur du bloc-notes, pourtant si je fais le ctrl + v manuellement , aucun problèmes... Et j'ai l'erreur egalement qu'il à annoncée, mais je n'ai pas excel je pensais que c'était à cause de ca je reste sous open office:) et je ne sais pas si la bibliotheque marche etc...

Je te mets egalement la config si ca peut vous aider:
------------------
System Information
------------------
Time of this report: 7/2/2008, 08:50:11
Machine name: MAITRE
Operating System: Windows XP Professional (5.1, Build 2600) Service Pack 2 (2600.xpsp_sp2_gdr.070227-2254)
Language: French (Regional Setting: French)
System Manufacturer: Compaq Presario 06
System Model: DA284A-ABF 6539 FR350
BIOS: Phoenix - AwardBIOS v6.00PG
Processor: AMD Athlon(tm) XP 2200+, MMX, 3DNow, ~1.8GHz
Memory: 768MB RAM
Page File: 365MB used, 3811MB available
Windows Dir: C:\WINDOWS
DirectX Version: DirectX 9.0c (4.09.0000.0904)
DX Setup Parameters: Not found
DxDiag Version: 5.03.2600.2180 32bit Unicode

------------------------------------------
- Avez vous lancez d'autres applis avant ou pendant l'exécution du script ?
Nop
- d'autres instances de notepad sont elles ouvertes ?
Non plus
- y a t'il de votre part des actions clavier ou souris pendant l'exécution du script ?
A part les tests, non
- Il serait peut-être interressant de mettre un sleep de 2 ou 3 secondes avant le run de notepad ...
C'est fait, ca na rien changer:) c'est la première chose à laquelle j'ai pensé, mais Quenini
- sinon remplacer la copie dans notepad par une copie dans un clipboard ...
Très bonne idée si ca en reste là

[moutelous]

Bonjour,

Effectivement .... sur un OS francais notepad = bloc-note

donc remplacer les lignes :

Code : Tout sélectionner

WinWaitActive("Sans titre - Notepad","")
Send("^v")
$text = WinGetText("* Sans titre - Notepad","")
 

par :

Code : Tout sélectionner

WinWaitActive("Sans titre - Bloc-notes","")
Send("^v")
$text = WinGetText("Sans titre - Bloc-notes","")
 

Attention supprimez également * avant le deuxième "Sans titre"

A+

[timmalos]

OOooo j'avais meme pas vu que tu avais laissé ca: j'ai lu Sans titre j'ai pas regardé la suite car en anglais c'est UNtitled, donc pour moi tu avais tout mis en francais:)

Sry d'avoir meme pas vu une erreur comme celle la...

[faraudvictor]

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...

[moutelous]

Bonjour,

Pouvez vous editer votre code ?

A+

[faraudvictor]

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
EndFunc

[moutelous]

Bonjour,

Désolé de ne pas avoir répondu avant ..... débordé en ce moment.

Première remarque : il manque une parenthèse à la fin de cette instruction :

Code : Tout sélectionner

$text = WinGetText("Sans titre - Bloc-notes",""

... mais cela n'explique pas votre problème.
Deuxième remarque :

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...

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 ....
Troisième remarque : j'ai essayé ce code sous diverses versions de Windows cela fonctionne correctement, je n'ai pas essayé sous Vista que je ne possède ni professionnellement ni personnellement. Etes vous sous Vista peut être ? Si oui une âme charitable possédant également cette version pourrait peut être infirmer ou confirmer le défaut ?

A+

[faraudvictor]

Oui j'ai cette ***** de vista et je suis sous un os français je pense le note-pad s'appelant effectivement le bloc notes.
Je viens de fermer la parenthèse et cela ne marche effectivement pas mieux...
Merci