Что нового

[Мышь, клавиатура] Не "пускать" мышь за край экрана

zelich

Новичок
Сообщения
149
Репутация
0
Подскажите пожалуйста, в чем ошибка в скрипте?

Код:
#include <Misc.au3>
HotKeySet('{F9}', '_Move')
HotKeySet('+{Esc}', '_Exit')

Global $t = 0

While 1
    Sleep(10)
WEnd


Func _Move()
   If $t = 0 Then
	  $t = 1
   Else
	  $t = 0
   EndIf
   M2()
EndFunc

Func M2()
If $t = 1 Then
   $aNext = MouseGetPos()
   $nX = $aNext[0]
   $nY = $aNext[1]
   If $nX < 0 Then
	  MouseMove( 0, $nY )
   EndIf
   If $nX > 1920 Then
	  MouseMove( 1920, $nY )
   EndIf
EndIf
EndFunc

Func _Exit()
    Exit
 EndFunc
 

hedji

Продвинутый
Сообщения
409
Репутация
94
Если требуется не пускать мышь за край все время, что так:
Код:
#include <Misc.au3>

HotKeySet('+{Esc}', '_Exit')

While 1
	M2()
    Sleep(10)
WEnd

Func M2()
   $aNext = MouseGetPos()
   $nX = $aNext[0]
   $nY = $aNext[1]
   If $nX < 0 Then
      MouseMove( 0, $nY )
   EndIf
   If $nX > 1920 Then
      MouseMove( 1920, $nY )
   EndIf
EndFunc

Func _Exit()
    Exit
 EndFunc
 
Верх