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ú
asique yo ahora me estoy centrando en ver como van todas las apis de los sockets y tal y creo que lo primero que se debe crear es una clase o modulo para la conexion del servidor. Si alguien tiene experiencia en el uso de las apis y los sockets creo que nos vendria bien una ayuda, a mi se me esta haciendo algo pesado lo de los sockets ya que casi toda la informacion sobre el trabajo con ellos esta en ingles y no entiendo bien todo. Creo que eso es lo primero que hacer y lo mas importante porque sin ello no hay servidor xD
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

un saludo y espero ver un reto en el que pueda participar pronto!