hola gente, necesito la ayuda de ustedes...
quiero hacer un programa que me permita a mi, mover el puntero del mouse, lo que quiero, es que ese movimiento se pueda hacer, ingresando las coordenadas en un archivo .ini, o en su defecto, .txt.
debe de ser una estupides, pero lamentablemente todavia no me llevo muy bien con las apis...
nos vemos
Bueno la API es Private Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long
Dim nBuffer as String, count as long, n as Long
Private Sub Command1_Click ()
Open elarchivo for input as #1
Buffer = Input (LOF(1),1)
Close#1
For i = 1 to Len(Buffer)
ch = Mid(Buffer,i,1)
If ch = "|" then
count = count +1
End if
Next i
DoEvents
nBuffer = Split (Buffer, "|")
Timer1.enabled = true 'El timer que cambia la posición
tcount = 0
End sub
Private Sub Timer1_timer ()
If n <= 0 then
Call SetCursorPos(Left(nBuffer(n), 2), Right(nBuffer(n), 2))
n = n + 1
End if
End sub
En el archivo iria +- así:
2536|7805|8965
Espero entiendas la idea
Saludos... P:D: Disculpen si hay errores en el code o si esta mal organizado.
Te convendria usar Split en vez de tanto bucle. Y que en el archivo de texto haya un separador mas, entre coordenada y coordenada, ya que si por ejemplo queres poner 128,32 te lo leeria mal. Podrias poner las coordenadas |12*87|123*54|45*12| y despues hacer 2 splits, uno para las "|" y otro para las "*".
Es solo una sugerencia, un saludo.-
Pienso que los bucles son necesarios puesto que la info en el txt puede variar pueden que sean 4 coordenadas o más, y lo que hace el bucle como podreis darte cuenta es saber la cantidad de variables que resultan del Split (no sé otra forma de saberlo) pero si las coordendas siempre son 3 entonces no son necesarios los bucles...
Saludos... ::)