search

iurisegtovich / ejecutar_shell

0 stars 0 forks source link

ejecutar shell strings #2

Open iurisegtovich opened 3 years ago

iurisegtovich commented 3 years ago 
Sub Button1_Click()
    Dim strProgramName As String
    Dim strArgument As String
    Dim strSpace As String

    'MsgBox ("cmd.exe")
    'Call Shell("cmd.exe")
    'abre o terminal

    'MsgBox ("cmd.exe")
    'Call Shell("cmd.exe", vbNormalFocus)
    'abre o terminal em primeiro plano

    'MsgBox ("""" & "cmd.exe" & """")
    'Call Shell("""" & "cmd.exe" & """", vbNormalFocus)
    'parece que em relação ao cmd, dá no mesmo chamar shell( string : cmd) ou shell( string : "cmd") <- aspas escapadas

    strSpace = " "

    strProgramName = "cmd.exe"
    strArgument = "diriririr"
    'MsgBox (strProgramName & strSpace & strArgument)
    'Call Shell(strProgramName & strSpace & strArgument, vbNormalFocus)
    'chama cmd, argumentos após 'cmd.exe' são ignorados

    strProgramName = "cmd.exe"
    strArgument = "/c dir"
    'MsgBox (strProgramName & strSpace & strArgument)
    'Call Shell(strProgramName & strSpace & strArgument, vbNormalFocus)
    'chama cmd, para executar o comando dir

    strProgramName = "cmd.exe"
    strArgument = "/k dir"
    'MsgBox (strProgramName & strSpace & strArgument)
    'Call Shell(strProgramName & strSpace & strArgument, vbNormalFocus)
    'chama cmd, para executar o comando dir e mantém o terminal aberto após a execução
    'note qual é o diretório padrão

    strProgramName = ThisWorkbook.Path & "\..\PROJECT_master\a.exe"
    strArgument = ""
    'Call Shell(strProgramName & strSpace & strArgument, vbNormalFocus)
    'chama um projeto exe, não dá para ver se der erro

    strProgramName = "cmd.exe /k" & strSpace & ThisWorkbook.Path & "\..\PROJECT_master\a.exe"
    strArgument = ""
    'Call Shell(strProgramName & strSpace & strArgument, vbNormalFocus)
    'chama um projeto exe, usa o cmd.exe /k para manter aberto

    strProgramName = ThisWorkbook.Path & "\..\PROJECT_master\a.exe"
    strArgument = "1"
    'Call Shell(strProgramName & strSpace & strArgument, vbNormalFocus)
    'chama um projeto exe, com argumentos repassados, fecha após conclusão com sucesso

    strProgramName = "cmd.exe /k" & strSpace & ThisWorkbook.Path & "\..\PROJECT_master\a.exe"
    strArgument = "1"
    'Call Shell(strProgramName & strSpace & strArgument, vbNormalFocus)
    'chama um projeto exe, com argumentos repassados, mantém aberto mesmo com sucesso

    MsgBox (ThisWorkbook.Path)
    strProgramName = "cmd.exe /k cd " & ThisWorkbook.Path & "& dir"
    strArgument = ""
    Call Shell(strProgramName & strSpace & strArgument, vbNormalFocus)
    'chama cmd com /k para manter aberto, usa cd para mudar caminho, depois chama projeto exe por caminho relativo

    '''''''''

    strProgramName = ThisWorkbook.Path & "\..\PROJECT_master\a.exe"
    strArgument = "1"
    'Call Shell("""" & strProgramName & """ """ & strArgument & """", vbNormalFocus)

    strProgramName = "cmd.exe /k"
    'Call Shell(strProgramName, vbNormalFocus)

    strProgramName = "cmd.exe /k cd " & ThisWorkbook.Path & "& ..\PROJECT_master\a.exe" & ""
    'Call Shell(strProgramName, vbNormalFocus)

    'strProgramName = "cmd.exe /k cd " & ThisWorkbook.Path & "& ..\PROJECT_master\a.exe" & " 1"

    'Call Shell(strProgramName, vbNormalFocus)

    'strProgramName = "cmd.exe /k cd " & ThisWorkbook.Path & "& ..\PROJECT_master\a.exe" & " 2"

    'Call Shell(strProgramName, vbNormalFocus)

    'strProgramName = "cmd.exe /k cd " & ThisWorkbook.Path & "& ..\PROJECT_master\a.exe" & " 3"

    'Call Shell(strProgramName, vbNormalFocus)

    'strProgramName = "cmd.exe /k cd " & ThisWorkbook.Path & "& ..\PROJECT_master\a.exe" & " 4"

    'Call Shell(strProgramName, vbNormalFocus)

    'strProgramName = "cmd.exe /k cd " & ThisWorkbook.Path & "& ..\PROJECT_master\a.exe" & " 5"

    'Call Shell(strProgramName, vbNormalFocus)

    'strProgramName = "cmd.exe /k cd " & ThisWorkbook.Path & "& ..\PROJECT_master\a.exe" & " 6"

    'Call Shell(strProgramName, vbNormalFocus)

    'strProgramName = "cmd.exe /k cd " & ThisWorkbook.Path & "& ..\PROJECT_master\a.exe" & " 7"

    'Call Shell(strProgramName, vbNormalFocus)

End Sub
iurisegtovich commented 3 years ago

Use the /D switch to change current drive in addition to changing current directory for a drive.

CD /D F:\nrcs_project