批处理之家 - Powered by Discuz! Board

标题: [系统相关] [已解决]xp sp3系统，IE8浏览器。bat或reg或vbs文件，如何禁用或隐藏IE地址栏？ [打印本页]

作者: ygqiang 时间: 2015-3-25 22:42 标题: [已解决]xp sp3系统，IE8浏览器。bat或reg或vbs文件，如何禁用或隐藏IE地址栏？

本帖最后由 ygqiang 于 2015-4-7 10:02 编辑

[已解决]xp sp3系统，IE8浏览器。bat或reg或vbs文件，如何禁用或隐藏IE地址栏？
或者能否实现：xp系统下，打开IE8浏览器，禁止在地址栏输入网址上网？？
而且要求：即使把鼠标放在浏览器顶部，仍然不会显示地址/仍然不可以输入网址。。

如果是xp sp3系统+IE6浏览器，是可以禁用或隐藏ie地址栏的。。。

作者: ygqiang 时间: 2015-3-25 23:59

本帖最后由 ygqiang 于 2015-3-27 11:06 编辑

建立IE快捷方式。。。
"C:\Program Files\Internet Explorer\IEXPLORE.EXE" -k

这个方法，如果把鼠标放在浏览器顶部，仍然会显示地址/仍然可以输入网址。。

作者: pcl_test 时间: 2015-3-26 00:32

回复 2# ygqiang
呵呵，F11

作者: ygqiang 时间: 2015-3-26 00:47

回复 ygqiang
呵呵，F11
pcl_test 发表于 2015-3-26 00:32

f11可不行。。。地址栏还是会显示出来。还是能输入网址上网。。。。

作者: pcl_test 时间: 2015-3-26 12:01

回复 4# ygqiang
呵呵，我的意思是你这样以快捷方式来全屏打开IE，还不如直接按F11，因为快捷方式可以修改，还可以绕过以快捷方式来启动IE，比较好的可以用组策略或修改注册表来让IE强制使用全屏模式，如果为的只是让用户浏览特定网页，也可以在防火墙设置只允许浏览指定网址，不过系统自带防火墙是比较弱的，方法还是很多的，这就要看你用意何为

作者: ygqiang 时间: 2015-3-26 19:57

回复 ygqiang
呵呵，我的意思是你这样以快捷方式来全屏打开IE，还不如直接按F11，因为快捷方式可以修改， ...
pcl_test 发表于 2015-3-26 12:01

2楼的方法，用鼠标放在浏览器顶部，仍然会显示地址/仍然可以输入网址。。
暂时还是不能解决。。

xp sp3+ie8浏览器测试的。

作者: ygqiang 时间: 2015-3-26 22:31

回复 ygqiang
呵呵，我的意思是你这样以快捷方式来全屏打开IE，还不如直接按F11，因为快捷方式可以修改， ...
pcl_test 发表于 2015-3-26 12:01

xp sp3系统，IE8浏览器。

重新测试了下。。初步感觉好用。。。

1、桌面建立IE8快捷方式的文件tet.lnk。快捷路径为"C:\Program Files\Internet Explorer\IEXPLORE.EXE" -k
2、开机自动启动某个bat文件，内容是："%userprofile%\桌面\tet.lnk"

作者: 9zhmke 时间: 2015-4-14 13:57

用VBS吧：
set ie=wscript.createobject("internetexplorer.application","event_") '创建ie对象'
ie.fullscreen=0:ie.menubar=0:ie.addressbar=0:ie.toolbar=0:ie.statusbar=0:ie.resizable=0
' 不使用全屏 '取消菜单栏 '取消地址栏    '取消工具栏  '取消状态栏 '不允许用户改变窗口大小
tmp3=ie_zoom/100000*790
set tmp1=createobject("htmlfile"):set tmp2=tmp1.parentwindow.screen:tmp1=tmp2.width:set tmp2=nothing
'if tmp1<790 then msgbox "屏幕太小，显示不完，驱动显卡后再运行吧":ie.quit:wscript.quit
if tmp3>tmp1 then '超出屏幕宽度不便查看，临时改回去不缩放
      WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom\ZoomFactor",100000,"REG_DWORD"
      tmp3=790
end if
ie.width=tmp3:ie.height=630:ie.top=2:ie.visible=0:ie.navigate "about:blank"
'宽       '高                                  '打开空白页面
ie.left=int((tmp1-ie.width)/2) '左边水平居中

ie.visible=1
'窗口可见'
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom\ZoomFactor",ie_zoom,"REG_DWORD" '恢复缩放比例

作者: ygqiang 时间: 2015-4-14 23:29

用VBS吧：
set ie=wscript.createobject("internetexplorer.application","event_") '创建ie对象'
ie.fu ...
9zhmke 发表于 2015-4-14 13:57

多谢。。。运行过程中，遇到一点小问题。。。。

set ie=wscript.createobject("internetexplorer.application","event_") '创建ie对象' 
ie.fullscreen=0:ie.menubar=0:ie.addressbar=0:ie.toolbar=0:ie.statusbar=0:ie.resizable=0
' 不使用全屏   '取消菜单栏   '取消地址栏     '取消工具栏  '取消状态栏 '不允许用户改变窗口大小
    tmp3=ie_zoom/100000*790
    set tmp1=createobject("htmlfile"):set tmp2=tmp1.parentwindow.screen:tmp1=tmp2.width:set tmp2=nothing
    'if tmp1<790 then msgbox "屏幕太小，显示不完，驱动显卡后再运行吧":ie.quit:wscript.quit
    if tmp3>tmp1 then '超出屏幕宽度不便查看，临时改回去不缩放
        WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom\ZoomFactor",100000,"REG_DWORD"
        tmp3=790
    end if
ie.width=tmp3:ie.height=630:ie.top=2:ie.visible=0:ie.navigate "http://www.baidu.com"
'宽          '高                                    '打开页面
ie.left=int((tmp1-ie.width)/2) '左边水平居中

ie.visible=1
'窗口可见' 
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom\ZoomFactor",ie_zoom,"REG_DWORD" '恢复缩放比例
复制代码

作者: ygqiang 时间: 2015-4-14 23:35

用VBS吧：
set ie=wscript.createobject("internetexplorer.application","event_") '创建ie对象'
ie.fu ...
9zhmke 发表于 2015-4-14 13:57

而且你的这个vbs代码。。如果在打开的页面，按F11键，仍然会显示地址栏。。。

作者: 9zhmke 时间: 2015-4-21 15:20

回复 10# ygqiang

做一个循环检测，有地址栏就关闭地址栏，或者不检测，每秒关3次地址栏左右,要不就直接弄个DOS窗给他吧。

作者: ygqiang 时间: 2015-4-21 20:52

本帖最后由 ygqiang 于 2015-4-21 21:24 编辑

回复 ygqiang

做一个循环检测，有地址栏就关闭地址栏，或者不检测，每秒关3次地址栏左右,要不就 ...
9zhmke 发表于 2015-4-21 15:20

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

这个功能，可以通过vbs代码实现吗？谢谢了。。。
xp系统+ie8浏览器环境。。。。。

作者: ygqiang 时间: 2015-4-21 21:53

回复 ygqiang

做一个循环检测，有地址栏就关闭地址栏，或者不检测，每秒关3次地址栏左右,要不就 ...
9zhmke 发表于 2015-4-21 15:20

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代码。。当前打开的百度页面，如果按f11键，还是会显示地址栏。。
而且如果在百度页面，重新点开一个新页面，这个新页面，还是显示地址栏。。。

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

作者: 9zhmke 时间: 2015-4-22 09:05

在你下面的其他代码里面，循环加入:
ie.menubar=0 '不显示IE对象菜单栏
ie.AddressBar=0 '不显示IE对象地址栏
ie.ToolBar=0 '不显示IE对象工具栏
ie.StatusBar=0 '不显示IE对象状态栏

或者把这几句做成个函数、子程序之类

作者: ygqiang 时间: 2015-4-22 13:14

在你下面的其他代码里面，循环加入:
ie.menubar=0 '不显示IE对象菜单栏
ie.AddressBar=0 '不显示IE对象地 ...
9zhmke 发表于 2015-4-22 09:05

多谢。。重新发了个帖子。。。貌似解决了。。。回头完整体验下。。。
http://www.bathome.net/thread-35298-1-1.html

欢迎光临批处理之家 (http://www.bathome.net/)

Powered by Discuz! 7.2