Título: Ocultar CAIN??
Publicado por: Hole_System en 13 Junio 2008, 21:17 pm
Señores ya he rebuscao y no encuentro algun code que me permita ocultar el CAIN, cre que no estoy usando bien la Api me baje la Api Guide use el Ejemplo de FindWindows y nada...
Help...
Título: Re: Ocultar CAIN??
Publicado por: SKL (orignal) en 13 Junio 2008, 21:41 pm
CAIN???, el programa para descifrar hash y esas cosas?? o que onda?
Título: Re: Ocultar CAIN??
Publicado por: Xerok1! en 13 Junio 2008, 22:22 pm
Si lo que quieres es ocultar la ventana la buscas con FindWindow y la ocultas con ShowWindow.. Pd:Si tienes algun problema te paso un code que arme hace tiempo.. Un saludo!
Título: Re: Ocultar CAIN??
Publicado por: seba123neo en 14 Junio 2008, 01:10 am
mostra lo que haces,a ver que esta mal...
Título: Re: Ocultar CAIN??
Publicado por: Hole_System en 15 Junio 2008, 08:10 am
He probado con varios Code de la Api Guide y no funka pq la Api Findwindows espera el parametro del nombre de la ventana pero como cain no tienes hay que buscar por otras cosas, habia un ejemplo que era ejecutandolo entonces usando el PID usabas otra Api para poder obtener el HNWD, pero el cod lo que hace es meter el cain dentro de mi Form y mas o menos resuelvo pero quisiera hacerlo elegante no con trampas...
Pues si pueden poner cualquier codigo que me pueda servir, bienvenido sea...
Grx
Título: Re: Ocultar CAIN??
Publicado por: Xerok1! en 15 Junio 2008, 11:57 am
Option Explicit Const SW_HIDE = 0 Const SW_NORMAL = 1 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Dim handle As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function ReleaseCapture Lib "user32.dll" () As Long Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Const LW_KEY = &H1 Const G_E = (-20) Const W_E = &H80000 Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wFlag As Long) As Long Private Const GW_HWNDFIRST = 0& Private Const GW_HWNDNEXT = 2& Private Const GW_CHILD = 5& Private Sub Listar() Dim buf As Long, handle As Long, titulo As String, lenT As Long, ret As Long List1.Clear handle = GetWindow(hwnd, GW_HWNDFIRST) Do While handle <> 0 If IsWindowVisible(handle) Then lenT = GetWindowTextLength(handle) If lenT > 0 Then titulo = String$(lenT, 0) ret = GetWindowText(handle, titulo, lenT + 1) titulo$ = Left$(titulo, ret) List1.AddItem titulo$ End If End If handle = GetWindow(handle, GW_HWNDNEXT) Loop End Sub Private Sub Form_Load() Listar End Sub Private Sub Command1_Click() handle = FindWindow(vbNullString, List1.Text) ShowWindow handle, SW_HIDE End Sub Private Sub Command2_Click() handle = FindWindow(vbNullString, List1.Text) ShowWindow handle, SW_NORMAL End Sub
Pruebalo ;) Un saludo :)
Título: Re: Ocultar CAIN??
Publicado por: Hole_System en 18 Junio 2008, 06:38 am
Grx por responder pero lamentablemente no funciona..
Muchas grx por el code de todas formas..
Salu2
Título: Re: Ocultar CAIN??
Publicado por: seba123neo en 18 Junio 2008, 19:03 pm
¿¿¿¿¿como que no funciona >:(?????? funciona perfecto..no lo probe con ese programa...pero ¿lo probaste con otros?
Título: Re: Ocultar CAIN??
Publicado por: Hole_System en 20 Junio 2008, 06:16 am
¿¿¿¿¿como que no funciona >:(?????? funciona perfecto..no lo probe con ese programa...pero ¿lo probaste con otros?
Q con el CAIN no funciona, recuerda q estoy hablando del CAIn especificamente.... Saludos a todos
|