V2.54 du 18/11/2013: nouvelle fonction SendSingleKey

Nouvelle version:
KGF.dll V2.54 du 18/11/2013

Nouveauté:
nouvelle fonction SendSingleKey

Modules modifiés:
KGF.dll
KGF_SUB.bas
KGF.chm
KGF.doc
KGF.pdf

Doc et sources sont à jour.

Cette nouvelle fonction est similaire à la fonction SendSingleChar. Mais elle est capable de gérer beaucoup plus facilement, non pas l'envoi d'un caractère, mais d'une touche spécifique, en gérant dans le même appel les modificateurs control, alt et/ou shift. Envoyer control/Home, control/shift/0 ou alt/tab, ça se fait avec un seul appel. Mais à la différence de SendSingleChar, il faut spécifier la valeur du VK_code (voir la table des codes de clavier virtuel sur MSDN, ou dans KGF.chm), au lieu du caractère lui-même comme pour SenSingleChar.

Panoramic va vraiment devenir un outil de scripting puissant avec des outils pareil Wink

Merci Klaus

Pour scripter: est-ce que tu as vu les fonctions:

' ==== res% = dll_call1("InitializePanoramicScript",adr(f$))
' ==== res% = dll_call1("LoadPanoramicScriptFromString",adr(scr$))
' ==== res% = dll_call1("LoadPanoramicScriptFromMemo",handle(memo%))
' ==== res% = dll_call3("ExecutePanoramicScript",mode%,adr(dir$),handle(list%))
' ==== res% = dll_call1("InitializeAutoItScript",adr(f$))
' ==== res% = dll_call1("LoadAutoItScriptFromString",adr(scr$))
' ==== res% = dll_call1("LoadAutoItScriptFromMemo",handle(memo%))
' ==== res% = dll_call3("ExecuteAutoItScript",mode%,adr(dir$),handle(list%))

Extrait de KGF_SUB.bas:

Code:: ' ==== res% = dll_call1("InitializePanoramicScript",adr(f$))
sub InitializePanoramicScript(pan$)
if variable("InitializePanoramicScript")=0 then dim InitializePanoramicScript
KGF_res% = dll_call1("InitializePanoramicScript",adr(pan$))
InitializePanoramicScript = KGF_res%
end_sub

' ==== res% = dll_call1("LoadPanoramicScriptFromString",adr(scr$))
sub LoadPanoramicScriptFromString(stri$)
if variable("LoadPanoramicScriptFromString")=0 then dim LoadPanoramicScriptFromString
KGF_res% = dll_call1("LoadPanoramicScriptFromString",adr(stri$))
LoadPanoramicScriptFromString = KGF_res%
end_sub

' ==== res% = dll_call1("LoadPanoramicScriptFromMemo",handle(memo%))
sub LoadPanoramicScriptFromMemo(memo%)
if variable("LoadPanoramicScriptFromMemo")=0 then dim LoadPanoramicScriptFromMemo
KGF_res% = dll_call1("LoadPanoramicScriptFromMemo",handle(memo%))
LoadPanoramicScriptFromMemo = KGF_res%
end_sub

' ==== res% = dll_call3("ExecutePanoramicScript",mode%,adr(dir$),handle(list%))
sub ExecutePanoramicScript(mode%,dir$,list%)
if variable("ExecutePanoramicScript")=0 then dim ExecutePanoramicScript
KGF_res% = dll_call3("ExecutePanoramicScript",mode%,adr(dir$),handle(list%))
ExecutePanoramicScript = KGF_res%
end_sub

' ==== res% = dll_call1("InitializeAutoItScript",adr(f$))
sub InitializeAutoItScript(pan$)
if variable("InitializeAutoItScript")=0 then dim InitializeAutoItScript
KGF_res% = dll_call1("InitializeAutoItScript",adr(pan$))
InitializeAutoItScript = KGF_res%
end_sub

' ==== res% = dll_call1("LoadAutoItScriptFromString",adr(scr$))
sub LoadAutoItScriptFromString(stri$)
if variable("LoadAutoItScriptFromString")=0 then dim LoadAutoItScriptFromString
KGF_res% = dll_call1("LoadAutoItScriptFromString",adr(stri$))
LoadAutoItScriptFromString = KGF_res%
end_sub

' ==== res% = dll_call1("LoadAutoItScriptFromMemo",handle(memo%))
sub LoadAutoItScriptFromMemo(memo%)
if variable("LoadAutoItScriptFromMemo")=0 then dim LoadAutoItScriptFromMemo
KGF_res% = dll_call1("LoadAutoItScriptFromMemo",handle(memo%))
LoadAutoItScriptFromMemo = KGF_res%
end_sub

' ==== res% = dll_call3("ExecuteAutoItScript",mode%,adr(dir$),handle(list%))
sub ExecuteAutoItScript(mode%,dir$,list%)
if variable("ExecuteAutoItScript")=0 then dim ExecuteAutoItScript
KGF_res% = dll_call3("ExecuteAutoItScript",mode%,adr(dir$),handle(list%))
ExecuteAutoItScript = KGF_res%
end_sub

Oups... Je vois que ça manque dans la doc de KGF.dll ! Je vais ratrapper cette omission rapidement ! Enfin, le principe, c'est de pouvoir lancer des scripts en AutoIt ou en Panoramic !

Il y a aussi la fonction ExecuteVBS (qui est documentée dans les fonctions diverses) pour exécuter en script en VBS.

Donc, il y a le choix !

Oui, oui, c'est bien ce à quoi je pensais. Entre l'injection de bouton, l'envoi de touche, le récupération de numéro de handle de fenêtre externes et l’exécution de scripts, il y a tout l'attirail pour faire du scripting pour contrôler des programmes externes.

Sujet: Re: V2.54 du 18/11/2013: nouvelle fonction SendSingleKey

» V2.51 du 11/11/2013 - nouvelle fonction GetClipboardFormat
» 2.38 du 27 mai 2013: nouvelle fonction GetActiveFTPDirectory
» V2.55 du 23/11/2013: nouvelle fonctions Toolbar
» 2.28 du 1er mai 2013: nouvelle fonction TorturePicture
» V2.58 du 26/11/2013 - nouvelle fonction GetToolbarInfo