Połączenie 2 skryptów

[mint1991]

Cześć
Nie wiem czy dobrze trafiłem z działem, jak nie to proszę o przeniesienie.

A teraz do konkretów:
Napisałem sobie w notatniku taki oto skrypt:
x=MsgBox("Wiatam . Na Twoim komputerze został uruchomiony wirusek. Za 5 sekund Twój komputer ulegnie zniszczeniu",16,"ERROR")
(chce tylko siostrę wystraszyć)
oraz zrobiłem skrót który resetuje komputer (shutdown -r -t5)

Teraz chciałbym to połączyć, żeby pojawił się komunikat i poniżej odliczanie do 5 i reset komputera. xD

mniej więcej wyglądało by to tak:

___________________________
|tekst ze skryptu pierwszego |
| zegar odliczający do 5 |
| |
| przycisk OK |
___________________________

Po naciśnięciu OK reset automatyczny po odliczeniu do 5 reset

Dzięki za pomoc

[koleś git]

Coś takiego:

Kod: Zaznacz cały

x=MsgBox("Witam. Na Twoim komputerze został uruchomiony wirusek. Za 5 sekund Twój komputer ulegnie zniszczeniu",16,"ERROR")

Dim objShell
Dim strShutdown



    strShutdown = "shutdown -r -t 5 -f  -c ""Witam. Na Twoim komputerze został uruchomiony wirusek. Za 5 sekund Twój komputer ulegnie zniszczeniu"""

    set objShell = CreateObject("WScript.Shell")

    objShell.Run strShutdown



czy bez pierwszego alertu:

Kod: Zaznacz cały


Dim objShell
Dim strShutdown



    strShutdown = "shutdown -r -t 5 -f  -c ""Witam. Na Twoim komputerze został uruchomiony wirusek. Za 5 sekund Twój komputer ulegnie zniszczeniu"""

    set objShell = CreateObject("WScript.Shell")

    objShell.Run strShutdown