Leet Text Replacer

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

expandcollapse popup

; 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

[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.

[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.