Mensajes

[NtSuspendProcess]

Hola, este es un ejemplo de estas 2 api's nativas de NTDLL.DLL, la api NtSuspendProcess sirve como dice la palabra para suspender un proceso, es como si lo dejaria trabado, y la otra NtResumeProcess sirve para liberarlo y reestablecerlo a la normalidad, es muy facil el funcionamiento no hay mucha vuelta de tuerca, simplemente se les pasa el handle del proceso abierto con OpenProcess y listo.aca en el ejemplo el PID que usa OpenProcess esta fijo, o sea al PID del proceso que quieran usar como ejempo lo van a tener que averiguar ustedes  , lo hago asi para no ensuciar el codigo fuente, ya que para obtener el PID hay millones de paginas para ver como hacerlo y por eso se los dejo a ustedes.supongamos entonces que nuestro PID es el 1384 y supongamos pertenece a la calculadora de windows.

Código (vb) [Seleccionar] Expandir

'****************************************************************
' Procedure : SuspendProcess
' Author    : seba123neo
' Date      : 20/10/2009
' Purpose   : Suspend/Resume Process
'****************************************************************

Option Explicit

'NTDLL.DLL
Private Declare Function NtSuspendProcess Lib "ntdll.dll" (ByVal hProc As Long) As Long
Private Declare Function NtResumeProcess Lib "ntdll.dll" (ByVal hProc As Long) As Long

Private Enum TYPESUSPEND
   Suspend = 0
   Release = 1
End Enum

Private Const SYNCHRONIZE = &H100000
Private Const STANDARD_RIGHTS_REQUIRED = &HF0000
Private Const PROCESS_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF)

Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Sub Command1_Click()
   Call SuspendProcess(1384, Suspend)
End Sub

Private Sub Command2_Click()
   Call SuspendProcess(1384, Release)
End Sub

Private Sub SuspendProcess(ByVal pPID As Long, ByVal pTypeSuspend As TYPESUSPEND)
   Dim vHandle As Long
   vHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pPID)
   If vHandle <> 0 Then
       Select Case pTypeSuspend
           Case 0: NtSuspendProcess vHandle
           Case 1: NtResumeProcess vHandle
       End Select
   End If
   CloseHandle vHandle
End Sub


saludos.

estas copado con NTDLL  , esta buena, yo ahi postie un ejemplo de una que me parece no esta posteado por aca, yo despues entre estos dias te voy a armar un post donde te pongo todos los codigos de esta api nativa que pusiste en el foro, para que quede en un solo topic y no se pierda.

saludos.

[http://www.bux.to/view.php?ad]

y bueno es facil , vas a tener que hacer como un filtro...antes de cargar al listbox preguntas si el link contiene en la cadena http://www.bux.to/view.php?ad, si la contiene la ingresas y si no no lo ingresas, lo podes hacer con InStr()

saludos.

esta bien la idea, asi queda todo lo que tiene que ver con SQL en un solo lado y es mas facil de encontrar despues los post...ahora lo que creo es que va a ser dificil por lo menos al principio que se den cuenta de que las dudas van ahi, lo van a seguir posteando en el lenguaje que tengan la duda..

gracias por responder, pero lo logre solucionar, cuando mandaba los comandos estaba leyendo solamente la primer linea de lo que me mandaba el servidor, ahora lo leo hasta el final y ahi estaban los contactos ..unos 500 contactos 

saludos.

el datacombo siempre esta enlazado a un recordset, pues simplemente hacele un recordcount al recordset y ahi sacas la cantidad de registros...

podes dar un ejemplo de cuales serian los links que queres y cuales no ??

Bueno no se si esto te servira
creo q esto es lo q quieres hacer o no ?¿???¿
o me perdi
http://www.pucpr.edu/asociaciones/acm/Articulos/vb_bdatos.html

algo parecido, pero sin controles ADODC o DATA, todo desde codigo...

[SYN 8 0]

Hola, no estoy muy metido en el tema del protocolo del MSN, pero ayer probando y leyendo lo basico logre conectarme, obtener el ticket y que me devuelva el estado OK con mi nick, ahora la pregunta es como hacer para obtener la lista de contactos, probe enviar el comando SYN 8 0, pero no me devuelve nada, me devuelve algo como 524 Hotmail Hotmail ...., tienen por ahi alguna guia o como deberia ser ? o si cambio algo y ya no reconoce mas ese comando ?? gracias desde ya.

saludos.

[Frame1.Caption = Variable]

1 - te conectas a la base.

2 - te logueas (ni idea como te logueas ahora). guardas el nombre del usuario logueado en una variable publica.

3 - al cargar ese formulario haces algo como Frame1.Caption = Variable