Nie można użyć nawiasów Dzwoniąc Sub błąd 800A0414 VBS

Question

Dostaję błąd 800A0414 w liniach 7 i 12 tego skryptu:

Module Module1 

    Dim p 

    Sub Main() 
     CreateObject("Wscript.Shell").Run("program.bat", 0, True) 

     p = Process.GetProcessesByName("program") 
     If p.Count > 0 Then 
      WScript.Sleep(300000) 
     Else 
      CreateObject("Wscript.Shell").Run("program clean up.bat", 0, True) 
     End If 

    End Sub 

    Private Function WScript() As Object 
     Throw New NotImplementedException 
    End Function 

End Module 

próbuję uruchomić skrypt wsadowy, który uruchamia proces, a następnie poczekaj, aż proces się zakończy, a następnie uruchom kolejny skrypt wsadowy. Nie chcę również pokazywać żadnych okien poleceń. Jeśli ich jest łatwiejszy, proszę daj mi znać.

Dzięki za pomoc

Answer 1

Kiedy ująć listę argumentów danej procedurze w nawiasie, należy użyć Call kluczowe:

Call CreateObject("WScript.Shell").Run("program.bat", 0, True) 

Jeśli pominąć słowa kluczowego Call, należy również spaść nawiasów:

CreateObject("WScript.Shell").Run "program.bat", 0, True 

Answer 2

Wydaje mi się, że jest to kod VB.NET, a nie VBScript. Masz Shell function w VB.NET (i inne metody).

W każdym razie, Run zwraca kod błędu zwrócony przez program, a jeśli użytkownik zapisze wynik w zmiennej, można w tym przypadku użyć nawiasów.

Dim lResult As Long 
lResult = CreateObject("Wscript.Shell").Run("program.bat", 0, True) 

Resztę odpowiedział @Helen.

Answer 3

Aby wypełnić to, co zostało powiedziane wcześniej:

Kiedy Call kluczowe służy do wywołania procedury (czyli sub lub funkcja) argumenty musi być ujęty w nawiasy, wyjątkiem gdy procedura nie ma argumenty, w którym to przypadku nawiasy są opcjonalne. Na przykład wszystkie wypowiedzi:

Call test() 
Call test 
Call test(1,2) 

są ważne, ale nie ten:

Call test 1 

Przy wywołaniu procedury bez użycia słowa kluczowego połączenia, nawiasy można tylko być stosowane, gdy albo procedura ma zero lub jeden argument, lub procedura ma wartość zwracaną (tj. jest to funkcja ), a jej wartość jest używana w oświadczeniu o tej samej nazwie:. Na przykład wszystkie stwierdzenia:

test() 
test(1) 
test(1,2) 
a = test 
a = test(1,2) 
a = test(test(1,2),2) 

są ważne, z wyjątkiem trzeciego, który ma więcej niż jeden argument. W przypadku, gdy nie jest to jasne, wewnętrzne wywołanie "test" w ostatniej instrukcji jest ważne, ponieważ jego wartość zwracana jest używana jako argument do innego połączenia.

Należy zauważyć, że gdy nawiasy jest stosowane w niniejszym tekście, rozumie się jako oznaczające możliwe wartości przecinek -separated również.