Что нового

[Мышь, клавиатура]Перехват нажатия кнопок мыши.

FoxTiM

Новичок
Сообщения
22
Репутация
2
Не мог придумать как лучше назвать тему.
Столкнулся с проблемой перехвата нажатия кнопки мыши и выполнение двух функций.
Тоесть нажал одинраз на СКМ и выдалась Funk 1 нажал еще раз СКМ выдалась Funk 2
Так сделал набросок того что я хочу.
Код:
#include <Misc.au3>

While 1
if _IsPressed(04)=1 Then
_wen1()
Else
_wen2()
EndIf
WEnd

Func _wen1()
ToolTip("ВКЛ", 0, 0)
EndFunc
	
	
Func _wen2()
ToolTip("ВЫКЛ", 0, 0)
EndFunc


И еще бы было бы не плоха пример с использованием HotKeySet
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
623
Re: [Криптография] Перехват нажатия кнопок мыши.

FoxTiM
а причем тут криптография?
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
623
Re: [Криптография] Перехват нажатия кнопок мыши.

Код:
#include <Misc.au3>
Global $flag
HotKeySet('^{DEL}', '_Exit')
While 1
	if _IsPressed(04) Then
		If $flag Then
			_wen1()
			$flag = 0
		Else
			_wen2()
			$flag = 1
		EndIf
		Sleep(50)
	EndIf
WEnd

Func _wen1()
ToolTip("ВКЛ", 0, 0)
EndFunc
   
   
Func _wen2()
ToolTip("ВЫКЛ", 0, 0)
EndFunc

Func _Exit()
	Exit
EndFunc



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

FoxTiM [?]
Предупреждение отнюдь. прочитай правила на предмет правильного названия тем.
 
Автор
F

FoxTiM

Новичок
Сообщения
22
Репутация
2
спс) я че то даже и не подумал такой вариант)
Пишу тренер и вот столкнулся с с маленькой проблемой спс еще раз)


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

И еще если не сложно пример с Клавишами HotKeySet

Думаю тут аналогично все!

Код:
Global $flag


HotKeySet('{F1}', 'drobpuli')

While 1
Sleep(200)
WEnd



Func drobpuli()
If $flag Then
_wen1()
$flag = 0
        Else
_wen2()
$flag = 1
EndIf
EndFunc	



Func _wen1()
ToolTip("ВКЛ", 0, 0)
EndFunc


Func _wen2()
ToolTip("ВЫКЛ", 0, 0)
EndFunc
 

Guezt

Продвинутый
Сообщения
335
Репутация
81
Re: [Криптография] Перехват нажатия кнопок мыши.

вроде так должно работать:
Код:
#include <Misc.au3>
Global $chk = False
$dll = DllOpen("user32.dll")

While 1

if _IsPressed(04, $dll) Then
   if _chk() = True  Then
       _wen1()
   Else
      _wen2()
   EndIf
EndIf
Sleep(250)
WEnd

Func _chk()
   if $chk = False Then
   $chk = True
Else
   $chk = False
EndIf
Return $chk

EndFunc

Func _wen1()
ToolTip("ВКЛ", 0, 0)
EndFunc


Func _wen2()
ToolTip("ВыКЛ", 0, 0)
EndFunc
 

Viktor217

Осваивающий
Сообщения
233
Репутация
31
Вот пример с горячими клавишами:
Код:
#include <Misc.au3>
Global $chk = False,$dll = DllOpen("user32.dll"),$start=0

HotKeySet("{F1}","start")

While 1
If $start=1 And _IsPressed(04, $dll) Then
   If _chk() = True  Then
       _wen1()
	   Sleep(500)
   Else
      _wen2()
	  Sleep(500)
   EndIf
EndIf
WEnd

Func _chk()
If $chk = False Then
   $chk = True
Else
   $chk = False
EndIf
Return $chk
EndFunc

Func _wen1()
ToolTip("Вкл", 0, 0)
EndFunc

Func _wen2()
ToolTip("Выкл", 0, 0)
EndFunc

Func start()
If $start=0 Then
	$start=1
Else
	$start=0
EndIf
EndFunc

Наверняка можно упростить, но мне этот вариант легче всего воплощать(=

П.С. Не объяснишь случаем зачем тебе это?)
 
Верх