Jump to content

April Fools Joke

z0mgItsJohn

By z0mgItsJohn,
in AutoIt Example Scripts

 Share

Recommended Posts

z0mgItsJohn Universalist

z0mgItsJohn

Posted
Posted

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

Link to comment
Share on other sites
Swift Universalist

Swift

Posted
Posted

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

Link to comment
Share on other sites
z0mgItsJohn Universalist

z0mgItsJohn

Posted
  • Author
Posted

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

Link to comment
Share on other sites
z0mgItsJohn Universalist

z0mgItsJohn

Posted
  • Author
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

Link to comment
Share on other sites
Tomb Universalist

Tomb

Posted
Posted

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"?
Link to comment
Share on other sites
  • Developers
Jos Universalist

Jos

Posted
  • Developers
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

SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource   Forum etiquette  Forum Rules 
 
Live for the present,
Dream of the future,
Learn from the past.  :)

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