[R] Creer une sorte de console en AutoIT

[k3nix]

Bonjour,

Bon voilà je fais un certain script et je voudrai afficher ce que fait le logiciel en temps réel dans un Edit par exemple afficher un test ping a google genre "ping google : ok " et en dessous par exemple "connexion au serveur ftp" mais sans effacer les infos précédentes voilà un bout du code :/

http://puu.sh/4kLho/872e0a850f.png

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>

#include <ComboConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <GuiStatusBar.au3>

#include <ProgressConstants.au3>

#include <WindowsConstants.au3>







#Region ### START Koda GUI section ### Form=D:SimonDocumentsDropboxTeamScriptinterface.kxf

Global $Form1 = GUICreate("TeamSpeak auto-install By K3nix", 571, 321, 266, 254)

Global $MenuItem1 = GUICtrlCreateMenu("&Fichier")

Global $MenuItem2 = GUICtrlCreateMenu("&Options")

Global $MenuItem3 = GUICtrlCreateMenu("&Aide")

Global $Zone_info = GUICtrlCreateEdit("", 24, 16, 361, 105, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$WS_VSCROLL))

GUICtrlSetData(-1, "Bienvenue dans Teamspeak Auto-install !") ;& @CRLF & @CRLF & "Veuillez choisir vos options...");Cadre de gauche





GUICtrlSetBkColor(-1, 0xFFFFFF)

Global $Serveur = GUICtrlCreateCheckbox("Installer TS server", 216, 232, 129, 25)

Global $TraductionFr = GUICtrlCreateCheckbox("Traduire en Français", 32, 232, 169, 25)

Global $Informations = GUICtrlCreateGroup("Paramètres", 8, 176, 529, 89)

GUICtrlCreateGroup("", -99, -99, 1, 1)

Global $progressBar = GUICtrlCreateProgress(8, 144, 534, 17)

Global $Button1 = GUICtrlCreateButton("Installer", 384, 200, 145, 49)

GUICtrlSetState(-1, $GUI_DISABLE)

Global $systemInfo = GUICtrlCreateEdit("", 394, 17, 161, 105, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$WS_VSCROLL))

GUICtrlSetData(-1, "Information OS :")

GUICtrlSetBkColor(-1, 0xFFFFFF)

Global $StatusBar1 = _GUICtrlStatusBar_Create($Form1)

Global $Statut = GUICtrlCreateGroup("Statut", 8, 0, 553, 137)

GUICtrlCreateGroup("Version à télécharger ?", -99, -99, 1, 1)

Global $choixVersion = GUICtrlCreateCombo("Version à télécharger ?", 24, 200, 345, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL), $WS_EX_CLIENTEDGE)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###



#cs



$Form1 = titre de la fenetre

$MenuItem1 Fichier

$MenuItem2 Options

$MenuItem3 = Aide

$Serveur = case serveur

$TraductionFr = case traduction

$progressBar = barre de progression

$Button1 = bouton installer

$choixVersion = combobox version



$Zone_info = edit de gauche

$systemInfo = edit de droite



#ce

GUICtrlSetData($Zone_info, ("test")) ; voilà le test a remplacé le message de bienvenue !

La zone a editer est $Zone_info

Merci

[mikell]

Code : Tout sélectionner

GUICtrlSetData($Zone_info, "tagada" & @crlf)
GUICtrlSetData($Zone_info, "tsoin" & @crlf, 1)
GUICtrlSetData($Zone_info, "tsoin", 1)

[k3nix]

Wow en fait c'est la fonction ,1 de la fin qui signifie "n'efface rien" Grand merci car je n'ai pas trouvé dans la doc

[mikell]

C'est pas flagrant mais c'est mentionné dans la doc

GUICtrlSetData ( controlID, data [, default] )
default [optional] Edit, Input: If non-empty (""), the string is inserted at the current insertion point (caret).