2x if in a loop

[Goss3N]

Hi im having a problem with that i want two if statemens in one loop

#Region;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Icon.ico
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****
#include <misc.au3>

Dim $pos

AutoItSetOption("SendKeyDelay", 300)
While 1
    If _IsPressed("05") Then
        Send("{NUMPAD7}")
    EndIf
WEnd

and

#Region;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Icon.ico
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****
#include <misc.au3>

Dim $pos
AutoItSetOption("SendKeyDelay", 300)
While 1
    If _IsPressed("06") Then
        Send("{NUMPAD8}")
    EndIf
WEnd

how can i make theese in to one script

[oMBRa]

#Region;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Icon.ico
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****
#include <misc.au3>

Dim $pos
$dll = DllOpen("user32.dll")
AutoItSetOption("SendKeyDelay", 300)
While 1
    If _IsPressed("05", $dll) Then
        Send("{NUMPAD7}")
    ElseIf _IsPressed("06", $dll) Then
        Send("{NUMPAD8}")
    EndIf
WEnd

[Goss3N]

#Region;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Icon.ico
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****
#include <misc.au3>

Dim $pos
$dll = DllOpen("user32.dll")
AutoItSetOption("SendKeyDelay", 300)
While 1
    If _IsPressed("05", $dll) Then
        Send("{NUMPAD7}")
    ElseIf _IsPressed("06", $dll) Then
        Send("{NUMPAD8}")
    EndIf
WEnd

thanks =)