<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<title><![CDATA[Серый форум &mdash; AHK: Разная здержка для LButton в одном макросе]]></title>
		<link>https://forum.script-coding.com/viewtopic.php?id=7864</link>
		<atom:link href="https://forum.script-coding.com/extern.php?action=feed&amp;tid=7864&amp;type=rss" rel="self" type="application/rss+xml" />
		<description><![CDATA[Недавние сообщения в теме «AHK: Разная здержка для LButton в одном макросе».]]></description>
		<lastBuildDate>Wed, 12 Dec 2012 22:01:25 +0000</lastBuildDate>
		<generator>PunBB</generator>
		<item>
			<title><![CDATA[Re: AHK: Разная здержка для LButton в одном макросе]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=66924#p66924</link>
			<description><![CDATA[<p>Пожалуйста. <img src="//forum.script-coding.com/img/smilies/smile.png" width="15" height="15" /></p>]]></description>
			<author><![CDATA[null@example.com (Irbis)]]></author>
			<pubDate>Wed, 12 Dec 2012 22:01:25 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=66924#p66924</guid>
		</item>
		<item>
			<title><![CDATA[Re: AHK: Разная здержка для LButton в одном макросе]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=66921#p66921</link>
			<description><![CDATA[<p><strong>2 Irbis:</strong><br /><span class="bbu">Огромное человеческое Спасибо за помощь!</span></p><p>Я признатся в эту сторону решения даже не думал. Меня на Loop заклинило просто,<br />и я пытался этот цикл в режим 2&nbsp; впихнуть всячески..</p>]]></description>
			<author><![CDATA[null@example.com (TonyMontana)]]></author>
			<pubDate>Wed, 12 Dec 2012 21:05:51 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=66921#p66921</guid>
		</item>
		<item>
			<title><![CDATA[Re: AHK: Разная здержка для LButton в одном макросе]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=66919#p66919</link>
			<description><![CDATA[<div class="codebox"><pre><code>Numpad2::
NumpadDown::
   Loop, % (isEnable:=!isEnable)
      SoundBeep, 2000, 250
   KeyWait, % A_ThisHotkey
   Return

*LButton::
   while GetKeyState(&quot;LButton&quot;, &quot;P&quot;)
   {
      if !GetKeyState(&quot;RButton&quot;, &quot;P&quot;)
      {
          MouseClick, left,,,1,0, D
          Sleep, 15
          mouseXY(0, 5)
          MouseClick, left,,,1,0, U
          mouseXY(0, 2)
          sleep,15
      }
      else
      {  
          MouseClick, left,,,1,0, D
          Sleep, 240
          mouseXY(0, 1)
          MouseClick, left,,,1,0, U
          mouseXY(0, 1)
          sleep, 240
      }
   }
return

mouseXY(x,y)
{
DllCall(&quot;mouse_event&quot;,uint,1,int,x,int,y,uint,0,int,0)
}</code></pre></div>]]></description>
			<author><![CDATA[null@example.com (Irbis)]]></author>
			<pubDate>Wed, 12 Dec 2012 16:12:03 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=66919#p66919</guid>
		</item>
		<item>
			<title><![CDATA[Re: AHK: Разная здержка для LButton в одном макросе]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=66918#p66918</link>
			<description><![CDATA[<div class="quotebox"><cite>ypppu пишет:</cite><blockquote><div class="quotebox"><cite>TonyMontana пишет:</cite><blockquote><p>Я далеко не пацан ушастый.</p></blockquote></div><p>Это радует. Поймите и Вы нас.</p></blockquote></div><p>Сделал как попросили.</p><br /><p>Возвращаясь непосредственно к&nbsp; теме:<br />Вот такой вариант есть сейчас.<br /></p><div class="codebox"><pre><code>Numpad2::
NumpadDown::
   Loop, % (isEnable:=!isEnable)
      SoundBeep, 2000, 250
   KeyWait, % A_ThisHotkey
   Return

*LButton::autofire()

autofire()

{
Loop
{
if GetKeyState(&quot;LButton&quot;, &quot;P&quot;)
{
MouseClick, left,,,1,0, D
Sleep, 15
mouseXY(0, 5)
MouseClick, left,,,1,0, U
mouseXY(0, 2)
sleep,15
}
While Right Down
{  
   if GetKeyState(&quot;LButton&quot;, &quot;P&quot;)
   {
      MouseClick, left,,,1,0, D
Sleep, 240
mouseXY(0, 1)
MouseClick, left,,,1,0, U
mouseXY(0, 1)
sleep, 240
   Click Right Up
}
else
break
}

} ;; loop
} ;; autofire()


mouseXY(x,y)
{
DllCall(&quot;mouse_event&quot;,uint,1,int,x,int,y,uint,0,int,0)
}</code></pre></div><p>Из двух глюков в предидущем&nbsp; посте, 1й исправил.</p><p>Осталась проблема номер 2:<br />Во втором режиме (при зажатой RButton) клики LButton происходят с такой же скоростью&nbsp; (15ms ) как и в первом режиме, а должны быть паузы по 240ms</p><p>Не понимаю, что не так?</p>]]></description>
			<author><![CDATA[null@example.com (TonyMontana)]]></author>
			<pubDate>Wed, 12 Dec 2012 15:24:06 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=66918#p66918</guid>
		</item>
		<item>
			<title><![CDATA[Re: AHK: Разная здержка для LButton в одном макросе]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=66891#p66891</link>
			<description><![CDATA[<p>Дело спсения утопающих...<br />Нашел вот такой вариант Режима2:<br /></p><div class="codebox"><pre><code> LButton::
   Click Middle Down
   While GetKeyState(&quot;LButton&quot;, &quot;P&quot;)
   {
      SendInput, {Click}
      Sleep, 100
   }
   Click Middle Up
   Return</code></pre></div><p> <br />Переделал под потребности.<br />По итогу доизвращался до вот такого варианта:<br /></p><div class="codebox"><pre><code>
Numpad2::
NumpadDown::
   Loop, % (isEnable:=!isEnable)
      SoundBeep, 2000, 250
   KeyWait, % A_ThisHotkey
   Return

*LButton::autofire()

autofire()

{
Loop
{
if GetKeyState(&quot;LButton&quot;, &quot;P&quot;)
{
MouseClick, left,,,1,0, D
Sleep, 15
mouseXY(0, 5)
MouseClick, left,,,1,0, U
mouseXY(0, 2)
sleep, 15
}
else
{
   Click Right Down
   if GetKeyState(&quot;LButton&quot;, &quot;P&quot;)
   {
      MouseClick, left,,,1,0, D
Sleep, 240
mouseXY(0, 1)
MouseClick, left,,,1,0, U
mouseXY(0, 1)
sleep, 240
   Click Right Up
}
break
}

} ;; loop
} ;; autofire()


mouseXY(x,y)
{
DllCall(&quot;mouse_event&quot;,uint,1,int,x,int,y,uint,0,int,0)
}</code></pre></div><p>Работает но есть два глюка.</p><p><strong>1)</strong>При нажатии LButton и отпускании, автоматически включается RButton. Выключается повторным нажатием RButton<br /><strong>2)</strong>Во втором режиме (при зажатой RButton) клики LButton происходят с такой же скоростью&nbsp; (15ms ) как и в первом режиме, а должны быть паузы по 240ms</p><p>Вариант с While GetKeyState после Click Right Down тоже глючит. Но немного по другому.</p><p>Думаю что ошибка где то в синтаксисе - хотя компилятор&nbsp; не выдает ошибок.</p><p><strong>Что я упустил из виду?</strong></p>]]></description>
			<author><![CDATA[null@example.com (TonyMontana)]]></author>
			<pubDate>Wed, 12 Dec 2012 00:17:56 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=66891#p66891</guid>
		</item>
		<item>
			<title><![CDATA[AHK: Разная здержка для LButton в одном макросе]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=66849#p66849</link>
			<description><![CDATA[<p>Доброго времени суток.<br />Поиск в гугле к вам привел.<br />Нужен скрип на разную скорость кликов LButton в одном скрипте.<br />Нашел на форуме почти то что нужно.</p><p>Нужно 2 режима в скрипте. </p><p><strong>Режим 1:</strong> <br />Нажатие LButton с заданным интервалом, и возвратом курсора в начальную позицию.</p><br /><p><strong>Режим 2:</strong><br />Нажатие и удержание RButton. При этом LButton нажимается с интервалом отличным от Режим 1, и соответсвенно скорость смещения курсора изменяется тоже.</p><br /><p>Взял на форуме вот этот код:<br /></p><div class="codebox"><pre><code>Suspend On
Numpad2::
  Suspend Toggle
    if (!A_IsSuspended)
   {
    SoundBeep 2000, 400
   }
  Else
   {
    SoundBeep, 2000, 400
    SoundBeep, 2000, 400
   }
    return


~LButton::autofire()

autofire()

{
Loop
{
if GetKeyState(&quot;LButton&quot;, &quot;P&quot;)
{
MouseClick, left,,,, 0, D
Sleep, 63
mouseXY(0, 3)
MouseClick, left,,,, 0, U
mouseXY(0, 1)
sleep, 63
}
else
break

} ;; loop
} ;; autofire()


mouseXY(x,y)
{
DllCall(&quot;mouse_event&quot;,uint,1,int,x,int,y,uint,0,int,0)
}</code></pre></div><p>Лучше бы конечно было, при нажатии LButton запоминать текущее положение курсора, и при кликах возвращать его в исходное положение. ИМХО при помощи&nbsp; MouseGetPos, или CoordMode, но сие к сожалению превосходит&nbsp; предел моих возможностей в скриптинге.</p><br /><p>Сделал следующее:</p><div class="codebox"><pre><code>Numpad2::
NumpadDown::
   Loop, % (isEnable:=!isEnable)
      SoundBeep, 2000, 250
   KeyWait, % A_ThisHotkey
   Return


*LButton::autofire()
autofire()
{
Loop
{
if GetKeyState(&quot;LButton&quot;, &quot;P&quot;)
{
MouseClick, left,,,,0, D
Sleep, 15
mouseXY(0, 5)
MouseClick, left,,,,0, U
mouseXY(0, 2)
sleep, 15
}
if GetKeyState(&quot;RButton&quot;, &quot;P&quot;)
{
MouseClick, right,,,,,D
Keywait, Rbutton
MouseClick, left,,,,0, D
Sleep, 240
mouseXY(0, 1)
MouseClick, left,,,,0, U
mouseXY(0, 1)
sleep, 240
MouseClick, right,,,,,U
break
   }

} ;; loop
} ;; autofire()

mouseXY(x,y)
{
DllCall(&quot;mouse_event&quot;,uint,1,int,x,int,y,uint,0,int,0)
}</code></pre></div><p>Работает косо. <br />Первый режим&nbsp; - рабочий . А вот второй глючит. При зажимании RButton и зажиме LButton происходит одиночный клик. При втором нажатии LВutton, кликает в обычном режиме - интервал кликов и смещение курсора не работают. При отпускании RButton снова происходит одиночный клик.</p><p>Помогите пожалуйста довести до ума. С програмированием знаком поверхностно.</p>]]></description>
			<author><![CDATA[null@example.com (TonyMontana)]]></author>
			<pubDate>Mon, 10 Dec 2012 19:36:44 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=66849#p66849</guid>
		</item>
	</channel>
</rss>
