Sign in to follow this  
Followers 0
JRSmile

Follow the white rabbit

34 posts in this topic

#1 ·  Posted (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 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:-)

Share this post


Link to post
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

Share this post


Link to post
Share on other sites

Wow! Really cool!!


[font="Tahoma"]Sorry for my bad English, Russian is my native language...[/font]

Share this post


Link to post
Share on other sites

Awesome!

Too bad it flickers like hell over here..


Broken link? PM me and I'll send you the file!

Share this post


Link to post
Share on other sites

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]

Share this post


Link to post
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

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

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]

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

@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

 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
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]

Share this post


Link to post
Share on other sites

#10 ·  Posted (edited)

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:-)

Share this post


Link to post
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:-)

Share this post


Link to post
Share on other sites

#13 ·  Posted (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 by b1naryatr0phy

Share this post


Link to post
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]

Share this post


Link to post
Share on other sites

they both still flash though...though the I love the one where it'll read any file I choose

mine 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-")

Share this post


Link to post
Share on other sites

#16 ·  Posted (edited)

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

Share this post


Link to post
Share on other sites

#17 ·  Posted (edited)

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

Share this post


Link to post
Share on other sites

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]

Share this post


Link to post
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
Sign in to follow this  
Followers 0