本帖最后由 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
复制代码
|