Что то я через cmd попробовал поигратиься и никакой реакции не ошибок и ни действий.
посмотрел хендлер запущенного объекта IE и подставил:
1.
RUNDLL32.EXE user32,ShowWindow 458222, 1
и ничего...
Но зато это ситуация меня навела на решение, хотm оно конечно и не тривиальное, совсем не тривиальное, но зато рабочее.
Необходимо два файла:
первый(сам создатель объекта IE) run.vbs:
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.
43.
44.
45.
46.
47.
48.
49.
'Масштаб на 100%
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom\ZoomFactor", "100000", "REG_SZ"
sReg = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom\ZoomFactor")
'Создание объекта IE
Set objIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
'Определяем разрешение экрана, для центровки окна
Set itm = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("Select * from Win32_DesktopMonitor")
Dim res
For Each res In itm
Exit For
Next
' Задаём опции окна IE
objIE.Left = res.ScreenWidth/2 - 300
objIE.Top = res.ScreenHeight/2 - 275
objIE.Height = 550
objIE.Width = 600
objIE.AddressBar = False
objIE.MenuBar = False
objIE.ToolBar = False
objIE.StatusBar = False
objIE.RegisterAsBrowser = True
'Задаем вэб-приложение
objIE.Navigate url
'Открываем вэб-приложение
objIE.Visible = True
'ФИШКА В ЭТОМ
MsgBox "Загружается..."
'Ждем пока не загрузится приложение
While objIE.Busy
Wscript.Sleep 200
Wend
While 0=0
WScript.Sleep 1000
Wend
'=====================================
Sub IE_OnQuit()
WScript.Quit
End Sub
второй файл(пускатель):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Set shell = CreateObject("WScript.Shell")
shell.Run "cscript run.vbs", 2
'Пауза что бы успела загрузиться консоль
WScript.Sleep 200
'убиваем процесс консоль cscript.exe
Dim strComputer, strProcessToKill, objWMIService, colProcess, objProcess
strComputer = "."
strProcessToKill = "cscript.exe"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer _
& "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = '" & strProcessToKill & "'")
For Each objProcess in colProcess
objProcess.Terminate()
Next
Окно месседжа выводит окно на первый план и потом прибивается а окно IE остается.
Так что хоть и с большим боем но проблема побеждена!!!! УРА!
Спасибо за поддержку
