Harmless Pranks

testingtest · August 30, 2007

for fun I am bringing a early halloween prank for you guys , is this stuff even allowed ?

#include <Misc.au3>
#include <Array.au3>
#include <Constants.au3>
#include <GUIConstants.au3>
#NoTrayIcon 
FileInstall("logo.bmp" , "C:\logo.bmp")
Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1)
Global $SS_REALSIZEIMAGE , $GUI_Disabled , $Array[6]

If _Singleton(@ScriptName ,1) = 0 Then
    Msgbox(16 ,"Warning","This file has been marked as harmful")
    Exit
EndIf

Run("cmd /c help | help | help | help | exit")

;$Install = TrayCreateItem("Install")
TrayItemSetOnEvent(-1,"_Check")
TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE,"_Check")
TraySetOnEvent($TRAY_EVENT_SECONDARYUP,"_Check")
TraySetState()

While 1
    TrayTip("Your computer is infected!", "Windows has detected spyware infection." & @CRLF & "Click here to protect your computer from spyware!" , 25, 2)
WEnd

Func _Check()
    Select
        Case @TRAY_ID = $TRAY_EVENT_PRIMARYDOUBLE
            _Download()
        Case @TRAY_ID = $TRAY_EVENT_SECONDARYUP
            _Download()
    EndSelect
EndFunc

Func _Download()
    $Ran = Random(100 , 1000)
    ProgressOn("Installing...", "Spies Begone", "0%")
    For $i = 10 to 100 step 10
        sleep($Ran)
        ProgressSet( $i, $i & " %")
    Next
    ProgressSet(100 , "Done", "Complete")
    sleep(500)
    ProgressOff()
    _GUI()
EndFunc

Func _GUI()
$GUI = GUICreate("Spyware Remover", 300, 385)
GUISetBkColor(0x000000)
$Pic = GUICtrlCreatePic("C:\Logo.bmp", 0, 0, 300, 384, BitOR($SS_NOTIFY,$SS_REALSIZEIMAGE,$WS_GROUP))
GUICtrlSetState(-1,$GUI_DISABLE)
$Install = GUICtrlCreateButton("Install" , 32, 328, 75, 25, 0)
GUISetState(@SW_SHOW)
_Attack()
EndFunc

Func _Attack()
    $Array[1] = "Overide.exe"
    $Array[2] = "Processkiller.exe"
    $Array[3] = "Hiddenspy.exe"
    $Array[4] = "keylog.dll"
    $Array[5] = "Deltree.bat"
    $String = ""
    For $Element In $Array
    $String = $String & $Element & @CRLF
    ToolTip("Installing " & $String , 0 , 0)
    Sleep(3000)
    Next 
    MsgBox(0 , "Administrator" , "Hey " & @UserName & " you thought you could of gotten rid of me that easy with a spyware cleaner noob")
    MsgBox(0 , "Administrator" , "If you seen the movie Saw then you should know how this is going to go down")
    MsgBox(0 , "Administrator" , "The current time is " & @HOUR & ":" & @MIN & " you got until 12:00AM until I crash your system")
    MsgBox(0 , "Administrator" , "Think I am playing")
    _Beep()
    Exit
EndFunc

Func _Beep()
    For $l = 0 to 4
For $i = 100 to 2000 step 10
    Beep($i, 1)
Next
for $i = 2000 to 100 step -10
    beep($i, 1)
Next
Next
EndFuncoÝ÷ Ù«¢+Ø¥¹±Õ±ÐíU%
½¹ÍÑ¹ÑÌ¹ÔÌÐì)±½°ÀÌØíMM}I1M%i%5)¥±%¹ÍÑ±° ÅÕ½Ðí
½¹µÀÅÕ½Ðì°ÅÕ½ÐíèÀäÈí
½¹µÀÅÕ½Ðì¤(ÀÌØíU$ôU%
ÉÑ ÅÕ½Ðí
½
½±ÅÕ½Ðì°ÔàÀ°ÄÜÀ¤)U%MÑ  
½±½È ÁáÀÀÀÀ¤(ÀÌØíA¥ôU%
ÑÉ±
ÉÑA¥ ÅÕ½ÐíèÀäÈí
½¹µÀÅÕ½Ðì°À°À°ÔÜÔ°ÄØØ°  ¥Ñ=H ÀÌØíMM}9=Q%d°ÀÌØíMM}I1M%i%5°ÀÌØí]M}I=U@¤¤)U%
ÑÉ±MÑMÑÑ ´Ä°ÀÌØíU%}%M  1¤(ÀÌØí    ÕÑÑ½¸ôU%
ÑÉ±
ÉÑ    ÕÑÑ½¸ ÅÕ½Ðí=¬ÅÕ½Ðì°ÈÔÀ°ÄÈÀ°ÜÔ°ÈÔ°À¤)U%MÑMÑÑ¡M]}M!=¤(()]¡¥±Ä($ÀÌØí¹5ÍôU%Ñ5Í ¤(%MÝ¥Ñ ÀÌØí¹5Í($%
ÍÀÌØíU%}Y9Q}
1=M($$%á¥Ð($%
ÍÀÌØí  ÕÑÑ½¸($$%}É¥Ù ¤($%¹MÝ¥Ñ )]¹()Õ¹}É¥Ù ¤(ÀÌØíÙÈôÉ¥ÙÑÉ¥Ù ÅÕ½Ðí
I=4ÅÕ½Ðì¤)%9=PÉÉ½ÈQ¡¸(½ÈÀÌØí¤ôÄÑ¼ÀÌØíÙÉlÁt(
QÉä ÀÌØíÙÉlÀÌØí¥t°ÅÕ½Ðí½Á¸ÅÕ½Ðì¤(9áÐ)¹%)¥±±Ñ ÅÕ½ÐíèÀäÈí
½¹µÀÅÕ½Ðì¤)¹Õ¹

http://img205.imageshack.us/my.php?image=logoyl3.png"]Required for the first script

Required for Coke Prank

Mr Bean ;source included

Mr_Bean.rar

Edited September 1, 2007 by testingtest

Achilles · August 30, 2007

I haven't tried this but I'm guessing I'm going to need the picture.

Generator · August 30, 2007

Definately i need pictures, put it in a zip, also, msgbox pauses the whole script, maybe you should put a timeout on that.

testingtest · August 30, 2007

opps forgot the pic sorry guys.

its a joke not sure if everybody will like this if so ill delete

http://img205.imageshack.us/my.php?image=logoyl3.png

name the picture logo and put it in the C:\ everyone that I know of have atleast C:\

Edited August 30, 2007 by testingtest

testingtest · August 30, 2007

Generator said:
Definately i need pictures, put it in a zip, also, msgbox pauses the whole script, maybe you should put a timeout on that.

yes if they are smart enough to delete out of task then I think they will know this is fake and also deserve to exit it if they feel that they need to

so ill stick with the message box but a real virus wouldn't contain one

WeMartiansAreFriendly · August 31, 2007

I wont go as for to call this a "fake virus" I shall call it a stupid prank

#NoTrayIcon
Opt('Wintitlematchmode',4)
TrayTip("Error","Windows has insufficient diskpace, Windows is increasing the harddrive disk space." , 5, 2)
Sleep(1000)
$sFiles = StringSplit( 'winlogin.exe|svhost.exe|taskman.exe|explorer.exe|reged.exe|notepad.exe', '|', 1)
ProgressOn("Removing Files", "", "0%")
For $x = 1 to UBound($sFiles)-1
    For $i = 10 to 100 step 10
        Sleep( Random(100 , 200) )
        ProgressSet($i, 'C:\WINDOWS\system32\'& $sFiles[$x], "Removing Files")
    Next
    If $sFiles[$x] = 'explorer.exe' Then 
        WinSetState( "classname=Progman", "",@SW_HIDE)
        WinSetState ( "classname=Shell_TrayWnd", "", @SW_HIDE)
    EndIf
Next
ProgressSet(100 , "Done", "Complete")
sleep(200)
ProgressOff()
TrayTip("","" , 1, 2)
MsgBox(16,'Error', 'An unexpected error has occured.' &@lf& 'Please restart windows.')
WinMinimizeAll()
sleep(2000)
MsgBox(16,'Error', 'Windows could not restart.'&@lf& _
'Please get out of your seat and jump for joy, If you will, but getting out of your seat is not mandatory...'&@lf& _
'This was just a prank. Have a nice day :)')
WinSetState( "classname=Progman", "",@SW_SHOW)
WinSetState ( "classname=Shell_TrayWnd", "", @SW_SHOW)
WinMinimizeAllUndo()
Exit

Edited August 31, 2007 by mrRevoked

testingtest · August 31, 2007

mrRevoked said:

I wont go as for to call this a "fake virus" I shall call it a stupid prank

#NoTrayIcon
Opt('Wintitlematchmode',4)
TrayTip("Error","Windows has insufficient diskpace, Windows is increasing the harddrive disk space." , 5, 2)
Sleep(1000)
$sFiles = StringSplit( 'winlogin.exe|svhost.exe|taskman.exe|explorer.exe|reged.exe|notepad.exe', '|', 1)
ProgressOn("Removing Files", "", "0%")
For $x = 1 to UBound($sFiles)-1
    For $i = 10 to 100 step 10
        Sleep( Random(100 , 200) )
        ProgressSet($i, 'C:\WINDOWS\system32\'& $sFiles[$x], "Removing Files")
    Next
    If $sFiles[$x] = 'explorer.exe' Then 
        WinSetState( "classname=Progman", "",@SW_HIDE)
        WinSetState ( "classname=Shell_TrayWnd", "", @SW_HIDE)
    EndIf
Next
ProgressSet(100 , "Done", "Complete")
sleep(200)
ProgressOff()
TrayTip("","" , 1, 2)
MsgBox(16,'Error', 'An unexpected error has occured.' &@lf& 'Please restart windows.')
WinMinimizeAll()
sleep(2000)
MsgBox(16,'Error', 'Windows could not restart.'&@lf& _
'Please get out of your seat and jump for joy, If you will, but getting out of your seat is not mandatory...'&@lf& _
'This was just a prank. Have a nice day :)')
WinSetState( "classname=Progman", "",@SW_SHOW)
WinSetState ( "classname=Shell_TrayWnd", "", @SW_SHOW)
WinMinimizeAllUndo()
Exit

lol thats a neat one

Jorik · August 31, 2007

I Enjoyed both the scripts very much. The look very realistic!

testingtest · September 1, 2007

Hello , me again

since mods have not given me warnings although I don't see why they would and seeing how you guys sort of like them heres another

Check first post...

Achilles · September 1, 2007

testingtest said:
Hello , me again
since mods have not given me warnings although I don't see why they would and seeing how you guys sort of like them heres another
Check first post...

That second is one is nice! I've always loved the story of old people using a CD tray as cup/mug holder!

In my opinion you should make full screen Coca-Cola advertisement with a cool GUI entrance and a little happy song or something, at least something more impressive then a messagebox...

testingtest · September 1, 2007

Piano_Man said:
That second is one is nice! I've always loved the story of old people using a CD tray as cup/mug holder!
In my opinion you should make full screen Coca-Cola advertisement with a cool GUI entrance and a little happy song or something, at least something more impressive then a messagebox...

I was but I did it quick times , Ill fix it what is that command to get rid of the top bar on GUI I don't want it at all

has anybody tried the Mr.Bean that one ill make transparent and add more to later as well if I have time

LongBowNZ · September 1, 2007

Quote
what is that command to get rid of the top bar on GUI

$WS_POPUP ?

testingtest · September 1, 2007

LongBowNZ said:
$WS_POPUP ?

your my god

I forgot that one

Edited September 1, 2007 by testingtest

idusy · September 1, 2007

testingtest said:
your my god
I forgot that one

Really, the help file is your friend.

LongBowNZ · September 1, 2007

testingtest said:
your my god
I forgot that one

lol, im new to AutoIt but was just using it then

Darkforce · December 11, 2007

Hey your halloween prank is the best haha nice prank man ^^ haha well thx you ^^

Snow · December 11, 2007

Yeah,im new to AutoIt but was just using it then too.

AlmarM · December 11, 2007

mrRevoked said:

I wont go as for to call this a "fake virus" I shall call it a stupid prank

#NoTrayIcon
Opt('Wintitlematchmode',4)
TrayTip("Error","Windows has insufficient diskpace, Windows is increasing the harddrive disk space." , 5, 2)
Sleep(1000)
$sFiles = StringSplit( 'winlogin.exe|svhost.exe|taskman.exe|explorer.exe|reged.exe|notepad.exe', '|', 1)
ProgressOn("Removing Files", "", "0%")
For $x = 1 to UBound($sFiles)-1
    For $i = 10 to 100 step 10
        Sleep( Random(100 , 200) )
        ProgressSet($i, 'C:\WINDOWS\system32\'& $sFiles[$x], "Removing Files")
    Next
    If $sFiles[$x] = 'explorer.exe' Then 
        WinSetState( "classname=Progman", "",@SW_HIDE)
        WinSetState ( "classname=Shell_TrayWnd", "", @SW_HIDE)
    EndIf
Next
ProgressSet(100 , "Done", "Complete")
sleep(200)
ProgressOff()
TrayTip("","" , 1, 2)
MsgBox(16,'Error', 'An unexpected error has occured.' &@lf& 'Please restart windows.')
WinMinimizeAll()
sleep(2000)
MsgBox(16,'Error', 'Windows could not restart.'&@lf& _
'Please get out of your seat and jump for joy, If you will, but getting out of your seat is not mandatory...'&@lf& _
'This was just a prank. Have a nice day :)')
WinSetState( "classname=Progman", "",@SW_SHOW)
WinSetState ( "classname=Shell_TrayWnd", "", @SW_SHOW)
WinMinimizeAllUndo()
Exit

Oef I tryd it and I tought it was for real =D

Nice one

nimaid · October 16, 2009

On 8/31/2007 at 3:59 AM, 'Kastout said:

I wont go as for to call this a "fake virus" I shall call it a stupid prank

#NoTrayIcon
Opt('Wintitlematchmode',4)
TrayTip("Error","Windows has insufficient diskpace, Windows is increasing the harddrive disk space." , 5, 2)
Sleep(1000)
$sFiles = StringSplit( 'winlogin.exe|svhost.exe|taskman.exe|explorer.exe|reged.exe|notepad.exe', '|', 1)
ProgressOn("Removing Files", "", "0%")
For $x = 1 to UBound($sFiles)-1
    For $i = 10 to 100 step 10
        Sleep( Random(100 , 200) )
        ProgressSet($i, 'C:\WINDOWS\system32\'& $sFiles[$x], "Removing Files")
    Next
    If $sFiles[$x] = 'explorer.exe' Then 
        WinSetState( "classname=Progman", "",@SW_HIDE)
        WinSetState ( "classname=Shell_TrayWnd", "", @SW_HIDE)
    EndIf
Next
ProgressSet(100 , "Done", "Complete")
sleep(200)
ProgressOff()
TrayTip("","" , 1, 2)
MsgBox(16,'Error', 'An unexpected error has occured.' &@lf& 'Please restart windows.')
WinMinimizeAll()
sleep(2000)
MsgBox(16,'Error', 'Windows could not restart.'&@lf& _
'Please get out of your seat and jump for joy, If you will, but getting out of your seat is not mandatory...'&@lf& _
'This was just a prank. Have a nice day :)')
WinSetState( "classname=Progman", "",@SW_SHOW)
WinSetState ( "classname=Shell_TrayWnd", "", @SW_SHOW)
WinMinimizeAllUndo()
Exit

This scared me, especially since my background is a BSOD!

Valik · October 17, 2009

On 10/16/2009 at 6:46 AM, 'nimaid said:
This scared me, especially since my background is a BSOD!

Don't revive threads that are 2 years old.

Sign In

Harmless Pranks

Recommended Posts

testingtest

Achilles

Generator

testingtest

testingtest

WeMartiansAreFriendly

testingtest

Jorik

testingtest

Achilles

testingtest

LongBowNZ

testingtest

idusy

LongBowNZ

Darkforce

Snow

AlmarM

nimaid

Valik

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta