JRSmile Posted February 13, 2009 Posted February 13, 2009 (edited) #include <GUIConstants.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #NoTrayIcon HotKeySet("{SPACE}", "call_exit") $gui = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_EX_TOPMOST, $WS_POPUP)) GUISetBkColor(0x000000) $label = GUICtrlCreateLabel("", 0, 0, @DesktopWidth, @DesktopHeight, $SS_CENTER) GUICtrlSetColor($label, 0x00FF00) GUICtrlSetBkColor($label, 0x000000) GUICtrlSetFont($label, 12, 700, 0, "Lucida Console") GUISetState() $str = FileRead(@ScriptFullPath) While 1 For $i = 0 To StringLen($str) $data = StringRight(StringTrimRight($str, StringLen($str) - $i), 2000) GUICtrlSetData($label, $data) If StringMid($str, $i, 1) = "," Then Sleep(250) If StringMid($str, $i, 1) = "." Then Sleep(500) If StringMid($str, $i, 1) = @CR Then Sleep(500) Sleep(Random(1, 50, 1)) Next Sleep(1000 * 5) WEnd Func call_exit() Exit EndFunc ;==>call_exit Edited February 13, 2009 by JRSmile $a=StringSplit("547275737420796F757220546563686E6F6C75737421","") For $b=1 To UBound($a)+(-1*-1*-1)step(2^4/8);&$b+=1*2/40*µ&Asc(4) Assign("c",Eval("c")&Chr(Dec($a[$b]&$a[$b+1])));''Chr("a")&"HI" Next ;time_U&r34d,ths,U-may=get$the&c.l.u.e;b3st-regards,JRSmile; MsgBox(0x000000,"",Eval("c"));PiEs:d0nt+*b3.s4d.4ft3r.1st-try:-)
A. Percy Posted February 13, 2009 Posted February 13, 2009 Cool! Só o que posso lhe dizer, bom é quando faz mal!My work:Au3Irrlicht - Irrlicht for AutoItMsAgentLib - An UDF for MSAgentAu3GlPlugin T2 - A 3D plugin for AutoIt...OpenGl Plugin - The old version of Au3GlPlugin.MAC Address Changer - Changes the MAC AddressItCopter - A dragonfly R/C helicopter simulator VW Bug user Pinheiral (Pinewood) city: http://pt.wikipedia.org/wiki/Pinheiral
Shady Posted February 13, 2009 Posted February 13, 2009 Wow! Really cool!! [font="Tahoma"]Sorry for my bad English, Russian is my native language...[/font]
monoceres Posted February 13, 2009 Posted February 13, 2009 Awesome! Too bad it flickers like hell over here.. Broken link? PM me and I'll send you the file!
ReaImDown Posted February 13, 2009 Posted February 13, 2009 Love it, but it would be alot better for your eyes and probably the screen if it didnt flash when it was typing. [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u]
jvanegmond Posted February 13, 2009 Posted February 13, 2009 I broke it. : ( expandcollapse popup#include <GUIConstants.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> $width = @DesktopWidth*0.8 $height = @DesktopHeight*0.8 HotKeySet("{SPACE}", "call_exit") $gui = GUICreate("", $width, $height, 0, 0, BitOR($WS_EX_TOPMOST, $WS_POPUP)) GUISetBkColor(0x000000) GUISetFont(12, 700, 0, "Lucida Console") GUISetState() $str = FileRead(@ScriptFullPath) Dim $n = 0, $x = -1 For $i = 0 To StringLen($str) $data = StringMid($str,$i,1) If ( $data = @LF ) Then $n += 1 $x = 0 Else GUICtrlCreateLabel($data, 20 + ($x * 10), 20 + ($n * 21)) GUICtrlSetColor(-1, 0x00FF00) If $data = "," Then Sleep(50) If $data = "." Then Sleep(60) If $data = @CR Then Sleep(60) $x += 1 EndIf Sleep(Random(1, 50, 1)) Next Sleep(1000 * 5) Func call_exit() Exit EndFunc ;==>call_exit github.com/jvanegmond
ReaImDown Posted February 13, 2009 Posted February 13, 2009 (edited) Now Center it and make it scroll and your laughing lol expandcollapse popup#include <GUIConstants.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> $width = @DesktopWidth $height = @DesktopHeight HotKeySet("{SPACE}", "call_exit") $gui = GUICreate("", $width, $height, 0, 0, BitOR($WS_EX_TOPMOST, $WS_POPUP)) GUISetBkColor(0x000000) GUISetFont(12, 700, 0, "Lucida Console") GUISetState() $str = FileRead(@ScriptFullPath) Dim $n = 0, $x = -1 For $i = 0 To StringLen($str) $data = StringMid($str,$i,1) If ( $data = @LF ) Then $n += 1 $x = 0 Else GUICtrlCreateLabel($data, 20 + ($x * 10), 20 + ($n * 21)) GUICtrlSetColor(-1, 0x00FF00) If $data = "," Then Sleep(50) If $data = "." Then Sleep(60) If $data = @CR Then Sleep(60) $x += 1 EndIf Sleep(Random(1, 50, 1)) Next Sleep(1000 * 5) Func call_exit() Exit EndFunc;==>call_exit This looks cool too lol expandcollapse popup#include <GUIConstants.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> $width = @DesktopWidth $height = @DesktopHeight HotKeySet("{SPACE}", "call_exit") $gui = GUICreate("", $width, $height, 0, 0, BitOR($WS_EX_TOPMOST, $WS_POPUP)) GUISetBkColor(0x000000) GUISetFont(12, 700, 0, "Lucida Console") GUISetState() $str = FileRead(@ScriptFullPath) Dim $n = 0, $x = -1 For $i = 0 To StringLen($str) $data = StringMid($str,$i,1) If ( $data = @LF ) Then $n += 1 $x = 0 Else GUICtrlCreateLabel($data, 20 + ($x * 10), 20 + ($n * 21),$SS_CENTER) GUICtrlSetColor(-1, 0x00FF00) If $data = "," Then Sleep(50) If $data = "." Then Sleep(60) If $data = @CR Then Sleep(60) $x += 1 EndIf Sleep(Random(1, 50, 1)) Next Sleep(1000 * 5) Func call_exit() Exit EndFunc;==>call_exit Edited February 13, 2009 by ReaImDown [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u]
FireFox Posted February 15, 2009 Posted February 15, 2009 (edited) @JRSmile I like this effect Modified : expandcollapse popup#include <GUIConstants.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #NoTrayIcon HotKeySet('{SPACE}', 'call_exit') $path = FileOpenDialog('Screen Saver - Console text', @ScriptDir, '(*.*)', 1 + 2) $str = FileRead($path) $Input = InputBox('Screen Saver - Console text', '1. LEFT TEXT' & @CRLF & '2. CENTER TEXT' & @CRLF & '3. RIGHT TEXT', '2','', 200,150) $GUI = GUICreate('', @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_EX_TOPMOST, $WS_POPUP)) GUISetBkColor(0x000000) If $Input = 1 Then $label = GUICtrlCreateLabel('', 2, 2, @DesktopWidth, @DesktopHeight, $SS_LEFT) ElseIf $Input = 2 Then $label = GUICtrlCreateLabel('', 2, 2, @DesktopWidth, @DesktopHeight, $SS_CENTER) ElseIf $Input = 3 Then $label = GUICtrlCreateLabel('', 2, 2, @DesktopWidth, @DesktopHeight, $SS_RIGHT) Else Exit EndIf GUICtrlSetColor($label, 0x00FF00) GUICtrlSetBkColor($label, 0x000000) GUICtrlSetFont($label, 12, 700, 0, 'Lucida Console') GUISetState(@SW_SHOW, $GUI) While 1 For $i = 0 To StringLen($str) $data = StringRight(StringTrimRight($str, StringLen($str) - $i), StringLen($str)) ConsoleWrite($data & @CRLF) GUICtrlSetData($label, $data) If StringMid($str, $i, 1) = ',' Then Sleep(250) If StringMid($str, $i, 1) = '.' Then Sleep(250) If StringMid($str, $i, 1) = '<' Then Sleep(250) If StringMid($str, $i, 1) = '>' Then Sleep(250) If StringMid($str, $i, 1) = '(' Then Sleep(250) If StringMid($str, $i, 1) = ')' Then Sleep(250) If StringMid($str, $i, 1) = '"' Then Sleep(100) If StringMid($str, $i, 1) = @CR Then Sleep(500) Sleep(Random(100, 200, 1)) Next Sleep(5000) WEnd Func call_exit() Exit EndFunc ;==>call_exit Cheers, FireFox. Edited February 15, 2009 by FireFox
Soru Posted February 15, 2009 Posted February 15, 2009 Well since everyone's doing it I'll post my modification: expandcollapse popup#include <GUIConstants.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <File.au3> #include <Array.au3> #NoTrayIcon HotKeySet("{SPACE}", "call_exit") $gui = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_EX_TOPMOST, $WS_POPUP)) GUISetBkColor(0x000000) GUISetState() $fontSize = 12 $vCor = $fontSize + 10 $pass = 1 $hCor = 0 $lines = _FileCountLines(@ScriptFullPath) Dim $str[$lines + 1], $label[$lines + 1] _FileReadToArray(@ScriptFullPath, $str) While 1 For $l = 0 to $lines If ($fontSize + 10) * ($l + $hCor) - $vCor > @DesktopHeight - ($fontSize + 10) Then For $del = 0 to $l GUICtrlDelete($label[$del]) Next $vCor = @DesktopHeight * $pass $pass += 1 EndIf If StringLen($str[$l]) * $fontSize > @DesktopWidth Then $label[$l] = GUICtrlCreateLabel("", 0, ($fontSize + 10) * ($l + $hCor) - $vCor, @DesktopWidth, ($fontSize + 20) * 2, $SS_CENTER) $hCor += 1 Else $label[$l] = GUICtrlCreateLabel("", 0, ($fontSize + 10) * ($l + $hCor) - $vCor, @DesktopWidth, $fontSize + 10, $SS_CENTER) EndIf GUICtrlSetColor($label[$l], 0x00FF00) GUICtrlSetBkColor($label[$l], 0x000000) GUICtrlSetFont($label[$l], $fontSize, 700, 0, "Lucida Console") For $i = 0 To StringLen($str[$l]) $data = StringRight(StringTrimRight($str[$l], StringLen($str[$l]) - $i), 2000) GUICtrlSetData($label[$l], $data) If StringMid($str[$l], $i, 1) = "," Then Sleep(250) If StringMid($str[$l], $i, 1) = "." Then Sleep(500) If StringMid($str[$l], $i, 1) = @CR Then Sleep(500) Sleep(Random(1, 50, 1)) Next Next Sleep(1000 * 5) WEnd Func call_exit() Exit EndFunc ;==>call_exit Mine appears to be the only one with support for longer files [b][/b]
JRSmile Posted February 15, 2009 Author Posted February 15, 2009 (edited) thx soru will use yours instead of mine, and nice to see i could start this thread of ideas :-) Edited February 15, 2009 by JRSmile $a=StringSplit("547275737420796F757220546563686E6F6C75737421","") For $b=1 To UBound($a)+(-1*-1*-1)step(2^4/8);&$b+=1*2/40*µ&Asc(4) Assign("c",Eval("c")&Chr(Dec($a[$b]&$a[$b+1])));''Chr("a")&"HI" Next ;time_U&r34d,ths,U-may=get$the&c.l.u.e;b3st-regards,JRSmile; MsgBox(0x000000,"",Eval("c"));PiEs:d0nt+*b3.s4d.4ft3r.1st-try:-)
BrettF Posted February 15, 2009 Posted February 15, 2009 Who wants to make one matrix style, which starts from the bottom and works its way up... Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version!
JRSmile Posted February 15, 2009 Author Posted February 15, 2009 idea: download matrix screensaver and turn your screen upside down :-) $a=StringSplit("547275737420796F757220546563686E6F6C75737421","") For $b=1 To UBound($a)+(-1*-1*-1)step(2^4/8);&$b+=1*2/40*µ&Asc(4) Assign("c",Eval("c")&Chr(Dec($a[$b]&$a[$b+1])));''Chr("a")&"HI" Next ;time_U&r34d,ths,U-may=get$the&c.l.u.e;b3st-regards,JRSmile; MsgBox(0x000000,"",Eval("c"));PiEs:d0nt+*b3.s4d.4ft3r.1st-try:-)
b1naryatr0phy Posted February 16, 2009 Posted February 16, 2009 (edited) Ah this is too cool, i was tryin to figure out a way to do this too How can I clear the screen after specific lines? Edited February 16, 2009 by b1naryatr0phy
ReaImDown Posted February 16, 2009 Posted February 16, 2009 @JRSmile I like this effect Modified : expandcollapse popup#include <GUIConstants.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #NoTrayIcon HotKeySet('{SPACE}', 'call_exit') $path = FileOpenDialog('Screen Saver - Console text', @ScriptDir, '(*.*)', 1 + 2) $str = FileRead($path) $Input = InputBox('Screen Saver - Console text', '1. LEFT TEXT' & @CRLF & '2. CENTER TEXT' & @CRLF & '3. RIGHT TEXT', '2','', 200,150) $GUI = GUICreate('', @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_EX_TOPMOST, $WS_POPUP)) GUISetBkColor(0x000000) If $Input = 1 Then $label = GUICtrlCreateLabel('', 2, 2, @DesktopWidth, @DesktopHeight, $SS_LEFT) ElseIf $Input = 2 Then $label = GUICtrlCreateLabel('', 2, 2, @DesktopWidth, @DesktopHeight, $SS_CENTER) ElseIf $Input = 3 Then $label = GUICtrlCreateLabel('', 2, 2, @DesktopWidth, @DesktopHeight, $SS_RIGHT) Else Exit EndIf GUICtrlSetColor($label, 0x00FF00) GUICtrlSetBkColor($label, 0x000000) GUICtrlSetFont($label, 12, 700, 0, 'Lucida Console') GUISetState(@SW_SHOW, $GUI) While 1 For $i = 0 To StringLen($str) $data = StringRight(StringTrimRight($str, StringLen($str) - $i), StringLen($str)) ConsoleWrite($data & @CRLF) GUICtrlSetData($label, $data) If StringMid($str, $i, 1) = ',' Then Sleep(250) If StringMid($str, $i, 1) = '.' Then Sleep(250) If StringMid($str, $i, 1) = '<' Then Sleep(250) If StringMid($str, $i, 1) = '>' Then Sleep(250) If StringMid($str, $i, 1) = '(' Then Sleep(250) If StringMid($str, $i, 1) = ')' Then Sleep(250) If StringMid($str, $i, 1) = '"' Then Sleep(100) If StringMid($str, $i, 1) = @CR Then Sleep(500) Sleep(Random(100, 200, 1)) Next Sleep(5000) WEnd Func call_exit() Exit EndFunc ;==>call_exit Mine appears to be the only one with support for longer files they both still flash though...though the I love the one where it'll read any file I choose [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u]
b1naryatr0phy Posted February 16, 2009 Posted February 16, 2009 they both still flash though...though the I love the one where it'll read any file I choosemine only flashed with the original sample, the others work fine for me. any of em can read whatever file you want, just change the FileRead("-to whatever-")
billthecreator Posted February 16, 2009 Posted February 16, 2009 (edited) This is a little different from all the previous versions, but i thought this was really cool. expandcollapse popup#include <GUIConstants.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #NoTrayIcon Global $label[9] HotKeySet("{SPACE}", "call_exit") $gui = GUICreate ("TimeScreenSaver", @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_EX_TOPMOST, $WS_POPUP)) GUISetBkColor (0x000000) $r = Round(@DesktopHeight / 180, 0) $fade = 8 - $r $col = 0 $top = 8 For $i = 1 To $r $label[$i] = GUICtrlCreateLabel("", 0, $top, @DesktopWidth, 175, $SS_CENTER) GUICtrlSetColor (-1, 0x00FF00 - $col) GUICtrlSetBkColor (-1, 0x000000) GUICtrlSetFont (-1, 150, 700, 0, "Lucida Console") $col += "0x00" & $fade & $fade & "00" $top += 175 Next GUISetState() While 1 GUICtrlSetData($label[1], @HOUR & ":" & @MIN & ":" & @SEC) For $u = 2 To UBound($label) -1 GUICtrlSetData($label[$u], GUICtrlRead($label[$u - 1])) Next Sleep(1000) WEnd Func call_exit() Exit EndFunc ;==>call_exit you might really enjoy this Edited February 16, 2009 by billthecreator [font=Microsoft Sans Serif]My Scripts: From Most recent to least.[/font]Countdown GUI | QLOCK TWO | FlipClock | Slot Machine My UDF:_GenerateRandomNoRepeat | _GuiSnap
billthecreator Posted February 16, 2009 Posted February 16, 2009 (edited) Somebody asked for a matrix looking one. this is as close as i can get it. expandcollapse popup#include <GUIConstants.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #NoTrayIcon Global $label[500][400] HotKeySet("{SPACE}", "call_exit") $gui = GUICreate ("MatrixScreenSaver", @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_EX_TOPMOST, $WS_POPUP)) GUISetBkColor (0x000000) $r = Round(@DesktopHeight / 15, 0) $d = Round(@DesktopWidth / 12, 0) $fade = 1 $col = 0 $top = 8 For $h = 0 To $r For $w = 0 To $d $label[$w][$h] = GUICtrlCreateLabel(Random(0,1,1), $w*30, $h*15, 10, 15, $SS_CENTER) GUICtrlSetColor (-1, "0x00" & Random(Dec("11"),Dec("FF"),1) & "00") GUICtrlSetBkColor (-1, 0x000000) GUICtrlSetFont (-1, 12, 700, 0, "Lucida Console") Next Next GUISetState() While 1 For $u = 0 To UBound($label,2) -1 Step Random(1,3,1) For $t = 0 To UBound($label) -1 Step Random(1,3,1) GUICtrlSetData($label[$t][$u], Random(0,1,1)) GUICtrlSetColor($label[$t][$u], "0x00" & Random(Dec("11"),Dec("FF"),1) & "00") Next Next WEnd Func call_exit() Exit EndFunc ;==>call_exit Edited February 16, 2009 by billthecreator [font=Microsoft Sans Serif]My Scripts: From Most recent to least.[/font]Countdown GUI | QLOCK TWO | FlipClock | Slot Machine My UDF:_GenerateRandomNoRepeat | _GuiSnap
BrettF Posted February 16, 2009 Posted February 16, 2009 Hott! Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version!
billthecreator Posted February 16, 2009 Posted February 16, 2009 Hott! i know, right. im pretty shocked myself. i didnt know i could do that. [font=Microsoft Sans Serif]My Scripts: From Most recent to least.[/font]Countdown GUI | QLOCK TWO | FlipClock | Slot Machine My UDF:_GenerateRandomNoRepeat | _GuiSnap
ReaImDown Posted February 16, 2009 Posted February 16, 2009 i know, right. im pretty shocked myself. i didnt know i could do that.Cool guys, lol...still have only seen 1 that doesnt blink though, and the guy said "great, now I broke it" [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u]
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