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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!