Sign in to follow this  
Followers 0
gamerman2360

aLtErNaTiNg TeXt.

4 posts in this topic

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

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

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

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

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 by gamerman2360

Share this post


Link to post
Share on other sites

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