Что нового

[Мышь, клавиатура] Скрипт зажима,ошибка в If.

F4nT0m

Новичок
Сообщения
54
Репутация
2
Собственно пишу скрипт,написал,где-то ошибка,не могу понять где!
Вроде бы всё правильно,но ничего не выходит,помогите пожалуйста.
Исходник:

Код:
#include "MouseOnEvent.au3"
Global $naz
_MouseSetOnEvent($WM_RBUTTONDOWN, "Nazhim")
While (1)
WEnd
Func Nazhim()
$naz+1
if Mod ($Naz,2)=0
Then 
While(1)
if Mod($Naz,2)=1
then 
WEnd
sleep(10)
MouseClick("right")
WEnd
EndFunc
 

Yuri

AutoIT Гуру
Сообщения
737
Репутация
282
Странный скрипт, однако.
Все же - вот малость "исправленный".
Код:
#include "MouseOnEvent.au3"
Global $naz
_MouseSetOnEvent($WM_RBUTTONDOWN, "Nazhim")

While 1
	Sleep(100)
WEnd

Func Nazhim()
	$naz+1
	If Mod ($Naz,2) = 0 Then 
		MsgBox(64, "Info", "Mod 0")
	EndIf
While 1
	If Mod($Naz,2) = 1 Then
		MsgBox(64, "Info", "Mod 1")
	EndIf
WEnd
	Sleep(100)
	MouseClick("right")
EndFunc
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
Yuriy
Не нужно таким отвечать, это так, на будущее.
 
Автор
F

F4nT0m

Новичок
Сообщения
54
Репутация
2
Странный скрипт, однако.
Все же - вот малость "исправленный".
Код: AutoIt [Выделить]
#include "MouseOnEvent.au3"
Global $naz
_MouseSetOnEvent($WM_RBUTTONDOWN, "Nazhim")

While 1
Sleep(100)
WEnd

Func Nazhim()
$naz+1
If Mod ($Naz,2) = 0 Then
MsgBox(64, "Info", "Mod 0")
EndIf
While 1
If Mod($Naz,2) = 1 Then
MsgBox(64, "Info", "Mod 1")
EndIf
WEnd
Sleep(100)
MouseClick("right")
EndFunc
Вы наверное не поняли мою идею,хотя скорее я её слишком коряво изложил в скрипте.
Мне надо,чтобы на определённую клавишу вызывалась функция,которая жмёт ПКМ через каждые 50 МС.Так же надо чтобы этот бесконечный цикл можно было остановить,но я без понятия,как это сделать.
 
Верх