Temas

Estoy programando un keylogger,

La parte de las teclas esta ventilada ya, estoy en la parte de capturar la ventana activa, pero tengo problemas, porque al poner que me envie la ventana:

Código [Seleccionar] Expandir

Handle = GetForegroundWindow()
Longitud = GetWindowTextLength(Handle) + 1
Texto = Space(Longitud)
Retorno = GetWindowText(Handle, Texto, Longitud)
ventana = Left(Texto, Longitud - 1)
Text1.Text = Text1.Text & ventana & vbCrLf

Me la pone muchas veces, es decir, en el log me aparece:

Código [Seleccionar] Expandir

Ventana activa
Ventana activa
Ventana activa
Ventana activa
Ventana activa
Ventana activa

Entonces hice que si la ventana era lo mismo que la que ya habia, no hiciera nada. Quedó asi:

Código [Seleccionar] Expandir

ventana2 = "vacio"
If ventana <> ventana2 Then
Text1.Text = Text1.Text & ventana & vbCrLf
ventana2 = ventana


Como veis, primero le digo que la variable ventana2 es "vacio" ( por ejemplo )
Despues, si la ventana activa no es "vacio",  agrega al log la ventana, y hace que la variable ventana2 sea lo mismo que la ventana actual. Asi si la ventana sigue siendo la misma, esta no se pondrá en el Text.

Pero queda igual, en el text sigue saliendo

Código [Seleccionar] Expandir

Ventana activa
Ventana activa
Ventana activa
Ventana activa
Ventana activa
Ventana activa

Creo que me he expresado con claridad jeje
A ver que hago mal, Gracias

Salu2

Código [Seleccionar] Expandir

dim ncon as integer
Private Sub ws_ConnectionRequest(Index As Integer, ByVal requestID As Long)
ncon = ncon + 1
With ws(Index)
.Close
.Accept requestID
End With
Load ws(Index + 1)
With ws(Index + 1)
.LocalPort = port
.Listen
End With
ws(Index).SendData "hem acceptat la teva peticio de conexio" & vbCrLf
Beep
List1.AddItem (ws(Index).RemoteHostIP & " sa conectat")
End Sub

Estoy haciendo un troyano.
Quiero que tenga una interfaz parecida a la del bifrost, que salga la cuadricula con los conectados y de ahi selecciono el que quiera y llevo a cabo las acciones.

Pero estoy teniendo problemas con ese codigo.

Primero me daba error al compilar en:

(Index As Integer, ByVal requestID As Long)

Decia que la declaracion del procedimiento no coincide con la descripcion del procedimiento del mismo nombre.

Asi que el Index as integer lo declare en General.

Despues el error me lo dio al cargar otro socket

With ws(Index)

Dice Numero de argumentos erroneo o asignacion de propiedad no valida

Necesito ayuda porque estoy atascado y he buscado por todos sitios y no encuentro nada al respecto.

Gracias

Quiero hacer 1 programa que utilice el Driver de el mando de la PS2, vamos, que el programa lo maneje con el driver del mando de la PS2 que tengo en el PC instalado.

A ver si podeis ayudarme

Hola,

Resulta que estaba haciendo un programa en VB bastante curioso.

Y queria crear un .txt Asi que puse

Código [Seleccionar] Expandir

Private Sub Command2_Click()
Open "C:\New.txt" For Output As #1
Print #1, , "<script languaje="; javascript; ">"
Close #1

El problema está en que la sentencia Print reconoce solo lo que hay entre las comillas. Y las comillas forman parte del texto que quiero que creé. Entonces solo reconoce el "<script languaje=" y lo demás se lo toma como variable no definida

A ver que podría hacer para solucionar esto

En todos los tutoriales que he leido de VB al llegar al 1º ejemplo de programa, te dicen introduce un textbox , un command botton y yo que se mas xD A nadie se le ha ocurrido que no se como introducirlo ? He buscado por la ayuda del VB he buscado por todo el foro y no encuentro nada
A ver si podeis ayudarme

Thx