vb 调用 VBS

vb.net调用

vbsfile= chr(34)+ app.path+ "\GB.vbs"+chr(34)
shell "wscript.exe " +  vbsfile

关于vb6.0 调用/运行 VBS 几种方式：

一：Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 

ShellExecute Me.hwnd, "open", "c:\test.vbs", , , vbNormalFocus  

二： 
          Shell "cmd.exe /c ""c:\test.vbs"""   
   
    附：c:\test.vbs运行完cmd.exe自动关闭 

隐藏cmd.exe 

Shell "cmd.exe /c ""c:\test.vbs""", vbHide   

三：Function LoadVBS() 
Dim RetVal 
Set WshShell = CreateObject("Wscript.Shell") 
RetVal = WshShell.Run("c:\test.vbs", 1, True) 
Set WshShell = Nothing 
End Function　   

四：

    Shell "wscript.exe   c:\test.vbs", 1   
   

五：添加一个Microsoft script control 1.0 控件

Private Sub Command1_Click()
    Dim FileName     As String
                  Dim VbsStr     As String
                  Dim FileID     As Long
                  Dim I     As Long
                    
                  FileID = FreeFile
                  Open “c:\test.vbs" For Input As #FileID
                          VbsStr = StrConv(InputB$(LOF(FileID), 1), vbUnicode)         ' 把vbs的代码读入变量
                  Close #FileID
    
                  ScriptControl1.AddCode VbsStr        
End Sub