Board logo

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

作者: ygqiang    时间: 2015-4-21 21:57     标题: [已解决]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
复制代码

作者: yu2n    时间: 2015-4-22 11:16

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    时间: 2015-5-23 02:52

  1. 螋籚殰辞“鹶”,駍鸹踎崆?
复制代码
  1. decode?
  2. url:  http://yu2n.sinaapp.com/doc/EnigmaEncoding.html
  3. user name:  yu2n
  4. password:  yu2n
复制代码





欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2