Wscript.Sleep 200
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank "
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width = 800
objExplorer.Height = 600
objExplorer.Left = 0
objExplorer.Top = 0
objExplorer.Visible = 1
objExplorer.Document.Write "<br> <b style='color:blue;font-size:40pt'> ВНИМАНИЕ!!! ИДЕТ УСТАНОВКА ОБНОВЛЕНИЙ, ПОЖАЛУЙСТА НЕ ВЫКЛЮЧАЙТЕ КОМПЬЮТЕР !!! ДОЖДИТЕСЬ ЛОГИНА !!! Installer 3.1</b></br>"
'--------------------------------------------------------------------------------------------------------------------------------
qwe=MyShell.Run(PatchPath & np(1) & " /quiet /norestart",0,True)
objExplorer.Quit
|
