Кнопка мышки нажата-отпущена

[Dimmak]

Если кнопка мышки нажата, то
_IsPressed('06') = True
Но как узнать отпускание кнопки мышки
_isReleased нет...

Написал скрипт, а потом подумал:
Не перемудрил ли я??
Может все на самом деле намного проще и я упустил эту простоту??

Dim $arr[2]
Dim $i

While 1
if $i>=1 Then $i=0
	$arr[$i] = _IsPressed('06')
$i = $i+1
Sleep(100)

	$arr[$i] = _IsPressed('06')


If $arr[0] = 0 And $arr[1] = 1 Then ; Триггер по нажатию
MsgBox( 4096, "", _IsPressed('06') )
EndIf

If $arr[0] = 1 And $arr[1] = 0 Then ; Триггер по отпусканию
MsgBox( 4096, "", _IsPressed('06') )
EndIf

WEnd

 

[WSWR]

http://autoit-script.ru/index.php/topic,198.0.html

 

[Zaramot]

#include <Misc.au3>

While 1
	If _IsPressed(1) Then
		Do
			ToolTip('Левая кнопка нажата')
		Until _IsPressed(1) = 0
		ToolTip('Левая кнопка отжата')
	EndIf
WEnd

 

[Dimmak]

Zaramot, WSWR
Спасибо за ликвидацию моей безграмотности!
Буду затачиваться! 8)

 

[CreatoR]

#include <Misc.au3>

MouseDown("Main")
AdlibRegister("_ReleaseMouse", 3000)

$iReleased = _IsPressedWaitReleased(01)
ConsoleWrite($iReleased & @LF)

AdlibUnRegister("_ReleaseMouse")

Func _ReleaseMouse()
	MouseUp("Main")
EndFunc

Func _IsPressedWaitReleased($iKey)
	If _IsPressed($iKey) Then
		While _IsPressed($iKey)
			Sleep(10)
		WEnd
		
		Return 1
	EndIf
	
	Return SetError(-1, 0, 0)
EndFunc

 

[Dimmak]

CreatoR

OffTopic:

Запутался в справке по _winapi... :wacko:
Как же все-таки завершить процесс полученный из
_WinAPI_GetProcessCommandLine?

 

[madmasles]

Dimmak

Предупреждение

За нарушение общих правил (пункт В.4):

Не лепите несколько вопросов разной тематики в один пост. По типу "Ребят, а ещё такой вопрос...". Каждый вопрос в свою тему.

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

 

[Dimmak]

ok! madmasles
Нетерпеливый я сегодня... Буду тренировать терпение! ;)