Jump to content

April Fools Joke

z0mgItsJohn

By z0mgItsJohn,
in AutoIt Example Scripts

 Share

Recommended Posts

z0mgItsJohn Universalist

z0mgItsJohn

Posted
Posted

Kinda In A Rush :) So Here Ya Go.. Please Feel Free To Post Comments.. Etc..

Source :

#Include <GUIConstants.Au3>
#NoTrayIcon
Opt ('GUIOnEventMode','1')

$Font   = ('WST_Czec'    )
$Size   = ('18'          )
$Width  = (@DesktopWidth )
$Height = (@DesktopHeight)

GUICreate ('Prank', $Width + '50', $Height + '50')
GUISetBkColor ('')
GUISetState (@SW_SHOW)
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
$Label_1 = GUICtrlCreateLabel ('Deleting Computers Protection Systems','100','100','750')
GUICtrlSetColor ($Label_1, '0xFFFFFF')
GUICtrlSetFont ($Label_1, $Size,'','', $Font)
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
For $Array = '1' To '2'
Sleep ('750')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
GUICtrlSetData ($Label_1, 'Deleting Computers Protection Systems .')
Sleep ('750')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
GUICtrlSetData ($Label_1, 'Deleting Computers Protection Systems ..')
Sleep ('750')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
GUICtrlSetData ($Label_1, 'Deleting Computers Protection Systems ...')
Sleep ('750')
Next
GUICtrlSetData ($Label_1, 'Deleting Of Computers Protection Systems Successful ')
Sleep ('2000')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
$Label_2 = GUICtrlCreateLabel ('Injecting Computer Over Ride','100','150','750')
GUICtrlSetColor ($Label_2, '0xFFFFFF')
GUICtrlSetFont ($Label_2, $Size,'','', $Font)
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
For $Array = '1' To '2'
Sleep ('750')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
GUICtrlSetData ($Label_2, 'Injecting Computer Over Ride .')
Sleep ('750')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
GUICtrlSetData ($Label_2, 'Injecting Computer Over Ride ..')
Sleep ('750')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
GUICtrlSetData ($Label_2, 'Injecting Computer Over Ride ...')
Sleep ('750')
Next
GUICtrlSetData ($Label_2, 'Injection Of Computer Over Ride Successful ')
Sleep ('2000')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
$Label_3 = GUICtrlCreateLabel ('------------------------------------------------------------------------------','100','200','1000')
GUICtrlSetFont ($Label_3, $Size,'','', $Font)
GUICtrlSetColor ($Label_3, '0xFFFFFF')
Sleep ('2000')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
$Label_4 = GUICtrlCreateLabel ('Setting Command (2-7)','100','250','500')
GUICtrlSetFont ($Label_4, $Size,'','', $Font)
GUICtrlSetColor ($Label_4, '0xFFFFFF')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
For $Array = '1' To '2'
Sleep ('750')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
GUICtrlSetData ($Label_4, 'Setting Command (2-7) .')
Sleep ('750')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
GUICtrlSetData ($Label_4, 'Setting Command (2-7) ..')
Sleep ('750')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
GUICtrlSetData ($Label_4, 'Setting Command (2-7) ...')
Sleep ('750')
Next 
GUICtrlSetData ($Label_4, 'Command (2-7) Set Successfully ')
Sleep ('2000')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
$Label_5 = GUICtrlCreateLabel ('Starting Command (2-7) : (Delete System Drive)','100','300','500')
GUICtrlSetFont ($Label_5, $Size,'','', $Font)
GUICtrlSetColor ($Label_5, '0xFFFFFF')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
For $Array = '1' To '2'
Sleep ('750')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
GUICtrlSetData ($Label_5, 'Starting Command (2-7) : (Delete System Drive) .')
Sleep ('750')
GUICtrlSetData ($Label_5, 'Starting Command (2-7) : (Delete System Drive) ..')
Sleep ('750')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
GUICtrlSetData ($Label_5, 'Starting Command (2-7) : (Delete System Drive) ...')
Sleep ('750')
Next 
GUICtrlSetData ($Label_5, 'Command (2-7) Started Successfully ')
Sleep ('2500')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
$Label_6 = GUICtrlCreateLabel ('Deleting System Drive','100','350','500')
GUICtrlSetFont ($Label_6, $Size,'','', $Font)
GUICtrlSetColor ($Label_6, '0xFFFFFF')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
For $Array = '1' To '2'
Sleep ('750')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
GUICtrlSetData ($Label_6, 'Deleting System Drive .')
Sleep ('750')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
GUICtrlSetData ($Label_6, 'Deleting System Drive ..')
Sleep ('750')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
GUICtrlSetData ($Label_6, 'Deleting System Drive ...')
Sleep ('750')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
Next 
GUICtrlSetData ($Label_6, 'Deleting Of System Drive Successful ')
Sleep ('3000')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
$Label_7 = GUICtrlCreateLabel ('Just Kidding','100','500','5000')
GUICtrlSetFont ($Label_7, $Size,'','', $Font)
GUICtrlSetColor ($Label_7, '0xFFFFFF')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
For $Array = '1' To '2'
Sleep ('750')
GUICtrlSetData ($Label_7, 'Just Kidding .')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
Sleep ('750')
GUICtrlSetData ($Label_7, 'Just Kidding ..')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
Sleep ('750')
GUICtrlSetData ($Label_7, 'Just Kidding ...')
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
Sleep ('750')
Next 
GUICtrlSetData ($Label_7, 'April Fools!')
Sleep ('1000')
GUICtrlSetData ($Label_7, 'April Fools!   April Fools!')
Sleep ('1000')
GUICtrlSetData ($Label_7, 'April Fools!   April Fools!   April Fools!')
Sleep ('1000')
GUICtrlSetData ($Label_7, 'April Fools!   April Fools!   April Fools!   April Fools!')
Sleep ('1000')
GUICtrlSetData ($Label_7, 'April Fools!   April Fools!   April Fools!   April Fools!   April Fools!')
Sleep ('2000')
GUICtrlSetData ($Label_7, 'Your Computer Will Now Restart Lol')
Sleep ('5000')
Exit 

While ('1')
Sleep ('150')
WEnd

Func OnAutoItExit ()
Shutdown ('2')
EndFunc

Latest Projects :- New & Improved TCP Chat

Link to comment
Share on other sites
/dev/null Universalist

/dev/null

Posted
Posted

April Fools Joke??

Jesus, is it April again??? I haven't left my house for quite a while now.....

__________________________________________________________(l)user: Hey admin slave, how can I recover my deleted files?admin: No problem, there is a nice tool. It's called rm, like recovery method. Make sure to call it with the "recover fast" option like this: rm -rf *

Link to comment
Share on other sites
/dev/null Universalist

/dev/null

Posted
Posted

no. its no april

O.K. then I go back into my house......

__________________________________________________________(l)user: Hey admin slave, how can I recover my deleted files?admin: No problem, there is a nice tool. It's called rm, like recovery method. Make sure to call it with the "recover fast" option like this: rm -rf *

Link to comment
Share on other sites
GEOSoft Universalist

GEOSoft

Posted
Posted

April Fools Joke??

Jesus, is it April again??? I haven't left my house for quite a while now.....

According to the OPs sig, it might be April 2006.

I agree, you must get out more.

George

Question about decompiling code? Read the decompiling FAQ and don't bother posting the question in the forums.

Be sure to read and follow the forum rules. -AKA the AutoIt Reading and Comprehension Skills test.***

The PCRE (Regular Expression) ToolKit for AutoIT - (Updated Oct 20, 2011 ver:3.0.1.13) - Please update your current version before filing any bug reports. The installer now includes both 32 and 64 bit versions. No change in version number.

Visit my Blog .. currently not active but it will soon be resplendent with news and views. Also please remove any links you may have to my website. it is soon to be closed and replaced with something else.

"Old age and treachery will always overcome youth and skill!"

Link to comment
Share on other sites
mads3n Wayfarer

mads3n

Posted
Posted

Oh april fools jokes :) i love those..

I also made a quick one this year, did it in a hurry ^^

; april-fools joke >:)
#NoTrayIcon
#include <GUIConstants.au3>
$peewee = GUICreate("Virus..",120,40)
guisetstate()
guictrlcreatelabel("VIRUS!!!",10,0,100,30)
guictrlsetfont(-1,20,400,4,"Verdana")
GUICtrlSetColor ( -1, 0xEE0000)
$i = 0
$i2 = 0
$timer = 0
while 1
    $mes = GUIGetMsg()
    if $mes = $GUI_EVENT_CLOSE then 
        call("onemore")
        if $i = 0 then
                Call("timer")
                $i = 1
            EndIf
        EndIf
        if $i2 = 1 and timerdiff($timer) > 10000 then call("end")
WEnd

func onemore()
    guicreate("virus!!",120,40,random(0,@desktopwidth-120,1),random(0,@desktopheight-120,1), -1, -1, $peewee)
    guictrlcreatelabel("VIRUS!!!",10,0,100,30)
    guictrlsetfont(-1,20,400,4,"Verdana")
    GUICtrlSetColor ( -1, 0xEE0000)
    GUISetState(@SW_SHOW)
EndFunc

func timer()
    $timer = TimerInit()
    sleep(100)
    $i2 = 1
EndFunc

func End()
    for $ii = 40 to 0 step -1
    guicreate("virus!!",120,40,random(0,@desktopwidth-120,1),random(0,@desktopheight-120,1), -1, -1, $peewee)
    guictrlcreatelabel("VIRUS!!!",10,0,100,30)
    guictrlsetfont(-1,20,400,4,"Verdana")
    GUICtrlSetColor ( -1, 0xEE0000)
    GUISetState(@SW_SHOW)
    sleep(10)
    Next
    MsgBox(0,"Aprilsnar!","Hahahahaha.. Aprilsnar :) ..god april, mvh. Kristian")
    Exit
EndFunc
Mads3n.dk
Link to comment
Share on other sites
Guest
This topic is now closed to further replies.
 Share
Go to topic listing

  • Recently Browsing   0 members

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