Announcement

**Hydride** · 02-08-2006, 03:09 PM

I can change mine with my Windows wireless keyboard

it has play/stop, next, previous on it, etc on it so i just hit those and it chagnes

**Doc Flabby** · 02-09-2006, 11:24 AM

Originally posted by Mr. Peanuts

I have recently started using iTunes instead of Winamp. And so, I have been working on a project in Visual Basic 6.0 to create a remote control for it. I have a working model consisting of buttons. However, I would like to assign a hotkey or combination hotkey to some of the buttons, enabling me to control iTunes from within a game. Heres a snippet of the code assigned to a button:

Code:

Private Sub UpVol_Click()
    Dim iTunes As iTunesApp
    iTunesApp.SoundVolume = iTunesApp.SoundVolume + 10
    Set iTunes = Nothing
End Sub

So my question is how do I go about assigning say 'Alt + Numpad+' to this button?

You have a number of options. I'm assuming you want the keypresses to work in whatever program you are using.

If you are intending to get it to detect keypresses outside of the vb form you will either need to use hooking (im too newb to understand it) , wirte your own keyboard driver

or go for the easy (noob) way of using windowsAPI: GetAsyncKeyStateGet()

http://msdn.microsoft.com/library/de...nckeystate.asp

http://msdn.microsoft.com/library/de...alKeyCodes.asp

I created this on a laptop so my keys are a bit funny so u might have to play with the codes :P And for the newb hackers amoung u - you can have fun changing this into a keylogger ez and yes i suck at vb.

Code:

'u need a timer on your vb form called timer1 with an interval of 1-10 milliseconds ( depends how responsive u want it)
'LOAD WINDOWS API FUNCTIONS
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal uCode As Integer, ByVal uMapType As Integer) As Integer


Private Sub Timer1_Timer()
For i = 1 To 255 'check each of the 255 virtual keys to see if they have been pressed 
result = 0
result = GetAsyncKeyState(i) 'get state of key
  If result = -32767 Then ' the key has been pressed
    If GetKeyState(18) And Chr(MapVirtualKey(i, 2)) = "[" Then
   ' check if alt key (vk_menu) is pressed and "[" key (i dont have numpad you can change this to a "+" )
    MsgBox "hello there" ' Display annoying popup box (optional :P)
  
    UpVol_Click() 'DO ITUNES ACCTION HERE
    End If
  End If
Next i
End Sub
     
'+++++++++++++++++++++++++++++++++++

I can email you working code if u cant get this to work.

**Mr. Peanuts** · 02-09-2006, 12:27 PM

Wow! Thanks a lot man, this really helps, I think I'll be good to work the rest of the keys out.

I would bend over for you if I could.

**Mr. Peanuts** · 02-09-2006, 12:38 PM

edit: actually, how do these VK_ keys work? I've tried to use Numpad8 to change to previous track

I've tried this but it didn't work:

Code:

For i = 1 To 255 'check each of the 255 virtual keys to see if they have been pressed
result = 0
result = GetAsyncKeyState(i) 'get state of key
  If result = -32767 Then ' the key has been pressed
    If GetKeyState(18) And Chr(MapVirtualKey(i, 2)) = "VK_NUMPAD8" Then
    Prev_Click
    End If
  End If
Next i

Edit: now only the volume hotkeys are working

**Doc Flabby** · 02-09-2006, 01:02 PM

Originally posted by Mr. Peanuts

edit: actually, how do these VK_ keys work? I've tried to use Numpad8 to change to previous track

I've tried this but it didn't work:

Code:

For i = 1 To 255 'check each of the 255 virtual keys to see if they have been pressed
result = 0
result = GetAsyncKeyState(i) 'get state of key
  If result = -32767 Then ' the key has been pressed
    If GetKeyState(18) And Chr(MapVirtualKey(i, 2)) = "VK_NUMPAD8" Then
    Prev_Click
    End If
  End If
Next i

I've made a bit of a mess of this line because of my laptop keyboard being weird.

Code:

If GetKeyState(18) And Chr(MapVirtualKey(i, 2)) = "]" Then

MapVirtualKey() convert the VK_NUMPAD8 to its real key so would be "8"

VK_NUMPAD8 is a constant it is actually a number

VK_NUMPAD8 (68)
Numeric keypad 8 key

68 is a hex number so => 104

You need to change it to

Code:

If GetKeyState(18) And i = 104 Then

this might not work as codes differ between keyboards

if you wanna find the right code using this

Code:

For i = 1 To 255 'check each of the 255 virtual keys to see if they have been pressed
result = 0
result = GetAsyncKeyState(i) 'get state of key
  If result = -32767 Then ' the key has been pressed
    debug.print i 'display key code
  End If
Next i

**Mr. Peanuts** · 02-09-2006, 01:28 PM

Ah, I have it working however it seems to take ages to respond.

Should I create differnet timers for each hotkey?

edit: tried that and it seems to be responding quicker.

**Doc Flabby** · 02-09-2006, 01:33 PM

Originally posted by Mr. Peanuts

Ah, I have it working however it seems to take ages to respond.

Should I create differnet timers for each hotkey?

edit: tried that and it seems to be responding quicker.

or reduce the interval on the timer to 1 millisecond

if u add too many timers that will slow it down too :P

**Mr. Peanuts** · 02-09-2006, 01:36 PM

just tried that, still seems a tad sluggish, but it works nonetheless

thanks

editxdzda: i notice its only the first code for VolUp that isnt sluggish in response. any thoughts?

**Doc Flabby** · 02-09-2006, 06:36 PM

Originally posted by Mr. Peanuts

just tried that, still seems a tad sluggish, but it works nonetheless

thanks

editxdzda: i notice its only the first code for VolUp that isnt sluggish in response. any thoughts?

post your code up and ill have a look :P

**Mr. Peanuts** · 02-10-2006, 10:19 AM

Ok, heres the code in its entririty:

Code:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal uCode As Integer, ByVal uMapType As Integer) As Integer

Private Sub DownVol_Click()
    Dim iTunes As iTunesApp
    iTunesApp.SoundVolume = iTunesApp.SoundVolume - 10
    Set iTunes = Nothing
End Sub

Private Sub UpVol_Click()
    Dim iTunes As iTunesApp
    iTunesApp.SoundVolume = iTunesApp.SoundVolume + 10
    Set iTunes = Nothing
End Sub

Private Sub Prev_Click()
     Dim iTunes As iTunesApp
     Set iTunes = New iTunesApp
     iTunes.PreviousTrack
     Set iTunes = Nothing
End Sub

Private Sub Next_Click()
     Dim iTunes As iTunesApp
     Set iTunes = New iTunesApp
     iTunes.NextTrack
     Set iTunes = Nothing
End Sub

Private Sub Play_Click()
     Dim iTunes As iTunesApp
     Set iTunes = New iTunesApp
     iTunes.Play
     Set iTunes = Nothing
End Sub

Private Sub Pause_Click()
     Dim iTunes As iTunesApp
     Set iTunes = New iTunesApp
     iTunes.Pause
     Set iTunes = Nothing
End Sub

'HERE WE HAVE KEYPRESSES
'NUMPAD PLUS - UPVOL
Private Sub Timer1_Timer()
For i = 1 To 255 'check each of the 255 virtual keys to see if they have been pressed
result = 0
result = GetAsyncKeyState(i) 'get state of key
  If result = -32767 Then ' the key has been pressed
    If GetKeyState(18) And i = 107 Then
   ' check if alt key (vk_menu) is pressed and "[" key (i dont have numpad you can change this to a "+" )
  
    UpVol_Click
    End If
  End If
Next i

'NUMPAD MINUS - DOWNVOL
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
  If result = -32767 Then
    If GetKeyState(18) And i = 109 Then
   
  
    DownVol_Click
    End If
  End If
Next i

'NUMPAD 8 - PREV
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
  If result = -32767 Then
    If GetKeyState(18) And i = 104 Then
    Prev_Click
    End If
  End If
Next i

'NUMPAD 2 - NEXT
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
  If result = -32767 Then
    If GetKeyState(18) And i = 98 Then
    Next_Click
    End If
  End If
Next i

'NUMPAD 5 - PAUSE
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
  If result = -32767 Then
    If GetKeyState(18) And i = 101 Then
    Pause_Click
    End If
  End If
Next i

'NUMPAD 0 - PLAY
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
  If result = -32767 Then
    If GetKeyState(18) And i = 96 Then
    Play_Click
    End If
  End If
Next i

End Sub

**Doc Flabby** · 02-10-2006, 11:05 AM

Code:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal uCode As Integer, ByVal uMapType As Integer) As Integer

Private Sub DownVol_Click()
    Dim iTunes As iTunesApp
    iTunesApp.SoundVolume = iTunesApp.SoundVolume - 10
    Set iTunes = Nothing
End Sub

Private Sub UpVol_Click()
    Dim iTunes As iTunesApp
    iTunesApp.SoundVolume = iTunesApp.SoundVolume + 10
    Set iTunes = Nothing
End Sub

Private Sub Prev_Click()
     Dim iTunes As iTunesApp
     Set iTunes = New iTunesApp
     iTunes.PreviousTrack
     Set iTunes = Nothing
End Sub

Private Sub Next_Click()
     Dim iTunes As iTunesApp
     Set iTunes = New iTunesApp
     iTunes.NextTrack
     Set iTunes = Nothing
End Sub

Private Sub Play_Click()
     Dim iTunes As iTunesApp
     Set iTunes = New iTunesApp
     iTunes.Play
     Set iTunes = Nothing
End Sub

Private Sub Pause_Click()
     Dim iTunes As iTunesApp
     Set iTunes = New iTunesApp
     iTunes.Pause
     Set iTunes = Nothing
End Sub

'HERE WE HAVE KEYPRESSES

Private Sub Timer1_Timer()
For i = 1 To 255 'check each of the 255 virtual keys to see if they have been pressed
result = 0
result = GetAsyncKeyState(i) 'get state of key
  If result = -32767 Then ' the key has been pressed
    stateOfAlt = GetKeyState(18) 
    If stateOfAlt And i = 107 Then: UpVol_Click 'NUMPAD PLUS - UPVOL
    If stateOfAlt And i = 109 Then: DownVol_Click 'NUMPAD MINUS - DOWNVOL
    If stateOfAlt And i = 104 Then: Prev_Click 'NUMPAD 8 - PREV
    If stateOfAlt And i = 98  Then: Next_Click 'NUMPAD 2 - NEXT
    If stateOfAlt And i = 101 Then: Pause_Click 'NUMPAD 5 - PAUSE
    If stateOfAlt And i = 96  Then: Play_Click 'NUMPAD 0 - PLAY
  End If
Next i


End Sub

im at work so i cant check if it works but give it a try

**Mr. Peanuts** · 02-10-2006, 11:25 AM

Wow, so helpful, this works perfectly now! Thanks a lot!

:wub: :wub:

**Money** · 02-11-2006, 05:08 PM

Originally posted by Mr. Peanuts

I would bend over for you if I could.

HAHAHA

**Mr. Peanuts** · 02-12-2006, 07:42 AM

you know how i roll

Announcement

Anyone familiar with VB?

Anyone familiar with VB?

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Channels