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

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

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!