Sub zhandoub
    Call ckclb(d1ID)
    Delay 300
    If d1anj = "alt+q" Then 
        KeyDown "Alt", 1
        Delay 50
        KeyDown "Q", 1
        Delay 50
        KeyUp "Alt", 1
        Delay 50
    ElseIf d1anj = "alt+d" Then
        KeyDown "Alt", 1
        Delay 50 
        KeyDown "D", 1
        Delay 50
        KeyUp "Alt", 1
        Delay 50
    ElseIf d1anj = "alt+a" Then
        KeyDown "Alt", 1
        Delay 50 
        KeyDown "A", 1
        Delay 50
        KeyUp "Alt", 1
        Delay 50
    End If
    If d1banj = "alt+q" Then 
        KeyDown "Alt", 1
        Delay 50
        KeyDown "Q", 1
        Delay 50
        KeyUp "Alt", 1
        Delay 50
    ElseIf d1banj = "alt+d" Then
        KeyDown "Alt", 1
        Delay 50 
        KeyDown "B", 1
        Delay 50
        KeyUp "Alt", 1
        Delay 50
    ElseIf d1banj = "alt+a" Then
        KeyDown "Alt", 1
        Delay 50 
        KeyDown "A", 1
        Delay 50
        KeyUp "Alt", 1
        Delay 50
    End If
    Call ckclb(d2ID)
    If d2anj = "alt+q" Then 
        Call altq
    ElseIf d2anj = "alt+d" Then
        Call altd
    ElseIf d2anj = "alt+a" Then
        Call alta
    End If
    If d2banj = "alt+q" Then 
        Call altq
    ElseIf d2banj = "alt+d" Then
        Call altd
    ElseIf d2banj = "alt+a" Then
        Call alta
    End If
End Sub
Sub zhandouc
    Call ckclb(d1ID)
    Delay 300
    If d1anj = "alt+q" Then 
        KeyDown "Alt", 1
        Delay 50
        KeyDown "Q", 1
        Delay 50
        KeyUp "Alt", 1
        Delay 50
    ElseIf d1anj = "alt+d" Then
        KeyDown "Alt", 1
        Delay 50 
        KeyDown "D", 1
        Delay 50
        KeyUp "Alt", 1
        Delay 50
    ElseIf d1anj = "alt+a" Then
        KeyDown "Alt", 1
        Delay 50 
        KeyDown "A", 1
        Delay 50
        KeyUp "Alt", 1
        Delay 50
    End If
    If d1banj = "alt+q" Then 
        KeyDown "Alt", 1
        Delay 50
        KeyDown "Q", 1
        Delay 50
        KeyUp "Alt", 1
        Delay 50
    ElseIf d1banj = "alt+d" Then
        KeyDown "Alt", 1
        Delay 50 
        KeyDown "B", 1
        Delay 50