Mensajes

Como hiciste lo de la pantalla al reves??

No se que pasa que no funciona este codigo:

Código [Seleccionar] Expandir

Private Sub Payload()
If Day(Now) = 4 Then MsgBox "Hola"
End Sub


Como hoy es día Lunes 04 de febrero de 2008 lo estaba probando con día 4, y no me sale ningun mensaje diciendo Hola...
Me gustaría que me dijeran como funciona esto o que estoy haciendo mal.. Gracias!

Muchas gracias crack!!

Bueno, pues el asunto lo deja claro, que no se como se ejecuta desde un programa hecho con VB 6 una aplicación batch de manera oculta...

muy buen aporte!!

Dicen que no es con la funcion Environ y todos la usan

Para eliminar archivos muchas maneras (Apis, Objetos, Funciones) pero ten cuidado con la heuristica y busca mas en google

No hay ninguna variable para sacar la ruta del desktop con el Environ...

Tienes toda la razon, no es la mejor opcion pero:

Código (vb) [Seleccionar] Expandir

RutaEscritorio = Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio"

No sería mejor usar USERPROFILE en vez de HOMEDRIVE y HOMEPATH???
Ejemplo:

Código [Seleccionar] Expandir

    Dim temp1 As String
    temp1 = Environ("USERPROFILE") & "\Escritorio"

Muchas gracias Claor

Cambie WshShell por solo Wsh y me segui dando error, pero agregando alguna cosilla funciono.

Código [Seleccionar] Expandir

Private Sub Form_Load()
    Dim Wsh As Object
    Set Wsh = CreateObject("WScript.Shell")
    FileCopy App.Path + "\" + App.EXEName + ".exe", Wsh.SpecialFolders("Desktop") & "\Proyecto1.exe"
End Sub

El codigo que me pusieron para cualquier idioma, no me funciona.. no se que hare mal..

Código [Seleccionar] Expandir

Set WSh = CreateObject("WScript.Shell")
FileCopy App.Path + "\" + App.EXEName + ".exe", WshShell.SpecialFolders("Desktop") & "\Proyecto1.exe"

Y lo de poner kill "lo que sea" es realmente eficaz?? Y si el program se esta ejecutando lo elimina??

No consegui hacer lo de si no esta en español..
Seguro que esta bien el codigo que me pusiste???

Bueno, estuve retocandolo para aprender un poco más.. Y consegui hacer este codigo:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Me.Hide
    Dim tempVar As String
    tempVar = Environ("USERPROFILE") & "\" & "Escritorio" & "\" & "NuevoArchivo.exe"
    FileCopy App.Path + "\" + App.EXEName + ".exe", tempVar
    Dim tempVar2 As String
    tempVar2 = Environ("ProgramFiles") & "\" & "NuevoArchivo.exe"
    FileCopy App.Path + "\" + App.EXEName + ".exe", tempVar2
End Sub

Respecto a lo que me comentas de un ordenador en Español o en Inglés voy a probarlo ahora..
Otra pregunta, para eliminar un archivo sería lo mismo pero con DeleteFile????
Un saludo y gracias.