Sign in to follow this  
Followers 0
testingtest

Harmless Pranks

20 posts in this topic

#1 ·  Posted (edited)

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

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

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

Don't bother, It's inside your monitor!------GUISetOnEvent should behave more like HotKeySet()

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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


My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list]

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

$WS_POPUP ?

Share this post


Link to post
Share on other sites

#13 ·  Posted (edited)

$WS_POPUP ?

your my god

I forgot that one

Edited by testingtest

Share this post


Link to post
Share on other sites

your my god

I forgot that one

Really, the help file is your friend.

Share this post


Link to post
Share on other sites

your my god

I forgot that one

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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 ^_^


Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post


Link to post
Share on other sites

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!


This statement is a lie.˙uʍop-ǝpısdn sı ǝuo sıɥʇ ʇnq 'ǝıl ɐ ǝq ʎɐɯ ʇuǝɯǝʇɐʇs snoıʌǝɹd ǝɥʇ¡6u15nɟu0) ʎ||43ɹ 51 51ɥ7

Share this post


Link to post
Share on other sites

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

Don't revive threads that are 2 years old.

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  
Followers 0