Jump to content
Sign in to follow this  
go0b3r

script for anoying my dad

Recommended Posts

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.

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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

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

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?

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

; ----------------------------------------------------------------------------
;
; 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 by Knight

Share this post


Link to post
Share on other sites
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 by BinaryVision

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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 :lmao:


Andrew Calcutt

Http://www.Vistumbler.net

Http://www.TechIdiots.net

Its not an error, its a undocumented feature

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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???

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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....... :o

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....... :geek:

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

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  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...