Coordenadas Mouse - Punto infinito - VB

[Puntoinfinito]

¡Hola a todos!
Hace unos días me vi obligado a saber mis cordenadas del mouse para poder hacer una cosa.

Claro, lo que hice fue hacer una progrmación javascript... pero claro solo te dava las cordenadas de la pestaña donde estas, en el caso seria el navegador.

Por eso hice una programación basica de Visual Basic en la que te sale un programa que te dice las cordenadas.

Coordenadas Mouse

• No hace falta instalador (Solo faltaria xD)
• Tiene la capacidad de copiar las cordenadas.
• Muy práctico y rápido, mientras lo tienes minimizado cuntinua calculando
• Y mucho más xD

Todo parece una tonteria pero... la verdad es que lo he echo que sea efectivo y comodo.

Link:

mediafire.com/?e7saimdcdv8eg64 (Raul338: No contiene el código fuente)


Es una de mis primeras programaciónes y queria compartirlas con vosotros.

Saludos

Aqui les muestro mi codigo fuente del software en VB.

Código [Seleccionar] Expandir

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim x As String
        x = MousePosition.X
        Dim y As String
        y = MousePosition.Y
        TextBox1.Text = x
        TextBox2.Text = y
    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

[-- KiLiaN --]

Si está hecho en VisualBasic porque lo has posteado aquí y no en su correspondiente subforo? 

[Puntoinfinito]

Merda, lo he puesto en scripts... xD
Jope, tanto ir hacia atras, hacia adelante con el buscador me he perdido
Pues pido porfavore, que un moderador si cree necesario mueva el post.

Disculpen xd
PD: Os invito a probarlo y me decis que tal:)

[raul338]

Si vas a postear un programa, postealo con su codigo fuente (si es muy chico o es un aporte solo postea el codigo)

Si no, postealo en el foro de Software...

[79137913]

HOLA!!!

Aca tienen el magico codigo del programa que muestra las coordenadas:

Código (vb) [Seleccionar] Expandir


'AGREGUEN UN TIMER Y DENLE A PLAY
Private Type POINTAPI
   x As Long
   y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim z As POINTAPI

Private Sub Form_Load()
Me.Show
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
GetCursorPos z
Me.Cls
Print "x: [" & z.x & "]y: [" & z.y & "]"
End Sub


P.D: Tiempo de creacion del codigo... Aprox 4 minutos



GRACIAS POR LEER!!!

[Puntoinfinito]

Ya he puesto el codigo.
Reactivar el liink D:

[raul338]

Esos eventos son típicos de .net, te lo muevo

[Puntoinfinito]

xD Ya me lo han movido 2 veces, ala venga a disfrutar de tu próximo sitio; .net
jaja

[79137913]

HOLA!!!

JAJAJA! No comments 

GRACIAS POR LEER!!!

[kub0x]

Solo falta que quites el timer y pongas un bucle infinito y lo duermes con un sleep durante X segundos (el intervalo que tienes puesto en el timer).

Gualá, así tienes un timer con una sentencia de control.

La verdad es que en .NET me divierto más

Saludos.