Mensajes

que se comian

Si hay cosa que más odio, es estar a oscuras con el ordenador encendido... No lo soporto...

[Cita de: Ikillnukes]

Pincha donde dice "Cita de: Ikillnukes" y verás lo que ocurre...

Saludos.

Ya no me dí cuenta de hacerlo, me di cuenta más tarde xD

Un administrador de Snippets:

http://forum.mphca.net/showthread.php?150809-Release-Vb-net-Code-Snippet-Manager



PD: NO LO HE TESTEADO

Anda, que chulo...

PD: Sigues sin opinar el Source que he encontrado..

bonito llamado

[Edit:]

http://foro.elhacker.net/seguridad/mini_csrf_smf_jaavier_0x5d-t382746.0.html
Si lo has probado manualmente, entonces habrás visto esto ...

Hacking Attemp...

Claro, por eso...

PD: Es una de las chinchetas de este foro!

Creo que estoy más ciego de lo que he dicho aquí:

http://foro.elhacker.net/foro_libre/iquestcuantos_de_ustedes_usan_lentesgafasanteojos_encuesta-t395958.0.html;msg1875336#msg1875336

Juas...



Edit:



Ostias xD Nunca leí esta parte, y ahora que lo he visto el cambiar me ha percido que era solo texto... Lol, estoy super ciego...

[Edit:]

http://foro.elhacker.net/net/customizar_texto_2_o_3_veces_dentro_del_mismo_label-t394160.0.html;msg1867848#msg1867848

Edit: Pero que digo? xD Si eso es un topic, es verdad, me reitero a lo dicho, pero por igual, me refería a StackOverflow, "la comunidad del código hecho", si tu lo sabes bien, que algunos preguntan unas cacho burradas que pa que...

Mientras tu te molestabas en buscar el topic yo me estaba reiterando en lo que he dicho, pido perdón...

Es más, si se me permite voy a citar un topic de StackOverFlow en el que creo que me vais a dar la razón...

La super ultra mega pregunta de PHP: http://stackoverflow.com/questions/17475292/no-database-selected-on-php/17475317#17475317

Solo a ese topic me refería (porque no encuentro preguntas muy noobs, bueno puede que algunas, pero son fallos tontos que cualquiera podría tener, hasta yo mismo), no me digáis, que no tengo razón, por lo menos quien sepa de PHP, pensará que ese tío que ha hecho la pregunta es un burro... No me digáis que no, porque eso es ya trolear...

Puede que llevéis razón, en que otra persona puede estar pensando lo mismo de mi en .NET, pero eso no me quita a mi, de defender lo que si se en PHP



Y ya dejemos desviar el tema...

Que os parece el Snippete que me he encontrado por ahí?

[Eh, eh, eh!]

Eh, eh, eh! xDD Me estás citando temas de MP xD Eso es privado, además, eso es en StackOverFlow, aquí no he visto nadie noob, solo que lo piden todo muy hecho, vamos como soy yo... xD

Ale, hasta aquí mi último offtopic, no quiero quedar yo como el malo, ostias!

Maemia, vas y me sacas un MP que no tiene nada que ver con EHN, pero a que juegas? LOL xDD
PD: No te tomes a mal la expresión "a que juegas"

Un saludo.

[Offtopic] No subestimar a los demás, alguien podría estar pensando lo mismo sobre ti en .NET

Por ejemplo, medio foro... xD



Edit: Pero que digo? xD Si eso es un topic, es verdad, me reitero a lo dicho, pero por igual, me refería a StackOverflow, "la comunidad del código hecho", si tu lo sabes bien, que algunos preguntan unas cacho burradas que pa que...

[Nuevo Snippet, calcular distancia recorrida con el ratón:]

Nuevo Snippet, calcular distancia recorrida con el ratón:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

#Region "Variables"
   Private Enum eUnidades  'Las unidades de nuestro "odometro" serán metro o kilometros
       Metros = 0
       Kilometros
   End Enum
   Private UnidadActual As eUnidades

   Private NOMBRE_FICHERO_ODOMETER As String = "MouseOdometerNET.tmp"  'Fichero donde se guardará la distancia recorrida (siempre en milimetros)
   Private NOMBRE_FICHERO_ODOMETER_Config As String = "MouseOdometerNET.cfg" 'Fichero donde se guardará si la distancia está en metros o kilometros

   Private DistanciaRecorridaMM As Single  'Distancia total recorrida (siempre en milimetros)

   Private Structure sPointMM  'Coordenadas del raton en milímetros
       Dim X As Single
       Dim Y As Single
   End Structure

   Private gDPIX As Integer = 96   'DPIs de la pantalla
   Private gDPIY As Integer = 96

   Private WithEvents TMR_guardarDistancia As New Timer    'Timer que periodicamente guarda la distancia en el fichero
   Private WithEvents TMR_capturaPosicionMouse As New Timer    'Timer de captura de la posición del raton

   Private puntoAnterior As New Point(0, 0)    'Punto capturado anteriormente
#End Region

#Region "Ficheros. Lectura / Escritura"
   Private Sub EscribirFichero(ByVal Fichero As String, ByVal Data As String)
       Dim objFileWrite = New System.IO.StreamWriter(Fichero, False, System.Text.Encoding.Default)
       objFileWrite.Write(Data)
       objFileWrite.Flush()
       objFileWrite.Close()
   End Sub

   Private Function LeerFichero(ByVal Fichero As String) As String
       Dim objFileRead As New System.IO.StreamReader(Fichero)
       Dim sData As String = objFileRead.ReadToEnd
       objFileRead.Close()

       Return sData
   End Function
#End Region

#Region "Eventos a nivel de formulario"
   Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
       TMR_capturaPosicionMouse.Enabled = False
       TMR_guardarDistancia.Enabled = False

       TMR_capturaPosicionMouse.Dispose()
       TMR_guardarDistancia.Dispose()

       'Cuando cerramos el programa, se graba la distancia recorrida
       EscribirFichero(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER, DistanciaRecorridaMM.ToString)

       GC.Collect()
   End Sub

   'Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
   '    If Me.WindowState = FormWindowState.Minimized Then
   '        Me.Visible = False
   '    End If
   'End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim g As Graphics = Me.CreateGraphics()
       gDPIX = g.DpiX '¿Cual son los DPI de la pantalla?
       gDPIY = g.DpiY

       Me.WindowState = FormWindowState.Minimized
       NotifyIcon1.ShowBalloonTip(20, "Información", "MouseOdemeterNET Ejecutándose", ToolTipIcon.Info)

       IniciarParametros() 'Carga los "parámetros"
       SetCheckUnidadMenu() 'Activa o desactiva la unidad de medida acutal en el ContextMenu

       'Si no existe el fichero con la distancia recorrida, se crea un nuevo
       If IO.File.Exists(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER) = False Then
           EscribirFichero(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER, "0")
           DistanciaRecorridaMM = 0
       Else
           'En caso contrario, se carga la distancia recorrida
           Dim s As String = LeerFichero(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER)
           DistanciaRecorridaMM = CType(s, Single)
       End If

       'Inicializamos el timer de la captura de la posicion del raton
       TMR_capturaPosicionMouse.Interval = 250
       TMR_capturaPosicionMouse.Enabled = True

       'Cada "60 segundos" se irá guardando la distancia recorrida
       TMR_guardarDistancia.Interval = 60000
       TMR_guardarDistancia.Enabled = True

       'Obtenemos el punto acual donde se encuentra el raton
       puntoAnterior = Cursor.Position

       Me.Width = 0
       Me.Height = 0
   End Sub
#End Region

#Region "Calculo de la distancia"
   'Convierte una posicion de pixel en pantalla a su valor en milimetros
   Public Function PIXELtoMM(ByVal ValorPixel As Integer, ByVal ValorDPI As Integer) As Single
       Return (ValorPixel / ValorDPI * 25.4)
       'Return (Format(((25.4 * ValorPixel) / ValorDPI), "0.0000"))
   End Function

   ' Calcula la distancia entre dos puntos (expresados en pixels)
   Private Function DistanciaEntreDosPuntos(ByVal Origen As Point, ByVal Destino As Point) As Single

       If (Origen.X = Destino.X) And (Origen.Y = Destino.Y) Then
           Return 0
       Else
           'Paso 1: los puntos pasados como "pixels" se convierten en coordenadas cartesianas en "milimetros"
           Dim tmpPointOrigenMM As sPointMM

           Dim tmpPointDestinoMM As sPointMM

           tmpPointOrigenMM.X = PIXELtoMM(Origen.X, gDPIX)
           tmpPointOrigenMM.Y = PIXELtoMM(Origen.Y, gDPIY)

           tmpPointDestinoMM.X = PIXELtoMM(Destino.X, gDPIX)
           tmpPointDestinoMM.Y = PIXELtoMM(Destino.Y, gDPIY)

           'Paso 2: Aplicar la formula de la distancia entre dos puntos para saber la distancia en milimetros
           'd=SQR[ (destino.x-origen.x)^2 + (destino.y-origen.y)^2 ]

           Dim Xdist As Single = Math.Pow((tmpPointDestinoMM.X - tmpPointOrigenMM.X), 2)
           Dim Ydist As Single = Math.Pow((tmpPointDestinoMM.Y - tmpPointOrigenMM.Y), 2)

           Return Math.Sqrt(Xdist + Ydist)

       End If
   End Function
#End Region

#Region "Timers"
   'Timer que va guardando la distancia en un fichero
   Private Sub TMR_guardarDistancia_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TMR_guardarDistancia.Tick
       EscribirFichero(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER, DistanciaRecorridaMM.ToString)
   End Sub

   'Timer que va capturando la posición del raton
   Private Sub TMR_capturaPosicionMouse_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TMR_capturaPosicionMouse.Tick

       'Oculta el "formulario". Esto se hace solo la primera vez que se entra en este timer
       Static bHecho As Boolean
       If bHecho = False Then
           bHecho = True
           Me.Visible = False
       End If

       Dim MousePosition As Point
       MousePosition = Cursor.Position

       'Actualiza la variable con la distancia recorrida
       DistanciaRecorridaMM += DistanciaEntreDosPuntos(puntoAnterior, MousePosition)
       puntoAnterior.X = MousePosition.X
       puntoAnterior.Y = MousePosition.Y

       'Muesta la distancia en el ContextMenu
       Select Case UnidadActual
           Case eUnidades.Metros
               DistanciaToolStripMenuItem.Text = DistanciaRecorridaMM / 1000 & " m"
           Case eUnidades.Kilometros
               DistanciaToolStripMenuItem.Text = DistanciaRecorridaMM / 1000000 & " km"
       End Select

       'y en el "caption" del NotifyIcon
       NotifyIcon1.Text = "MouseOdometerNET (" & DistanciaToolStripMenuItem.Text & ")"

   End Sub
#End Region

#Region "ContextMenu"
   '¿Cerrar la aplicación?
   Private Sub CerrarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CerrarToolStripMenuItem.Click
       If MessageBox.Show("Oh Dios mío. ¿Estás seguro que deseas volver a la soledad del escritorio de Windows?", Application.ProductName, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
           Me.Close()
       End If
   End Sub
   '¿Resetear la distancia recorrida?
   Private Sub ResetearToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResetearToolStripMenuItem.Click
       If MessageBox.Show("¿Estás seguro que deseas resetear la distancia recorrida?", Application.ProductName, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
           EscribirFichero(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER, "0")
           DistanciaRecorridaMM = 0
       End If
   End Sub
   'Seleccionar la distancia como "Metros"
   Private Sub MetrosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MetrosToolStripMenuItem.Click
       UnidadActual = eUnidades.Metros
       EscribirFichero(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER_Config, UnidadActual)
       SetCheckUnidadMenu()
   End Sub
   'Seleccionar la distancia como "Kilometros"
   Private Sub KilometrosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KilometrosToolStripMenuItem.Click
       UnidadActual = eUnidades.Kilometros
       EscribirFichero(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER_Config, UnidadActual)
       SetCheckUnidadMenu()
   End Sub
#End Region

#Region "Miscelanea"
   'Devuelve cual es la carpeta "Temporal" de Windows
   Private Function CarpetaTempWindows() As String
       Dim s As String
       s = IO.Path.GetTempPath
       If s.EndsWith("\") = False Then s &= "\"
       Return s
   End Function
   'Activa o desactiva la unidad de distancia en el ContextMenu
   Private Sub SetCheckUnidadMenu()
       Select Case UnidadActual
           Case eUnidades.Kilometros
               KilometrosToolStripMenuItem.CheckState = CheckState.Checked
               MetrosToolStripMenuItem.CheckState = CheckState.Unchecked
           Case eUnidades.Metros
               KilometrosToolStripMenuItem.CheckState = CheckState.Unchecked
               MetrosToolStripMenuItem.CheckState = CheckState.Checked
       End Select
   End Sub
   'Inicia los "parámetros", de tal forma que si cerramos el programa y luego lo volvemos a ejecutar,
   'Se inicializara la "unidad" de medida anterior
   Private Sub IniciarParametros()
       If IO.File.Exists(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER_Config) = False Then
           UnidadActual = eUnidades.Metros
           EscribirFichero(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER_Config, UnidadActual)
       Else
           Dim s As String = LeerFichero(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER_Config)
           UnidadActual = CType(s, eUnidades)
       End If
   End Sub
#End Region

End Class

Fuente: http://www.gamefilia.com/ollydbg/11-07-2009/24484/cuantos-kilometros-recorre-tu-raton-adivinalo-ahora

Source: http://blog.transitopesado.com/blog/file.axd?file=2011%2f2%2fMouseOdometerNET_source.zip

Un saludo.
PD: Con esto voy a poder hacer mi app, ahora solo me falta saber cuantas letras clico al día... Según Drvy vio por ahí cada 1000 teclas son 20 calorías, pues ale, a hacer reglas de 3...

Y así puedo sacar cuantas calorías se queman xD Que te parece?

aunque fue peor por haberme dejado estar por mucho tiempo

A mi me pasó lo mismo, me tire 2 años sin gafas forzando la vista, pues cuando llegue a la óptica normal que me sacasen tanto... :s

[EDIT:]

tengo 1.2 y 1.5 de astigmatismo, de lejos veo mal,

Y lo raro es, ves bien de cerca?

EDIT:

las uso para usar un hmd que tengo, sin ellas lo veo todo borroso,

Ah vale... xD

sobre todo por la noche,

A mi me pasaba sobre todo, veía todas las luces como estrellitas, con puntas...