AutoIt
Code :
#include <Misc.au3>
GUICreate("",1000,500)
$Edit = GUICtrlCreateEdit(">",0,0,1000,500)
GUICtrlSetColor($Edit,0xFFFFFF)
GUICtrlSetBkColor($Edit,0x000000)
GUISetState(@SW_SHOW)
GUICtrlSetData($Edit,"")
MsgBox(0, "Info","Ce script est un simple test,"&@CRLF&"il n'effectura aucun changement."&@CRLF&@CRLF&"Appuyez sur "&'"'&"Ok"&'"'&" pour continuer.")
GUICtrlSetData($Edit,GUICtrlRead($Edit)&"TEST DE LA CONSOLE !"&@CRLF&"Test des conditions..."&@CRLF&@CRLF&"Condition : Variable1(123) = 123 ?"&@CRLF)
If (123=123) Then
MsgBox(0,"Info","La condition est vraie !")
EndIf
If (123<>123) Then
MsgBox(0,"Info","La condition n'est pas vraie !")
EndIf
GUICtrlSetData($Edit,GUICtrlRead($Edit)&@CRLF&"Condition : Variable2(456) = 123 ?"&@CRLF)
If (456=123) Then
MsgBox(0,"Info","La condition est vraie !")
EndIf
If (456<>123) Then
MsgBox(0,"Info","La condition n'est pas vraie !")
EndIf
GUICtrlSetData($Edit,GUICtrlRead($Edit)&@CRLF&"Affichage de la Variable3..."&@CRLF)
MsgBox(0,"Info","La Variable3 vaut :"&@CRLF&"Hello World!")
GUICtrlSetData($Edit,GUICtrlRead($Edit)&@CRLF&"Fin du test..."&@CRLF)
GUICtrlSetData($Edit,GUICtrlRead($Edit)&"ART-OS est en pause, appuyez sur Entrée pour continuer."&@CRLF)
While (1)
If _IsPressed("0D") Then ExitLoop
WEnd
GUICtrlSetData($Edit,GUICtrlRead($Edit)&"ART-OS est en pause pour une durée déterminée de 100 milli-secocondes."&@CRLF)
Sleep(100)
GUICtrlSetData($Edit,"")