www.kingkoxp.forummum.com Yeni sitemiz

Ayrıntılı Koxp Yapımı Ders 10

Ayrıntılı Koxp Yapımı Ders 10

 Koxp a Alt Tab Modu Ekleme

'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

Public Sub SelectMOB()

SendK("DIK_Z")

End Sub



Bunları yazmakla bitmiyor. Yükle veya Başlat ne yapmışsanız artık, Orada olumlu olan yere SetupKeyboard yazmanız gerekli aksi taktirde çalışmaz hatta bende AttachKO() as Boolean var biliyorsunuz olumlu olan yere SetupKeyboard.