Цитата kagorec:
здесь пропробовал менять местами w и h »
|
А в справку заглянуть не пробовали? Зачем гадать, если уже заранее известно где какой параметр нужно ставить.
Цитата kagorec:
курсор перемещается на середину почти, не понятно почему немного отклоняется в левую сторону »
|
Как вы это определяете?

- А даже если оно и так, то можно просто добавить (или убавить) отклоняющиеся координаты...
Код:

$iWidth = @DesktopWidth
$iHeight = @DesktopHeight
$iX = $iWidth / 2
$iY = $iHeight / 2
MouseMove($iX, $iY, 0)
$aMPos = MouseGetPos()
$iMouse_On_Center = ((($iX * 2) = $iWidth) And (($iY * 2) = $iHeight))
$sAsk_Msg = ""
$iAsk_Flag = 64
If Not $iMouse_On_Center Then
$sAsk_Msg = "\n\nMouse is not on center, move the mouse?"
$iAsk_Flag = 52
EndIf
$iAsk = MsgBox($iAsk_Flag, 'Results', _
StringFormat("DesktopWidth: %i\nDesktopHeight: %i\n\nMouse X Pos: %i\nMouse Y Pos: %i\n\nMouse on center: %s%s", _
$iWidth, $iHeight, $aMPos[0], $aMPos[1], $iMouse_On_Center, $sAsk_Msg))
If $iAsk = 6 Then
$iX = $aMPos[0]
$iY = $aMPos[1]
If ($iX * 2) < $iWidth Then
$iX = $iWidth - ($iX * 2)
ElseIf ($iX * 2) > $iWidth Then
$iX = ($iX * 2) - $iWidth
EndIf
If ($iY * 2) < $iHeight Then
$iY = $iHeight - ($iY * 2)
ElseIf ($iY * 2) > $iHeight Then
$iY = ($iY * 2) - $iHeight
EndIf
MouseMove($iX, $iY, 0)
EndIf