Я - начинающий компьютерный энтузиаст со средним образованием, немного обученный в VBScript, и мне нужна помощь. Вот порядок событий ...
Я использовал Winaero Tweaker на своем ПК (под управлением Windows 10 Home), чтобы создать повышенный ярлык для виртуального компакт-диска, на котором запущена программа разблокировки для моего WD Passport Drive.
Обычно я щелкаю ярлык программы на диске, говорю "да" UAC, затем щелкаю в появившемся окне завершения, сообщая, что диск разблокирован. Ярлык Winaero с повышенными правами работает прекрасно, за исключением того, что окно конца остается открытым.
Вот цель:
C:\WINDOWS\system32\cmd.exe /c start "" schtasks.exe /run /tn "WD Drive Unlock.exe_-943894699"
Итак, я подумал, что мог бы попробовать сценарий VB, вызывающий ярлык, а затем просто ввести {esc} или ~, чтобы закрыть окно. Просто. НЕ. Я не могу заставить окно закрыться, Боже, храни королеву.
Моя попытка использовать повышенный ярлык (H-IT.lnk):
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "C:\USERS\OWNER\DESKTOP\H-IT.lnk" & Chr(34), 0
WScript.Sleep 1500
WshShell.AppActivate "wd drive"
WshShell.SendKeys "{esc}"
Set WshShell = Nothing
Это выполняет ярлык так же, как ярлык выполняет ярлык, но получающееся окно программы под названием "WD Drive Unlocked" остается ОТКРЫТОМ (так же, как ярлык).
Итак, я подумал, почему бы не использовать цель ярлыка и обойти ярлык все вместе ... для меня ночной кошмар. Вот моя неловкая попытка (введение в VB было 20 лет назад):
И моя попытка обойти ярлык:
Set WshShell = WScript.CreateObject("WScript.Shell")
Command = "%WINDIR%\cmd.exe /c start ""schtasks.exe /run /tn ""WD Drive Unlock.exe_-943894699""
WshShell.Run command
WScript.Sleep 1500
WshShell.AppActivate "wd drive"
WshShell.SendKeys "{esc}"
Set WshShell = Nothing:
Я не забочусь о программировании; Я просто хочу разблокировать мой диск в один клик без UAC и без остатков диалога.