'Modul kısmına en üste tanımlama bölümünde olmalıdır.
Public Const DIK_0 As long = 11
Public Const DIK_1 As long = 2
Public Const DIK_2 As long = 3
Public Const DIK_3 As long = 4
Public Const DIK_4 As long = 5
Public Const DIK_5 As long = 6
Public Const DIK_6 As long = 7
Public Const DIK_7 As long = 8
Public Const DIK_8 As long = 9
Public Const DIK_9 As long = 10
Public Const DIK_F1 As long = &H3B
Public Const DIK_F2 As long = 60
Public Const DIK_F3 As long = &H3D
Public Const DIK_F4 As long = &H3E
Public Const DIK_F5 As long = &H3F
Public Const DIK_F6 As long = &H40
Public Const DIK_F7 As long = &H41
Public Const DIK_F8 As long = &H42
Public Const DIK_Z As long = &H2C
Public Const DIK_C As long = &H2E
Public Const DIK_B As long = &H30
Public Const DIK_R As long = &H13
Public Const DIK_TAB As long = 15
Public Const DIK_E As long =  &H12
Public Const KeybPtr as Long = &HB6FC5C
Public Keyboard as Long

Public Sub SetupKeyboard()
Keyboard = ReadLong(KeybPtr + 0)
Keyboard = Keyboard + 620
End Sub

Public Sub SendK(ByVal Key As Long)
WriteLong Keyboard + Key * 4, 1
Sleep (50)
WriteLong Keyboard + Key * 4, 0
End Sub

'Burda aslında KnightOnline ustemi değilmi onu kontrol etmek lazım
'Eğer değilse SendK yı kullansın, Ama aktifse Knight o zaman Yolla Tuş("Z") olabilir.
'ben size yolun nasıl gideceğini söylerim sizlerde nasıl yapılır onu araştırıp uygularsınız :D
Public Sub SelectMOB()
SendK("DIK_Z")
End Sub