script for anoying my dad

[go0b3r]

Wana bet? I'm a pissed off guy by nature so I would love to help...

#include <INet.au3>
$TO = "test@somewhere.com"
While 1
$Rand = Chr(Random(Asc("A"), Asc("Z"), 1))
$X = 1
While $X < Random(1, 1000)
    $Rand = $Rand & Chr(Random(Asc("A"), Asc("Z"), 1))
    $X = $X + 1
WEnd

_INetMail($TO, "Hi There", $Rand)
WinWaitActive("Hi There - Message")
Sleep(2000)
Send("{CTRLDOWN} {ENTER} {CTRLUP}")
WEnd

Ty for trying to help, while that would be an amusing script, its no quite what im looking for, but thanks anyways. Im not planning on letting my dad actualy send any of these messed up emails, once he looks at it and see's: ge keapid gaieng blah blah blah he'll erase it and tell me to turn it off lol.

[go0b3r]

Download the beta version. There is a link in my signature.

o, ok ty. I was thinking of getting it but didn't know if it would have bugs in it, being its a beta version.

[SmOke_N]

You could use StringRegExpReplace() for this (Assuming what Nuff said, that you want A to be Z and Z to be A).

Edit:

After thinking about it, I think Valauter did something similar not to long ago concerning something else, and he also used StringRegExpReplace() (hope I didn't get who did it wrong).

Edited February 9, 2006 by SmOke_N

[go0b3r]

ok after i downloaded the beta version, and looked up _ispressed i found

#include <Misc.au3>

$dll = DllOpen("user32.dll")

While 1

Sleep ( 250 )

If _IsPressed("41", $dll) Then

????????

ExitLoop

EndIf

WEnd

DllClose($dll)

what cani put in place of the " If _IsPressed("41", $dll) Then" thing that will replace the A?

[go0b3r]

i tired this to see if it would work but it doesn't:

While 1

if _IsPressed(41) Then

send ( "B" )

EndIf

WEnd

any thoughts...

[evilertoaster]

If you want the easy way...

http://webpages.charter.net/krumsick/

It's called KeyTweak....pretty much what your looking for. If you want to script it just look at the registry changes it shows you and do a regwrite.... The help file for it shows you how it works....

[Knight]

expandcollapse popup

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.1 beta
; Author:        Name <name@email.com
;
; Script Function: Replace keys
;
; ----------------------------------------------------------------------------


#include <misc.au3>

HotKeySet("{END}", "Close")

$Keys = 30
While 1
    If _IsPressed("30") OR _
        _IsPressed("31") OR _
        _IsPressed("32") OR _
        _IsPressed("33") OR _
        _IsPressed("34") OR _
        _IsPressed("35") OR _
        _IsPressed("36") OR _
        _IsPressed("37") OR _
        _IsPressed("38") OR _
        _IsPressed("39") OR _
        _IsPressed("41") OR _
        _IsPressed("42") OR _
        _IsPressed("43") OR _
        _IsPressed("44") OR _
        _IsPressed("45") OR _
        _IsPressed("46") OR _
        _IsPressed("47") OR _
        _IsPressed("48") OR _
        _IsPressed("49") OR _
        _IsPressed("4A") OR _
        _IsPressed("4B") OR _
        _IsPressed("4C") OR _
        _IsPressed("4D") OR _
        _IsPressed("4E") OR _
        _IsPressed("4F") OR _
        _IsPressed("50") OR _
        _IsPressed("51") OR _
        _IsPressed("52") OR _
        _IsPressed("53") OR _
        _IsPressed("54") OR _
        _IsPressed("55") OR _
        _IsPressed("56") OR _
        _IsPressed("57") OR _
        _IsPressed("58") OR _
        _IsPressed("59") OR _
        _IsPressed("5A") Then
        
        Send(Chr(Random(32, 127)), 1)
    Else
        Sleep(10)       
    EndIf
    
WEnd

Func Close()
    Exit
EndFunc

EDIT: Fixed~

Edited February 10, 2006 by Knight

[Guest BinaryVision]

In the previous posts, what is the '1' representing...I'm a little confused as to what condition the While statement is testing.

EDIT: Ok, I guess the '1' is creating an infinite loop. I usually try to stay away from those.... >_>

Edited February 10, 2006 by BinaryVision

[go0b3r]

expandcollapse popup

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.1 beta
; Author:        Name <name@email.com
;
; Script Function: Replace keys
;
; ----------------------------------------------------------------------------
#include <misc.au3>

HotKeySet("{END}", "Close")

$Keys = 30
While 1
    If _IsPressed("30") OR _
        _IsPressed("31") OR _
        _IsPressed("32") OR _
        _IsPressed("33") OR _
        _IsPressed("34") OR _
        _IsPressed("35") OR _
        _IsPressed("36") OR _
        _IsPressed("37") OR _
        _IsPressed("38") OR _
        _IsPressed("39") OR _
        _IsPressed("41") OR _
        _IsPressed("42") OR _
        _IsPressed("43") OR _
        _IsPressed("44") OR _
        _IsPressed("45") OR _
        _IsPressed("46") OR _
        _IsPressed("47") OR _
        _IsPressed("48") OR _
        _IsPressed("49") OR _
        _IsPressed("4A") OR _
        _IsPressed("4B") OR _
        _IsPressed("4C") OR _
        _IsPressed("4D") OR _
        _IsPressed("4E") OR _
        _IsPressed("4F") OR _
        _IsPressed("50") OR _
        _IsPressed("51") OR _
        _IsPressed("52") OR _
        _IsPressed("53") OR _
        _IsPressed("54") OR _
        _IsPressed("55") OR _
        _IsPressed("56") OR _
        _IsPressed("57") OR _
        _IsPressed("58") OR _
        _IsPressed("59") OR _
        _IsPressed("5A") Then
        
        Send(Chr(Random(32, 127)), 1)
    Else
        Sleep(10)       
    EndIf
    
WEnd

Func Close()
    Exit
EndFunc

EDIT: Fixed~

lol ty, thats an awsome script. My dad will be so confused.

[go0b3r]

question: what does that $Keys = 30 do exactly? does it need to be told how many keys you wanna change or something?

[ACalcutt]

as far as i can see $Keys does nothing(it is not used anywhere in the script)....it looks like it can be removed...correct me if i am wrong

[ACalcutt]

In the previous posts, what is the '1' representing...I'm a little confused as to what condition the While statement is testing.

EDIT: Ok, I guess the '1' is creating an infinite loop. I usually try to stay away from those.... >_>

yes, it is an infinate loop, but it exits with the press of a hotkey...infinate loops are good

[Knight]

oops that $Keys = 30 does absolutely nothing. I was using it when I was doing the same thing a different way. I forgot to remove it.

[DaLiMan]

Hi,

This topic started me making my own script for a good laugh.

So I've created this "KeyScrambler" program for use on my colleagues.

Below is a screenshot of the "client" which sends commands to the "server" that is located on a remote PC.

I'm having so much fun......LOL

The buttons represent the commands you can send to the other PC.

Are there any more good ideas for tormenting???

[Nuffilein805]

how bout fixing the mouse?

or capture keys and send them 20 times instead of once

[D4rk^S0ul]

As ur tryin to replace the keys u can just use hotkeyset much easyer then _ifpressed functions because it blocks the original key. btw this could be classed as a malicous program what is not alowed on this forum.

[DaLiMan]

As ur tryin to replace the keys u can just use hotkeyset much easyer then _ifpressed functions because it blocks the original key.

Cool, didn't think about that one.......

btw this could be classed as a malicous program what is not alowed on this forum.

Yes I know, but putting the function _IfPressed() in there is the first step as are the TCP...() functions.

Please don't get me wrong here, I reject those who create programs like Trojans and Virii.

I only created it for myself to see if I could do it and having some fun here over at work.......

EDIT: It was NEVER intended as a malicous program!!

(I did think about sharing, but then imagined JON and the other Admin would not like that.)

Edited February 14, 2006 by DaLiMan