you make one button and one timer
set this in the button:
Timer?.enabled=true
Set this in the timer:
If GetKeyPress(vbKey5) Then
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &H12A8560, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call WriteALong("Warrock", Shotgun2, 42)
Set interval 1
And you have shotgunhotkey