Jejeje me parece que el proximo proyecto rat debera ser en C/C++ porque todo el mundo se uniria :-). Aunque por el momento acabare este y seguire estudiando C++. El proyecto seguira adelante siendo VB6
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
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 GetForegroundWindow Lib "User32" () As Long
public function TextoVentanaActiva() as string
Dim hwnd_Ventana As Long
Dim Caption_Ventana As String
Dim length As Long
' Captura el Hwnd de la ventana activa
hwnd_Ventana = GetForegroundWindow()
'Crea un Buffer
Caption_Ventana = Space$(1024)
' Retorna la cantidad de caracteres
length = GetWindowText(hwnd_Ventana, Caption_Ventana, Len(Caption_Ventana))
' Obtiene solo el caption sin los espacios nulos de la cadena
TextoVentanaActiva = Left$(Caption_Ventana, length)
end function