Supressing Dialog Box Using VBScript -
i have automated testing program, uses soapui, executed using vbscript. however, whenever execute testing program soapui dialog box opens asking "do want improve soapui sending usage statistics." manually click "no," , testing program keeps running along.
is there way suppress dialog box never appears when run automated testing program. vbscript code below.
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)
i have resolved problem using sendkeys.
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("~")
Comments
Post a Comment