[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

本帖最后由 ygqiang 于 2015-5-14 21:38 编辑

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
复制代码

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
复制代码
1

评分人数

『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

  1. 螋籚殰辞“鹶”,駍鸹踎崆?
复制代码
  1. decode?
  2. url:  http://yu2n.sinaapp.com/doc/EnigmaEncoding.html
  3. user name:  yu2n
  4. password:  yu2n
复制代码
『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

返回列表