Что нового

как зделать клик при изменении курсора

mironis

Новичок
Сообщения
14
Репутация
1
хелп не понемаю как зделать что-б когда курсор на экране изменится производился клик правой кнопки мышки помогите :wacko: :scratch:
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
mironis,
Попробуйте так:
Код:
Global $iID_Old, $iCount

HotKeySet('{Esc}', '_Exit')
$iID_Old = MouseGetCursor()
AdlibRegister('_Change_Cursor_Info', 100)
While 1
	Sleep(50)
WEnd

Func _Change_Cursor_Info()
	Local $i_X, $i_Y, $i_ID_New = MouseGetCursor()
	If $iID_Old <> $i_ID_New Then
		$iID_Old = $i_ID_New
		$iCount += 1
		Beep(300, 50)
		$i_X = MouseGetPos(0)
		$i_Y = MouseGetPos(1)
		ToolTip('Курсор изменился: ' & $iCount & @LF & 'В координатах: ' & $i_X & 'x' & $i_Y & @LF & _
				'Можно кликать мышкой.', 0, 0)
	EndIf
EndFunc   ;==>_Change_Cursor_Info

Func _Exit()
	Exit
EndFunc   ;==>_Exit
 

rollex

Новичок
Сообщения
66
Репутация
1
Мой простенький пример:
Код:
HotKeySet("{ESC}","Terminate")
	
	$iSpeed = 0


	While 1
		$iMousePos = MouseGetPos()
		$iPosX	= $iMousePos[0]
		$iPosY = $iMousePos[1]
			
		If MouseGetCursor() = 16 THen
;~ 			SoundPlay(@WindowsDir & "\media\start.wav")
			MouseClick('left',$iPosX,$iPosY,1,$iSpeed)
		EndIf
	WEnd
	
	Func Terminate()
		Exit 0
	EndFunc

Прочитай про функцию MouseGetCursor(). У madmasles динамичнее.
 
Автор
M

mironis

Новичок
Сообщения
14
Репутация
1
:laugh: агромное спасибо ребята!!!!


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

1й вариант не кликает а 2й норм работает :smile:
 
Верх