本帖最后由 ygqiang 于 2015-5-14 21:38 编辑
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
| 
发表于 2015-4-21 21:57
| 
