
首先你对vbe的理解可能不准确
vbe和vbs都是基于vb的脚本语言
vbe是vbs的加密版本 可以screnc.exe来加密
正常的vbe脚本 用记事本打开是乱码的
(未加密的vbs程序也可以存为vbe执行)
另外,你要知道现在很少在网页上使用vbs脚本,因为firefox、chrome、safari、opera浏览器都不支持这个语言,只支持javascript。只有微软的internet explorer支持自家的vbs。
下面正面回答你的问题
在网页中加入以下代码即可在支持并且没有禁用vbs语言的浏览器中d窗对话框。比如ie
<script language="vbscript">msgbox "welcome"
</script>
如果要让网页在不同浏览器下都支持,应该用javascript
<script language="javascript">alert("welcome")
</script>
(第一行的language=“javascript”可以省略)
我试了一下,ie11似乎不支持vbs了。总之别在网页里用vbs。改成javascript吧
dim xp,url,MyStreamurl=inputbox("输入网址")
if url&"a"<>"a" then
set xhp=createobject("microsoft.xmlhttp")
xhp.open "get",url,false
xhp.send
Set MyStream=CreateObject("Adodb.Stream")
MyStream.Type = 1
MyStream.Open
MyStream.Write xhp.responseBody
MyStream.SaveToFile "c:\xxx.html"
Msgbox "保存成功!哈哈"
end if
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)