可不可以在VBScript里用API?或者Shell函数？

Question

可以，先 自己写个 ActiveX, 把需要 调用的 API 封装在里面， 并 提供 函数接口。再 在你的 脚本中(.vbs)
用 ： 
Set oTest = CreateObject("FunctionName.ActiveXName")
oTest.APIFunction(……）就 可用了。

Answer 1

代码：
<script language="VBScript">
  Sub cRun
    set WshShell = CreateObject("WScript.Shell")
    WshShell.Run "d:\project1.exe"
  End Sub
  Call cRun
</script> 

Answer 2

<script language="VBScript">
  Sub mRun
    set WshShell = CreateObject("WScript.Shell")
    WshShell.Run "1.exe"
  End Sub
  Call cRun
</script>