ByLetsFeeL
Admin
Mesaj Sayısı : 161
Puanlar : 145801266
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...
 |  Konu: Koxp a Alt Tab Modu Ekleme  Çarş. Şub. 03, 2010 1:13 pm | |
| '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. | |
|
ByLetsFeeL
Admin
Mesaj Sayısı : 161
Puanlar : 145801266
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...
| | Konu: Geri: Koxp a Alt Tab Modu Ekleme C.tesi Şub. 06, 2010 8:46 pm | |
| Oda Olmassa TuşYolla("Z") yada
SendKeys("Z")
Kullanın.. !! | |
|
