Jump to content
Sign in to follow this  
Krentenbol78

Help with a prank

Recommended Posts

Krentenbol78

Hi I was bored so I decided to make a prank

The idea was to mess up the keyboard so if you press f you typ z .....

But here it comes... ;)

It doesn't work :)

Can somebody take a look at the script and tell me what is wrong ?

Thanks alot :P

; Keyboard joke v 1.0
; Made by Krentenbol78
;
;




HotKeySet("a","change")
HotKeySet("A","change")
HotKeySet("b","change")
HotKeySet("B","change")
HotKeySet("c","change")
HotKeySet("C","change")
HotKeySet("d","change")
HotKeySet("D","change")
HotKeySet("e","change")
HotKeySet("E","change")
HotKeySet("f","change")
HotKeySet("F","change")
HotKeySet("G","change")
HotKeySet("g","change")
HotKeySet("h","change")
HotKeySet("H","change")
HotKeySet("i","change")
HotKeySet("I","change")
HotKeySet("j","change")
HotKeySet("J","change")
HotKeySet("K","change")
HotKeySet("k","change")
HotKeySet("l","change")
HotKeySet("L","change")
HotKeySet("m","change")
HotKeySet("M","change")
HotKeySet("N","change")
HotKeySet("n","change")
HotKeySet("O","change")
HotKeySet("o","change")
HotKeySet("p","change")
HotKeySet("P","change")
HotKeySet("q","change")
HotKeySet("Q","change")
HotKeySet("r","change")
HotKeySet("R","change")
HotKeySet("s","change")
HotKeySet("S","change")
HotKeySet("T","change")
HotKeySet("t","change")
HotKeySet("U","change")
HotKeySet("u","change")
HotKeySet("V","change")
HotKeySet("v","change")
HotKeySet("W","change")
HotKeySet("w","change")
HotKeySet("x","change")
HotKeySet("X","change")
HotKeySet("Y","change")
HotKeySet("y","change")
HotKeySet("Z","change")
HotKeySet("z","change")


HotKeySet("!5","exitt")


Func change()
    
    $letvar=Chr(Random(Asc("a"), Asc("z"), 1))
    Sleep(100)
    Send($letvar,1) ; Does it make difference if I set the flag to 0 ? 
    EndFunc



Func Exitt()
    
    Exit
    
EndFunc






While 1 
    
    Sleep(10)
    
WEnd

Share this post


Link to post
Share on other sites
PsaltyDS

Take it to some other forum. That kind of garbage will only get you banned here.

:P


Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law

Share this post


Link to post
Share on other sites
Krentenbol78

Why ?

Share this post


Link to post
Share on other sites
DW1

WOW, you couldn't have written that more wrong... and I will not help with annoying programs like this.

RTFM

Share this post


Link to post
Share on other sites
Krentenbol78

Dude it's is just a joke not a OMFG wtf a virus on my computer!!! It's just a prank -.-

And I could write it 10 ten times worse :P

Edited by Krentenbol78

Share this post


Link to post
Share on other sites
searchresult

Help file will be only help with this one.

Don't replay any more in this topic you are just getting deeper and deeper.

Share this post


Link to post
Share on other sites
Krentenbol78

I already read the helpfile but I don't know where to look.

If I had I wouldn't been here :P

So if someone can say in which direction I must search thanks alot ;)

Share this post


Link to post
Share on other sites
Valuater

I already read the helpfile but I don't know where to look.

If I had I wouldn't been here :P

So if someone can say in which direction I must search thanks alot ;)

You were given the correct answer, read again!

Take it to some other forum....

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites
Krentenbol78

Thanks alot for all you're great help :P

Share this post


Link to post
Share on other sites
Krentenbol78

Thanks alot :P I know have it.

I did it totally the stupid way xD

Here's the script: ( it's not finished)

$letvar=Chr(Random(Asc("a"), Asc("z"), 1))
    HotKeySet( $letvar, "change" )

    
Func change()
    $letvar=Chr(Random(Asc("a"), Asc("z"), 1))
    Sleep(100)
    HotKeySet( $letvar )
    Send($letvar,1); Does it make difference if I set the flag to 0 ?
    HotKeySet( $letvar, "change" )
EndFunc

HotKeySet("!q","exitt")

Func exitt()
    
    EndFunc

While 1
    Sleep(10)
    WEnd

Share this post


Link to post
Share on other sites
SmOke_N

Question: Can a prank be as harmful as a virus?

Answer: Yes!

End of discussion.


Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

×