Aru*_*hit 4 vbscript internet-explorer
我有10个.vbs文件并将它们合并到一个.vbs文件即Main.vbs.Now如果我双击main.vbs,我的脚本开始运行.但我正在寻找可以从网络浏览器运行.vbs文件？所以没有人需要去Main.vbs保存的目录并双击它.
我的Main.VBS内容:
Dim oShell : Set oShell = WScript.CreateObject ("WScript.Shell")
Dim FSO : Set FSO = CreateObject("Scripting.FileSystemObject")
oShell.CurrentDirectory = FSO.GetFile(Wscript.ScriptFullName).ParentFolder
oShell.run "A.VBS", 1, True
oShell.run "B.VBS", 1, True
oShell.run "C.VBS", 1, True
oShell.run "D.VBS", 1, True
是的,如果您使用Internet Exlorer,则可以使用,但是您必须保持较低的IE安全设置才能运行它,即使这样您也可以提示确认.全部取决于Windows的哪个版本和SP,哪些安全更新,哪个版本的IE以及IE中的哪些设置.
我建议再看看你为什么要用这种方式启动本地脚本.您可以轻松制作和分发启动脚本的快捷方式,而无需麻烦的设置和提示.
如果您需要一个用户界面,您可以使用Vbscript内置版,或者您可以使用.HTA文件而不是.html或.asp文件,安全性不是这些文件的问题.
例如:test.html
<script type="text/vbscript" src="c:\temp\test.vbs"></script>
和test.vbs
Const ForReading = 1, ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set writefile = fso.OpenTextFile("c:\temp\output.txt", ForWriting, True)
writefile.write "test"
writefile.close
当我加载test.html时,我得到两个提示,当我确认我得到c:\ temp中的output.txt
最后这里有一个.hta文件的例子,保存为例如test.hta,alwyas在使用ActiveX或Vbscript时使用IE
<HTML>
<HEAD>
<SCRIPT language="VBScript">
<!--
Const ForReading = 1, ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set writefile = fso.OpenTextFile("c:\temp\output.txt", ForWriting, True)
writefile.write "test"
writefile.close
'-->
</SCRIPT>
</HEAD>
<BODY>
</BODY>
</HTML>
要么
<HTML>
<HEAD>
<script type="text/vbscript">
sub test
const runminimized = 7
const dont_wait_for_end = false
Set wshShell = CreateObject("WScript.Shell")
WshShell.Run "c:\temp\test.vbs",runminimized, dont_wait_for_end
end sub
</script>
</HEAD>
<BODY>
these are the instructions
<button onclick="vbscript:test" >Run the script</button>
</BODY>
</HTML>
| 归档时间： |
|
| 查看次数： |
27169 次 |
| 最近记录： |