Unterdrücken von Dialogbox mit VBScript

Question

Ich habe ein automatisiertes Testprogramm, das SOAPUI verwendet, das mit VBScript ausgeführt wird. Jedes Mal, wenn ich das Testprogramm ausführe, öffnet sich ein SOAPUI-Dialogfeld mit der Frage "Möchten Sie uns helfen, SOAPUI zu verbessern, indem Sie Nutzungsstatistiken senden". Ich klicke manuell auf "Nein" und das Testprogramm läuft weiter.

Gibt es eine Möglichkeit, dieses Dialogfeld zu unterdrücken, so dass es nie angezeigt wird, wenn ich das automatisierte Testprogramm ausführe. Der VBScript-Code ist unten.

Option Explicit 

Dim RootFolder, ExecFolder, Command, FSO, Shell 

Set FSO = CreateObject("Scripting.FileSystemObject") 
Set Shell = CreateObject("WScript.Shell") 

RootFolder = FSO.GetParentFolderName(FSO.GetParentFolderName(WScript.ScriptFullName)) 
ExecFolder = FSO.GetParentFolderName(WScript.ScriptFullName) 

On Error Resume Next 

'Clean previous log files 
Call FSO.DeleteFile(ExecFolder & "\*.txt", True) 
Call FSO.DeleteFile(RootFolder & "\Test\*.txt", True) 
Call FSO.DeleteFile(ExecFolder & "\*.log", True) 

'Execute 
Command = Chr(34) & RootFolder & "\SoapUI\bin\testrunner.bat" & Chr(34) & " " & _ 
      Chr(34) & RootFolder & "\Test\Expando.xml" & Chr(34) 

Shell.CurrentDirectory = ExecFolder 
Call Shell.Run(Command, 1, True) 

Answer 1

Ich habe dieses Problem gelöst, indem Sie SendKeys verwenden.

OPTION EXPLICIT 

Dim RootFolder, ExecFolder, Command, FSO, Shell 

Set FSO = CreateObject("Scripting.FileSystemObject") 
Set Shell = CreateObject("WScript.Shell") 

RootFolder = FSO.GetParentFolderName(FSO.GetParentFolderName(Wscript.ScriptFullName)) 
ExecFolder = FSO.GetParentFolderName(Wscript.ScriptFullName) 

On Error Resume Next 

'Clean previous log files 
Call FSO.DeleteFile(ExecFolder & "\*.txt", True) 
Call FSO.DeleteFile(RootFolder & "\Test\*.txt", True) 
Call FSO.DeleteFile(ExecFolder & "\*.log", True) 

'Execute 
Command = Chr(34) & RootFolder & "\SoapUI\bin\testrunner.bat" & Chr(34) & " " & Chr(34) & RootFolder & "\Test\Expando.xml" & Chr(34) 

Shell.CurrentDirectory = ExecFolder 
Call Shell.Run(Command, 1, False) 
WScript.Sleep(20000) 
Shell.SendKeys("~")