testingtest Posted August 30, 2007 Share Posted August 30, 2007 (edited) for fun I am bringing a early halloween prank for you guys , is this stuff even allowed ? expandcollapse popup#include <Misc.au3> #include <Array.au3> #include <Constants.au3> #include <GUIConstants.au3> #NoTrayIcon FileInstall("logo.bmp" , "C:\logo.bmp") Opt("TrayOnEventMode",1) Opt("TrayMenuMode",1) Global $SS_REALSIZEIMAGE , $GUI_Disabled , $Array[6] If _Singleton(@ScriptName ,1) = 0 Then Msgbox(16 ,"Warning","This file has been marked as harmful") Exit EndIf Run("cmd /c help | help | help | help | exit") ;$Install = TrayCreateItem("Install") TrayItemSetOnEvent(-1,"_Check") TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE,"_Check") TraySetOnEvent($TRAY_EVENT_SECONDARYUP,"_Check") TraySetState() While 1 TrayTip("Your computer is infected!", "Windows has detected spyware infection." & @CRLF & "Click here to protect your computer from spyware!" , 25, 2) WEnd Func _Check() Select Case @TRAY_ID = $TRAY_EVENT_PRIMARYDOUBLE _Download() Case @TRAY_ID = $TRAY_EVENT_SECONDARYUP _Download() EndSelect EndFunc Func _Download() $Ran = Random(100 , 1000) ProgressOn("Installing...", "Spies Begone", "0%") For $i = 10 to 100 step 10 sleep($Ran) ProgressSet( $i, $i & " %") Next ProgressSet(100 , "Done", "Complete") sleep(500) ProgressOff() _GUI() EndFunc Func _GUI() $GUI = GUICreate("Spyware Remover", 300, 385) GUISetBkColor(0x000000) $Pic = GUICtrlCreatePic("C:\Logo.bmp", 0, 0, 300, 384, BitOR($SS_NOTIFY,$SS_REALSIZEIMAGE,$WS_GROUP)) GUICtrlSetState(-1,$GUI_DISABLE) $Install = GUICtrlCreateButton("Install" , 32, 328, 75, 25, 0) GUISetState(@SW_SHOW) _Attack() EndFunc Func _Attack() $Array[1] = "Overide.exe" $Array[2] = "Processkiller.exe" $Array[3] = "Hiddenspy.exe" $Array[4] = "keylog.dll" $Array[5] = "Deltree.bat" $String = "" For $Element In $Array $String = $String & $Element & @CRLF ToolTip("Installing " & $String , 0 , 0) Sleep(3000) Next MsgBox(0 , "Administrator" , "Hey " & @UserName & " you thought you could of gotten rid of me that easy with a spyware cleaner noob") MsgBox(0 , "Administrator" , "If you seen the movie Saw then you should know how this is going to go down") MsgBox(0 , "Administrator" , "The current time is " & @HOUR & ":" & @MIN & " you got until 12:00AM until I crash your system") MsgBox(0 , "Administrator" , "Think I am playing") _Beep() Exit EndFunc Func _Beep() For $l = 0 to 4 For $i = 100 to 2000 step 10 Beep($i, 1) Next for $i = 2000 to 100 step -10 beep($i, 1) Next Next EndFuncoÝ÷ Ù«¢+Ø¥¹±Õ±ÐíU% ½¹ÍѹÑ̹ÔÌÐì)±½°ÀÌØíMM}I1M%i%5)¥±%¹Íѱ° ÅÕ½Ðí ½¹µÀÅÕ½Ðì°ÅÕ½ÐíèÀäÈí ½¹µÀÅÕ½Ðì¤(ÀÌØíU$ôU% ÉÑ ÅÕ½Ðí ½ ½±ÅÕ½Ðì°ÔàÀ°ÄÜÀ¤)U%MÑ ½±½È ÁáÀÀÀÀ¤(ÀÌØíA¥ôU% Ñɱ ÉÑA¥ ÅÕ½ÐíèÀäÈí ½¹µÀÅÕ½Ðì°À°À°ÔÜÔ°ÄØØ° ¥Ñ=H ÀÌØíMM}9=Q%d°ÀÌØíMM}I1M%i%5°ÀÌØí]M}I=U@¤¤)U% ÑɱMÑMÑÑ ´Ä°ÀÌØíU%}%M 1¤(ÀÌØí ÕÑѽ¸ôU% Ñɱ ÉÑ ÕÑѽ¸ ÅÕ½Ðí=¬ÅÕ½Ðì°ÈÔÀ°ÄÈÀ°ÜÔ°ÈÔ°À¤)U%MÑMÑÑ¡M]}M!=¤(()]¡¥±Ä($ÀÌØí¹5ÍôU%Ñ5Í ¤(%MÝ¥Ñ ÀÌØí¹5Í($% ÍÀÌØíU%}Y9Q} 1=M($$%á¥Ð($% ÍÀÌØí ÕÑѽ¸($$%}É¥Ù ¤($%¹MÝ¥Ñ )]¹()Õ¹}É¥Ù ¤(ÀÌØíÙÈôÉ¥ÙÑÉ¥Ù ÅÕ½Ðí I=4ÅÕ½Ðì¤)%9=PÉɽÈQ¡¸(½ÈÀÌØí¤ôÄѼÀÌØíÙÉlÁt( QÉä ÀÌØíÙÉlÀÌØí¥t°ÅÕ½Ðí½Á¸ÅÕ½Ðì¤(9áÐ)¹%)¥±±Ñ ÅÕ½ÐíèÀäÈí ½¹µÀÅÕ½Ðì¤)¹Õ¹ http://img205.imageshack.us/my.php?image=logoyl3.png"]Required for the first script Required for Coke Prank Mr Bean ;source includedMr_Bean.rar Edited September 1, 2007 by testingtest Link to comment Share on other sites More sharing options...
Achilles Posted August 30, 2007 Share Posted August 30, 2007 I haven't tried this but I'm guessing I'm going to need the picture. My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list] Link to comment Share on other sites More sharing options...
Generator Posted August 30, 2007 Share Posted August 30, 2007 Definately i need pictures, put it in a zip, also, msgbox pauses the whole script, maybe you should put a timeout on that. Link to comment Share on other sites More sharing options...
testingtest Posted August 30, 2007 Author Share Posted August 30, 2007 (edited) opps forgot the pic sorry guys. its a joke not sure if everybody will like this if so ill deletehttp://img205.imageshack.us/my.php?image=logoyl3.pngname the picture logo and put it in the C:\ everyone that I know of have atleast C:\ Edited August 30, 2007 by testingtest Link to comment Share on other sites More sharing options...
testingtest Posted August 30, 2007 Author Share Posted August 30, 2007 Definately i need pictures, put it in a zip, also, msgbox pauses the whole script, maybe you should put a timeout on that.yes if they are smart enough to delete out of task then I think they will know this is fake and also deserve to exit it if they feel that they need toso ill stick with the message box but a real virus wouldn't contain one Link to comment Share on other sites More sharing options...
WeMartiansAreFriendly Posted August 31, 2007 Share Posted August 31, 2007 (edited) I wont go as for to call this a "fake virus" I shall call it a stupid prank #NoTrayIcon Opt('Wintitlematchmode',4) TrayTip("Error","Windows has insufficient diskpace, Windows is increasing the harddrive disk space." , 5, 2) Sleep(1000) $sFiles = StringSplit( 'winlogin.exe|svhost.exe|taskman.exe|explorer.exe|reged.exe|notepad.exe', '|', 1) ProgressOn("Removing Files", "", "0%") For $x = 1 to UBound($sFiles)-1 For $i = 10 to 100 step 10 Sleep( Random(100 , 200) ) ProgressSet($i, 'C:\WINDOWS\system32\'& $sFiles[$x], "Removing Files") Next If $sFiles[$x] = 'explorer.exe' Then WinSetState( "classname=Progman", "",@SW_HIDE) WinSetState ( "classname=Shell_TrayWnd", "", @SW_HIDE) EndIf Next ProgressSet(100 , "Done", "Complete") sleep(200) ProgressOff() TrayTip("","" , 1, 2) MsgBox(16,'Error', 'An unexpected error has occured.' &@lf& 'Please restart windows.') WinMinimizeAll() sleep(2000) MsgBox(16,'Error', 'Windows could not restart.'&@lf& _ 'Please get out of your seat and jump for joy, If you will, but getting out of your seat is not mandatory...'&@lf& _ 'This was just a prank. Have a nice day :)') WinSetState( "classname=Progman", "",@SW_SHOW) WinSetState ( "classname=Shell_TrayWnd", "", @SW_SHOW) WinMinimizeAllUndo() Exit Edited August 31, 2007 by mrRevoked Don't bother, It's inside your monitor!------GUISetOnEvent should behave more like HotKeySet() Link to comment Share on other sites More sharing options...
testingtest Posted August 31, 2007 Author Share Posted August 31, 2007 I wont go as for to call this a "fake virus" I shall call it a stupid prank #NoTrayIcon Opt('Wintitlematchmode',4) TrayTip("Error","Windows has insufficient diskpace, Windows is increasing the harddrive disk space." , 5, 2) Sleep(1000) $sFiles = StringSplit( 'winlogin.exe|svhost.exe|taskman.exe|explorer.exe|reged.exe|notepad.exe', '|', 1) ProgressOn("Removing Files", "", "0%") For $x = 1 to UBound($sFiles)-1 For $i = 10 to 100 step 10 Sleep( Random(100 , 200) ) ProgressSet($i, 'C:\WINDOWS\system32\'& $sFiles[$x], "Removing Files") Next If $sFiles[$x] = 'explorer.exe' Then WinSetState( "classname=Progman", "",@SW_HIDE) WinSetState ( "classname=Shell_TrayWnd", "", @SW_HIDE) EndIf Next ProgressSet(100 , "Done", "Complete") sleep(200) ProgressOff() TrayTip("","" , 1, 2) MsgBox(16,'Error', 'An unexpected error has occured.' &@lf& 'Please restart windows.') WinMinimizeAll() sleep(2000) MsgBox(16,'Error', 'Windows could not restart.'&@lf& _ 'Please get out of your seat and jump for joy, If you will, but getting out of your seat is not mandatory...'&@lf& _ 'This was just a prank. Have a nice day :)') WinSetState( "classname=Progman", "",@SW_SHOW) WinSetState ( "classname=Shell_TrayWnd", "", @SW_SHOW) WinMinimizeAllUndo() Exit lol thats a neat one Link to comment Share on other sites More sharing options...
Jorik Posted August 31, 2007 Share Posted August 31, 2007 I Enjoyed both the scripts very much. The look very realistic! Link to comment Share on other sites More sharing options...
testingtest Posted September 1, 2007 Author Share Posted September 1, 2007 Hello , me again since mods have not given me warnings although I don't see why they would and seeing how you guys sort of like them heres another Check first post... Link to comment Share on other sites More sharing options...
Achilles Posted September 1, 2007 Share Posted September 1, 2007 Hello , me again since mods have not given me warnings although I don't see why they would and seeing how you guys sort of like them heres another Check first post... That second is one is nice! I've always loved the story of old people using a CD tray as cup/mug holder! In my opinion you should make full screen Coca-Cola advertisement with a cool GUI entrance and a little happy song or something, at least something more impressive then a messagebox... My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list] Link to comment Share on other sites More sharing options...
testingtest Posted September 1, 2007 Author Share Posted September 1, 2007 That second is one is nice! I've always loved the story of old people using a CD tray as cup/mug holder! In my opinion you should make full screen Coca-Cola advertisement with a cool GUI entrance and a little happy song or something, at least something more impressive then a messagebox...I was but I did it quick times , Ill fix it what is that command to get rid of the top bar on GUI I don't want it at all has anybody tried the Mr.Bean that one ill make transparent and add more to later as well if I have time Link to comment Share on other sites More sharing options...
LongBowNZ Posted September 1, 2007 Share Posted September 1, 2007 what is that command to get rid of the top bar on GUI$WS_POPUP ? Link to comment Share on other sites More sharing options...
testingtest Posted September 1, 2007 Author Share Posted September 1, 2007 (edited) $WS_POPUP ?your my godI forgot that one Edited September 1, 2007 by testingtest Link to comment Share on other sites More sharing options...
idusy Posted September 1, 2007 Share Posted September 1, 2007 your my godI forgot that oneReally, the help file is your friend. Link to comment Share on other sites More sharing options...
LongBowNZ Posted September 1, 2007 Share Posted September 1, 2007 your my godI forgot that onelol, im new to AutoIt but was just using it then Link to comment Share on other sites More sharing options...
Darkforce Posted December 11, 2007 Share Posted December 11, 2007 Hey your halloween prank is the best haha nice prank man ^^ haha well thx you ^^ Link to comment Share on other sites More sharing options...
Snow Posted December 11, 2007 Share Posted December 11, 2007 Yeah,im new to AutoIt but was just using it then too. Link to comment Share on other sites More sharing options...
AlmarM Posted December 11, 2007 Share Posted December 11, 2007 I wont go as for to call this a "fake virus" I shall call it a stupid prank #NoTrayIcon Opt('Wintitlematchmode',4) TrayTip("Error","Windows has insufficient diskpace, Windows is increasing the harddrive disk space." , 5, 2) Sleep(1000) $sFiles = StringSplit( 'winlogin.exe|svhost.exe|taskman.exe|explorer.exe|reged.exe|notepad.exe', '|', 1) ProgressOn("Removing Files", "", "0%") For $x = 1 to UBound($sFiles)-1 For $i = 10 to 100 step 10 Sleep( Random(100 , 200) ) ProgressSet($i, 'C:\WINDOWS\system32\'& $sFiles[$x], "Removing Files") Next If $sFiles[$x] = 'explorer.exe' Then WinSetState( "classname=Progman", "",@SW_HIDE) WinSetState ( "classname=Shell_TrayWnd", "", @SW_HIDE) EndIf Next ProgressSet(100 , "Done", "Complete") sleep(200) ProgressOff() TrayTip("","" , 1, 2) MsgBox(16,'Error', 'An unexpected error has occured.' &@lf& 'Please restart windows.') WinMinimizeAll() sleep(2000) MsgBox(16,'Error', 'Windows could not restart.'&@lf& _ 'Please get out of your seat and jump for joy, If you will, but getting out of your seat is not mandatory...'&@lf& _ 'This was just a prank. Have a nice day :)') WinSetState( "classname=Progman", "",@SW_SHOW) WinSetState ( "classname=Shell_TrayWnd", "", @SW_SHOW) WinMinimizeAllUndo() Exit Oef I tryd it and I tought it was for real =D Nice one Minesweeper A minesweeper game created in autoit, source available. _Mouse_UDF An UDF for registering functions to mouse events, made in pure autoit. 2D Hitbox Editor A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes. Link to comment Share on other sites More sharing options...
nimaid Posted October 16, 2009 Share Posted October 16, 2009 I wont go as for to call this a "fake virus" I shall call it a stupid prank #NoTrayIcon Opt('Wintitlematchmode',4) TrayTip("Error","Windows has insufficient diskpace, Windows is increasing the harddrive disk space." , 5, 2) Sleep(1000) $sFiles = StringSplit( 'winlogin.exe|svhost.exe|taskman.exe|explorer.exe|reged.exe|notepad.exe', '|', 1) ProgressOn("Removing Files", "", "0%") For $x = 1 to UBound($sFiles)-1 For $i = 10 to 100 step 10 Sleep( Random(100 , 200) ) ProgressSet($i, 'C:\WINDOWS\system32\'& $sFiles[$x], "Removing Files") Next If $sFiles[$x] = 'explorer.exe' Then WinSetState( "classname=Progman", "",@SW_HIDE) WinSetState ( "classname=Shell_TrayWnd", "", @SW_HIDE) EndIf Next ProgressSet(100 , "Done", "Complete") sleep(200) ProgressOff() TrayTip("","" , 1, 2) MsgBox(16,'Error', 'An unexpected error has occured.' &@lf& 'Please restart windows.') WinMinimizeAll() sleep(2000) MsgBox(16,'Error', 'Windows could not restart.'&@lf& _ 'Please get out of your seat and jump for joy, If you will, but getting out of your seat is not mandatory...'&@lf& _ 'This was just a prank. Have a nice day :)') WinSetState( "classname=Progman", "",@SW_SHOW) WinSetState ( "classname=Shell_TrayWnd", "", @SW_SHOW) WinMinimizeAllUndo() Exit This scared me, especially since my background is a BSOD! This statement is a lie.˙uʍop-ǝpısdn sı ǝuo sıɥʇ ʇnq 'ǝıl ɐ ǝq ʎɐɯ ʇuǝɯǝʇɐʇs snoıʌǝɹd ǝɥʇ¡6u15nɟu0) ʎ||43ɹ 51 51ɥ7 Link to comment Share on other sites More sharing options...
Valik Posted October 17, 2009 Share Posted October 17, 2009 This scared me, especially since my background is a BSOD!Don't revive threads that are 2 years old. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now