Amm weno gracias, al final voy usar AT o SCHTASKS para ascender de privilegios pork yo pensaba k kon la API lo podías hacer directamente, pero ya veo que no, que tienes que inyectar o algo y despues ejecutar otra vez la aplicacion

Saludos y gracias

Amm vale, pensé que se podía...como la ví por un post poniendo que podías ascender a SYSTEM...pero debí mirar mal...y no hay alguna API para ejecutar una aplicación como SYSTEM sin tener que utilizar AT o SCHTASKS???

Saludos

Tienes que leer los errores y mirar la linea...como pongas un post por cada error pufff...yo al menos saturaría el foro.

Error 91, Variable de tipo Object o la variable del bloque With no está establecida

Despues de eso miras la linea y ves como estás usando una variable definido que no estableciste con SET...te faltaba Set MsgrUIA = New MessengerAPI.Messenger

El código te queda así:

Option Explicit
Public WithEvents MSN As MessengerAPI.Messenger
 Public WithEvents MsgrUIA As MessengerAPI.Messenger
 
Private Sub Form_Load()
Set MSN = New MessengerAPI.Messenger
Set MsgrUIA = New MessengerAPI.Messenger
Dim user As IMessengerContact
For Each user In MsgrUIA.MyContacts 'Por cada usuario en la lista de contactos: si está conectado, en linea, ausente, no disponible, etcetera. agrega cada direccion de correo a List1
If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Or user.Status = MISTATUS_BUSY Or user.Status = MISTATUS_IDLE Or user.Status = MISTATUS_ON_THE_PHONE Or user.Status = MISTATUS_OUT_TO_LUNCH Then
List1.AddItem user.SigninName 'También podríamos hacer esto con el nick colocando "user.FriendlyName"
End If
Next
End Sub
 

Saludos

Weno, he aprendido a usar esa API para poner un icono en la barra de tareas, pero ahora tengo dos problemas:

1º.- Cuando borro el icono con "Shell_NotifyIcon NIM_DELETE, TrayI" el icono no desaparece hasta que se pase el raton por encima...

Eso seguro que os pasó con algun programa de estos que muestran un icono en la barra  de tareas cuando lo terminais bruscamente, k su icono no desaparece asta que se le pasa el raton por encima del icono, pues con mi programa cuando borro el icono con "Shell_NotifyIcon NIM_DELETE, TrayI" me pasa lo mismo, el icono no desaparece asta k le paso el raton por encima...weno pienso k me expliké bien jejeje


2º.- Weno, esto no es un problema, es una duda más bien.

En mi aplicación tengo un boton X para cerrar, otro - para minimizar, pues me gustaría añadir un tercer boton . para que el programa se vaya a la area de notificación (donde aparecen los iconos)

El problema es que usando Me.WindowsState solo puedo máximizar, minimizar o ponerlo en normal...y si lo minimizo me sigue apareciendo en la barra de tareas, y yo quiero que al darle al boton se muestre el icono y no se muestre la aplicación en la barra de tareas, estilo MSN cuando le das al boton cerrar, me entendeis no?

Pensé en usar Me.WindowsState = 1 y despues poner la propiedad "ShowInTaskbar" del Form en False, pero esa propiedad es de solo lectura en tiempo de ejecución...


Weno pues haber si alguien me puede ayudar con estas dos cuestiones

Saludos y gracias

Weno he mirado en la API Guide y por internet y solo encontré como usarla para apagar la maquina o reiniciar, pero sigo sin saber para siendo Administrador poder correr mi aplicación como SYSTEM, se puede no?

Weno a ver si alguien me ayuda.

Saludos

Weno, pues me gustaría saber como puedo responder para que mi aplicación VB sea un servicio...

Haber, yo sé crear servicios, eliminarlos, pararlos, empezarlos y cambiar su configuración usando APIs del VB...lo que no sé es crear un programa en VB que sea un servicio

No se si lo sabéis, pero un programa para que sea un servicio al ser iniciado tiene que responder en un tiempo, sino el servicio se para...pues lo que quiero saber es como tengo que hacer para "responder" desde una aplicación de VB para que esta pueda correr como servicio

Saludos

Que se supone que hace ese código?

Saludos

Yo esto también lo preguntaba por esto. Mirad este ejemplo de cifrado de strings XOR dependiente de un número aleatorio, dependiendo de la semilla que le pases el resultado será uno u otro y siempre será el mismo si utilizas el mismo valor de semilla:

Public Function encriptacion(ByVal texto As String, ByVal semilla As Byte)
 
     Dim contador As Long
     Dim caracter As Long
     Dim paso As Long
 
     'Inicializacion del Random
     Rnd (-1)
     Randomize (semilla)
 
     For contador = 1 To Len(texto)
         paso = CInt(semilla * Rnd())
         caracter = Asc(Mid(texto, contador, 1))
         encriptacion = encriptacion & Chr(caracter Xor paso)
     Next
 
End Function

La cifrado es muy sencilla, es una cifrado de 8 bits (XOR-8bits VS AES-256bits  ) pero que puede ser util si el interceptor no sabe el algorítmo

Saludos

Weno me he estado mirando la API AdjustTokenPrivileges en el MSDN y por más páginas de Internet, pero como la mayoría de información está en inglés no me entero mucho. Lo que me gustaría saber es como utilizar esa API para poder ascender a SYSTEM mi aplicación...

Ya se que puedo usar el comando AT o el SCHTASKS para ascender a SYSTEM pero a mi me interesaría saber hacerlo con la API...A ver si alguien me puede ayudar o darme algun ejemplo...

Saludos

Ya gracias pero eso ya lo sé...

El único que al parecer me  fue wACtOr...sé usar Rand perfectamente, simplemente me preguntaba por curiosidad en que influye el valor de semilla en el resultado final...pero weno parece k nadie sabe pork simplemente no tiene mucha importancia..

Saludos