#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
DetectHiddenWindows, on
global Zoiper0 := "x110 y345", Zoiper1 := "x70 y235",Zoiper2 := "x110 y235", Zoiper3 := "x150 y235", Zoiper4 := "x70 y270", Zoiper5 := "x110 y270", Zoiper6 := "x150 y270", Zoiper7 := "x70 y310", Zoiper8 := "x110 y310", Zoiper9 := "x150 y310",ZoiperOK := "x44 y199", ZoiperESC := "x215 y199", ZoiperStar := "x70 y345", ZoiperHash := "x150 y345", ZoiperHold := "x160 y199", ZoiperBack := "x100 y199"

^Numpad0::
;Zoiper hangup
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
ControlClick, %ZoiperESC%, Zoiper,,,,
return

^NumpadEnter::
;Zoiper pickup
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
ControlClick, %ZoiperOK%, Zoiper,,,,
return

!Numpad1::
;Zoiper internal 1
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
ControlClick, %Zoiper1%, Zoiper,,,,
sleep, 700
ControlClick, %ZoiperOK%, Zoiper,,,,
return

!Numpad2::
;Zoiper internal 2
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
ControlClick, %Zoiper2%, Zoiper,,,,
sleep, 700
ControlClick, %ZoiperOK%, Zoiper,,,,
return

!Numpad3::
;Zoiper internal 3
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
ControlClick, %Zoiper3%, Zoiper,,,,
sleep, 700
ControlClick, %ZoiperOK%, Zoiper,,,,
return

!Numpad4::
;Zoiper internal 4
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
ControlClick, %Zoiper4%, Zoiper,,,,
sleep, 700
ControlClick, %ZoiperOK%, Zoiper,,,,
return

!Numpad5::
;Zoiper internal 5
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
ControlClick, %Zoiper5%, Zoiper,,,,
sleep, 700
ControlClick, %ZoiperOK%, Zoiper,,,,
return

!Numpad6::
;Zoiper internal 6
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
ControlClick, %Zoiper6%, Zoiper,,,,
sleep, 700
ControlClick, %ZoiperOK%, Zoiper,,,,
return

!Numpad7::
;Zoiper internal 7
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
ControlClick, %Zoiper7%, Zoiper,,,,
sleep, 700
ControlClick, %ZoiperOK%, Zoiper,,,,
return

!Numpad8::
;Zoiper internal 7
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
ControlClick, %Zoiper8%, Zoiper,,,,
sleep, 700
ControlClick, %ZoiperOK%, Zoiper,,,,
return

!Numpad9::
;Zoiper internal 7
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
ControlClick, %Zoiper9%, Zoiper,,,,
sleep, 700
ControlClick, %ZoiperOK%, Zoiper,,,,
return

^Numpad1::
;transfer 1
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
ControlClick, %ZoiperStar%, Zoiper,,,,
ControlClick, %Zoiper3%, Zoiper,,,,
ControlClick, %Zoiper1%, Zoiper,,,,
ControlClick, %ZoiperHash%, Zoiper,,,,
return

^Numpad2::
;transfer 2
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
ControlClick, %ZoiperStar%, Zoiper,,,,
ControlClick, %Zoiper3%, Zoiper,,,,
ControlClick, %Zoiper2%, Zoiper,,,,
ControlClick, %ZoiperHash%, Zoiper,,,,
return

^Numpad3::
;transfer 3
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
ControlClick, %ZoiperStar%, Zoiper,,,,
ControlClick, %Zoiper3%, Zoiper,,,,
ControlClick, %Zoiper3%, Zoiper,,,,
ControlClick, %ZoiperHash%, Zoiper,,,,
return

^Numpad4::
;transfer 4
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
ControlClick, %ZoiperStar%, Zoiper,,,,
ControlClick, %Zoiper3%, Zoiper,,,,
ControlClick, %Zoiper4%, Zoiper,,,,
ControlClick, %ZoiperHash%, Zoiper,,,,
return

^Numpad5::
;transfer 5
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
ControlClick, %ZoiperStar%, Zoiper,,,,
ControlClick, %Zoiper3%, Zoiper,,,,
ControlClick, %Zoiper5%, Zoiper,,,,
ControlClick, %ZoiperHash%, Zoiper,,,,
return

^Numpad6::
;transfer 6
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
ControlClick, %ZoiperStar%, Zoiper,,,,
ControlClick, %Zoiper3%, Zoiper,,,,
ControlClick, %Zoiper6%, Zoiper,,,,
ControlClick, %ZoiperHash%, Zoiper,,,,
return

^Numpad7::
;transfer 7
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
ControlClick, %ZoiperStar%, Zoiper,,,,
ControlClick, %Zoiper3%, Zoiper,,,,
ControlClick, %Zoiper7%, Zoiper,,,,
ControlClick, %ZoiperHash%, Zoiper,,,,
return

^Numpad8::
;transfer 8
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
ControlClick, %ZoiperStar%, Zoiper,,,,
ControlClick, %Zoiper3%, Zoiper,,,,
ControlClick, %Zoiper8%, Zoiper,,,,
ControlClick, %ZoiperHash%, Zoiper,,,,
return

^Numpad9::
;transfer 9
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
ControlClick, %ZoiperStar%, Zoiper,,,,
ControlClick, %Zoiper3%, Zoiper,,,,
ControlClick, %Zoiper9%, Zoiper,,,,
ControlClick, %ZoiperHash%, Zoiper,,,,
return

^NumpadDot::
; take back transfer
ControlClick, %ZoiperStar%, Zoiper,,,,
sleep, 200
ControlClick, %Zoiper8%, Zoiper,,,,
return

^NumpadSub::
rawnumber := Clip()
newnumber := RegExReplace(rawnumber, "\D")
id := WinExist("Zoiper")
WinActivate, ahk_id %id%
send %newnumber%
sleep, 700
ControlClick, %ZoiperOK%, Zoiper,,,,
return

!Numpad0::
;help zu den Zoiper-Funktionen anzeigen
MsgBox,NumKeys:`n`nCtrl + Enter  =  pickup`n`nCtrl + 0  =  hangup`n`nCtrl + [1-9]  =  transfer to (*3[1-9]#)`n`nCtrl + ,  =  take back transfer`n`nAlt + [1-9]  =  direct call [1-9]`n`nCtrl + -  =  strip and call highlighted number
return

Clip(option="", parameter="")
{
	Clipboard = 
	Send ^c
	ClipWait, 2
	if (option = "")
	{
		Return %clipboard%
	}
	if (option = "trim")
	{
		zwischenablage = %clipboard%
		zwischenablage = %zwischenablage%
		zumClip(zwischenablage)
		Return %clipboard%
	}
	if (option = "regex")
	{
		zwischenablage := RegExReplace(Clipboard, parameter)
		zumClip(zwischenablage)
		Return %clipboard%
	}
}

zumClip(uebergabe)
{
Clipboard = 
Clipboard = %uebergabe%
ClipWait 2 
if ErrorLevel
{
    MsgBox, The attempt to copy text onto the clipboard failed.
    return
}
}