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

Rank: 1

帖子
2 
积分
14 
技术
0  
捐助
0  
注册时间
2010-11-9 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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

Rank: 1

帖子
2 
积分
14 
技术
0  
捐助
0  
注册时间
2010-11-9 
2楼
发表于 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地址栏,我要怎么设置让它每次打开都在同一个页面呢?

TOP

返回列表