sub Matrix
 dim variable
 Set variable=CreateObject("WScript.Shell")
 Set FSO = CreateObject("Scripting.FileSystemObject")
 temp=FSO.GetSpecialFolder(2)
 Set File = FSO.OpenTextFile(temp &"\Matrix.bat", 2, True)
 With File
 .WriteLine "@echo off" 
 .WriteLine "@color 0a" 
 .WriteLine ":cmd" 
 .WriteLine "echo HACKOO %random% HACKOO %random% HACKOO %random% HACKOO %random %HACKOO %random% HACKOO %random% %random% HACKOO %random %HACKOO %random% HACKOO %random% HACKOO %random% HACKOO %random% %random% HACKOO %random% %random% HACKOO %random% HACKOO %random% %random% %random% %random% %random% %random% %random% %random% %random% HACKOO HACKOO %random% %random% %random% HACKOO %random% HACKOO %random% HACKOO%random% %random% %random% %random% HACKOO %random% HACKOO %random% %random% %random% HACKOO %random% %random% %random% %random% HACKOO %random% %random% %random% HACKOO %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% HACKOO %random% %random% %random% HACKOO %random% %random% %random% %random% %random% %random% %random% %random% %random% HACKOO %random% %random% HACKOO %random% %random% %random% %random% HACKOO %random% %random% %random% %random% %random% HACKOO %random% %random% %random% %random% %random% %random% %random% HACKOO %random% %random% %random% %random% HACKOO %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% HACKOO %random% HACKOO %random% %random% HACKOO %random% %random% %random% %random% %random% %random% %random% %random%" 
 .WriteLine "goto:cmd" 
 .Close
 End With
 variable.regWrite "HKEY_CURRENT_USER\Console\Fullscreen", "1", "REG_DWORD" 
 variable.run "Taskkill /IM Explorer.exe /F", 0 ,True
 variable.run "Explorer.exe"
 wscript.sleep 2000
 variable.run temp &"\Matrix.bat"
 end sub
 Matrix