‘Koxp’ kategorisindeki konular

Etiketler : 4 story, e metin2, en son metin2 hileleri, hile, hile metin 2, hile metin2, hileleri metin2, http://www.metin2 hileleri.com/, i-metin 2, knight gm resim, knight online gm resimleri, memetin 2 indir, met2türk, meti ntürkiye hile, meti2türk, meti2turk.com, meti2turk.org, meti2turk.org hileleri, METİN 2, metin 2 erek hile, metin 2 hack, metin 2 hile, metin 2 hileler, metin 2 hileleri, metin 2 hileleri indir, metin 2 hilesi, metin 2 hilleri, metin 2 türk hileleri, metin 2 türk indir, metin 2 turkey, metin 2 türkey hile indir, metin 2 turkey.com, metin 2 türkiye, metin 2 türkiye hilesi indir, metin 2turkey, metin dünyanın en iyi hilesi dowload, metin hileleri, metin iki, metin iki hileleri, metin ko gm resimleri, metin türkey, metin turkey indir, METİN TÜRKİYE DOWLAND, metin türkiye indir, METİN-2-TU, metin2, metin2 4.5 hile, metin2 4.5 hilesi, metin2 5.0 hack, metin2 by turkey, metin2 de hile, metin2 de hileleri, metin2 en iyi hack, metin2 from turkey, metin2 fun hileleri, metin2 fun hiyleleri, metin2 gile, metin2 hack, metin2 hack 5.0, metin2 hack 5.0 download, metin2 hack dowland, metin2 hack download, metin2 hack indir, metin2 hacklerı, metin2 hie, metin2 hile, metin2 hile 4.5, metin2 hile 4.5 indir download, metin2 hile download, metin2 hile hack, metin2 hile indir download meti, metin2 hilelelri, Metin2 Hileleri, metin2 hileleri download, metin2 hileleri heralanda slot çekme, metin2 hileli olmak, metin2 hilelri, metin2 hileri, metin2 hilerleri, metin2 hilesi, metin2 hilesi 4.5, metin2 hilesi turkiye, metin2 hle, metin2 hşleleri, metin2 iki, metin2 in tüm hileleri, metin2 kullanılan hile download, metin2 metin hileleri, metin2 metin2 türkiye indir, Metin2 Pvp, metin2 tr hack, metin2 tur.com, metin2 türk indir, metin2 turkey, metin2 turkey download, metin2 turkey hack, metin2 turkey hile, metin2 türkey hile 8.0 download indir, metin2 turkey hileleri, metin2 turkey hilesi, metin2 türkey hilesi indir, metin2 turkey indir, metin2 türkey onlay indir, metin2 türkey şifreleri, metin2 turkey.com, metin2 türkeye üye ol, metin2 turkiye, metin2 TURkiye gm resimleri, metin2 türkiye dowland, metin2 türkiye download, metin2 türkiye hacks, metin2 türkiye hileler, metin2 türkiye hileleri, metin2 türkiye hilesi, metin2 türkiye indir, metin2 türkiye indir download, metin2 türkiye para hack, metin2 turkiye teksoftnet, metin2 ürkiye, metin2-türk.com, metin2.hileleri com, metin2.TÜRKEY.coım, Metin2Hile, metin2hileleri, metin2hileleri download, metin2hilesi, metin2lineturkey, metin2tukey, metin2turkey, metin2turkey download, metin2türkey indir, metin2turkey üye ol, metin2turkey.com/, metin2turkey.net, metin2turkey.net.tc, metin2türkiye, metin2türkiye.com, Metin2Türkiye/2, metin2turkley, metin2turkry, metin2türks, metin2yürkey, metin2_turkey.com, metin2 hile, metin2 hileleri, metin 2, metn 2 hileleri, mtein2turkey, mtin 2 hilesi, site:metin2turkey.com, site:metin2turkey.com www.metin2turkey.com, the metin2 hile, tum metin2 hileleri, turkey metin2, türkiye metin2.com, turkmetın2 hıle, www e turkiye indir, www.meti2türk.com, www.metin hile dowlond.comm, www.metin2 hile dowlond.comm, www.metin2-hacks.com, www.metin2.turk.com, www.metin2.turkey, www.metin2.turkey.com, www.metin2turkey, www.metin2turkey.co, www.metin2turkey.com, www.metin2turkey.com multihack hilesi, www.metin2turkey.net.tc, www.metin2turkey.org, www.metin2türkiye.com, www.metin2turko.com, www.metin2_turkey.com, www.mtn2turkey.com, www.themetin2turkey.com, www.turkey.com metin2, wwww.metin2turkey.com
Gerekenler :
1 Command Button [ Caption Yukle Yapabilirsiniz]
1 Text Box [ Text Kısmına Knight Online Client Yazın ]
1 Tane Command Button Açalım İçine Bunu Yazın
Kod:
----------------------------------
KO_TITLE = Text1.Text ' ko_title = text1
GetHandle
If KO_HANDLE > 0 Then
Command1.Enabled = False ' yükle butonunu pasiv et
Text1.Enabled = False ' yüklenin yanındaki text1 i pasiv et
Else ' hayırsa
MsgBox "Pencere bulunamadi", vbCritical 'kritik hata notuyla pencere bulunamadı de!
End If
'funcition BySertac
----------------------------------
Modul Açalım Yeni içine de
Kod:
-----------------------------
'handle
Public KO_HANDLE As Long
'title
Public KO_TITLE As String
Public Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer
Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Public Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function WriteProcessMem Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "User32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function CloseHandle Lib "Kernel32.dll" (ByVal Handle As Long) As Long
Private Declare Function EnumProcesses Lib "PSAPI.DLL" (ByRef lpidProcess As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Private Declare Function GetModuleFileNameExA Lib "PSAPI.DLL" (ByVal hProcess As Long, ByVal hModule As Long, ByVal ModuleName As String, ByVal nSize As Long) As Long
Private Declare Function EnumProcessModules Lib "PSAPI.DLL" (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const PROCESS_QUERY_INFORMATION As Long = 1024
Private Const PROCESS_VM_READ As Long = 16
Private Const MAX_PATH As Long = 260
Public Function GetProcessByName(ByVal EXEName As String) As Long
Dim cb As Long
Dim cbNeeded As Long
Dim NumElements As Long
Dim ProcessIDs() As Long
Dim cbNeeded2 As Long
Dim NumElements2 As Long
Dim Modules(1 To 200) As Long
Dim ModuleName As String
Dim hProcess As Long
Dim i As Long
cb = 8
cbNeeded = 96
Do While cb <= cbNeeded
cb = cb * 2
----------------------------------
|
Eylül 2010
| Pts |
Sal |
Çar |
Per |
Cum |
Cts |
Paz |
| « Ağu |
|
|
| | 1 | 2 | 3 | 4 | 5 |
| 6 | 7 | 8 | 9 | 10 | 11 | 12 |
| 13 | 14 | 15 | 16 | 17 | 18 | 19 |
| 20 | 21 | 22 | 23 | 24 | 25 | 26 |
| 27 | 28 | 29 | 30 |
|
|