Тема: Реверс мыши (движения, перемещения курсора) Инверсия движений мыши
Плиз, подскажите незнающему VB в чем ошибка и как выполнить скрипт,
чтобы он действовал при работе в Windows:
есть кодр реверса мыши (движения, перемещения курсора или инверсии движений мыши)
Option Explicit
DefLng A-Z
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Sub Main()
Dim papi As POINTAPI, ox, oy, MaxX, MaxY
MaxX = (Screen.Width \ Screen.TwipsPerPixelX) - 1
MaxY = (Screen.Height \ Screen.TwipsPerPixelY) - 1
GetCursorPos papi
ox = papi.x: oy = papi.y
While 1
DoEvents
GetCursorPos papi
If (ox <> papi.x) Or (oy <> papi.y) Then
ox = ox - (papi.x - ox)
oy = oy - (papi.y - oy)
If ox < 1 Then ox = 1 Else If ox >= MaxX Then ox = MaxX - 1
If oy < 1 Then oy = 1 Else If oy >= MaxY Then oy = MaxY - 1
SetCursorPos ox, oy
End If
Wend
End Sub
Cохранил код в файл revers.vbs и при запуске эксплорером Windows 7 выдается сообщение об ошибке:
строка 4
символ 23
Предполагается наличие окончания инструкции
код:800A0401
источник: ошибка компиляции MVBScript