'BY Coo_boi
If WScript.Arguments.Count=0 Then WScript.Quit
Dim fso,txt,htm
txt=WScript.Arguments(0)
Set fso=CreateObject("Scripting.FileSystemObject")
Set htm=fso.CreateTextFile(txt
安装windows script host,双击后缀为.vbs的文件运行，或者在命令行下，以cscript命令运行。前面展示了一个HTML文件中嵌套VBScript的例子。这里展示一个通过Windows Script Host执行的本地
将上述文件保存为后缀为vbs的文档，当你在资源管理器中双击该文档时，资源管理器通过查找注册表，发现该文件类型已与windows scripting Host 关联，因此调用WHS，并将文件名传入。WHS从文件开头执行，忽略掉注释文本。对这个例子来说，是从WSCript.Echo GetIP 处执行。
这样就引发了对函数GetIP的调用。WSH在当前脚本内找到该函数，执行，并将结果作为参数传给WSCript.Echo，显示后结束。Echo是对象WSCript的一个方法，当脚本以这种方式执行时，它以Messagebox的方式输出文本。当脚本在命令行方式下，以CScript.exe命令执行时，输出到控制台。
放进<head>标签中，在<head>标签里面加一个<script language="vbscript"></script>把你的代码写进script标签中。
很重要的一点你要注意。这种代码，调用了ActiveXObject的，只能在IE中运行，并且在默认的安全性设置中会提示页面中有脚本要运行（只要你用了ActiveXObject就会提示）
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）