<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<title><![CDATA[Серый форум &mdash; AHK:Объеденить элементы управления DropDownList и CheckBox]]></title>
		<link>https://forum.script-coding.com/viewtopic.php?id=8927</link>
		<atom:link href="https://forum.script-coding.com/extern.php?action=feed&amp;tid=8927&amp;type=rss" rel="self" type="application/rss+xml" />
		<description><![CDATA[Недавние сообщения в теме «AHK:Объеденить элементы управления DropDownList и CheckBox».]]></description>
		<lastBuildDate>Wed, 20 Nov 2013 01:04:57 +0000</lastBuildDate>
		<generator>PunBB</generator>
		<item>
			<title><![CDATA[AHK:Объеденить элементы управления DropDownList и CheckBox]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=77429#p77429</link>
			<description><![CDATA[<p>Доброго времени суток. Есть 2 скрипта, первый с элементом управления DropDownList , а второй с CheckBox. По отдельности скрипты работают идеально ,&nbsp; а соединить никак не могу.Помогите пожалуйста.<br />первый скрипт&nbsp; &nbsp;<br /></p><div class="codebox"><pre><code>Gui, Color, B0C4DE
Gui, Add, DropDownList, vSetMouseDelay gDropDownList w100, |0|1|2|3|4|5|6|7|8|9|10|
Gui, Add, DropDownList, vMouseMove gDropDownList w100, |0||1|2|3|4|5|6|7|8|9|10|
Gui, Add, DropDownList,  vMouseMove1 gDropDownList w100, |0|-1|-2|-3|-4|-5|-6|-7-8|-9|-10|
Gui, Add, Button, w100 gОК, ОК
Gui, Show,,
Return

~vk79::
Suspend, Off
ExitApp
Return

*~lbutton::
Loop 
{
GetKeyState, state, LButton, P
if state = U
break
SetMouseDelay, %Delay%
MouseMove, %Move%, %RMove%, , R
}
Return
DropDownList:
Return
ОК:
Gui Submit, NoHide
Delay = %SetMouseDelay%
Move = %MouseMove1%
RMove = %MouseMove%
WinMinimize 
Return
GuiClose:
ExitApp</code></pre></div><br /><br /><p>вот второй <br /></p><div class="codebox"><pre><code>Hotkey := {&quot;SendInput&quot;:&quot;*~lbutton&quot;} 
    
Gui, Add, CheckBox, gCheckBox vSendInput , повтор
Gui, Show,, CheckBox
Return

CheckBox:

    Gui, Submit, NoHide
    Key := Hotkey[A_GuiControl]
    Label := A_GuiControl
    If %A_GuiControl% = 1
        Options = On
    Else
        Options = Off
    Hotkey, %Key%, %Label%, %Options%
    return

SendInput:
  Loop
    {
         SetKeyDelay, PressDuration -1
         if not GetKeyState(&quot;lbutton&quot;, &quot;P&quot;)
         break
        SendInput, {lbutton 5}
        SetKeyDelay, PressDuration -1
    }
    return
 GuiClose:
    ExitApp</code></pre></div>]]></description>
			<author><![CDATA[null@example.com (Ядрён)]]></author>
			<pubDate>Wed, 20 Nov 2013 01:04:57 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=77429#p77429</guid>
		</item>
	</channel>
</rss>
