автоматическое копирование текста по тройному клику мыши с сохранением в файл

#Include <Misc.au3>
OnAutoItExitRegister('OnExit')
HotKeySet('^q', '_Exit')

$hDll = DllOpen('user32.dll')

Global $IsPressed = False, $iWasPressed = 0, $iTimer

While 1
	If Not $IsPressed And _IsPressed('01', $hDll) Then
		$IsPressed = True
		$iWasPressed += 1
		$iTimer = TimerInit()
		If $iWasPressed >= 3 Then
			$iWasPressed = 0
			_TaDa()
		EndIf
	ElseIf $IsPressed And Not _IsPressed('01', $hDll) Then
		$IsPressed = False
	EndIf
	If $iWasPressed > 0 And TimerDiff($iTimer) > 500 Then $iWasPressed = 0
WEnd

Func _TaDa()
	SoundPlay(@WindowsDir & '\Media\tada.wav', 0)
EndFunc

Func OnExit()
	DllClose($hDll)
EndFunc

Func _Exit()
	Exit
EndFunc