Как запустить команду оболочки без открытия окна CMD в VB6

Question

следующий код является частью моей программы VB6

Я использовал команду оболочки в VB для выполнения pscp.exe с флагами и аргументами

Моя проблема в том, когда VBзапустите строку:

      Shell strCommand, 1  

также откройте окно CMD на 2-4 секунды (всплывающее окно CMD)

мой вопрос - можно ли запустить "Shell strCommand, 1"таким образом, что окно CMD не открывается?

Я имею в виду - я не хочу видеть какое-либо всплывающее окно CMD при запуске приложения VB

  Const cstrSftp As String = "D:\pscp.exe"
  Dim strCommand As String
  Dim pUser As String
  Dim pPass As String
  Dim pHost As String
  Dim pFile As String
  Dim pRemotePath As String
  pUser = "root"
  pPass = "pass123"
  pHost = "110.218.201.15"
  pFile = """D:\scan_ip.ksh""" 
  pRemotePath = "/var/tmp"

  strCommand = cstrSftp & " -sftp -l " & pUser & " -pw " & pPass & " " & pHost & ":" & pRemotePath & " " & pFile


  Shell strCommand, 1  

Answer 1

Вы можете использовать скрытый фокус:

Shell strCommand, vbHide

или

Shell strCommand, 0

Для других типов фокусировки смотрите Здесь или http://msdn.microsoft.com/en-us/library/aa242087%28v=VS.60%29.aspx (спасибо MarkJ за ссылку)