LHSP‡        	   task <1-20>   1-20 with mouse click, winkey needed!taskwithmouseclick }øÿ                ÿ§Sub Main
' zie ook https://qh.antenna.nl/spraakherkenning
	Dim x As Integer
	Dim y1 As Integer
	Dim y As Integer
	Dim yincr As Integer
	Dim taskNum As Integer
       
       ' also enter these in "task <1-20> <taskcommand>" !!!
	x = 20    ' vul hier je eigen waardes in
	y1 = 42
	yincr = 29 ' pos 2 - pos1 of (pos11 - pos1)/10 (rounded)

	Dim t1 As String
	If InStr(ListVar1, "\") > 0 Then
		t1 = Mid(ListVar1, 1, InStr(ListVar1, "\")-1)
	Else
		t1 = ListVar1
	End If



	If Val(t1) > 0 Then
		' deactivate active window, goto system tray:
		DllCall "DNSKeys","WinKey","b"
		Wait 0.2

		i = Val(t1)
		' switch to task by number
		y = y1 + yincr*(i-1)
		SetMousePosition 0, x, y
		Wait 0.2
		ButtonClick
	Else
		MsgBoxConfirm "task macro with invalid value: " & ListVar1, 64, "error in macro task"
		Exit Sub
	End If
	Wait 0.3
	' centre mouse in the active window:
	SetMousePosition 4, 0
End Sub
task <1-20> <taskcommand>   1-20taskcommand#with mouse click, also needs winkeytaskwithmouseclick }øÿ                ÿpSub Main
' zie https://qh.antenna.nl/spraakherkenning
	Dim x As Integer
	Dim y1 As Integer
	Dim y As Integer
	Dim yincr As Integer
	Dim taskNum As Integer

      ' also enter in  "task <1-20>" !!!
      ' note: the actions on the list taskcommand can be different in different language versions
      ' of Windows.  This macro is meant to be for an English Windows version.
      ' consult also the website above!
	x = 20    ' vul hier je eigen waardes in
	y1 = 42
	yincr = 29 ' pos 2 - pos1 of (pos11 - pos1)/10 (afgerond)

	Dim t1 As String
	Dim t2 As String
	Dim spoken2 As String
	If InStr(ListVar1, "\") > 0 Then
		t1 = Mid(ListVar1, 1, InStr(ListVar1, "\")-1)
	Else
		t1 = ListVar1
		t2 = ListVar1
	End If
	If Val(t1) > 0 Then
		' deactivate active window, goto system tray:
		DllCall "DNSKeys","WinKey","b"
		Wait 0.1

		i = Val(t1)
		' switch to task by number
		y = y1 + yincr*(i-1)
		SetMousePosition 0, x, y
		Wait 0.2
		ButtonClick
	Else
		MsgBoxConfirm "task macro with invalid value: " & ListVar1, 64, "error in macro task"
		Exit Sub
	End If
	Wait 0.3
	t2 = Mid(ListVar2, 1, InStr(ListVar2, "\")-1)
	spoken2 = Mid(ListVar2, InStr(ListVar2, "\")+1)
	' MsgBoxConfirm "spoken2: " & spoken2,64, "spoken.."
	If t2 <> "" Then
		SendSystemKeys t2
	End If
	Wait 0.3
	' centre mouse in the active window:
	SetMousePosition 4, 0
End Sub
task <taskcommand>   taskcommand taskwithmouseclick }øÿ                ÿSub Main
' zie https://qh.antenna.nl/spraakherkenning
 Dim t1 As String
 t1 = Mid(ListVar1, 1, InStr(ListVar1, "\")-1)

	If t1 <> "" Then
	    SendSystemKeys t1
            Wait 0.3
	End If
	' centre mouse in the active window:
	SetMousePosition 4, 0
End Sub
   1-20      1101112131415161718192203456789taskcommand      \mouse{alt+f4}\close{alt+space}n\minimise{alt+space}r\restore{alt+space}x\maximise{alt+tab}\back{f5}\refresh{shift+ctrl+a}\other display