CodyBarrett Posted August 11, 2009 Share Posted August 11, 2009 (edited) lol i made a matrix look alike encryption screen... i was so bored.. and im supprized as to how well it works...60 somelines of code... tell me what you guys think its a dead end project.. pretty much for good looks XD MATRIX : expandcollapse popup#NoTrayIcon #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=ASCII characters.ico #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') HotKeySet ('+{TAB}','_MR') HotKeySet ('+{UP}','_Add_Trans') HotKeySet ('+{DOWN}','_Sub_Trans') 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 ('', @DesktopWidth, @DesktopHeight, -1, -1,$GUIStyle ,$GUIStyleEx, $Parent) $x = 0 $Da = @DesktopWidth / 20 $Dx = $Da - 1 $Trans = 100 WinSetTrans ($GUI, '', $Trans) Dim $Console[$Da], $Chr[50] For $i = 0 To $Dx $Console[$i] = GUICtrlCreateLabel ('',$x, 0, 20, @DesktopHeight, $LabelStyle) $x += 20 GUICtrlSetBkColor (-1, 0x0) GUICtrlSetColor (-1, 0x4AFFA5) Next GUISetBkColor (0x0, $GUI) GUISetState () WinMove ($GUI, '', 0, 0) While 1 Sleep (5) For $i = 0 To $Dx $0 = Random (0, $Da) $Chr[0] = '' For $c = 1 To 49 $Chr[$c] = Chr (Random (0,255,1)) & @CRLF & GUICtrlRead ($Console[$0]) Next GUICtrlSetData ($Console[$0],$Chr[Random (0, 49, 1)] ) Sleep (5) Next WEnd Func _Add_Trans () If $Trans >= 254 Then Return $Trans += 1 WinSetTrans ($GUI,'',$Trans) EndFunc Func _Sub_Trans () If $Trans <= 1 then Return $Trans -= 1 WinSetTrans ($GUI,'',$Trans) EndFunc Func _MR () Select Case WinGetState ($GUI,'') = 7 Or WinGetState ($GUI,'') = 15 WinSetState ($GUI, '', @SW_MINIMIZE) Case WinGetState ($GUI, '') = 23 WinSetState ($GUI, '', @SW_RESTORE) EndSelect EndFunc Func _Exit () Exit EndFunc NOW THIS IS SOMETHING DIFFERENT BUT SAME IDEA... IT COVERS THE WHOLE SCREEN AND DOESNT SCROLL.. BUT DOES RANDOMLY CHANGE CHRs check this out also FULL SCREEN : expandcollapse popup#NoTrayIcon #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=ASCII characters.ico #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') HotKeySet ('+{TAB}','_MR') HotKeySet ('+{UP}','_Add_Trans') HotKeySet ('+{DOWN}','_Sub_Trans') Opt ('GUIoneventmode', 1) $GUIStyle = BitOR($WS_POPUP, $WS_VISIBLE) $GUIStyleEx = BitOR ($WS_EX_TOPMOST, $WS_EX_TRANSPARENT) $LabelStyle = BitOR ($SS_CENTER, $SS_CENTERIMAGE) $Parent = WinGetHandle ('Program Manager','') $GUI = GUICreate ('', @DesktopWidth, @DesktopHeight, -1, -1,$GUIStyle ,$GUIStyleEx, $Parent) $x = 0 $y = 0 $Da = @DesktopWidth / 20 $Dx = $Da - 1 $Db = @DesktopHeight / 20 $Dy = $Db - 1 $Trans = 200 WinSetTrans ($GUI, '', $Trans) Dim $Console[$Da][$Db] For $i = 0 To $Dx For $ii = 0 To $Dy $Console[$i][$ii] = GUICtrlCreateLabel ('',$x, $y, 20, 20, $LabelStyle) GUICtrlSetData (-1,Chr (Random (48, 49,1))) GUICtrlSetBkColor (-1, 0x0) GUICtrlSetColor (-1, 0xFF0000) $y += 20 Next $y = 0 $x += 20 Next GUISetFont (10,-1,-1,'Tahoma',$GUI) GUISetBkColor (0x0, $GUI) GUISetState () WinMove ($GUI, '', 0, 0) While 1 GUICtrlSetData ($Console[Random (0, $Dx,1)][Random (0,$Dy,1)], Chr (Random (48, 49,1))) WEnd Func _Add_Trans () If $Trans >= 254 Then Return $Trans += 1 WinSetTrans ($GUI,'',$Trans) EndFunc Func _Sub_Trans () If $Trans <= 1 then Return $Trans -= 1 WinSetTrans ($GUI,'',$Trans) EndFunc Func _MR () Select Case WinGetState ($GUI,'') = 7 Or WinGetState ($GUI,'') = 15 WinSetState ($GUI, '', @SW_MINIMIZE) Case WinGetState ($GUI, '') = 23 WinSetState ($GUI, '', @SW_RESTORE) EndSelect EndFunc Func _Exit () Exit EndFunc you can click through it to do other stuff... and here are the hotkeys to Exit : SHIFT + ESC to minimize it : SHIFT + TAB Edited August 12, 2009 by CodyBarrett [size="1"][font="Tahoma"][COMPLETED]-----[FAILED]-----[ONGOING]VolumeControl|Binary Converter|CPU Usage| Mouse Wrap |WinHide|Word Scrammbler|LOCKER|SCREEN FREEZE|Decisions Decisions|Version UDF|Recast Desktop Mask|TCP Multiclient EXAMPLE|BTCP|LANCR|UDP serverless|AIOCR|OECR|Recast Messenger|AU3C|Tik-Tak-Toe|Snakes & Ladders|BattleShips|TRON|SNAKE_____________________[u]I love the Helpfile it is my best friend.[/u][/font][/size] Link to comment Share on other sites More sharing options...
frog78 Posted August 11, 2009 Share Posted August 11, 2009 It was better than expected and it looks nice. Link to comment Share on other sites More sharing options...
Datenshi Posted August 11, 2009 Share Posted August 11, 2009 (edited) hehe cool >_< changed it a bit to use the real matrix fontexpandcollapse popup#NoTrayIcon #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 ('', @DesktopWidth, @DesktopHeight, -1, -1,$GUIStyle ,$GUIStyleEx, $Parent) GUISetFont(10,"","","Matrix Code NFI") $Letters = Stringsplit("QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm1234567890","") $x = 0 $Da = @DesktopWidth / 20 $Dx = $Da - 1 WinSetTrans ($GUI, '', 100) Dim $Console[$Da], $Chr[50] For $i = 0 To $Dx $Console[$i] = GUICtrlCreateLabel ('',$x, 0, 20, @DesktopHeight, $LabelStyle) $x += 20 GUICtrlSetBkColor (-1, 0x0) GUICtrlSetColor (-1, 0x00f400) Next GUISetBkColor (0x0, $GUI) GUISetState () WinMove ($GUI, '', 0, 0) 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 EndFuncMatrix Font NFI Edited August 11, 2009 by Datenshi RapidQueuer 2.4 - For Rapidshare.comOpensubtitles Hashing FuncRevision3 PlayerGTPlayer BetaIMDB & Poster Grabber v1.3Fetgrek.com - My Website Link to comment Share on other sites More sharing options...
Authenticity Posted August 11, 2009 Share Posted August 11, 2009 $0 = Random (0, $Da) perhaps should be: $0 = Random (0, $Dx) Looks good, you can change the random char to begin with 32, I think it's the first printable character. Link to comment Share on other sites More sharing options...
CodyBarrett Posted August 12, 2009 Author Share Posted August 12, 2009 alright i didn't use the Font.. BEACUSE everytime i try fileinstall with a .ttf it NEVER works i believe either write up 50+ lines for a font installer OR manually install it.. either way im not trying to win the look alike contest... if there even IS one XD but no... and authenticity your right... though it really hasn't givin me an error with Dx and Da... but i added some things... Transparency control *SHIFT + UP = +1 trans *SHIFT + DOWN = - 1 trans i also added a bluer green color that i think (after watching the matrix lastnight) looks closer to the color on there than the lime green i had before.. check the top I DID add the 32 chr thing >_< kinda stupid of me to misread the helpfile.... now it only has the printable chrs including 32 [size="1"][font="Tahoma"][COMPLETED]-----[FAILED]-----[ONGOING]VolumeControl|Binary Converter|CPU Usage| Mouse Wrap |WinHide|Word Scrammbler|LOCKER|SCREEN FREEZE|Decisions Decisions|Version UDF|Recast Desktop Mask|TCP Multiclient EXAMPLE|BTCP|LANCR|UDP serverless|AIOCR|OECR|Recast Messenger|AU3C|Tik-Tak-Toe|Snakes & Ladders|BattleShips|TRON|SNAKE_____________________[u]I love the Helpfile it is my best friend.[/u][/font][/size] Link to comment Share on other sites More sharing options...
Suirad Posted August 12, 2009 Share Posted August 12, 2009 (edited) wow this is very nice. one other thing thats good to add is: WinSetOnTop($gui,"",1) then u will be able to see it all the time, yet be able to interact with all your other programs edit: for fullscreen one, couldnt get other to run. >_< Edited August 12, 2009 by Suirad Link to comment Share on other sites More sharing options...
CodyBarrett Posted August 12, 2009 Author Share Posted August 12, 2009 thank you but its already ontop of everything...WS_EX_TOPMOST and i changed the second code so its kinda different XD [size="1"][font="Tahoma"][COMPLETED]-----[FAILED]-----[ONGOING]VolumeControl|Binary Converter|CPU Usage| Mouse Wrap |WinHide|Word Scrammbler|LOCKER|SCREEN FREEZE|Decisions Decisions|Version UDF|Recast Desktop Mask|TCP Multiclient EXAMPLE|BTCP|LANCR|UDP serverless|AIOCR|OECR|Recast Messenger|AU3C|Tik-Tak-Toe|Snakes & Ladders|BattleShips|TRON|SNAKE_____________________[u]I love the Helpfile it is my best friend.[/u][/font][/size] Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now