[ ALT TAB Ekle ]USKO kendi KOXPUNU kendin yap VB6

'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.