WScript-Befehl - Ausführen-Minimiert? (MSAccess/VBA)

Diese Frage vielleicht ein wenig alt, aber ich vermute, dass diese Antwort noch in der Lage sein zu helfen.
(Getestet mit Excel-VBA, nicht in der Lage gewesen, um zu testen mit Access)

Den WshShell.Exec-Methode ermöglicht die Verwendung von .StdIn, .StdOut und .StdErr Funktionen zum schreiben und Lesen von der consol-Fenster.
Die WshShell.Run-Methode nicht erlaubt diese Funktionalität für einige Zwecke, die Verwendung von Exec erforderlich ist.

Während es wahr ist, dass es keine eingebaute Funktion zum starten des Exec-Methode minimiert oder ausgeblendet werden, können Sie verwenden die API, um schnell die Exec-Fenster hwnd und minize/ausblenden.

Meine unten das Skript nimmt die ProcessID von dem Exec-Objekt zu finden, das Fenster Hwnd. Mit der Hwnd-Sie können dann das Fenster Status anzeigen.

Von meinen Tests mit Excel 2007 VBA in den meisten Fällen, die ich nie sehen sogar die Fenster... In einigen Fällen kann es sichtbar sein, für ein paar Millisekunden, aber würde nur erscheinen, eine schnelle flackern oder blinken... Anmerkung: ich hatte bessere Ergebnisse mit SW_MINIMIZE als ich mit SW_HIDE, aber Sie können spielen, um mit es.

Fügte ich die TestRoutine Sub zu zeigen, ein Beispiel, wie die "HideWindow" - Funktion.
Die "HideWindow" - Funktion verwendet die "GetHwndFromProcess' - Funktion, um das Fenster hwnd aus der ProcessID.

Ort, der unten in ein Modul...

Option Explicit
'   ShowWindow() Commands
Public Const SW_HIDE = 0
Public Const SW_MINIMIZE = 6
'GetWindow Constants
Public Const GW_CHILD = 5
Public Const GW_HWNDFIRST = 0
Public Const GW_HWNDLAST = 1
Public Const GW_HWNDNEXT = 2
Public Const GW_HWNDPREV = 3
Public Const GW_OWNER = 4
'   API Functions
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long


Sub TestRoutine()
    Dim objShell As Object
    Dim oExec As Object
    Dim strResults As String

    Set objShell = CreateObject("WScript.Shell")
    Set oExec = objShell.Exec("CMD /K")
    Call HideWindow(oExec.ProcessID)

    With oExec
        .StdIn.WriteLine "Ping 127.0.0.1"
        .StdIn.WriteLine "ipconfig /all"
        .StdIn.WriteLine "exit"
        Do Until .StdOut.AtEndOfStream
            strResults = strResults & vbCrLf & .StdOut.ReadLine
            DoEvents
        Loop
    End With
    Set oExec = Nothing
    Debug.Print strResults
End Sub


Function HideWindow(iProcessID)
    Dim lngWinHwnd As Long
    Do
        lngWinHwnd = GetHwndFromProcess(CLng(iProcessID))
        DoEvents
    Loop While lngWinHwnd = 0
    HideWindow = ShowWindow(lngWinHwnd, SW_MINIMIZE)
End Function

Function GetHwndFromProcess(p_lngProcessId As Long) As Long
    Dim lngDesktop As Long
    Dim lngChild As Long
    Dim lngChildProcessID As Long
    On Error Resume Next
    lngDesktop = GetDesktopWindow()
    lngChild = GetWindow(lngDesktop, GW_CHILD)
    Do While lngChild <> 0
        Call GetWindowThreadProcessId(lngChild, lngChildProcessID)
        If lngChildProcessID = p_lngProcessId Then
            GetHwndFromProcess = lngChild
            Exit Do
        End If
        lngChild = GetWindow(lngChild, GW_HWNDNEXT)
    Loop
    On Error GoTo 0
End Function

ShowWindow-Funktion:
http://msdn.microsoft.com/en-us/library/windows/desktop/ms633548%28v=vs.85%29.aspx

GetWindow-Funktion:
http://msdn.microsoft.com/en-us/library/windows/desktop/ms633515%28v=vs.85%29.aspx

GetDesktopWindow Funktion:
http://msdn.microsoft.com/en-us/library/windows/desktop/ms633504%28v=vs.85%29.aspx

GetWindowThreadProcessId Funktion:
http://msdn.microsoft.com/en-us/library/windows/desktop/ms633522%28v=vs.85%29.aspx

Wenn du mehr Informationen benötigst, wie die API ' s zu arbeiten, eine schnelle google-Suche werden Sie mit einer Tonne von Informationen.

Ich hoffe, dass dies helfen kann... Danke.

die run-Methode des wscript enthält bereits argumewnts zu laufen minimiert. So, ohne Mühe, dass alle oben gezeigt wird, verwenden Sie einfach

alten code

oShellObject.Run sCommandStringToExecute & " > " & sShellRndTmpFile, 0, True

neuen code

oShellObject.Run sCommandStringToExecute & " > " & sShellRndTmpFile, 7, True

finden Sie in der Microsoft-Hilfe für die Verwendung der run-Methode wscript.

hinsichtlich

Ytracks