elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado:


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Coordenadas Mouse - Punto infinito - VB
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 3 Ir Abajo Respuesta Imprimir
Autor Tema: Coordenadas Mouse - Punto infinito - VB  (Leído 17,718 veces)
Puntoinfinito


Desconectado Desconectado

Mensajes: 919


#! /win/archlinux


Ver Perfil WWW
Coordenadas Mouse - Punto infinito - VB
« en: 22 Marzo 2012, 22:02 pm »

¡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:
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





« Última modificación: 23 Marzo 2012, 14:21 pm por puntoinfinito » En línea

AHORA EN SOFTONIC || CLICK HERE!!
Base64: QWNhYmFzIGRlIHBlcmRlciAxIG1pbnV0byBkZSB0dSB2aWRhLiBPbOkh



HACK AND 1337 : http://hackandleet.blogspot.com
WEBSITE: http://www.infiniterware.
-- KiLiaN --


Desconectado Desconectado

Mensajes: 1.163


Ju Já!!


Ver Perfil
Re: Coordenadas Mouse - Punto infinito - VB
« Respuesta #1 en: 22 Marzo 2012, 22:06 pm »

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


En línea

Puntoinfinito


Desconectado Desconectado

Mensajes: 919


#! /win/archlinux


Ver Perfil WWW
Re: Coordenadas Mouse - Punto infinito - VB
« Respuesta #2 en: 22 Marzo 2012, 22:19 pm »

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:)
En línea

AHORA EN SOFTONIC || CLICK HERE!!
Base64: QWNhYmFzIGRlIHBlcmRlciAxIG1pbnV0byBkZSB0dSB2aWRhLiBPbOkh



HACK AND 1337 : http://hackandleet.blogspot.com
WEBSITE: http://www.infiniterware.
raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Coordenadas Mouse - Punto infinito - VB
« Respuesta #3 en: 22 Marzo 2012, 23:01 pm »

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...
En línea

79137913


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
Re: Coordenadas Mouse - Punto infinito - VB
« Respuesta #4 en: 23 Marzo 2012, 13:03 pm »

HOLA!!!

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

Código
  1. 'AGREGUEN UN TIMER Y DENLE A PLAY
  2. Private Type POINTAPI
  3.    x As Long
  4.    y As Long
  5. End Type
  6. Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  7. Dim z As POINTAPI
  8.  
  9. Private Sub Form_Load()
  10. Me.Show
  11. Timer1.Interval = 1
  12. End Sub
  13.  
  14. Private Sub Timer1_Timer()
  15. GetCursorPos z
  16. Me.Cls
  17. Print "x: [" & z.x & "]y: [" & z.y & "]"
  18. End Sub
  19.  

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



GRACIAS POR LEER!!!
« Última modificación: 23 Marzo 2012, 13:07 pm por 79137913 » En línea

"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*
Puntoinfinito


Desconectado Desconectado

Mensajes: 919


#! /win/archlinux


Ver Perfil WWW
Re: Coordenadas Mouse - Punto infinito - VB
« Respuesta #5 en: 23 Marzo 2012, 14:44 pm »

Ya he puesto el codigo.
Reactivar el liink D:
En línea

AHORA EN SOFTONIC || CLICK HERE!!
Base64: QWNhYmFzIGRlIHBlcmRlciAxIG1pbnV0byBkZSB0dSB2aWRhLiBPbOkh



HACK AND 1337 : http://hackandleet.blogspot.com
WEBSITE: http://www.infiniterware.
raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Coordenadas Mouse - Punto infinito - VB
« Respuesta #6 en: 23 Marzo 2012, 14:46 pm »

Esos eventos son típicos de .net, te lo muevo ;)
En línea

Puntoinfinito


Desconectado Desconectado

Mensajes: 919


#! /win/archlinux


Ver Perfil WWW
Re: Coordenadas Mouse - Punto infinito - VB
« Respuesta #7 en: 23 Marzo 2012, 14:54 pm »

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

;D
En línea

AHORA EN SOFTONIC || CLICK HERE!!
Base64: QWNhYmFzIGRlIHBlcmRlciAxIG1pbnV0byBkZSB0dSB2aWRhLiBPbOkh



HACK AND 1337 : http://hackandleet.blogspot.com
WEBSITE: http://www.infiniterware.
79137913


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
Re: Coordenadas Mouse - Punto infinito - VB
« Respuesta #8 en: 23 Marzo 2012, 15:09 pm »

HOLA!!!

JAJAJA! No comments  :silbar:

GRACIAS POR LEER!!!
En línea

"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*
kub0x
Enlightenment Seeker
Moderador
***
Desconectado Desconectado

Mensajes: 1.486


S3C M4NI4C


Ver Perfil
Re: Coordenadas Mouse - Punto infinito - VB
« Respuesta #9 en: 23 Marzo 2012, 15:23 pm »

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 :D

Saludos.
En línea

Viejos siempre viejos,
Ellos tienen el poder,
Y la juventud,
¡En el ataúd! Criaturas Al poder.

Visita mi perfil en ResearchGate

Páginas: [1] 2 3 Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines