Deep2007
30-03-2011, 17:17
Есть скрипт (vbs), привожу его начало:On Error Resume Next
Set objIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
objIE.Navigate "about:blank"
While objIE.Busy
Wscript.Sleep 1000
Wend
objIE.FullScreen = False
objIE.MenuBar = False
objIE.StatusBar = False
objIE.ToolBar = False
objIE.Resizable = False
objIE.Height = 200
objIE.Width = 300
objIE.Top = 50
objIE.Left = 50
objIE.Document.Write "<html><head><title>Login</title></head>"
objIE.Document.Write "<body style=""overflow:hidden;"" background=""C:\WINDOWS\system32\ntimage.gif""><div align=center>"
objIE.Document.Write "<b>User name:</b><br><input style=""width:200px;background:silver;color:black;border:0px;"" type=text size=20 name=uname><br>"
objIE.Document.Write "<b>Password:</b><br><input style=""width:200px;background:silver;color:black;border:0px;"" type=password size=20 name=upass onEnter='JavaScript:eOK.value=""1"";'>"
objIE.document.write "<hr style=""border: 0px; height: 1px;""><input type=hidden name=eOK value=0>"
objIE.Document.Write "<input style=""width:100px;background:blue;color:white;border:0px;"" type=button name=bOK value=OK onClick='JavaScript:eOK.value=""1"";'>"
objIE.document.write "<input type=hidden name=eCancel value=0>"
objIE.Document.Write " <input style=""width:100px;background:blue;color:white;border:0px;"" type=button value=Cancel onClick='JavaScript:eCancel.value=""1"";'>"
objIE.Document.Write "</form></div></body></html>"
objIE.Visible = True
While objIE.Busy
Wscript.Sleep 1000
Wend
При запуске его в Win XP Pro SP2 и IE 6 - меню заголовка не видно. Если же запустить его в WIN XP SP3 с IE7 - выглядит как во вложении. Как я понимаю, за это отвечает строка objIE.MenuBar = False (т.е. черная полоса сверху с надписью http:\\\... должна быть скрыта). Что изменить, чтобы скрыть это меню заголовка?
Set objIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
objIE.Navigate "about:blank"
While objIE.Busy
Wscript.Sleep 1000
Wend
objIE.FullScreen = False
objIE.MenuBar = False
objIE.StatusBar = False
objIE.ToolBar = False
objIE.Resizable = False
objIE.Height = 200
objIE.Width = 300
objIE.Top = 50
objIE.Left = 50
objIE.Document.Write "<html><head><title>Login</title></head>"
objIE.Document.Write "<body style=""overflow:hidden;"" background=""C:\WINDOWS\system32\ntimage.gif""><div align=center>"
objIE.Document.Write "<b>User name:</b><br><input style=""width:200px;background:silver;color:black;border:0px;"" type=text size=20 name=uname><br>"
objIE.Document.Write "<b>Password:</b><br><input style=""width:200px;background:silver;color:black;border:0px;"" type=password size=20 name=upass onEnter='JavaScript:eOK.value=""1"";'>"
objIE.document.write "<hr style=""border: 0px; height: 1px;""><input type=hidden name=eOK value=0>"
objIE.Document.Write "<input style=""width:100px;background:blue;color:white;border:0px;"" type=button name=bOK value=OK onClick='JavaScript:eOK.value=""1"";'>"
objIE.document.write "<input type=hidden name=eCancel value=0>"
objIE.Document.Write " <input style=""width:100px;background:blue;color:white;border:0px;"" type=button value=Cancel onClick='JavaScript:eCancel.value=""1"";'>"
objIE.Document.Write "</form></div></body></html>"
objIE.Visible = True
While objIE.Busy
Wscript.Sleep 1000
Wend
При запуске его в Win XP Pro SP2 и IE 6 - меню заголовка не видно. Если же запустить его в WIN XP SP3 с IE7 - выглядит как во вложении. Как я понимаю, за это отвечает строка objIE.MenuBar = False (т.е. черная полоса сверху с надписью http:\\\... должна быть скрыта). Что изменить, чтобы скрыть это меню заголовка?