[ Wall Hack Modül + Kod ]USKO kendi KOXPUNU kendin yap VB6

Gerekenler :



1 Check Box, ( Modül olarak verdiğim genel modülü kullanıcaz. )

Yapılışı :

Formumuza 1 adet Check Box ekliyoruz ve Captionunu Duvar Hack Yapıyoruz.

Check 1 Kod Kısmına Aşağıdaki Kodu Yazıyoruz.







Private Sub Check1_Click()

If Check1.Value = 1 Then



WriteLong KO_ADR_CHR + KO_OFF_WH, "0"



Else



WriteLong KO_ADR_CHR + KO_OFF_WH, "1"



End If

End Sub







Modulümüze ise Genel Kodu yazıyoruz. ( Eğer modülünüz varsa gerek yok)



GENEL MODÜL:





Option Explicit



Public keyboard As Long



Private Type SECURITY_ATTRIBUTES



nLength As Long



lpSecurityDescriptor As Long



bInheritHandle As Long



End Type



Private Const MEM_COMMIT = &H1000



Private Const MEM_RELEASE = &H8000&



Private Const PAGE_READWRITE = &H4&



Private Const INFINITE = &HFFFF



Public Const MAILSLOT_NO_MESSAGE As Long = (-1)



Public Declare Function GetTickCount Lib "kernel32" () As Long 'apidir bunu ekle modulde yukarıya



Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) 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 ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Long) As Long



Private Declare Function CreateMailslot Lib "kernel32" Alias "CreateMailslotA" (ByVal lpName As String, ByVal nMaxMessageSize As Long, ByVal lReadTimeout As Long, lpSecurityAttributes As Any) As Long



Private Declare Function GetMailslotInfo Lib "kernel32" (ByVal hMailSlot As Long, lpMaxMessageSize As Long, lpNextSize As Long, lpMessageCount As Long, lpReadTimeout 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 GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long



Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long



Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal hProcess As Long, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal dwStackSize As Long, lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long



Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long



Private Declare Function VirtualFreeEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long



Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long



Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long



Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long



Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long



Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long



Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long



Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer



Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long



Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long



Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long



Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)



Public Declare Function GetModuleInformation Lib "PSAPI.DLL" (ByVal hProcess As Long, ByVal hModule As Long, lpmodinfo As MODULEINFO, ByVal cb As Long) As Long



Public 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 Function GetModuleFileNameExA Lib "PSAPI.DLL" (ByVal hProcess As Long, ByVal hModule As Long, ByVal ModuleName As String, ByVal nSize As Long) As Long



Public hexword As String



Private Const PROCESS_ALL_ACCESS = &H1F0FFF



Public Const SWP_NOMOVE = 2



Public Const SWP_NOSIZE = 1



Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE



Public Const HWND_TOPMOST = -1



Public Const HWND_NOTOPMOST = -2



Public Const LWA_COLORKEY = 1



Public Const LWA_ALPHA = 2



Public ko As Long



Public Const LWA_BOTH = 3



Public Const WS_EX_LAYERED = &H80000



Public Const GWL_EXSTYLE = -20



Public Timer As Date



Public Diff As Long



Public UseOtocanPot



Public Hook



Public CurrentNation As String



Public class As String



Public UseTimed As Boolean



Public PotionTimer As Date



Public Char As Long



Public TimedTimer As Date



Public AttackTimer As Long



Public AttackDiff As Long



Public TargetTimer As Date



Public TargetDiff As Long



Public TimedDiff As Long



Public PotionDiff As Long



Public PublicWolf As Long



Public UseAutoWolf



Public UseOtomanapot



Public UseAutoAttack



Public UseManaSave



Public Started



Public HealPercent As Long



Public ManaPercent As Long



Public HealType As Long



Public ManaType As Long



Public AttackALL As String



Public mob As Long



Public SellAll As Long



Public BonusFilter As Long



Public MSName



Public MSHandle



Public UseSitAutoAttack



Public UseWallHack



Public durab As Long



Public UseLupineEyes



Public UseAutoSwift



Public UseAutoSell



Public UseAutoLoot



Public CurrentMobHP As Long



Public BoxID



Public itemID



Public AttackNow



Public SecondID



Public ThirdID



Public FourthID



Public FifthID



Public SixthID



Public BoxOpened



Public Exp As Long



Public outack



Public Looting



Public ChatTipi As String



Public RepairID As String



Public ItemSlot As String



Public RecvID As String



Public LastBoxID As Long



Public OpenNextBox As Boolean



Public LastRepair As Date



Public RepairDiff As Long



Public LootBuffer As String



'start declaring autoattack log



Public LastID



Public TargetID As Long



Public MaxEXP As Long



'stop declaring autoattack log



Public ChatTipi1 As Long



Public KO_RCVFNC As Long



Public KO_TITLE As String



Public KO_HANDLE As Long



Public KO_PID As Long



Public KO_PTR_CHR As Long



Public KO_PTR_CHR1 As Long



Public KO_PTR_DLG As Long



Public KO_PTR_PKT As Long



Public KO_SND_FNC As Long



Public KO_RECVHK As Long



Public KO_RCVHKB As Long



Public KO_ADR_CHR As Long



Public KO_ADR_DLG As Long



Public KO_OFF_RTM As Long



Public KO_OFF_NT As Long



Public KO_OFF_CLASS As Long



Public KO_OFF_SWIFT As Long



Public KO_OFF_HP As Long



Public KO_OFF_MAXHP As Long



Public KO_OFF_MP As Long



Public KO_OFF_MAXMP As Long



Public KO_OFF_MOB As Long



Public KO_OFF_WH As Long



Public KO_OFF_SIT As Long



Public KO_OFF_LUP As Long



Public KO_OFF_LUP2 As Long



Public KO_OFF_Y As Long



Public KO_OFF_ID As Long



Public KO_OFF_HD As Long



Public KO_OFF_X As Long



Public KO_OFF_SEL As Long



Public KO_OFF_LUPINE As Long



Public KO_OFF_EXP As Long



Public KO_OFF_MAXEXP As Long



Public KO_OFF_AP As Long



Public KO_OFF_GOLD As Long



Public nation As Long



Public KO_TITLE1 As String



Public DINPUT_Handle As Long



Public DINPUT_lpBaseOfDLL As Long



Public DINPUT_SizeOfImage As Long



Public DINPUT_EntryPoint As Long



Public DINPUT_KEYDMA As Long



Public DINPUT_K_1 As Long



Public DINPUT_K_2 As Long