[..] Coller du texte (Send()++)

[Iste]

Salutations.

J'utilise souvent la fonction Send(). Bon, pas tant que ca, car elle bug énormément chez moi...
Quand je Send() du texte, il arrive tres lentement, et rarement complet ! Manque toujours un bout -_-
Donc j'ai rusé, en faisant un Clicput() du texte, puis un Send('^v') !

Sauf que, déja ca détruit mon clip, que ca marche pas non plus a tout les coup, et que ca peut pas ControlSend()...

D'ou ma question, comment faire un Send() et un ControlSend() qui marche bien ?

Merci

[Tlem]

Au lieu d'utiliser Send('^v'), pourquoi ne pas utiliser ClipPut ?
N'oublie pas aussi qu'il y à les fonctions _ClipBoard_xxxx.

[Iste]

Au lieu d'utiliser Send('^v'), pourquoi ne pas utiliser ClipPut ?

Car ctrl+v ca copie pas, ca colle

Je ne cherche pas a copier du texte, mais a le coller, sans passe par la fonction Send(), trop hasardeuse chez moi

[Dididj]

Regarde du coté de SendKeyDelay ou de SendKeyDownDelay ( je sais plus trop ^^ ). Il est fort probable que AutoIt "n'enfonce" pas les touches assez longtemps.
Aussi non pour ton problème de clip détruit fait bêtement un ClipGet() avant puis un ClipPut() à après.

[Iste]

J'ai déja regardé du coté des options de send(), mais ca ne change rien, la fonction reste aussi aléatoire.
Pour le clipput() / Clipget() j'y ai déja pensé, mais c'est pas si simple. ClipGet() ne fonctionne que pour du texte et jouer avec Clipboard.au3 serait trop long, pour un résultat toujours pas au point

[Tlem]

ctrl+v ca copie pas, ca colle

Hummm oui effectivement, je voulais dire ClipGet, mais à 3H00 du mat après un repas bien arrosé, je n'était pas tout à fait au point.

[Dididj]

Le faire a la main reste encore la meilleur solution

[Iste]

Le but étant de pouvoir coller de longs documents générés en temps réel par mon script dans une zone de saisie quelconque, ca me semble bien moins pratique !

Bref, j'ai un petit logiciel de clavier virtuel qui offre la possibilité de taper le texte dans une zone de saisie, et de l'envoyer d'un coup. Ca fonctionne tres bien, aussi, je pense qu'il doit etre possible de faire la meme choe en au3... mais comment ???

Ca fait bien plus que 30minutes que je cherche

[ayuckers]

Bon j'ai peut être un début de solution, car moi aussi j'ai des souci avec les fonctions copier coller de Autoit.
En partant d'une UDF trouvé sur le forum anglais j'en ai extrait une fonction collé.
pour le moment sa ne fonctionne que si on a deja fait un CTRL+C
Le collé se fait dans un bloc Note, mais il est possible de l'adapter pour coller vers n'importe quel Control.

Tout tourne autour de la fonction : SendMessage()
Voici le resultat : (sauf erreur de ma part cette exemple fonctionne directement)

► Afficher le texte

Code : Tout sélectionner

#include <SendMessage.au3>
#include <WindowsConstants.au3>

Global $Resultat
Global $_GRE_hUser32dll

Run("Notepad.exe")
sleep(300)
;$hWnd = ControlGetHandle("Document - WordPad", "", "RICHEDIT50W2") ; pour recup le handle de la zone de saisie du wordpad
$hWnd = ControlGetHandle("Sans titre", "", "Edit1") ; Pour recuperer le handle du Bloc note

$Resultat = _Paste($hWnd)
;$Resultat = __GCR_SendMessage($hWnd, $WM_PASTE, 0, 0) ; fonctionne aussi
;MsgBox(0,"test",$Resultat)

Func __GCR_SendMessage($hWnd, $iMsg, $wParam = 0, $lparam = 0, $iReturn = 0, $wParamType = "wparam", $lParamType = "lparam", $sReturnType = "lparam")
    If $_GRE_hUser32dll = 0 Then $_GRE_hUser32dll = DllOpen("user32.dll")
    Local $aResult = DllCall($_GRE_hUser32dll, $sReturnType, "SendMessage", "hwnd", $hWnd, "int", $iMsg, $wParamType, $wParam, $lParamType, $lparam)
    If @error Then Return SetError(@error, @extended, "")
    If $iReturn >= 0 And $iReturn <= 4 Then Return $aResult[$iReturn]
    Return $aResult
EndFunc   ;==>__GCR_SendMessage

Func _Paste($hWnd)
    If Not IsHWnd($hWnd) Then Return SetError(101, 0, False)
    __GCR_SendMessage($hWnd, $WM_PASTE, 0, 0)
    Return True
EndFunc   ;==>_GUICtrlRichEdit_Paste

Si quelqu'un veut bien m'aider a faire une UDF copier/ coller
J'ai juste extrait quelques fonctions de l'UDF : GuiRichEdit_0_5
On peut la récupèrer ici : http://www.autoitscript.fr/forum/viewto ... 74&start=0
Il y a plein de chose intéressante aux niveau du copier/coller/selection/stream.....

@Iste : il y une fonction qui pourrait t'intéressé : _GUICtrlRichEdit_StreamFromFile
bien sur il fraudas certainement l'adapter.

Du coup t'as question m'a fait planché sur une idée que j'avait et je croit que j'ai en partit résolu mes problème
reste plus qu'a tester sa demain

[Iste]

Alors ca, c'est vraiment génial !

Meme si ca garde le probleme de destruction du clipboard, la possibilité d'envoyer tant de messages a des win, arf ! top coule !

Bref, si quelqu'un du plus doué que moi arrive a sauvegarder le clipboard pour le reconstituer, ca serait bricolé mais parfait

Enfin, l'idéal serait une fonction genre SendInput() qui ciblerai une fenêtre.. (mais déja l'original j'arrive pas a la faire tourner...)
Enfin, rien que pour le undo ca valait le coup

Edit : Le fait de devoir récup l'id de l'edit est en fait trop pas assez souple pour moi :s

[Tlem]

Il est difficile de voir le problème sans éléments supplémentaires.

Par contre je ne comprend pas pourquoi tu dit que la fonction ControlSend() est aléatoire ...
Si tu as bien donné les éléments de la destination du texte, l'ensemble du texte est envoyé au contrôle.

[Iste]

Par contre je ne comprend pas pourquoi tu dit que la fonction ControlSend() est aléatoire ...
Si tu as bien donné les éléments de la destination du texte, l'ensemble du texte est envoyé au contrôle.

Et bah justement, non ! Sur des ordi plus puissant je n'ai pas trop de souci, mais sur le mien, il manque presque a chaque foi des bouts de la chaine.

En fait, je cherche a générer du texte, que mon script récup d'après plusieurs page php de ma conception et quelque fichier. Il génère un joli rapport, puis bah...
Pour le moment il le met dans le clip, j'ai juste donc a faire CTRL+MAJ+V pour que le script agisse, puis CTRL+V pour coller le texte la ou j'écrivais. Ca peut etre un bloc note, un email, un forum, une fenêtre msn...

Bref, comme actuellement la destruction du presse-papier, et la manip assez galère m'ennuie (et qu'en plus j'ai souvent des souci a cause de ca), j'ai décider de poster pour avoir une alternative a Send(), et tant qu'on y est ControlSend() qui ne marche pas mieux chez moi.

[Tlem]

En cherchant une solution, j'ai peut être trouvé le problème du ControlSend, ainsi qu'une alternative. Tout est dans le code à tester.

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$GUI = GUICreate("TxtToNotePad", 340, 482, 192, 124)
$Edit = GUICtrlCreateEdit("", 8, 8, 321, 385)
GUICtrlSetData(-1, "")
$Label1 = GUICtrlCreateLabel("Envoi du texte dans le bloc-notes", 53, 404, 233, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$CtrlSend = GUICtrlCreateButton("ControlSend", 11, 440, 80, 30)
$CtrlSetText = GUICtrlCreateButton("ControlSetText", 128, 440, 80, 30, $BS_FLAT)
$ClipBoard = GUICtrlCreateButton("Press-Papier", 248, 440, 80, 30, $BS_FLAT)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $CtrlSend
            Opt("SendKeyDelay", 0)
            Run("notepad.exe")
            WinWaitActive("Sans titre - Bloc-notes")
            ; Ne surtout pas oublier le flag 1 du dernier paramètre, sinon parfois cela fait de drole de choses. ;)
            ; Essayez de coller le texte de l'aide de la commande Send et d'utiliser cette méthode sans le flag 1. hihi
            ControlSend("Sans titre - Bloc-notes", "", "[CLASS:Edit; INSTANCE:1]", GUICtrlRead($Edit), 1)

        Case $CtrlSetText
            Run("notepad.exe")
            WinWaitActive("Sans titre - Bloc-notes")
            ControlSetText("Sans titre - Bloc-notes", "", "[CLASS:Edit; INSTANCE:1]", GUICtrlRead($Edit))

        Case $ClipBoard
            ClipPut(GUICtrlRead($Edit))
            Run("notepad.exe")
            WinWaitActive("Sans titre - Bloc-notes")
            Send("^v")

    EndSwitch
WEnd

[Iste]

A 1er vu, ControlSend() et Send() est toujours aussi peu fiable, de plus je dois jouer avec plusieurs Send(), quand j'ai besoin des "special characters" ^^' (pour les raccourcis clavier)

ControlSetText() marche très bien, mais il me faut connaitre les controlID et tout et tout, ce qui au final, bah c'est pas plus rapide. De plus, ca pose certain problème avec certaines zones de saisies.

Edit : Avec le flag1 comment faire des majuscules ? Send("Salut ??") ecris "salut ,," :/

[aikiox]

Bonjour,
Je tiens a remercier Iste car il m'a beaucoup aidé puisque je n'arrivais pas à ecrire à partir d'un script vers une page html, il y ecrivait des chiffres tandis que je gardais le meme code mais quand j'ecrivais dans le notepad il n'y avait aucun problème.
Grace à Clipput, j'ai reussi a contourner le problème. Effectivement, la fonction send pose quelques problèmes...

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <IE.au3>



Opt("GUIOnEventMode", 1)                                                                ; Change to OnEvent mode


$gui1 = GUICreate("Création compte ManagerV3", 520, 225, -1, -1,-1,0x00000080)             ; Création de la fenetre entiere avec son nom

$valider = GUICtrlCreateButton("Valider",455,195,55)                                    ; Création bouton et se qu'il y aura ecrit dedans

$login = GUICtrlCreateLabel("Login", 120, 10, 50, 17)
$mdp = GUICtrlCreateLabel("Mot de Passe", 260, 10, 75, 17)
$nom = GUICtrlCreateLabel("Nom complet", 410, 10, 75, 17)
$dupliquer = GUICtrlCreateLabel("Compte à dupliquer",260,170,95,17)

$d1 = GUICtrlCreateInput("", 390, 165, 120, 21)


$c1 = GUICtrlCreateLabel("Compte 1", 20, 26, 45, 17)
$l1 = GUICtrlCreateInput("", 70, 25, 120, 21)
$m1 = GUICtrlCreateInput("", 230, 25, 120, 21)
$n1 = GUICtrlCreateInput("", 390, 25, 120, 21)

$c2 = GUICtrlCreateLabel("Compte 2", 20, 52, 45, 17)
$l2 = GUICtrlCreateInput("", 70, 50, 120, 21)
$m2 = GUICtrlCreateInput("", 230, 50, 120, 21)
$n2 = GUICtrlCreateInput("", 390, 50, 120, 21)

$c3 = GUICtrlCreateLabel("Compte 3", 20, 78, 45, 17)
$l3 = GUICtrlCreateInput("", 70, 75, 120, 21)
$m3 = GUICtrlCreateInput("", 230, 75, 120, 21)
$n3 = GUICtrlCreateInput("", 390, 75, 120, 21)

$c4 = GUICtrlCreateLabel("Compte 4", 20, 104, 45, 17)
$l4 = GUICtrlCreateInput("", 70, 100, 120, 21)
$m4 = GUICtrlCreateInput("", 230, 100, 120, 21)
$n4 = GUICtrlCreateInput("", 390, 100, 120, 21)

$c5 = GUICtrlCreateLabel("Compte 5", 20, 130, 45, 17)
$l5 = GUICtrlCreateInput("", 70, 125, 120, 21)
$m5 = GUICtrlCreateInput("", 230, 125, 120, 21)
$n5 = GUICtrlCreateInput("", 390, 125, 120, 21)


GUICtrlSetOnEvent($valider,"ie")                                                        ; la consequence du clique du bouton
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")                                         ; permet de quitter avec la croix en haut a droite
GUISetState(@SW_SHOW)

While 1
  sleep(100)
Wend




func ie()

$cl1 = GUICtrlRead($l1)
$cl2 = GUICtrlRead($l2)
$cl3 = GUICtrlRead($l3)
$cl4 = GUICtrlRead($l4)
$cl5 = GUICtrlRead($l5)
$cm1 = GUICtrlRead($m1)
$cm2 = GUICtrlRead($m2)
$cm3 = GUICtrlRead($m3)
$cm4 = GUICtrlRead($m4)
$cm5 = GUICtrlRead($m5)
$cn1 = GUICtrlRead($n1)
$cn2 = GUICtrlRead($n2)
$cn3 = GUICtrlRead($n3)
$cn4 = GUICtrlRead($n4)
$cn5 = GUICtrlRead($n5)
$cd1 = guictrlread($d1)


            $oIE = _IECreate ("http://tiennot.romain.free.fr/managerv3.html",0,1)   ; ouvre managerv3
            _IELoadWait($oIE)           ; attand la fenetre internet
            winwaitactive("http://tiennot.romain.free.fr/managerv3.html")
            Msgbox(64, "Attention", "Cliquer sur Loging SVP")
            sleep(2000)

            ;Premier Compte

            Clipput($cl1)
            send('^v')
            send("{tab}")





EndFunc



Func CLOSEClicked()
      Exit
EndFunc

Voici le code

Cordialement
Romain

[Tlem]

@aikiox
N'oubliez pas les balises de code lorsque vous écrivez du code dans vos messages, même si vous utilisez le Spoiler.

@Iste
J'ai vraiment du mal à comprendre ton problème.
Si tu as un texte à coller dans un zone de saisie, il faut que cette zone soit active pour pouvoir y faire un CTRL+V.
Et si tu décide d'envoyer le texte directement au contrôle, tu sera obligé de récupérer l'ID du contrôle. Donc il faut que tu choisisse la méthode : Ou bien par un CTRL+V ou bien par l'envoi du texte directement au contrôle.

Aux vues de ce que tu as décrit, le CTRL+V semble la solution la plus fiable.
Donc personnellement, je chercherais à faire un script résident qui réagirait au clic d'un contrôle si par exemple une combinaison de touche est enfoncée en même temps que le clic, alors un CTRL+V est effectué dans ce contrôle.
Maintenant, il y à sans doute d'autres manières de voir les choses, mais cela dépend de tes besoins et de comment est organisé ton travail.

[Iste]

Oui oui, me suis mal exprimer, ControlSetText() marche parfaitement pour remplacer ControlSend() (enfin, presque. Pour tout ce qui est zone de saisie clasique c'est niquel, mais pour un navigateur internet, ou une interface flash ou autre...)

Ensuite, oui Ctrl+V marche bien (manuellement) une foi que j'ai Clipé le texte. Mais automatiser le Ctrl+V ne marche pas a tout les coups (bah ouais, Send() quoi..)
Donc si je poste, c'est car la destruction du clipboard + Le collage, c'est trop d'incertitude pour moi.

Actuellement, je peux me débrouiller avec ce que j'ai récup dans ce post. Toutes fois, ca ne règle pas la question de façon général.
Pour dire que je suis pas bloqué, mais toujours (presque) aussi avancé qu'avant.

Bref, pour résumer :

Pour remplacer le Send()... Bah j'en suis au meme point :
Obligé de passer par un clipput() + Send("^v") = destruction du clip + Résultats non sûrs sur le coller

Pour remplacer le ControlSend(), c'est un peu mieux :
Pour tout ce qui est classique, ControlSetText() est super, mais pour toute les autre situation...
Me faut donc un moyen de "simuler" un controlsend() (qui rappelons, simule une frape clavier vers une fenetre non active)


Donc voila, rien d'urgent, j'ai réussi a m'en passer jusque la, notamment grâce a des fonctions de vérifications, car les fonction Send() et ControlSend() font bien ce que je veux, juste pas a tout les coup... mais je me suis dis qu'il était temps de venir demander ici, au cas ou je me bloque pour rien...
Bref vala

[Tlem]

Hummm, difficile d'aider plus, car je n'ai personnellement pas rencontré les mêmes problèmes que toi avec les fonctions dont tu parle.
Mais peut être quelqu'un d'autre a trouvé une solution.