Vbs脚本简单使用

1 System(vbs路径 参数); //空格隔开

 1 ‘‘‘‘‘Vbs脚本解析参数
 2 Set objArgs = Wscript.Arguments
 3 if objArgs.Count>0 Then
 4     msgbox objArgs(0)
 5 end if
 6 ‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘注释符号
 7 for x = 0 to objArgs.Count-1
 8     msgbox objArgs(x)
 9 next
10 
11 ‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘Vbs脚本执行.exe程序‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
12 Set objShell = CreateObject("Wscript.Shell")
13 commond="D:\MyProgram\WindTest.exe "+objArgs(0)
14 objShell.Run commond
15 
16 ‘‘‘‘‘‘‘调用函数(多个参数)‘‘‘‘‘‘‘‘
17 ActiveX1.CapturePicture argv1,argv2