Koxpa Alt+Tab Modu Ekleme

tarafından **Karakatil** C.tesi Tem. 04, 2009 3:41 pm

Karakatil: Admin; Mesaj Sayısı : 2424
Kayıt tarihi : 04/07/09
Yaş : 33
Nerden : C/System32

tarafından Karakatil C.tesi Tem. 04, 2009 3:41 pm

Aşağıdaki komut keyboardın Setuplama alt yordamlarıdır.

Kod:: 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 LongKod: Public Sub SetupKeyboard() Keyboard = ReadLong(KeybPtr + 0) Keyboard = Keyboard + 620 End Sub

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