Variable de surbrillance bleu

[EkinOx]

Bonjour à tous,

J'ai fais pas mal de recherches sur le sujet mais impossible de trouver un solution...
Existe-il un moyen de savoir en temps réel si un mot ou un texte entier est sélectionné (surbrillance bleue).
Mais surtout de créer une variable (dont la valeur changera à chaque nouvelle sélection) contenant les caractères sélectionnés.

Je ne parle pas d'un input ou d'un control dans une GUI mais bien de n'importe quel mot/texte sélectionné sur n'importe quelle page !

Exemple :

$variabledemesreves = Rubri

Merci d'avance si quelqu'un a une idée.

[mdanielm]

Bonsoir,
Peut-être:
-Envoyer Ctrl-C à la fenêtre
-Récupérer le presse-papier dans une variable
Trop simple?

[orax]

Si c'est dans une fenêtre d'Internet Explorer, on peut faire comme dans l'exemple suivant.

Code : Tout sélectionner

#include <IE.au3>
$oIE = _IE_Example()
Sleep(5000) ; pause de 5 secondes pour sélectionner du texte dans la page
$sel = $oIE.document.getSelection().toString() ; récupère la sélection
ConsoleWrite($sel & @CRLF)
_IEQuit($oIE)

https://developer.mozilla.org/fr/docs/W ... tSelection

[mikell]

Franchement, AMHA la solution de mdanielm est nickel. Simple, efficace, polyvalente

[EkinOx]

Merci pour vos réponses et vos conseils.
Effectivement j'ai pensé à cette technique et c'est même celle que j'ai mis en place !

Voici mon script pour mieux comprendre :

► Afficher le texte

Code: [Tout sélectionner] [Déplier/Replier]

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiRichEdit.au3>


#Region ### START Koda GUI section ### Form=C:\Users\xxx\Desktop\MoDikf v.1\MoDif.kxf
Global $MoDif = GUICreate("MoDif v.1", 223, 130, -1, -1, 0)
GUISetIcon("C:\Users\xxx\Desktop\P.E.R.S.O\7-Icones.ico\Sqirtle_72px.ico", -1)
GUISetFont(8, 400, 0, "Trebuchet MS")
GUISetBkColor(0xC0DCC0)
Global $textedelagui = GUICtrlCreateLabel("Choisir l'action de la touche 'F2' :", 16, 8, 158, 19)
GUICtrlSetFont(-1, 7, 800, 0, "Trebuchet MS")
GUICtrlSetColor(-1, 0x000000)
Global $Listederoulante = GUICtrlCreateCombo("Texte en majuscule", 16, 32, 193, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData (-1, "Texte en minuscule")
GUICtrlSetData (-1, "Retourner le texte")
GUICtrlSetData (-1, "Supprimer tous les espaces")
GUICtrlSetData (-1, "__________________________")
GUICtrlSetData (-1, "Compter le nombre de caractère")
GUICtrlSetData (-1, "Remplacer par")
GUICtrlSetColor(-1, 0x000000)

Global $Imputremplacer1 = GUICtrlCreateInput("", 32, 64, 57, 24)
GUICtrlSetColor(-1, 0x000000)
 GUICtrlSetState($Imputremplacer1,$GUI_SHOW)
Global $Imputremplacer2 = GUICtrlCreateInput("", 136, 64, 57, 24)
GUICtrlSetColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1 ; Boucle principale du programme
 $nMsg = GUIGetMsg()
 Global $TexteOk

 HotKeySet( "{F2}", Actionprogramme) ; Action du programme au clic sur la touche "F2"

 Switch $nMsg
  Case $GUI_EVENT_CLOSE ; A clic sur la touche "X"
   Exit

 EndSwitch
WEnd


Func Actionprogramme() ; les actions du programme en fonction du combo choisit

If GUICtrlRead($Listederoulante) = "Texte en majuscule" Then
   $TexteOk = StringUpper(ClipGet())
   Send("{DEL}")
   Send($TexteOk)

ElseIf GUICtrlRead($Listederoulante) = "Texte en minuscule" Then
   $TexteOk = StringLower(ClipGet())
   Send("{DEL}")
   Send($TexteOk)

ElseIf GUICtrlRead($Listederoulante) = "Retourner le texte" Then
   $TexteOk = StringReverse("crotte")
   Send("{DEL}")
   Send($TexteOk)

ElseIf GUICtrlRead($Listederoulante) = "Supprimer tous les espaces" Then
   $TexteOk = StringReplace(ClipGet()," ","")
   Send("{DEL}")
   Send($TexteOk)
   StringLen

ElseIf GUICtrlRead($Listederoulante) = "Compter le nombre de caractère" Then
   $NombreCaractere = StringLen(ClipGet())
   SplashTextOn($NombreCaractere&" caractères",150,75,$DLG_NOTITLE) ; Notif à l'allumage du programme
   Sleep(1500)
   SplashOff()

ElseIf GUICtrlRead($Listederoulante) = "Remplacer par" Then
   $TexteOk = StringReplace(ClipGet(),GUICtrlRead($Imputremplacer1),GUICtrlRead($Imputremplacer2))
   Send("{DEL}")
   Send($TexteOk)
EndIf
EndFunc

GeSHi © Extension Codebox Plus

Maintenant c'est pas forcement le plus pratique et le plus rapide...
La méthode sur IE fonctionne certainement mais j'ai besoin que ça fonctionne partout...
Après j'ai pensé utiliser "PixelSearch" car le bleu de la surbrillance est particulier mais ça promet un script hard et incertain ^^".

[walkson]

Bonjour,
Il est vraiment bizarre votre code
HotKeySet( "{F2}", Actionprogramme) et Global $TexteOk n'ont pas besoin d'être dans une boucle mais être en début de code
$TexteOk = StringUpper(ClipGet()) c'est bien pour récupérer le clipboard mais avant il faut le remplir
Send("{DEL}") autrement dit, supprimer tout ce qui sera sélectionné. Vous allez faire de la place sur votre PC
Send($TexteOk) c'est envoyé des mots sans destinataire

Comme le suggérait Daniel, il faut faire un copier (ctrl+c) Send("^c") après on utilise ClipGet()
Pour vider le clipboard (je pense que c'était ce que vous souhaitiez avec DEL) ClipPut("")
à titre d'exemple

Code: [Tout sélectionner] [Déplier/Replier]

#include <WindowsConstants.au3>
#include <Misc.au3>

While 1

If _IsPressed(01) Then ;clic gauche pressé
   Sleep(500)
Send("^c")
ToolTip(ClipGet() , 50,100)
;ou GUICtrlSetData($Input, ClipGet())
Else
   ClipPut("")
   Sleep(250)
EndIf

WEnd

GeSHi © Extension Codebox Plus

Quant à utiliser PixelSearch avec le million de pixels et quelques de votre écran et que vous avez trouvé votre couleur, reste à déterminer le texte si c'est du texte
Quand le gros chat vert écrit

Franchement, AMHA la solution de mdanielm est nickel. Simple, efficace, polyvalente

y'a pas photo

[EkinOx]

Oui je suis dans me début en Autoit, je comprends que mes codes puissent être bizarre des fois !
Effectivement c'est une erreur d'avoir placé les deux lignes dans la boucle, c'est modifié merci.

Jusqu'à présent pour utiliser une des "options" je devais au préalable sélectionner le texte à modifier, le copier et faire F2 (dans ce cas le $TexteOk et le ClipGet() sont en fait la sélection).
Mais effectivement, ajouter un Send("^c") après avoir cliqué sur F2 c'est plus logique !

En fait le Send("{DEL}") c'est pour supprimer le texte sélectionné et Send($TexteOk) renvoie le texte mais modifié (en majuscule, minuscule...).

En fait je pense qu'il faut le tester pour comprendre car j'ai vraiment des idées étranges parfois ! ^^

Merci pour votre implication en tout cas, vous êtes vraiment au top sur ce forum !
Maintenant je crois qu'il n'existe pas de solution cette fois mais avec vos idées je peux au moins finir le programme, et j'en ai d'autres

[EkinOx]

La correction qui fonctionne parfaitement (juste un petit coup de Koda et c'est OK ^^) :

► Afficher le texte

Code: [Tout sélectionner] [Déplier/Replier]

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiRichEdit.au3>


#Region ### START Koda GUI section ### Form=C:\Users\xxx\Desktop\MoDikf v.1\MoDif.kxf
Global $MoDif = GUICreate("MoDif v.1", 223, 130, -1, -1, 0)
GUISetIcon("C:\Users\xxx\Desktop\P.E.R.S.O\7-Icones.ico\Sqirtle_72px.ico", -1)
GUISetFont(8, 400, 0, "Trebuchet MS")
GUISetBkColor(0xC0DCC0)
Global $textedelagui = GUICtrlCreateLabel("Choisir l'action de la touche 'F2' :", 16, 8, 158, 19)
GUICtrlSetFont(-1, 7, 800, 0, "Trebuchet MS")
GUICtrlSetColor(-1, 0x000000)
Global $Listederoulante = GUICtrlCreateCombo("Texte en majuscule", 16, 32, 193, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData (-1, "Texte en minuscule")
GUICtrlSetData (-1, "Retourner le texte")
GUICtrlSetData (-1, "Supprimer tous les espaces")
GUICtrlSetData (-1, "__________________________")
GUICtrlSetData (-1, "Compter le nombre de caractère")
GUICtrlSetData (-1, "Remplacer par")
GUICtrlSetColor(-1, 0x000000)

Global $Imputremplacer1 = GUICtrlCreateInput("", 32, 64, 57, 24)
GUICtrlSetColor(-1, 0x000000)
 GUICtrlSetState($Imputremplacer1,$GUI_SHOW)
Global $Imputremplacer2 = GUICtrlCreateInput("", 136, 64, 57, 24)
GUICtrlSetColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet( "{F2}", Actionprogramme) ; Action du programme au clic sur la touche "F2"
Global $TexteOk

While 1 ; Boucle principale du programme
 $nMsg = GUIGetMsg()

 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit

 EndSwitch
WEnd


Func Actionprogramme() ; les actions du programme en fonction du combo choisit

Send("^c")

If GUICtrlRead($Listederoulante) = "Texte en majuscule" Then
   $TexteOk = StringUpper(ClipGet())
   Send("{DEL}")
   Send($TexteOk)

ElseIf GUICtrlRead($Listederoulante) = "Texte en minuscule" Then
   $TexteOk = StringLower(ClipGet())
   Send("{DEL}")
   Send($TexteOk)

ElseIf GUICtrlRead($Listederoulante) = "Retourner le texte" Then
   $TexteOk = StringReverse("crotte")
   Send("{DEL}")
   Send($TexteOk)

ElseIf GUICtrlRead($Listederoulante) = "Supprimer tous les espaces" Then
   $TexteOk = StringReplace(ClipGet()," ","")
   Send("{DEL}")
   Send($TexteOk)

ElseIf GUICtrlRead($Listederoulante) = "Compter le nombre de caractère" Then
   $NombreCaractere = StringLen(ClipGet())
   SplashTextOn($NombreCaractere&" caractères",150,75,$DLG_NOTITLE) ; Notif à l'allumage du programme
   Sleep(1500)
   SplashOff()

ElseIf GUICtrlRead($Listederoulante) = "Remplacer par" Then
   $TexteOk = StringReplace(ClipGet(),GUICtrlRead($Imputremplacer1),GUICtrlRead($Imputremplacer2))
   Send("{DEL}")
   Send($TexteOk)
EndIf
EndFunc

GeSHi © Extension Codebox Plus

[walkson]

Dans ce cas je vous conseille ceci pour éviter de mauvaises surprises !

Code: [Tout sélectionner] [Déplier/Replier]

Func Actionprogramme() ; les actions du programme en fonction du combo choisit

Local $shandle = WinGetHandle("[ACTIVE]"); handle to the window.
Local $sControl = ControlGetFocus("[ACTIVE]");the ClassNameNN of the control
Send("^c")
Local $TexteBrut = ClipGet()
If $TexteBrut = "" Then Return SetError(1) ;pour éviter les erreurs de manipulation
ClipPut("")

If GUICtrlRead($Listederoulante) = "Texte en majuscule" Then
        $TexteOk = StringUpper($TexteBrut)
      ControlSend($shandle, "", $sControl,$TexteOk)
     
ElseIf GUICtrlRead($Listederoulante) = "Texte en minuscule" Then
        $TexteOk = StringLower($TexteBrut)
        ControlSend($shandle, "", $sControl,$TexteOk)

ElseIf GUICtrlRead($Listederoulante) = "Retourner le texte" Then
        $TexteOk = StringReverse("crotte")
        ControlSend($shandle, "", $sControl,$TexteOk)
;.................... etc

GeSHi © Extension Codebox Plus