alexylour1

Debido al incremento de mensajes de correo electrónico fraudulentos muchas veces necesitamos cerciorarnos de la procedencia de un email, por ejemplo para saber si realmente el email que recibimos es enviado desde la localidad en que supuestamente se encuentra la persona o empresa con la que tratamos.A continuación veremos un truco en Hotmail que nos permitirá averiguarlo. Para ello:•Abre tu bandeja de entradas de Hotmail•Marca la casilla a la izquierda del correo que quieres averiguar, luego haz clic derecho y selecciona "Ver código fuente del mensaje" •Se abre una ventana en la que aparece una serie de información en inglés, la que nos interesa es la que aparece en el recuadro rojo:•X-Originating - IP: es el IP que buscamos (de la persona que nos envió el email)•From: El seudónimo de quien nos envió el email•To: nuestro seudónimo •Ahora entramos a la página http://whatismyipaddress.com/ y nos aparecerá nuestra dirección IP.•Ingresamos la dirección IP que aparece en "X-Originating - IP" y hacemos clic en "Complete IP Details •Finalmente nos aparece la localidad desde nos enviaron el email (país y ciudad) y un mapa. Nota: existen programas que permiten cambiar la direcciòn IP, por lo tanto este método no es 100% fiable.Recuerden Comentar, Compartir, Recomendar

Hola amigos esta vez les traigo como hacer un reproductor multimedia en vb6 Si tiene dudas no pregunten quedense con ella! he aqui el post: 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 Gracias por comentar!!!!

Hola T! en este post les quiero dejar la Explicación de la famosa remera que dice "C:/dos, C:/dos/run, Run/dos/run" de Los Simpsons, para que se rian entendiendo El vendedor de comic (comic book guy) lleva esta remera cuando se reunen para recibir a Lisa como una nueva integrante de Mensa. La remera tiene la inscripción: C:/DOS C:/DOS/RUN RUN/DOS/RUN Lo que representa un chiste que según Lisa (en la traducción, no sé si en el original también) solo entendería una persona en un millón (o solo le resultaría graciosa a una en un millón). Aquí en latinoamérica probablemente ni siquiera se llegue a esa cifra. Este es otro de esos chistes de los Simpsons que carecen de traducción o comprensión directa. El chiste se basa en la relación que se hace con una frase escrita en un libro para niños muy conocido en Norteamérica. El libro fue escrito para ayudar a los niños a desarrollar sentencias. Este libro contiene las frases: “See Spot. See Spot Run. Run Spot Run”. La relación existe porque la letra C en inglés se pronuncia como “See”, con lo cual la frase en la remera quedaría “See DOS. See DOS Run. Run DOS Run”. Una traducción de esto quedaría como “Mira a DOS. Mira a DOS correr. Corre DOS Corre”. Lo que resulta en una frase similar a la pronunciada en Forrest Gump (”run Forrest run”. Toda una combinación de relaciones que hace la inscripción graciosa, pero solo si la captas en el momento. Una curiosidad es que las barras de DOS reales son invertidas, y no las que se muestran en la remera. Se dice que es por el soporte que algunos creadores de los Simpsons hacen al sistema operativo Linux, pero esto no lo he podido confirmar. Espero que les haya gustado mi post Gracias por pasar!!!

Les dejo este video corto de PEDOBEAR link: http://www.youtube.com/watch?v=dh6wtATgJRs comenten si les gusto!!!!