apis en visual basic

Iniciado por Mr_BlOodY, 9 Febrero 2006, 05:14 AM

0 Miembros y 1 Visitante están viendo este tema.

Mr_BlOodY

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

Ch3ck

#1
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.

NYlOn

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.-

Ch3ck

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...  ::)