Запуск приложений

@KolterGT · Регистрация: 12.08.2019

Author24 — интернет-сервис помощи студентам

Помогите понять, почему скрипт не работает.

Visual Basic

Dim MyVar
 
Dim WshShell
 
MyVar = MsgBox ("Вы желаете запустить GTA3?", 65, "Запуск игры")
 
if MyVar = 1 Then set WshShell = WScript.CreateObject("WScript.Shell")
 
WshShell.CurrentDirectory="C:\Gamemaster_Stuff5\games\GTA_III"
 
WshShell.Run "C:\Gamemaster Stuff5\games\GTA III\gta3.exe"
 
 
if MyVar = 2 Then msgbox ("Сообщение 2")

FlasherX · 14.08.2019, 23:21

Visual Basic

1
2
3

If MsgBox("Вы желаете запустить GTA3?", 65, "Запуск игры") = 1 Then
   CreateObject("WScript.Shell").Run "C:\Gamemaster Stuff5\games\GTA III\gta3.exe"
Else MsgBox("Сообщение 2") End If

	14.08.2019, 23:21