Что нового

[Compiled]Программа измерения позиции курсора мыши по оси X Y

M

max1300

Гость
AutoIt: 3.3.12.0
Версия: 1.0.3.5
Категория:
Описание: Программа для измерения курсора мыши по оси X Y хорошо подходит для создания игровых моделей.Нажмите на кнопку "Искать позицию" после чего появится рядом с курсором мыши появится маленькое окошко где будет написано позиция вашего курсора, нажмите на клавишу ESC
что вы могли скопировать координаты и вставить в программу,нажмите на клавишу F1 что бы выйти из программы.
Код:
Код:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Description=MOUSE GET POS
#AutoIt3Wrapper_Res_Fileversion=1.0.3.5
#AutoIt3Wrapper_Res_LegalCopyright=Max 54 2014
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
HotKeySet("{ESC}","_SET")
HotKeySet("{F1}","_DOWN")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Mouse get pos", 269, 114, 194, 127)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 265, 89)
$Button1 = GUICtrlCreateButton("Искать позицию", 0, 96, 265, 17, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $Button1
			While 1
			$aposition = MouseGetPos()
			ToolTip("x: " & $aposition[0] & " y: " & $aposition[1] ,$aposition[0],$aposition[1])
			Sleep(50)
			WEnd

	EndSwitch
WEnd

Func _SET()
GUICtrlSetData($Edit1,"x: " & $aposition[0] & " y: " & $aposition[1])
EndFunc

Func _DOWN()
Exit
EndFunc

Файл: EXE и исходник AU3

Снимок: N/A

История версий:
v1.0.3.5
* Первый релиз.

Источник: autoit-script.ru
Автор(ы): max1300
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Re: [Compiled]mouse get pos

Предупреждение За нарушение правил форума (пункт Б.5):
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.


Данные правила могут пополняться локальными правилами раздела.
Как правильно называть темы

"[Compiled]mouse get pos" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, ваш Модератор.










MouseGetPos - это стандартная функция ну никак не название темы.
P.S. IMHO код слабоват, не продумана логика. На программу не тянет.


Добавлено:
Сообщение автоматически объединено:

max1300
Не нужно нарушать правила цитирования.
Я поправил ваш шаблон так, как он должен выглядеть! Если вы считаете что версия ошибочна, исправьте.


Добавлено:
Сообщение автоматически объединено:

Название темы исправляется в первом посте!
 

inververs

AutoIT Гуру
Сообщения
2,135
Репутация
465
Re: [Compiled]mouse get pos

Следующая программа будет вида: Программа показывающая цвет пикселя в координатах x и y!
Т.к автор выучит новую функцию PixelGetColor?
 
Автор
M

max1300

Гость
Слушай inververs почему бы и нет сделать такую программу измерения цвета тоже очень хорошая программа.
 

inververs

AutoIT Гуру
Сообщения
2,135
Репутация
465
max1300
А программу показывающую сообщение на экран тебе не надо?
 

TD

Новичок
Сообщения
2
Репутация
0
Код:
HotKeySet("{SPACE}", "_FileWrite") ; При нажатии PAUSE на клавиатуре
HotKeySet("{ESC}", "_Exit") ;остановка работы скрипта
FileDelete("Координата x.txt")
FileDelete("Координата y.txt")
FileDelete("Количество c.txt")
$fileX = FileOpen("Координата x.txt", 1)
$fileY = FileOpen("Координата y.txt", 1)
$fileC = FileOpen("Количество c.txt", 1)

; Проверяет, является ли файл открытым, перед тем как использовать функции чтения/записи в файл
If $fileX = -1 Then
    MsgBox(4096, "Ошибка", "Невозможно открыть файл.")
    Exit
 EndIf
 If $fileY = -1 Then
    MsgBox(4096, "Ошибка", "Невозможно открыть файл.")
    Exit
 EndIf
If $fileC = -1 Then
    MsgBox(4096, "Ошибка", "Невозможно открыть файл.")
    Exit
 EndIf

 
GUICreate("Позиция", 220, 25, 50, 120)
$progressbar1 = GUICtrlCreateLabel("                                       ", 10, 10)
GUISetState(@SW_SHOW)
WinSetOnTop("Позиция", "", 1) ;сообщение поверх всех окон
$k=1
While 1
	  $aPos = MouseGetPos()
	  $X = $apos[0]
	  $Y = $apos[1]
	  $Color=PixelGetColor($apos[0],$apos[1])
	  GUICtrlSetData($progressbar1, $X & " ," & $Y )
                
WEnd
 
 
Func _FileWrite() 

FileWrite($fileX, $X & ",")
FileWrite($fileY, $Y & ",")
FileWrite($fileC, $k & ",")

$k = $k + 1
EndFunc 
Return
;____________________________________________________________________________________________________________________________
Func _Exit()
   GUIDelete("Ожидание")
   FileClose($file)
    Exit
EndFunc   ;==>_Exit


Пользуюсь, когда надо набить массив для программки кликера, координаты Х сохраняются в одном файле, У в другом, в третьем файле идет счет для массива, для информации. Файлы создаются там же, откуда был запущен скрипт.
 
Верх