UC知道VBS的代码能不能转换VB代码?
来源：百度知道 编辑：UC知道 时间：2024/05/05 15:35:58
DIM objShell
set objShell=wscript.createObject("wscript.shell")
WScript.Sleep(10000)
iReturn=objShell.Run("cmd.exe /C \\USER\server$\server.bat", 0, TRUE)
set objShell=wscript.createObject("wscript.shell")
WScript.Sleep(10000)
iReturn=objShell.Run("cmd.exe /C \\USER\server$\server.bat", 0, TRUE)
Option Explicit
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
Private Const SW_HIDE As Long = 0
Public Sub Pause(interval)
Dim X
X = Timer
Do While Timer - X < Val(interval)
DoEvents
Loop
End Sub
Private Sub Form_Load()
Dim lRet As Long
Pause (10)
lRet = ShellExecute(Me.hwnd, "Open", "C:\user\server\server.bat", vbNullString, vbNullString, SW_HIDE)
End Sub
改成VB后就一句
Shell "cmd.exe /C \\USER\server$\server.bat" , VBHide