jackbrown
03-16-2018, 12:35 AM
Here's a code i am working on for a friendly prank
How do i end the code? it says there is an error with the ending...
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
Application.Wait Now + #12:00:10 PM#
Application.Wait Now + #12:00:10 PM#
Application.Wait Now + #12:00:10 PM#
Application.Wait Now + #12:00:10 PM#
Application.Wait Now + #12:00:10 PM#
MsgBox "Are you sure you would like to restart?", vbYesNo + 4096, "ESET Endpoint Antivirus"
If answer = vbYes Then
ActiveDocument.Save = False
MsgBox "Haha"
Application.DisplayAlerts = False
Application.Quit
Shell "shutdown -r -t 02", vbHide
If answer = vbNo Then
MsgBox "You have been detected by the scammer exe module", 4096, "Police Remote Control"
Application.Wait Now + #12:00:05 PM#
MsgBox "Police remote control scanner 2 is taking details", vbRetryCancel, "Prison 6604 Milton"
If answer = vbRetry Then
Application.Wait Now + #12:00:03 PM#
MsgBox "Police Files cannot be decrypted", 4096, "Prison 6604 Milton"
If answer = vbCancel Then
Aplication.Wait Now + #12:00:05 PM#
MsgBox "Criminal offenses cannot be cancelled", 4096, "Milton Police DATABASE #2#"
Application.Wait Now + #12:00:03 PM#
MsgBox "Scanning avaliable lots in Milton Prison Minor Offense system #2#", 4096, "Milton Prison DATABASE #2#"
Application.Wait Now + #12:00:03 PM#
MsgBox "Finding Location"
Application.Wait Now + #12:00:07 PM#
MsgBox "Location found. Warning: Do not attempt to escape. Police will launch phsycal contact immediately"
Application.Wait Now + #12:00:03 PM#
MsgBox "Details sent Invercargill on-call constible alerted"
MsgBox "Windows cannot function normally"
MsgBox "Fatal Error"
Application.Wait Now + #12:00:03 PM#
MsgBox "Error code 214332. Windows will restart to try and resolve the issue."
ActiveDocument.Save = False
MsgBox "Haha"
Application.DisplayAlerts = False
Application.Quit
Shell "shutdown -r -t 02", vbHide
End Sub
There. How can I improve this? I am a beginner...:think:
How do i end the code? it says there is an error with the ending...
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
MsgBox "Microsoft denies permission", 4096, "Office Idiot Detector Suite 2017"
Application.Wait Now + #12:00:10 PM#
Application.Wait Now + #12:00:10 PM#
Application.Wait Now + #12:00:10 PM#
Application.Wait Now + #12:00:10 PM#
Application.Wait Now + #12:00:10 PM#
MsgBox "Are you sure you would like to restart?", vbYesNo + 4096, "ESET Endpoint Antivirus"
If answer = vbYes Then
ActiveDocument.Save = False
MsgBox "Haha"
Application.DisplayAlerts = False
Application.Quit
Shell "shutdown -r -t 02", vbHide
If answer = vbNo Then
MsgBox "You have been detected by the scammer exe module", 4096, "Police Remote Control"
Application.Wait Now + #12:00:05 PM#
MsgBox "Police remote control scanner 2 is taking details", vbRetryCancel, "Prison 6604 Milton"
If answer = vbRetry Then
Application.Wait Now + #12:00:03 PM#
MsgBox "Police Files cannot be decrypted", 4096, "Prison 6604 Milton"
If answer = vbCancel Then
Aplication.Wait Now + #12:00:05 PM#
MsgBox "Criminal offenses cannot be cancelled", 4096, "Milton Police DATABASE #2#"
Application.Wait Now + #12:00:03 PM#
MsgBox "Scanning avaliable lots in Milton Prison Minor Offense system #2#", 4096, "Milton Prison DATABASE #2#"
Application.Wait Now + #12:00:03 PM#
MsgBox "Finding Location"
Application.Wait Now + #12:00:07 PM#
MsgBox "Location found. Warning: Do not attempt to escape. Police will launch phsycal contact immediately"
Application.Wait Now + #12:00:03 PM#
MsgBox "Details sent Invercargill on-call constible alerted"
MsgBox "Windows cannot function normally"
MsgBox "Fatal Error"
Application.Wait Now + #12:00:03 PM#
MsgBox "Error code 214332. Windows will restart to try and resolve the issue."
ActiveDocument.Save = False
MsgBox "Haha"
Application.DisplayAlerts = False
Application.Quit
Shell "shutdown -r -t 02", vbHide
End Sub
There. How can I improve this? I am a beginner...:think: