<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