Sign in to follow this  
Followers 0
z0mgItsJohn

April Fools Joke

11 posts in this topic

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

Share this post


Link to post
Share on other sites



Lol very funny.. I like it but my friends don't they started yelling at me! lol


code

Share this post


Link to post
Share on other sites

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 *

Share this post


Link to post
Share on other sites

April Fools Joke??

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

no. its no april

APRIL FOOLS!

Share this post


Link to post
Share on other sites

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 *

Share this post


Link to post
Share on other sites

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

no wait.

tab down further on the page. to where that post ended.

there was more informations. vital informations you have missed.

YOU MUST READ IT>

Share this post


Link to post
Share on other sites

I would seriously consider an Adlibenable that goes with the following function:

Func _CheckTaskMgr()
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
EndFunc

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

Share this post


Link to post
Share on other sites

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!"

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  
Followers 0