Help with a prank

[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

expandcollapse popup

; 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

[PsaltyDS]

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

[Krentenbol78]

Why ?

[DW1]

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

RTFM

[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

Edited November 13, 2007 by Krentenbol78

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

[Krentenbol78]

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

If I had I wouldn't been here

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

[Valuater]

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

If I had I wouldn't been here

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)

[Krentenbol78]

Thanks alot for all you're great help

[DW1]

This is all the help I will give...

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

[Krentenbol78]

Thanks alot 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

[SmOke_N]

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

Answer: Yes!

End of discussion.