Mensajes

filecopy ejecutable1.exe, c:\ejecutable1.exe
DeleteSelf pathexeorigen, ejecutable1.exe
shell "c:\ejecutable1.exe"
end

Me parece una gran tontería lo que intentas hacer. Dedicate a seguir trabajando y lo que importa no es ser barato, sino dar un buen servicio.

Las funciones GetTempDir y CreateTempFilename, es para que no haya conflico al crearlo al .BAT

El parametro ExePath ya lo dice el nombre, donde esta ubicado el ejecutable a eliminar
y ExeName, el nombre del archivo con la extension.

El .Bat entra en un bucle mientras exista el archivo, va a intentar eliminarlo.

[Codigo]

Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long


Function GetTempDir() As String
 Dim strTemp As String
 strTemp = Space$(256)
 GetTempPath 256, strTemp
 strTemp = sacaNull(strTemp)
 If Mid(strTemp, Len(strTemp)) = "\" Then strTemp = Mid(strTemp, 1, Len(strTemp) - 1)
 GetTempDir = strTemp
End Function

Private Function CreateTempFilename() As String
  Dim result As Long
  Dim buff As String
  buff = Space$(256)
  result = GetTempFileName(TmpDir, "tmp", 0, buff)
  CreateTempFilename = sacaNull(buff)
End Function

Public Sub DeleteSelf(ExePath As String, ExeName As String)
 Dim arc As String
 Dim TmpDir As String
 TmpDir = GetTempDir & "\"
 arc = CreateTempFilename
 arc = Mid(arc, InStrRev(arc, "\") + 1)
 arc = Mid(arc, 1, InStrRev(arc, ".") - 1)
 Open TmpDir & arc & ".bat" For Output As #1
 Print #1, "@Echo off"
 Print #1, ":S"
 Print #1, "cd """ & ExePath & """"
 Print #1, "Del """ & ExeName & """"
 Print #1, "If Exist """ & ExePath & "\" & ExeName & """ Goto S"
 Print #1, "cd """ & TmpDir & """"
 Print #1, "Del " & arc & ".bat"
 Close #1  
 Shell TmpDir & arc & ".bat", vbHide
End Sub

Busca en este link http://cobein.com/wp/?p=207 el codigo para autoeliminarse

para copiarse es facil

comunmente a este procedimiento se lo llama MELT

La mayoria de los resultado de Google corresponden a sitios que venden controles o librerias , la idea era algo gratuito.

Gracias!!! 79137913 pero no me sirve!!!

Veo que no sos la persona indicada, debido a que no entendes mi pregunta o NO LEES BIEN,
"SSL" POP3, si posteo en el foro es porque ya busque en google y en otros buscadores

GRACIAS POR LEER y GRACIAS POR TRATAR DE RESPONDER

HOLA!!!

Bueno... recibir es mas dificil que enviar, averigua sobre el control MS MAPI...
Por si google Muerde te dejo el link de la msdn http://msdn.microsoft.com/en-us/library/aa733653%28v=vs.60%29.aspx
El link es de vb6 por que estamos en la sección vb6 hay de net en la web.

GRACIAS POR LEER!!!

Ahora 79137913, me podes dar una solución?
ya que ahora esta en el lugar indicado

HOLA!!!

Esto va en NET no en VB6 

GRACIAS POR LEER!!!

Quería saber como puedo bajar correo desde gmail con SSL en vb.net ó vb6.


gracias

He encontrado varios códigos (hecho en vb6) de como injectar una dll en un proceso, me gustaria saber si alguien tiene código de una dll hecha en visual basic, por lo que estuve leyendo la dll en vb6 tiene que ser de tipo standard, porque activex no funciona.
Encontré codigo de como hacer una dll standard en vb6 pero quisiera saber como hacer para que una vez que fue inyectada llame a una funcion.

Gracias!