Jump to content

Harmless Pranks


testingtest
 Share

Recommended Posts

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
Link to comment
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

Link to comment
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
Edited by mrRevoked
Don't bother, It's inside your monitor!------GUISetOnEvent should behave more like HotKeySet()
Link to comment
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
Link to comment
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]
Link to comment
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

Link to comment
Share on other sites

  • 3 months later...

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.

Link to comment
Share on other sites

  • 1 year later...

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

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...