i got a fake error opener with 5 options, heres the code:
Set wshshell=wscript.createobject("wscript.shell")
Dim msg,input
msg = "Open URL:" & vbCR
msg = msg & "" & vbCR
msg = msg & "1. Hello " & vbCR
msg = msg & "2. Goodbye " & vbCR
msg = msg & "3. HelloGoodbye " & vbCR
msg = msg & "4. Youtube sucks " & vbCR
msg = msg & "5. Faceyourbook " & vbCR
input = InputBox(msg,"Error Opener by IKSMAN12, Every error is critical")
Select Case input
case "1"
x =msgbox("Hello",3+17,"Hello")
case "2"
x =msgbox("Goodbye",3+17,"Goodbye")
case "3"
x =msgbox("HelloGoodbye",3+17,"HelloGoodbye")
case "4"
x =msgbox("Youtube Sucks",3+17,"Youtube Sucks")
case "5"
x =msgbox("Faceyourbook",3+17,"Faceyourbook")
End Select