aLtErNaTiNg TeXt.

[gamerman2360]

jUsT a SmAlL sCrIpT tO tOgGlE tHe CaPs LoCk BuTtOn WhIlE yOu TyPe

i tHiNk IlL bE mAkInG oNE (lAtEr) tO rEpLacE nOrMaL lEtTeRs WiTh ExTeNdEd ChArAcTeRs ThAt LoOk AlIkE.

; THiS iS a TeSt.
Opt("SendCapslockMode", 0)
For $i = Asc("A") To Asc("Z")
    HotKeySet(Chr($i), "MyFunc")
Next

For $i = Asc("a") To Asc("z")
    HotKeySet(Chr($i), "MyFunc")
Next

While 1
    Sleep(0x7FFFFFFF)
WEnd

Func MyFunc()
    Send("{CAPSLOCK toggle}")
    HotKeySet(@HotKeyPressed)
    Send(@HotKeyPressed)
    HotKeySet(@HotKeyPressed, "MyFunc")
EndFunc

[Rad]

People who talk like this usually go on my banlist.... People did it all the time 3 years ago, its just old. Its like saying 1337 - stupid

[gamerman2360]

I know, still. Got anything better I could be waisting my time on?

Edit: More wasted time...

; tÉstThis is Å tÉst
Dim $replace[90]; first 64 elements are not used
; all need to be uppercase
$replace[Asc("A")] = "ÅÄÂ"
$replace[Asc("E")] = "É"
; add more here

For $i = Asc("A") To Asc("Z")
    HotKeySet(Chr($i), "MyFunc")
Next

For $i = Asc("a") To Asc("z")
    HotKeySet(Chr($i), "MyFunc")
Next

While 1
    Sleep(0x7FFFFFFF)
WEnd

Func MyFunc()
    $send = StringSplit($replace[Asc(StringUpper(@HotKeyPressed))], "")
    HotKeySet(@HotKeyPressed)
    If $send[0] == 0 Then $send[0] = @HotKeyPressed
    ConsoleWrite($send[0])
    Send($send[Random(1, $send[0], 1)])
    HotKeySet(@HotKeyPressed, "MyFunc")
EndFunc

Edited October 19, 2006 by gamerman2360

[Ed_Maximized]

I know, still. Got anything better I could be waisting my time on?

I think it coul be usefull in some kinds of applications like games...

Interesting...

Good Job

Hasta la vista!

Ed