Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- returnvalue=msgbox("Is the VPN connected?",4,"VPN Authentification")
- If returnvalue=6 Then
- Dim objShell
- Set objShell = WScript.CreateObject( "WScript.Shell" )
- objShell.Run("""C:\Users\*********\Downloads\Popcorn-Time\Popcorn-Time.exe""")
- Set objShell = Nothing
- Else If returnvalue=7 Then
- returnvalue=msgbox("Do you know what the VPN is?",4,"VPN Authentification")
- If returnvalue=6 Then
- x=msgbox("Please connect to the VPN",0,"VPN Authentification")
- Else If returnvalue=7 Then
- x=msgbox("Please get off my computer",0,"VPN Authentification")
- End if
- End if
- End if
- End if
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement