Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


Цитата 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

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 19:09, 01-05-2009 | #3