z0mgItsJohn Posted April 1, 2008 Share Posted April 1, 2008 Kinda In A Rush So Here Ya Go.. Please Feel Free To Post Comments.. Etc.. Source : expandcollapse popup#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 More sharing options...
DexterMorgan Posted April 2, 2008 Share Posted April 2, 2008 Lol very funny.. I like it but my friends don't they started yelling at me! lol code Link to comment Share on other sites More sharing options...
/dev/null Posted April 2, 2008 Share Posted April 2, 2008 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 More sharing options...
Tomb Posted April 2, 2008 Share Posted April 2, 2008 April Fools Joke??Jesus, is it April again??? I haven't left my house for quite a while now.....no. its no aprilAPRIL FOOLS! Link to comment Share on other sites More sharing options...
/dev/null Posted April 2, 2008 Share Posted April 2, 2008 no. its no aprilO.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 More sharing options...
Tomb Posted April 2, 2008 Share Posted April 2, 2008 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> Link to comment Share on other sites More sharing options...
Achilles Posted April 2, 2008 Share Posted April 2, 2008 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] Link to comment Share on other sites More sharing options...
GEOSoft Posted April 2, 2008 Share Posted April 2, 2008 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 More sharing options...
mads3n Posted April 2, 2008 Share Posted April 2, 2008 Oh april fools jokes i love those.. I also made a quick one this year, did it in a hurry ^^ expandcollapse popup; 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 More sharing options...
z0mgItsJohn Posted April 2, 2008 Author Share Posted April 2, 2008 i'm gonna make it better now :] Latest Projects :- New & Improved TCP Chat Link to comment Share on other sites More sharing options...
Developers Jos Posted April 2, 2008 Developers Share Posted April 2, 2008 me too. *click* 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