Código fuente del programa de creación de sitios web de Dream
Inicio REM
x1=3
y1=22
x2=643
y2 =502
Soporte para ratón Rem
VBSCall FindColor(x1, y1, x2, y2, "c87c20", x3, y3)
Si x3 & gt0 y y3 & gt0
IfColor x3+1,y3+1,A86c30,0
IfColor x3+3,y3+3,804c28,0
x3 =x3 -19-3
y3=y3-18-3
Otros
x1=x3+1
y1=y3 +1
Ir al asiento del mouse
EndIf
Otro
x1=x3+1
y1= y3+ 1
Ir al asiento del mouse
EndIf
Otro
Ir al asiento del mouse
EndIf
Cálculo del asiento del ratón remoto
x5=x-x3
y5=y-y3
VBS x4=Abs(x-x3) p>
VBS y4=Abs(y-y3)
Si x4 & gt50 o y4 & gt50
Si x5 & gt10//Si quieres moverte más rápido, Puede cambiar los 10 aquí a 20, 30, 50, etc.
x5=10
EndIf
Si x5 y lt-10
x5=-10
EndIf
Si y5 y gt10
y5=10
EndIf
Si y5 y lt-10
y5 =-10
EndIf
Movers x5, y5
VBSCall GetCursorPos(x3, y3)
Ir al cálculo del asiento del mouse
p>EndIf
Si x4 & lt4 e y4 & ltfour
Otros
Motores x5, y5
Retraso 100
Ir al asiento del mouse
EndIf
Regresar
//La subrutina del script anterior ha resuelto la deriva de la pregunta del mouse soñado. Si quieres ser más perfecto, simplemente haz cambios basados en esto.
// -
//Ejemplo:
//x=100
//y=100
//gosub drift
//No es necesario usar moveto.
// -
//Entorno de ejecución: 32 colores, tema clásico, posición de ventana 0,0.
// -