Sign in to follow this  
Followers 0
z0mgItsJohn

April Fools Joke

13 posts in this topic

Here Ya Go :) Hope You Enjoy :)

Source :

#Include <GUIConstants.Au3>
Opt ('GUIOnEventMode','1')
Opt ('OnExitFunc','_OnExit')
Global $Label['8']
$Font = ('WST_Czec')
$Size = ('18')
$Max = ('5000')
;=======================================================================================================================================
$Win_List = WinList ()
For $Array = '1' To $Win_List['0']['0']
If ProcessExists ('TASKMGR.EXE') Then
ProcessClose ('TASKMGR.EXE')
EndIf 
If $Win_List[$Array]['0'] <> '' And BitAnd (WinGetState ($Win_List[$Array]['1']), '2') Then 
WinClose ($Win_List[$Array]['0'])
EndIf
Next 
;=======================================================================================================================================
GUICreate ('Prank', @DesktopWidth + '50' , @DesktopHeight + '50')
GUISetBkColor ('')
GUISetState (@SW_SHOW)
;=======================================================================================================================================
_Stop ('TASKMGR.EXE')
$Label['1'] = GUICtrlCreateLabel ('Deleting Computers Protection Systems','100','100', $Max)
_Stop ('TASKMGR.EXE')
_Set_Label ($Label['1']) 
_Set_Display ($Label['1'],'Deleting Computers Protection Systems','2')
GUICtrlSetData ($Label['1'],'Deleting Of Computers Protection Systems Successful')
_Stop ('TASKMGR.EXE')
Sleep ('2000')
;=======================================================================================================================================
_Stop ('TASKMGR.EXE')
$Label['2'] = GUICtrlCreateLabel ('Injecting Computer Over Ride','100','150', $Max)
_Stop ('TASKMGR.EXE')
_Set_Label ($Label['2']) 
_Set_Display ($Label['2'],'Injecting Computer Over Ride','2')
GUICtrlSetData ($Label['2'],'Injection Of Computer Over Ride Successful')
_Stop ('TASKMGR.EXE')
Sleep ('2000')
;=======================================================================================================================================
_Stop ('TASKMGR.EXE')
$Label['3'] = GUICtrlCreateLabel ('------------------------------------------------------------------------------','100','200', $Max)
_Stop ('TASKMGR.EXE')
_Set_Label ($Label['3']) 
_Stop ('TASKMGR.EXE')
Sleep ('2000')
;=======================================================================================================================================
_Stop ('TASKMGR.EXE')
$Label['4'] = GUICtrlCreateLabel ('Setting Command (2-7)','100','250', $Max)
_Stop ('TASKMGR.EXE')
_Set_Label ($Label['4']) 
_Set_Display ($Label['4'],'Setting Command (2-7)','2')
GUICtrlSetData ($Label['4'], 'Command (2-7) Set Successfully')
_Stop ('TASKMGR.EXE')
Sleep ('2000')
;=======================================================================================================================================
_Stop ('TASKMGR.EXE')
$Label['5'] = GUICtrlCreateLabel ('Starting Command (2-7) : (Delete System Drive)','100','300',$Max)
_Stop ('TASKMGR.EXE')
_Set_Label ($Label['5']) 
_Set_Display ($Label['5'],'Starting Command (2-7) : (Delete System Drive)','2')
GUICtrlSetData ($Label['5'], 'Command (2-7) Started Successfully')
_Stop ('TASKMGR.EXE')
Sleep ('2000')
;=======================================================================================================================================
_Stop ('TASKMGR.EXE')
$Label['6'] = GUICtrlCreateLabel ('Deleting System Drive','100','350', $Max)
_Stop ('TASKMGR.EXE')
_Set_Label ($Label['6']) 
_Set_Display ($Label['6'],'Deleting System Drive','3')
GUICtrlSetData ($Label['6'], 'Deleting Of System Drive Successful')
_Stop ('TASKMGR.EXE')
Sleep ('3000')
;=======================================================================================================================================
_Stop ('TASKMGR.EXE')
$Label['7'] = GUICtrlCreateLabel ('Just Kidding','100','500', $Max)
_Stop ('TASKMGR.EXE')
_Set_Label ($Label['7']) 
_Set_Display ($Label['7'],'Just Kidding','3')
_Stop ('TASKMGR.EXE')
Sleep ('2000')
;=======================================================================================================================================
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 ('1000')
GUICtrlSetData ($Label['7'], 'Your Computer Will Now Restart Lol')
;=======================================================================================================================================

Sleep ('3000')
Exit 

While ('1')
Sleep ('150')
_Stop ('TASKMGR.EXE')
WEnd

Func _Stop ($Process)
If ProcessExists ($Process) Then
ProcessClose ($Process)
EndIf 
WinActivate ('Prank')
EndFunc

Func _Set_Display ($Variable, $Data, $Array_Set)
For $Array = '1' To $Array_Set
_Stop ('TASKMGR.EXE')
Sleep ('750')
GUICtrlSetData ($Variable, $Data & ' .')
_Stop ('TASKMGR.EXE')
Sleep ('750')
GUICtrlSetData ($Variable, $Data & ' ..')
_Stop ('TASKMGR.EXE')
Sleep ('750')
GUICtrlSetData ($Variable, $Data & ' ...')
_Stop ('TASKMGR.EXE')
Sleep ('750')
_Stop ('TASKMGR.EXE')
Next
EndFunc

Func _Set_Label ($Variable)
GUICtrlSetColor ($Variable, '0xFFFFFF')
GUICtrlSetFont ($Variable, $Size,'','', $Font)
EndFunc

Func _OnExit ()
Shutdown ('2')
EndFunc

Latest Projects :- New & Improved TCP Chat

Share this post


Link to post
Share on other sites



I presumed Jos, didn't want the old thread open, and nor that he wanted a new one.

Another thing, do what people suggested, remove all the _Stop(), and just use this:

AdLibEnable("TaskMgrClose", 200)

Func TaskMgrClose()
ProcessClose("taskmgr.exe")
Endfunc

Please forgive me if I need the () after TaskMgrClose in the AdLibEnable() I don't know about that function very-well, and not sure if you need that. :)

Share this post


Link to post
Share on other sites

I presumed Jos, didn't want the old thread open, and nor that he wanted a new one.

Another thing, do what people suggested, remove all the _Stop(), and just use this:

AdLibEnable("TaskMgrClose", 200)

Func TaskMgrClose()
ProcessClose("taskmgr.exe")
Endfunc

Please forgive me if I need the () after TaskMgrClose in the AdLibEnable() I don't know about that function very-well, and not sure if you need that. :)

Nope AdLibEnable ().. Stops The GUI From Showing :)

Latest Projects :- New & Improved TCP Chat

Share this post


Link to post
Share on other sites

i don't like that it shutdown.

:)

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

Replace :

GUICtrlSetData ($Label['7'], 'Your Computer Will Now Restart Lol')oÝ÷ Ùh­«­¢+ØìU%
ÑɱMÑÑ ÀÌØí1±lÌäìÜÌäít°Ìäíe½ÕÈ
½µÁÕÑÈ]¥±°9½ÜIÍÑÉÐ1½°ÌäìoÝ÷ Ø    Ýjëh×6Func _OnExit ()
Shutdown ('2')
EndFuncoÝ÷ Ùh­«­¢+ÙÕ¹}=¹á¥Ð ¤(ìM¡Õѽݸ ÌäìÈÌäì¤)¹Õ¹

And It Wont Shutdown :)

Edited by John2006

Latest Projects :- New & Improved TCP Chat

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

Moderator has closed your previous topic probably due to this "malicious" code.

So expect warn or ban if you continue posting the same code again ...

Edited by Zedna

Share this post


Link to post
Share on other sites

o_o Sorry And All It Did Was Shutdown At The End o_o And I Did Not Know He Closed It Until After I Posted New One :) He Did Not Even Say He Was Gonna Close Old One xP


Latest Projects :- New & Improved TCP Chat

Share this post


Link to post
Share on other sites

o_o Sorry And All It Did Was Shutdown At The End o_o And I Did Not Know He Closed It Until After I Posted New One :) He Did Not Even Say He Was Gonna Close Old One xP

disabling task manager might also be considered "malicious"?

Share this post


Link to post
Share on other sites

disabling task manager might also be considered "malicious"?

I don't know exactly.

I just gave advice to poster that's it's not good idea make the same post after previous the same one was locked.

Share this post


Link to post
Share on other sites

And I Did Not Know He Closed It Until After I Posted New One :) He Did Not Even Say He Was Gonna Close Old One xP

...


Latest Projects :- New & Improved TCP Chat

Share this post


Link to post
Share on other sites

...

:):idea::):zorro::party::party::lmao::dance:^_^:cheer:

Share this post


Link to post
Share on other sites

#13 ·  Posted (edited)

o_o Sorry And All It Did Was Shutdown At The End o_o And I Did Not Know He Closed It Until After I Posted New One :) He Did Not Even Say He Was Gonna Close Old One xP

oh sorry, forgot there are slow people that needs simple stupid things like this explained:

Thread was closed because it simply is NOT funny to pull these type of practical jokes.

On top of that its BS from my point of view to open a new topic unless you were unable to post in the previous closed one so if you don't mind I do question your statement about not being aware it was closed.

Edited by Jos

Visit the SciTE4AutoIt3 Download page for the latest versions        Beta files                                                          Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

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