Jump to content

Follow the white rabbit


JRSmile
 Share

Recommended Posts

#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 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:-)
Link to comment
Share on other sites

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[center]VW Bug user[/center]Pinheiral (Pinewood) city: http://pt.wikipedia.org/wiki/Pinheiral

Link to comment
Share on other sites

I broke it. : (

#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
Link to comment
Share on other sites

Now Center it and make it scroll and your laughing lol

#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

#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 by ReaImDown
[u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u]
Link to comment
Share on other sites

@JRSmile

I like this effect :)

Modified :

#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 by FireFox
Link to comment
Share on other sites

Well since everyone's doing it I'll post my modification:

#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]

Link to comment
Share on other sites

thx soru will use yours instead of mine, and nice to see i could start this thread of ideas :-)

Edited 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:-)
Link to comment
Share on other sites

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:-)
Link to comment
Share on other sites

@JRSmile

I like this effect :)

Modified :

#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]
Link to comment
Share on other sites

This is a little different from all the previous versions, but i thought this was really cool.

#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 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

Link to comment
Share on other sites

Somebody asked for a matrix looking one. this is as close as i can get it.

#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 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

Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...