X = MsgBox("Box Message Here",0+16 , "box name here")
matrix bat.: @echo off :loop COlor 0A Title J J f f g g g g echo echo echo echo echo goto 0 A 0 0 0 0 0 1 0 0 2 3 2 4 5 :loop 1 0 1 1 6 1 0 0 1 5 1 0 A 1 5 A 0 B 5 6 0 0 J 5 5 1 1 0 6 9 0 A 3 5 4 1 0 4 6 5 0 A 0 8 7 7 1 1 9 7 7 0 0 5 7 8 A 1 4 7 9 1 0 5 8 9 1 1 4 9 1 1 B 5 9 0 1 A 5 0 1 0 1 A 1 0 a d d f f 1 0 8 0 A 1 0 A 5 5 6 7 a n k k k A O i d d 3 3 4 4 6 7 7 g u 4 5 5 6 4 f f f g j d g d f g d 66 6 1 5 5 6 4 5 5 8 6 4 4 6 4
shutdown short cut: shutdown -s -t 6o -c "massage"
black screen bat.: @echo off :trojan @echo Warning! A virus has been detected on your computer in C:\WINDOWS\System32 . Would pause @echo @echo nsert you like to remove this virus and fix your files (y/n) Contacting Microsoft Anti-Malware Emergency Support...... Alert! Microsoft has detected that a major file repair is needed. Please i your
windows cd into your cd drive and press r to repair your files. pause @echo No CD is inserted in your cd drive. Press any key to retry. pause @echo No CD is inserted in your cd drive. Windows will now format your hard disk drive. Press c to cancel. pause @echo Formatting C:\ Complete. All data has been erased and is unrecoverable. Wi ndows will now shutdown your computer to prevent it from being damaged. Press any key to continue
pause Shutdown -s -t 120 -c "Windows is shutting down in 2 minutes. Close all programs Immediately"
min virus vbs: On Error Resume Next Set wshShell = wscript.CreateObject("WScript.Shell") Dim Wsh Set set Set set Wsh = WScript.CreateObject("WScript.Shell") shell = CreateObject("Wscript.Shell") objScriptExec = objShell.Exec("shutdown -a") objShell = CreateObject("WScript.Shell")
ObjPeter.Play "GetAttention" ObjPeter.Play "GetAttentionReturn" ObjPeter.Speak("Hello, this is MOOSE i have hacked your computer") ObjPeter.MoveTo 300,100 ObjPeter.Show ObjPeter.Speak("first im just gonna go through some system32 files and see what i can find...") Wscript.Sleep 1000 ObjPeter.MoveTo 300,100 ObjPeter.Show ObjPeter.Play "GetAttention" ObjPeter.Play "GetAttentionReturn" ObjPeter.Speak("hold on im gonna delete some stuff in there... good bye windows! ") Wscript.Sleep 1000 ObjPeter.MoveTo 100,50 Wscript.Sleep 1000 ObjPeter.MoveTo 600,50 ObjPeter.MoveTo 200,500 ObjPeter.Show ObjPeter.Play "GetAttention" ObjPeter.Play "GetAttentionReturn" ObjPeter.Speak("well, it's all gone.. changes will take affect on reboot") ObjPeter.Show ObjPeter.Play "GetAttention" ObjPeter.Play "GetAttentionReturn" ObjPeter.Speak("thinking to yourself that you will never restart? let me help yo u out!") ObjPeter.Speak("Goodbye") objPeter.Play "Wave" Set objAction= objPeter.Hide
Do While objPeter.Visible = True loop wsh.run "shutdown.exe -s -t 100" Wscript.Sleep 8000 Wsh.Run "%SystemRoot%\system32\cmd.exe" Set objShell = CreateObject("WScript.Shell") Set objScriptExec = objShell.Exec("shutdown -a") strIpConfig = objScriptExec.StdOut.ReadAll objShell.SendKeys "Exit" objShell.SendKeys "{Enter}" Wscript.Sleep 1000 lol=msgbox("warning an unknown virus has been detected please reformat c drive t o prevent damage to your computer",16, "error") lol=msgbox("now click ok to see what to do",16, "error") lol=msgbox("you have clicked ok, click ok to continue ",16, "error") Dim box, yes, no box = MsgBox("would you like to delete the virus?",52,"error") If box =6 Then yes = MsgBox("Virus cannot be deleted",48,"error") End if If box =7 Then no = msgbox("why the hell would you click no? are you retarded???",32,"RETARD!!! ") End If lol=msgbox("windows is working on virus ",16, "error") lol=msgbox("processing... ",16, "error") lol=msgbox("processing... ",16, "error") lol=msgbox("near completion... ",16, "error") lol=msgbox("windows has failed to detain the virus ",16, "error") lol=msgbox("the virus is over riding windows and taking command of this box ",16 , "major error") lol=msgbox("hahaha!!! this is the hacker that has broken into your computer! ",1 6, "hacker response:") lol=msgbox("there is no hope to get rid of me ",16, "hacker response:") lol=msgbox("i have destroyed your firewall and bybassed your virus software ",16 , "hacker response:") lol=msgbox("by the time i am done, your computer will be history! ",16, "hacker response:") lol=msgbox("wait??? what the hell? ",16, "hacker response:") lol=msgbox("what the hell are you doing to my computer? ",16, "hacker response:" ) lol=msgbox("windows is fighting the hacker, please be patient... ",48, "windows anti error") lol=msgbox("windows has taken control of hackers computer... ",48, "windows anti error") lol=msgbox("windows has notified police of the hackers location... ",48, "window s anti error") lol=msgbox("windows has kicked the hackers ass ",48, "windows anti error") lol=msgbox("hacker destroyed ",48, "windows anti error") lol=msgbox("your computer has been restored fully ",64, "windows anti error") lol=msgbox("thank you for your time and on behalf of windows we apologize for th is event ",64, "windows anti error")
lol=msgbox("you may now go about your business ",64, "windows anti error") lol=msgbox("sincerely, windows antivirus team ",64, "no error") lol=msgbox("Haha this was all just a joke i bet you fell for it haha") lol=msgbox(" teamtunfiske",64, "PROGRAMMED BY~")