Code : Tout sélectionner
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=matrix.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUICONSTANTS.AU3>
#include <WINDOWSCONSTANTS.AU3>
#include <STATICCONSTANTS.AU3>
#include <EDITCONSTANTS.AU3>
#include <MISC.AU3>
#Include <WinAPI.au3>
HotKeySet ('{ESC}','_Exit')
FileInstall("matrix code nfi.ttf","C:\WINDOWS\Fonts\matrix code nfi.ttf")
Opt ('GUIoneventmode', 1)
$GUIStyle = BitOR($WS_POPUP, $WS_VISIBLE)
$GUIStyleEx = BitOR ($WS_EX_TOPMOST, $WS_EX_TRANSPARENT)
$LabelStyle = $SS_CENTER
$Parent = WinGetHandle ('Program Manager','')
$GUI = GUICreate ('', 800, 600, -1, -1,$WS_POPUP,$WS_EX_TOPMOST, $Parent)
$Annuler = GUICtrlCreateButton("QUIT", 700, 550, 100, 50)
GUICtrlSetTip(-1, "Exit the Program !")
GUISetFont(10,"","","Matrix Code NFI")
$Letters = Stringsplit("QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm1234567890","")
$x = 0
$Da = 800 / 20
$Dx = $Da - 1
WinSetTrans ($GUI, '', 255)
Dim $Console[$Da], $Chr[50]
For $i = 0 To $Dx
$Console[$i] = GUICtrlCreateLabel ('',$x, 0, 20, 600-80, $LabelStyle)
$x += 20
GUICtrlSetBkColor (-1, 0x0)
GUICtrlSetColor (-1, 0x00f400)
Next
GUISetBkColor (0x0, $GUI)
GUISetState ()
WinMove ($GUI, '', 0, 0)
GUISetState(@SW_SHOW)
While 1
Sleep (5)
For $i = 0 To $Dx
$0 = Random (0, $Da)
$Chr[0] = ''
For $c = 1 To 49
$Chr[$c] = $Letters[Random(1,$Letters[0])] & @CRLF & GUICtrlRead ($Console[$0])
Next
GUICtrlSetData ($Console[$0],$Chr[Random (0, 49, 1)] )
Sleep (5)
Next
WEnd
Func _Exit ()
Exit
EndFunc
