[问题求助] [已解决]vbs代码循环3秒检测，IE页面有地址栏，就关闭/隐藏/禁用。从而禁止输入网址。

ygqiang

vbs代码循环3秒检测，如果IE页面有地址栏，就关闭/隐藏/禁用。从而禁止输入网址。
（同时要保留ie浏览器右上角的关闭按钮）

xp系统+ie8浏览器环境。。。。。
下面这个vbs代码。。当前打开的百度页面，如果按f11键，还是会显示地址栏。。
而且如果在百度页面，重新点开一个新页面，这个新页面，还是显示地址栏。。。

这个时候，就需要：
循环3秒检测，如果当前打开的IE浏览器存在地址栏，就关闭/隐藏/禁用地址栏。。。
从而禁止输入网址。（同时要保留ie浏览器右上角的关闭按钮）

Set ie = CreateObject("internetexplorer.application")  
ie.visible=1 '设置是否可见
ie.Navigate "www.baidu.com" '设置IE对象默认指向的页面
ie.menubar=0 '不显示IE对象菜单栏
ie.AddressBar=0 '不显示IE对象地址栏
ie.ToolBar=0 '不显示IE对象工具栏
ie.StatusBar=0 '不显示IE对象状态栏
复制代码

下面的vbs代码，解决了。。。。

'VBS 隐藏IE菜单、地址栏、工具栏、状态栏
SetIE
Sub SetIE()
  On Error Resume Next
  Do
    For Each o In CreateObject("Shell.Application").Windows
      If Instr(LCase(o.FullName),"\iexplore.exe") Then
        o.Menubar=0
        o.AddressBar=0
        o.ToolBar=0
        o.StatusBar=0
      End If
    Next
    WScript.Sleep 1000
  Loop
End Sub
复制代码

yu2n

螋籚殰辞“鹶”，駍鸹踎崆？
复制代码

decode?
url:  http://yu2n.sinaapp.com/doc/EnigmaEncoding.html
user name:  yu2n
password:  yu2n
复制代码

yu2n

VBS 隐藏IE菜单、地址栏、工具栏、状态栏

'VBS 隐藏IE菜单、地址栏、工具栏、状态栏.vbs  by yu2n 2015.04.22
SetIE
Sub SetIE()
  On Error Resume Next
  Do
    For Each o In CreateObject("Shell.Application").Windows
      If Instr(LCase(o.FullName),"\iexplore.exe") Then
        o.Menubar=0
        o.AddressBar=0
        o.ToolBar=0
        o.StatusBar=0
      End If
    Next
    WScript.Sleep 100
  Loop
End Sub
复制代码