Серый форум — AHK:нужно объединить два скрипта.

Re: AHK:нужно объединить два скрипта.

null@example.com (Denzel) — Fri, 28 Jul 2017 15:24:06 +0000

спасибо разобрался. тема закрыта

Re: AHK:нужно объединить два скрипта.

null@example.com (Denzel) — Fri, 28 Jul 2017 08:57:55 +0000

belyankin12
побробнее.

Re: AHK:нужно объединить два скрипта.

null@example.com (belyankin12) — Fri, 28 Jul 2017 04:08:17 +0000

Контрол ц, контрол В.

AHK:нужно объединить два скрипта.

null@example.com (Denzel) — Thu, 27 Jul 2017 20:52:30 +0000

ребята помогите "склеить" два скрипта.
первый скрипт.

#NoEnv
#NoTrayIcon
#NoEnv
#SingleInstance, force
SendMode Input

isMouseShown()
	{
		StructSize := A_PtrSize + 16
		VarSetCapacity(InfoStruct, StructSize)
		NumPut(StructSize, InfoStruct)
		DllCall("GetCursorInfo", UInt, &InfoStruct)
		Result := NumGet(InfoStruct, 8)

	if Result > 1
      Return 1
	else
      Return 0
	}
	Loop
	{
		if isMouseShown() == 1
			Suspend On
		else
			Suspend Off
		Sleep 1
}
	
~*HOME::
Suspend Toggle
if (!A_IsSuspended)
{
SoundPlay, C:\vkl.wav
}
Else
{
SoundPlay, C:\vukl.wav
}
return
	
~*LButton::
loop
{
GetKeyState,updn, LButton, P
if updn = U
break
MouseClick, left,,, 1, 0, D
MouseClick, left,,, 1, 0, U
DllCall("mouse_event",uint,1,int,0,int,5,uint,0,int,0)
Sleep, 1
DllCall("mouse_event",uint,1,int,0,int,6,uint,0,int,0)
Sleep, 1
}

второй скрипт.

!Numpad2::
MouseClickDrag, Left, 259, 171, 1002, 484 , 0
return