Adobe Flash Player - возможно ли автоматическое обновление без мусора?

@мама Стифлера · Регистрация: 29.11.2015

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

Почти с самых первых версий, пользуюсь браузером Mozilla Firefox, который с давних времен, так и остался для меня основным браузером. Хромы и Оперы тоже использую, но не так часто. Кто пользуется Firefox знают, что периодически необходимо обновлять Adobe Flash Player, который я всегда обновляю вручную. Потому что в нагрузку с Flash Playerом, всегда пихают McAfee, поэтому при установке, приходится самостоятельно снимать галочку.

Adobe Flash Player - возможно ли автоматическое обновление без мусора?

Вся эта процедура занимает какое то время, и так примерно раз в месяц приходится обновлятся. Хотелось бы автоматизировать данный процесс обновления, без всякого лишнего софта, возможно ли такое?

FlasherX · 25.03.2020, 04:18

Сообщение от мама Стифлера

загрузчик не скачивался, окно загрузчика не появлялось, просто тупо грузился процессор и все

Если это так, значит, мои подозрения насчёт AppActivate отпадают. Дело в самом скачивании. Т. е. что-то происходит на этом этапе. Понять бы что. Ошибок никаких не появляется. Вис может быть при попытке отправить запрос на получение бинарных данных. Дело в антивирусе или файрволле, по всей видимости. Т. е. несмотря на добавку скрипта в исключения, получить данные таки они мешают. Это надо отдельно проверить.

Какое число последним покажет этот скрипт (и его — в исключения)?:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Explicit
Dim oFSO, oWSH, Path, Size, Name, Link, Exist, Data
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oWSH = CreateObject("WScript.Shell")
Path = oFSO.GetParentFolderName(WSH.ScriptFullName) & "\"
oWSH.CurrentDirectory = Path
Name = "install_flash_player_ax.exe"
Link = "http://fpdownload.macromedia.com/pub/flashplayer/latest/help/" & Name
With CreateObject("WinHttp.WinHttpRequest.5.1")
  If oFSO.FileExists(Name) Then
    .Open "HEAD", Link, 0
    MsgBox 1, 4160
    .Send
    MsgBox 2, 4160
    Size = .GetResponseHeader("Content-Length")
    MsgBox 3, 4160
    .Abort
    If oFSO.GetFile(Name).Size = Size Then Exist = 1
  End If
  If Not Exist Then
    .Open "GET", Link, 0
    MsgBox 4, 4160
    .Send
    MsgBox 5, 4160
    .WaitForResponse 5, True: Data = .ResponseBody
    MsgBox 6, 4160
    .Abort
    With CreateObject("SAPI.SpFileStream")
      .Format.Type = 1: .Open Path & Name, 3, 1: .Write Data : .Close : Data = ""
    End With
  End If
End With
Set oFSO = Nothing
Set oWSH = Nothing

@мама Стифлера · 25.03.2020, 10:44 **[ТС]**

Появляется сперва окно с цифрой 4, нажимаю ОК - появляется с цифрой 5, далее ОК - появляется с цифрой 6, далее ОК - появляется сам загрузчик. Все.

Кликните здесь для просмотра всего текста

Вот только размер загрузчика не знаю тот, или не тот.

FlasherX · 25.03.2020, 12:32

Я тогда ничего не понимаю. Если сейчас всё скачивается и загрузчик появляется, то то же самое должно происходить и с исходником...

@мама Стифлера · 25.03.2020, 13:38 **[ТС]**

FlasherX, хорошо, может я с исходниками накосячил, или не тот код копирую, какой код рабочий?

FlasherX · 25.03.2020, 19:40

Последняя правка была в 29 посте. Скрипт в ANSI либо UTF-16 (если локаль иностранная) должен быть.

Последний вариант с небольшой отладкой:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
'——————————————————————————————————————————————————————————————————————————————————
' Скачивание установщиков Adobe Flash Player с запуском установки при необходимости
' Условие: не используйте манипуляторы в процессе вывода окон инсталляторов
'——————————————————————————————————————————————————————————————————————————————————
Option Explicit
Dim oFSO, HTTP, oWSH, Path, Pfx, Name, Exist, Link, Size, Data, c, PID, A, n
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set HTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
Set oWSH = CreateObject("WScript.Shell")
Path = oFSO.GetParentFolderName(WSH.ScriptFullName) & "\Installers\"
If Not oFSO.FolderExists(Path) Then oFSO.CreateFolder Path
oWSH.CurrentDirectory = Path
For Each Pfx in Split("|\Current _ax|ActiveX\ _ppapi|Pepper\")
  Name = "install_flash_player" & Split(Pfx, "|")(0) & ".exe": Exist = 0
  Link = "http://fpdownload.macromedia.com/pub/flashplayer/latest/help/" & Name
  With HTTP
    If oFSO.FileExists(Name) Then
      .Open "HEAD", Link, 0: .Send: Size = .GetResponseHeader("Content-Length"): .Abort
      If oFSO.GetFile(Name).Size = CLng(Size) Then Exist = 1
    End If
    If Exist = 0 Then
      .Open "GET", Link, 0: .Send
      .WaitForResponse 5, True: Data = .ResponseBody: .Abort
      With CreateObject("SAPI.SpFileStream")
        .Format.Type = 1: .Open Path & Name, 3, 1: .Write Data: .Close: Data = ""
      End With
    End If
  End With
  On Error Resume Next
  If Replace(oWSH.RegRead("HKLM\SOFTWARE\Macromedia\FlashPlayer" &_
  Split(Pfx, "|")(1) & "Version"), ",", ".") <> oFSO.GetFileVersion(Name) Then
    c = c + 1
  ElseIf Err.Number Then c = c + 1: Err.Clear
  Else Set Exist = oWSH.Exec(Name): n = 0
    Do: A = oWSH.AppActivate(Exist.ProcessID)
      WSH.Sleep 100: n = n + 100: If n = 2000 Then Exit Do
    Loop Until A
    If n < 2000 Then oWSH.SendKeys "{TAB} +{TAB} ": WSH.Sleep 2000: Exist.Terminate
  End If
Next
If c = 3 Then MsgBox "Не требуется!" & vbCr & "Текущая версия — последняя!", 4160, " Установка Flash Player"
Set oFSO = Nothing: Set oWSH = Nothing: Set HTTP = Nothing

@мама Стифлера · 25.03.2020, 21:06 **[ТС]**

Последний вариант с небольшой отладкой

Данный скрипт отрабатывает, создавая рядом папку, в котором 3 инсталятора, на этом все. Причем отрабатывает даже без ярлыка с повышением прав. Через ярлык - все тоже самое.

FlasherX · 25.03.2020, 21:38

Выполни из cmd и вставь полученное сюда из буфера по Ctrl+V:

Windows Batch file
1
(reg query HKLM\SOFTWARE\Macromedia\ /v *Version /s&reg query HKLM\SOFTWARE\Wow6432Node\Macromedia\ /v *Version /s)|clip

@мама Стифлера · 25.03.2020, 21:55 **[ТС]**

вот

Кликните здесь для просмотра всего текста

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
HKEY_LOCAL_MACHINE\SOFTWARE\Macromedia\FlashPlayer
    CurrentVersion    REG_SZ    18,0,0,203
 
HKEY_LOCAL_MACHINE\SOFTWARE\Macromedia\FlashPlayerActiveX
    Version    REG_SZ    18.0.0.203
 
HKEY_LOCAL_MACHINE\SOFTWARE\Macromedia\FlashPlayerPepper
    Version    REG_SZ    32.0.0.344
 
HKEY_LOCAL_MACHINE\SOFTWARE\Macromedia\FlashPlayerPlugin
    Version    REG_SZ    32.0.0.344
 
Поиск завершен: найдено совпадений: 4.
 
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Macromedia\FlashPlayer
    CurrentVersion    REG_SZ    18,0,0,203
 
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Macromedia\FlashPlayerActiveX
    Version    REG_SZ    18.0.0.203
 
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Macromedia\FlashPlayerPepper
    Version    REG_SZ    32.0.0.344
 
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Macromedia\FlashPlayerPlugin
    Version    REG_SZ    32.0.0.344
 
Поиск завершен: найдено совпадений: 4.

FlasherX · 25.03.2020, 22:19

Тут всё ОК.
А, это я после теста забыл знак поменять. В 31 строке <> на = поменяй.

@мама Стифлера · 25.03.2020, 22:39 **[ТС]**

Поменял:

Visual Basic
1
Split(Pfx, "|")(1) & "Version"), ",", ".") = oFSO.GetFileVersion(Name) Then

ничего не изменилось, результат полностью такой же, как в посте 46 - новая папка, а в ней 3 файла

FlasherX · 25.03.2020, 22:44

И при этом ни сообщение, ни установщики не выскакивают?

@мама Стифлера · 25.03.2020, 22:55 **[ТС]**

FlasherX, нет , больше ничего

Добавлено через 3 минуты
вот сейчас даже KIS отключил временно, все равно ничего
вот полный код

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
'——————————————————————————————————————————————————————————————————————————————————
' Скачивание установщиков Adobe Flash Player с запуском установки при необходимости
' Условие: не используйте манипуляторы в процессе вывода окон инсталляторов
'——————————————————————————————————————————————————————————————————————————————————
Option Explicit
Dim oFSO, HTTP, oWSH, Path, Pfx, Name, Exist, Link, Size, Data, c, PID, A, n
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set HTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
Set oWSH = CreateObject("WScript.Shell")
Path = oFSO.GetParentFolderName(WSH.ScriptFullName) & "\Installers\"
If Not oFSO.FolderExists(Path) Then oFSO.CreateFolder Path
oWSH.CurrentDirectory = Path
For Each Pfx in Split("|\Current _ax|ActiveX\ _ppapi|Pepper\")
  Name = "install_flash_player" & Split(Pfx, "|")(0) & ".exe": Exist = 0
  Link = "http://fpdownload.macromedia.com/pub/flashplayer/latest/help/" & Name
  With HTTP
    If oFSO.FileExists(Name) Then
      .Open "HEAD", Link, 0: .Send: Size = .GetResponseHeader("Content-Length"): .Abort
      If oFSO.GetFile(Name).Size = CLng(Size) Then Exist = 1
    End If
    If Exist = 0 Then
      .Open "GET", Link, 0: .Send
      .WaitForResponse 5, True: Data = .ResponseBody: .Abort
      With CreateObject("SAPI.SpFileStream")
        .Format.Type = 1: .Open Path & Name, 3, 1: .Write Data: .Close: Data = ""
      End With
    End If
  End With
  On Error Resume Next
  If Replace(oWSH.RegRead("HKLM\SOFTWARE\Macromedia\FlashPlayer" &_
  Split(Pfx, "|")(1) & "Version"), ",", ".") = oFSO.GetFileVersion(Name) Then
    c = c + 1
  ElseIf Err.Number Then c = c + 1: Err.Clear
  Else Set Exist = oWSH.Exec(Name): n = 0
    Do: A = oWSH.AppActivate(Exist.ProcessID)
      WSH.Sleep 100: n = n + 100: If n = 2000 Then Exit Do
    Loop Until A
    If n < 2000 Then oWSH.SendKeys "{TAB} +{TAB} ": WSH.Sleep 2000: Exist.Terminate
  End If
Next
If c = 3 Then MsgBox "Не требуется!" & vbCr & "Текущая версия — последняя!", 4160, " Установка Flash Player"
Set oFSO = Nothing: Set oWSH = Nothing: Set HTTP = Nothing

FlasherX · 25.03.2020, 23:33

Ну, давай так ещё попробуем:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
'——————————————————————————————————————————————————————————————————————————————————
' Скачивание установщиков Adobe Flash Player с запуском установки при необходимости
' Условие: не используйте манипуляторы в процессе вывода окон инсталляторов
'——————————————————————————————————————————————————————————————————————————————————
Option Explicit
Dim oFSO, HTTP, oWSH, Path, Pfx, Name, Exist, Link, Size, Data, c, PID, A, n
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set HTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
Set oWSH = CreateObject("WScript.Shell")
Path = oFSO.GetParentFolderName(WSH.ScriptFullName) & "\Installers\"
If Not oFSO.FolderExists(Path) Then oFSO.CreateFolder Path
oWSH.CurrentDirectory = Path
For Each Pfx in Split("|\Current _ax|ActiveX\ _ppapi|Pepper\")
  Name = "install_flash_player" & Split(Pfx, "|")(0) & ".exe": Exist = 0
  Link = "http://fpdownload.macromedia.com/pub/flashplayer/latest/help/" & Name
  With HTTP
    If oFSO.FileExists(Name) Then
      .Open "HEAD", Link, 0: .Send: Size = .GetResponseHeader("Content-Length"): .Abort
      If oFSO.GetFile(Name).Size = CLng(Size) Then Exist = 1
    End If
    If Exist = 0 Then
      .Open "GET", Link, 0: .Send
      .WaitForResponse 5, True: Data = .ResponseBody: .Abort
      With CreateObject("SAPI.SpFileStream")
        .Format.Type = 1: .Open Path & Name, 3, 1: .Write Data: .Close: Data = ""
      End With
    End If
  End With
  On Error Resume Next
  If Replace(oWSH.RegRead("HKLM\SOFTWARE\Macromedia\FlashPlayer" &_
  Split(Pfx, "|")(1) & "Version"), ",", ".") = oFSO.GetFileVersion(Name) Then
    c = c + 1
  Else On Error GoTo 0
    Set Exist = oWSH.Exec(Name): PID = Exist.ProcessID: n = 0
    Do: A = oWSH.AppActivate(PID)
      WSH.Sleep 100: n = n + 100: If n = 2000 Then Exit Do
    Loop Until A
    If n < 2000 Then oWSH.SendKeys "{TAB} +{TAB} ": WSH.Sleep 2000: Exist.Terminate
  End If
Next
If c = 3 Then MsgBox "Не требуется!" & vbCr & "Текущая версия — последняя!", 4160, " Установка Flash Player"
Set oFSO = Nothing: Set oWSH = Nothing: Set HTTP = Nothing

Если опять ничего, положи рядом с папкой Installers Exec.vbs и выполни:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Set oWSH = CreateObject("WScript.Shell")
oWSH.CurrentDirectory = CreateObject("Scripting.FileSystemObject")._
GetParentFolderName(WSH.ScriptFullName) & "\Installers\"
Name = "install_flash_player.exe"
Set Exist = oWSH.Exec(Name): PID = Exist.ProcessID
Do: A = oWSH.AppActivate(PID)
   WSH.Sleep 100: n = n + 100: If n = 2000 Then Exit Do
Loop Until A
If n < 2000 Then oWSH.SendKeys "{TAB} +{TAB} ": WSH.Sleep 2000: Exist.Terminate
Set oWSH = Nothing

Появится окно инсталлятора?

@мама Стифлера · 25.03.2020, 23:43 **[ТС]**

В общем так:
Запускаю первый скрипт, появляется папка с 3 файлами.
Запускаю второй скрипт "Exec.vbs" и ничего не происходит.

Добавлено через 1 минуту
Вот она - жиза

FlasherX · 25.03.2020, 23:49

Трындец. А такой код блокнот не запустит?:

Visual Basic
1
Set Exist = CreateObject("WScript.Shell").Exec("notepad")

Заодно и такой:

Visual Basic
1
Set Exist = CreateObject("WScript.Shell").Exec("C:\Windows\sysWOW64\notepad.exe")

@мама Стифлера · 25.03.2020, 23:54 **[ТС]**

FlasherX, эм, что то я уже не соображаю, куда эти коды писать, в командной строке что ли? И давай тогда, отложим до завтра.

FlasherX · 25.03.2020, 23:56

мама Стифлера, нет, это vbs-ки. ОК. Теперь хотя бы ясно, откуда ноги растут на 10-ке.

@мама Стифлера · 26.03.2020, 10:51 **[ТС]**

Сообщение от FlasherX

А такой код блокнот не запустит?

оба кода работают и запускают блокнот

FlasherX · 26.03.2020, 21:08

Хм, интересно девки пляшут...
А ты из 53 поста скрипт с повышением запускал или без?
Попробуй его запустить так: C:\Windows\sysWOW64\wscript.exe C:\Path\To\Exec.vbs

@мама Стифлера · 26.03.2020, 21:57 **[ТС]**

Да, из 53 поста запускал через ярлык с правами.
по поводу: C:\Windows\sysWOW64\wscript.exe C:\Path\To\Exec.vbs
Это где мне запускать?

Добавлено через 4 минуты
все... доперло, попробую сейчас

Добавлено через 4 минуты
все таки не пойму, почему у тебя путь sysWOW64
у меня вот так
C:\Windows\System32\wscript.exe C:\Users\AspireM3400\Desktop\Exec.vbs

Добавлено через 3 минуты
попробовал заменил в своем пути, System32 на sysWOW64, какой то установщик быстро отработал, не успел заметить какой

Добавлено через 7 минут
В общем так, в ярлыке основного скрипта, в пути запуска поменял каталог на sysWOW64 и скрипт стал работать. Созадается пака, в ней 3 файла и потом запуск установщика

ВРоде все работает тогда, спасибо, чтоли

Добавлено через 20 минут
Так понимаю, проблема была в не корректном для Win10 мануале по созданию ярлыка с повышением прав. Если для Win7 мануал рабочий, то для Win10 нужно руками исправлять имя папки, так как по умолчанию будет не рабочий вариант. Еще раз спасибо, извини что психовал, устал тогда.

Новые блоги и статьи Все статьи Все блоги /
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .
Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .

@мама Стифлера из племени тумба-юбма 2524 / 1820 / 419 Регистрация: 29.11.2015 Сообщений: 8,857 Записей в блоге: 15

	Adobe Flash Player - возможно ли автоматическое обновление без мусора? 16.03.2020, 07:17. Показов 5096. Ответов 60 Метки нет (Все метки) Почти с самых первых версий, пользуюсь браузером Mozilla Firefox, который с давних времен, так и остался для меня основным браузером. Хромы и Оперы тоже использую, но не так часто. Кто пользуется Firefox знают, что периодически необходимо обновлять Adobe Flash Player, который я всегда обновляю вручную. Потому что в нагрузку с Flash Playerом, всегда пихают McAfee, поэтому при установке, приходится самостоятельно снимать галочку. Вся эта процедура занимает какое то время, и так примерно раз в месяц приходится обновлятся. Хотелось бы автоматизировать данный процесс обновления, без всякого лишнего софта, возможно ли такое? 0

@мама Стифлера из племени тумба-юбма 2524 / 1820 / 419 Регистрация: 29.11.2015 Сообщений: 8,857 Записей в блоге: 15
	25.03.2020, 10:44 [ТС]
	Появляется сперва окно с цифрой 4, нажимаю ОК - появляется с цифрой 5, далее ОК - появляется с цифрой 6, далее ОК - появляется сам загрузчик. Все. Кликните здесь для просмотра всего текста Вот только размер загрузчика не знаю тот, или не тот. 0

FlasherX 7695 / 2891 / 1111 Регистрация: 06.06.2017 Сообщений: 9,860
	25.03.2020, 12:32
	Я тогда ничего не понимаю. Если сейчас всё скачивается и загрузчик появляется, то то же самое должно происходить и с исходником... 0

@мама Стифлера из племени тумба-юбма 2524 / 1820 / 419 Регистрация: 29.11.2015 Сообщений: 8,857 Записей в блоге: 15
	25.03.2020, 13:38 [ТС]
	FlasherX, хорошо, может я с исходниками накосячил, или не тот код копирую, какой код рабочий? 0

FlasherX 7695 / 2891 / 1111 Регистрация: 06.06.2017 Сообщений: 9,860
	25.03.2020, 22:19
	Тут всё ОК. А, это я после теста забыл знак поменять. В 31 строке `<>` на `=` поменяй. 0

FlasherX 7695 / 2891 / 1111 Регистрация: 06.06.2017 Сообщений: 9,860
	25.03.2020, 22:44
	И при этом ни сообщение, ни установщики не выскакивают? 0

@мама Стифлера из племени тумба-юбма 2524 / 1820 / 419 Регистрация: 29.11.2015 Сообщений: 8,857 Записей в блоге: 15
	25.03.2020, 23:43 [ТС]
	В общем так: Запускаю первый скрипт, появляется папка с 3 файлами. Запускаю второй скрипт "Exec.vbs" и ничего не происходит. Добавлено через 1 минуту Вот она - жиза 0

@мама Стифлера из племени тумба-юбма 2524 / 1820 / 419 Регистрация: 29.11.2015 Сообщений: 8,857 Записей в блоге: 15
	25.03.2020, 23:54 [ТС]
	FlasherX, эм, что то я уже не соображаю, куда эти коды писать, в командной строке что ли? И давай тогда, отложим до завтра. 0

FlasherX 7695 / 2891 / 1111 Регистрация: 06.06.2017 Сообщений: 9,860
	25.03.2020, 23:56
	мама Стифлера, нет, это vbs-ки. ОК. Теперь хотя бы ясно, откуда ноги растут на 10-ке. 0

FlasherX 7695 / 2891 / 1111 Регистрация: 06.06.2017 Сообщений: 9,860
	26.03.2020, 21:08
	Сообщение было отмечено мама Стифлера как решение Решение Хм, интересно девки пляшут... А ты из 53 поста скрипт с повышением запускал или без? Попробуй его запустить так: `C:\Windows\sysWOW64\wscript.exe C:\Path\To\Exec.vbs` 0

@мама Стифлера из племени тумба-юбма 2524 / 1820 / 419 Регистрация: 29.11.2015 Сообщений: 8,857 Записей в блоге: 15
	26.03.2020, 21:57 [ТС]
	Да, из 53 поста запускал через ярлык с правами. по поводу: C:\Windows\sysWOW64\wscript.exe C:\Path\To\Exec.vbs Это где мне запускать? Добавлено через 4 минуты все... доперло, попробую сейчас Добавлено через 4 минуты все таки не пойму, почему у тебя путь sysWOW64 у меня вот так `C:\Windows\System32\wscript.exe C:\Users\AspireM3400\Desktop\Exec.vbs` Добавлено через 3 минуты попробовал заменил в своем пути, `System32` на `sysWOW64`, какой то установщик быстро отработал, не успел заметить какой Добавлено через 7 минут В общем так, в ярлыке основного скрипта, в пути запуска поменял каталог на `sysWOW64` и скрипт стал работать. Созадается пака, в ней 3 файла и потом запуск установщика ВРоде все работает тогда, спасибо, чтоли Добавлено через 20 минут Так понимаю, проблема была в не корректном для Win10 мануале по созданию ярлыка с повышением прав. Если для Win7 мануал рабочий, то для Win10 нужно руками исправлять имя папки, так как по умолчанию будет не рабочий вариант. Еще раз спасибо, извини что психовал, устал тогда. 0

Adobe Flash Player - возможно ли автоматическое обновление без мусора?

Решение

Решение