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

ygqiang

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

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

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

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

复制代码

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

1. 'VBS 隐藏IE菜单、地址栏、工具栏、状态栏
   
2. SetIE
   
3. Sub SetIE()
   
4.   On Error Resume Next
   
5.   Do
   
6.     For Each o In CreateObject("Shell.Application").Windows
   
7.       If Instr(LCase(o.FullName),"\iexplore.exe") Then
   
8.         o.Menubar=0
   
9.         o.AddressBar=0
   
10.         o.ToolBar=0
    
11.         o.StatusBar=0
    
12.       End If
    
13.     Next
    
14.     WScript.Sleep 1000
    
15.   Loop
    
16. End Sub

复制代码

yu2n

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

1. 'VBS 隐藏IE菜单、地址栏、工具栏、状态栏.vbs  by yu2n 2015.04.22
   
2. SetIE
   
3. Sub SetIE()
   
4.   On Error Resume Next
   
5.   Do
   
6.     For Each o In CreateObject("Shell.Application").Windows
   
7.       If Instr(LCase(o.FullName),"\iexplore.exe") Then
   
8.         o.Menubar=0
   
9.         o.AddressBar=0
   
10.         o.ToolBar=0
    
11.         o.StatusBar=0
    
12.       End If
    
13.     Next
    
14.     WScript.Sleep 100
    
15.   Loop
    
16. End Sub

复制代码

yu2n

1. 螋籚殰辞“鹶”，駍鸹踎崆？

复制代码

1. 
   
2. decode?
   
3. url:  http://yu2n.sinaapp.com/doc/EnigmaEncoding.html
   
4. user name:  yu2n
   
5. password:  yu2n

复制代码