Board logo

标题: 请教如何用VBS编写屏蔽IE右键,以窗口模式打开IE [打印本页]

作者: xykot    时间: 2010-11-9 21:17     标题: 请教如何用VBS编写屏蔽IE右键,以窗口模式打开IE

<script language="JavaScript">
<!--
var ftr = "status=no,scrollbars=yes,resizable=yes,menubar=no,**=no,titlebar=no";
window.open(" http://www.qq.com","啊",ftr);

//-->
</script>

以上代码是JAVA的,保存为 html 后缀名即可打开,我用IE7但是打开的时候总是提示拦截,所以想请教下各位如果用VBS脚本达到同样目的,要怎么编写呢?
我就是想以窗口模式打开指定的网页,然后屏蔽右键使用,达到效果就是让别人不知道该网页地址是什么,但不影响使用! 诚心求教,谢谢!
作者: xykot    时间: 2010-11-9 21:59

set http=createobject("Microsoft.XMLHTTP")
http.open "get","http://www.qq.com",false
http.send
w=zhuanghuan(Http.responsebody)
http.open "get","http://www.qq.com",false
http.send
h=zhuanghuan(Http.responsebody)
Function zhuanghuan(vIn)
    strReturn = ""
    For i = 1 To LenB(vIn)
        ThisCharCode = AscB(MidB(vIn,i,1))
        If ThisCharCode < &H80 Then
            strReturn = strReturn & Chr(ThisCharCode)
        Else
            NextCharCode = AscB(MidB(vIn,i+1,1))
            strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
            i = i + 1
        End If
    Next
    zhuanghuan = strReturn
End Function
Set http=Nothing
Set Objie=CreateObject("InternetExplorer.application")
Objie.Visible=True
Objie.Navigate "http://www.qq.com"
Objie.menubar=0
Objie.AddressBar=1
Objie.ToolBar=0
Objie.StatusBar=0
Objie.Resizable=1
Objie.height=h
Objie.width=w
Set Objie=Nothing


以上VB脚本打开的效果显示是 窗口模式的,但是打开速度太慢了,而且点击内容时会弹出另一个窗口,另一个窗口还是会显示出IE地址栏,我要怎么设置让它每次打开都在同一个页面呢?




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