VBS запуск окна поверх всех окон

alex_diablo

Постоянный участник
Сообщения
144
Реакции
9
есть скрипт:

VB.NET / VBA:
sub install
nVar = MsgBox ("On your computer will be installed Unity. Would you want to start the installation now?" & vbCrLf & "" & vbCrLf & "Choose item:" & vbCrLf & "" & vbCrLf & "" & vbCrLf & "YES - Start installation immediately" & vbCrLf & "" & vbCrLf & "NO - Hold over installation for few minutes" & vbCrLf & "" & vbCrLf & "CANCEL - Cancel installation" , vbInformation + vbYesNoCancel, "Unity installer")
'6 - yes
'7 - no
'2 - cancel
select case nVar
case 6
call start
case 7
WScript.Sleep 180000
call install
end select
end sub

sub start
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set textFile = objFSO.OpenTextFile("c:\windows\temp\file1.vbs", 8, True)
textFile.WriteLine "1"
textFile.Close
end sub
sub cancel
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set textFile = objFSO.OpenTextFile("c:\windows\temp\file2.txt", 8, True)
textFile.WriteLine "2"
textFile.Close
end sub

call install

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