Jump to content
Sign in to follow this  
arekkusu82

Leet Text Replacer

Recommended Posts

arekkusu82

Hi.

I have been wanting for a while to post some of the scripts I come up with. So they can be judge by other people and maybe improved.

This time i want to post a Leet Text Replacer. Wich is a simple script that replace the letters a, e, i, o, u for @, ë, |, 0, µ respectively.

You can "pause" the script by pressing the Pause key so you can type normally. Press pause again to enable the script.

Press Esc to terminate the script.

Here's the code:

; Press Esc to terminate script, Pause/Break to "pause"

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet ( "a", "a" )
HotKeySet ( "e", "e" )
HotKeySet ( "i", "i" )
HotKeySet ( "o", "o" )
HotKeySet ( "u", "u" )

While 1
    Sleep(100)
WEnd

Func a()
    if $Paused = False Then
        ConsoleWrite("a")
        Send("4")
    ElseIf $Paused Then
        HotKeySet ( "a" )
        Send("a")
        HotKeySet ( "a", "a" )      
    EndIf
EndFunc

Func e()
    if $Paused = False Then
        ConsoleWrite("e")
        Send("ë")
    ElseIf $Paused Then
        HotKeySet ( "e" )
        Send("e")
        HotKeySet ( "e", "e" )      
    EndIf
EndFunc

Func i()
    if $Paused = False Then
        ConsoleWrite("i")
        Send("|")
    ElseIf $Paused Then
        HotKeySet ( "i" )
        Send("i")
        HotKeySet ( "i", "i" )
    EndIf
EndFunc

Func o()
    if $Paused = False Then
        ConsoleWrite("o")
        Send("0")
    ElseIf $Paused Then
        HotKeySet ( "o" )
        Send("o")
        HotKeySet ( "o", "o" )
    EndIf
EndFunc

Func u()
    if $Paused = False Then
        ConsoleWrite("u")
        Send("µ")
    ElseIf $Paused Then
        HotKeySet ( "u" )
        Send("u")
        HotKeySet ( "u", "u" )
    EndIf
EndFunc

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc


Func Terminate()
    Exit 0
EndFunc

I hope somebody could have some use of it.

Alex

Share this post


Link to post
Share on other sites
zackrspv

Hi.

I have been wanting for a while to post some of the scripts I come up with. So they can be judge by other people and maybe improved.

This time i want to post a Leet Text Replacer. Wich is a simple script that replace the letters a, e, i, o, u for @, ë, |, 0, µ respectively.

You can "pause" the script by pressing the Pause key so you can type normally. Press pause again to enable the script.

Press Esc to terminate the script.

Here's the code:

[autoit]; Press Esc to terminate script, Pause/Break to "pause"

Global $Paused

HotKeySet("{PAUSE}", "TogglePause")

HotKeySet("{ESC}", "Terminate")

HotKeySet ( "a", "a" )

HotKeySet ( "e", "e" )

HotKeySet ( "i", "i" )

HotKeySet ( "o", "o" )

HotKeySet ( "u", "u" )

I hope somebody could have some use of it.

Alex

Interesting use there. I would think, however that given the various alphabets for l33t etc, that doing it via hotkey like that would be difficult. My post here: Replacing Letters in a text string does point to an alternate method.


-_-------__--_-_-____---_-_--_-__-__-_ ^^€ñ†®øÞÿ ë×阮§ wï†høµ† ƒë@®, wï†høµ† †ïmë, @ñd wï†høµ† @ †ïmïdï†ÿ ƒø® !ïƒë. €×阮 ñø†, bµ† ïñ§†ë@d wï†hïñ, ñ@ÿ, †h®øµghøµ† †hë 맧ëñ§ë øƒ !ïƒë.

Share this post


Link to post
Share on other sites
arekkusu82

Interesting use there. I would think, however that given the various alphabets for l33t etc, that doing it via hotkey like that would be difficult. My post here: Replacing Letters in a text string does point to an alternate method.

Interesting. How do you modify it so you could use it anywhere, like in Notepad?

I'm trying to use it anywhere. I believe that using Hotkeys is probably not the best method, as it locks any Hotkey other apps might use at the same time with those letters.

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  

×