LHSPЗ           taak <1-20>   1-20$ook winkey nodig, raadpleeg website!taakmetmuisklikken }°                  д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
       
       ' ook in "taak <1-20> <taakcommando>" invullen!!!
	x = 20    ' vul hier je eigen waardes in
	y1 = 42
	yincr = 29 ' pos 2 - pos1 of (pos11 - pos1)/10 (afgerond)

	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.1

		i = Val(t1)
		' switch to task by number
		y = y1 + yincr*(i-1)
		SetMousePosition 0, x, y
		Wait 0.2
		ButtonClick
	Else
		MsgBoxConfirm "taak macro met ongeldige waarde: " & ListVar1, 64, "fout in macro taak"
		Exit Sub
	End If
	Wait 0.3
	' centre mouse in the active window:
	SetMousePosition 4, 0
End Sub
taak <1-20> <taakcommando>   1-20taakcommando$ook winkey nodig, raadpleeg website!taakmetmuisklikken }°                  ,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

      ' ook in "taak <1-20>" invullen!!!
      ' let op: de acties in de lijst taakcommando kunnen verschillen in verschillende
      ' versies van windows. zie ook de website (zie boven)
	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 "taak macro met ongeldige waarde: " & ListVar1, 64, "fout in macro taak"
		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
taak <taakcommando>   taakcommando taakmetmuisklikken }°                  
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taakcommando      \muis{alt+f4}\sluiten{alt+space}m\maximaliseren{alt+space}n\minimaliseren{alt+space}v\vorig formaat{f5}\vernieuwen{shift+ctrl+a}\ander displee{alt+tab}\terug