AutoIt Français

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