Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Proszę o pomoc z hackie

pijawsky2

Przez pijawsky2
w Kosz

Rekomendowane odpowiedzi

pijawsky2 Pasjonat

pijawsky2

Opublikowano
Pasjonat

pijawsky2

Opublikowano

Siema właśnie napisałem swojego pierwszego hacka, ale adresy hacków są z poprzedniego upa. Mógłby ktoś powiedzieć jak podmienić adresy?

 

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

 

Private Sub Command2_Click()

Timer2.Enabled = True

End Sub

 

Private Sub Command3_Click()

Timer3.Enabled = True

End Sub

 

Private Sub Command4_Click()

Timer4.Enabled = True

End Sub

 

Private Sub Command5_Click()

Timer5.Enabled = True

End Sub

 

Private Sub Command6_Click()

Timer6.Enabled = True

End Sub

 

Private Sub Command7_Click()

Timer1.Enabled = False

End Sub

 

Private Sub Command8_Click()

Timer2.Enabled = False

End Sub

 

Private Sub Command9_Click()

Timer3.Enabled = False

End Sub

 

Private Sub Command10_Click()

Timer4.Enabled = False

End Sub

 

Private Sub Command11_Click()

Timer5.Enabled = False

End Sub

 

Private Sub Command12_Click()

Timer6.Enabled = False

End Sub

 

Private Sub Timer1_Timer()

Call NINMVMXIU("warrock", &H505B25, &H90)

Call NINMVMXIU("warrock", &H505B25 + 1, &H90)

Call NINMVMXIU("warrock", &H505B25 + 2, &H90)

Call NINMVMXIU("warrock", &H505B25 + 3, &H90)

Call NINMVMXIU("warrock", &H505B25 + 4, &H90)

Call NINMVMXIU("warrock", &H505B25 + 5, &H90)

End Sub

 

Private Sub Timer2_Timer()

Call MINMVXMIU("WarRock", &H51EBB6, &H90)

Call MINMVXMIU("WarRock", &H51EBB6 + 1, &H90)

Call MINMVXMIU("WarRock", &H51EBB6 + 2, &H90)

Call MINMVXMIU("WarRock", &H51EBC7, &H90)

Call MINMVXMIU("WarRock", &H51EBC7 + 1, &H90)

Call MINMVXMIU("WarRock", &H51EBC7 + 2, &H90)

Call MINMVXMIU("WarRock", &H51EBCD, &H90)

Call MINMVXMIU("WarRock", &H51EBCD + 1, &H90)

Call MINMVXMIU("WarRock", &H51EBCD + 2, &H90)

End Sub

 

Private Sub Timer3_Timer()

If XMUININMV(vbKeyControl) And XMUININMV(vbKeyR) Then

Dim Shotgun As Long

Dim Shotgun1 As Long

Call NINMXVMIU("Warrock", &H137BE20, Shotgun)

Shotgun1 = Shotgun + &H4C

Call NINMVMXIU("Warrock", Shotgun1, 42)

End If

End Sub

 

Private Sub Timer4_Timer()

If XMUININMV(vbKeyControl) And XMUININMV(vbKeySpace) Then

Dim jump1 As Long

Dim jump2 As Long

Dim jump3 As Single

Call NINMXVMIU("warrock", &H137BE20, jump1)

jump2 = jump1 + &H178

jump3 = Text1.Text

Call INNMVXMIU("warrock", jump2, jump3)

End If

End Sub

 

Private Sub Timer5_Timer()

Dim NFD As Long

Dim NFD1 As Long

Call NINMXVMIU("WarRock", &H137BE20, NFD)

NFD1 = NFD + &H264

Call INNMVXMIU("WarRock", NFD1, -2500)

End Sub

 

Private Sub Timer6_Timer()

Dim STAN As Long

Dim STAN1 As Long

Call NINMXVMIU("WarRock", &H137BE20, STAN)

STAN1 = STAN + &H28C

Call NINMVMXIU("WarRock", STAN1, 1120403456)

End Sub

 

Public Const NNNNNUUNM = &H1F0FFF

Dim f1holder As Integer

Dim timer_pos As Long

 

'API Declaration

Public Declare Function NINMVXMUI Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long

Public Declare Function INMVXMUIN Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Public Declare Function NMVXMUINI Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Public Declare Function MVXMUININ Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long

Public Declare Function VXMUININM Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long

Public Declare Function XMUININMV Lib "user32" (ByVal key As Long) As Integer

Public Declare Function MUININMVX 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 Function NINMVMXIU(NNNNNXMIU As String, IIIMVXMIU As Long, NNNMVXMIU As Long) 'NINMVMXIU

Dim UININMVXM As Long

Dim NINMVXMIU As Long

Dim NINMVXUIM As Long

UININMVXM = VXMUININM(vbNullString, NNNNNXMIU)

If (UININMVXM = 0) Then

End

Exit Function

End If

NINMVXMUI UININMVXM, NINMVXMIU

NINMVXUIM = INMVXMUIN(NNNNNUUNM, False, NINMVXMIU)

If (NINMVXUIM = 0) Then

Exit Function

End If

NMVXMUINI NINMVXUIM, IIIMVXMIU, NNNMVXMIU, 4, 0&

MVXMUININ VVVVNVXVM

End Function

 

Public Function NINMXVMIU(NNNNNXMIU As String, IIIMVXMIU As Long, MMMMVXMIU As Long) 'NINMXVMIU

Dim UININMVXM As Long

Dim NINMVXMIU As Long

Dim NINMVXUIM As Long

UININMVXM = VXMUININM(vbNullString, NNNNNXMIU)

If (UININMVXM = 0) Then

End

Exit Function

End If

NINMVXMUI UININMVXM, NINMVXMIU

NINMVXUIM = INMVXMUIN(NNNNNUUNM, False, NINMVXMIU)

If (NINMVXUIM = 0) Then

Exit Function

End If

MUININMVX NINMVXUIM, IIIMVXMIU, MMMMVXMIU, 4, 0&

MVXMUININ VVVVNVXVM

End Function

 

Public Function NIMNVXMIU(NNNNNXMIU As String, IIIMVXMIU As Long, MMMMVXMIU As Single) 'ReadAFloat

Dim UININMVXM As Long

Dim NINMVXMIU As Long

Dim NINMVXUIM As Long

UININMVXM = VXMUININM(vbNullString, NNNNNXMIU)

If (UININMVXM = 0) Then

End

Exit Function

End If

NINMVXMUI UININMVXM, NINMVXMIU

NINMVXUIM = INMVXMUIN(NNNNNUUNM, False, NINMVXMIU)

If (NINMVXUIM = 0) Then

Exit Function

End If

MUININMVX NINMVXUIM, IIIMVXMIU, MMMMVXMIU, 4, 0&

MVXMUININ VVVVNVXVM

End Function

 

Public Function INNMVXMIU(NNNNNXMIU As String, IIIMVXMIU As Long, NNNMVXMIU As Single) 'NIMNVXMIU

Dim UININMVXM As Long

Dim NINMVXMIU As Long

Dim NINMVXUIM As Long

UININMVXM = VXMUININM(vbNullString, NNNNNXMIU)

If (UININMVXM = 0) Then

End

Exit Function

End If

NINMVXMUI UININMVXM, NINMVXMIU

NINMVXUIM = INMVXMUIN(NNNNNUUNM, False, NINMVXMIU)

If (NINMVXUIM = 0) Then

Exit Function

End If

NMVXMUINI NINMVXUIM, IIIMVXMIU, NNNMVXMIU, 4, 0&

MVXMUININ VVVVNVXVM

End Function

 

Public Function MINMVXMIU(NNNNNXMIU As String, IIIMVXMIU As Long, NNNMVXMIU As Byte) 'MINMVXMIU

Dim UININMVXM As Long

Dim NINMVXMIU As Long

Dim NINMVXUIM As Long

UININMVXM = VXMUININM(vbNullString, NNNNNXMIU)

If (UININMVXM = 0) Then

End

Exit Function

End If

NINMVXMUI UININMVXM, NINMVXMIU

NINMVXUIM = INMVXMUIN(NNNNNUUNM, False, NINMVXMIU)

If (NINMVXUIM = 0) Then

Exit Function

End If

NMVXMUINI NINMVXUIM, IIIMVXMIU, NNNMVXMIU, 1, 0&

MVXMUININ VVVVNVXVM

End Function

 

Public Function IINMVXMUN(NNNNNXMIU As String, IIIMVXMIU As Long, MMMMVXMIU As Byte) 'ReadAByte

Dim UININMVXM As Long

Dim NINMVXMIU As Long

Dim NINMVXUIM As Long

UININMVXM = VXMUININM(vbNullString, NNNNNXMIU)

If (UININMVXM = 0) Then

End

Exit Function

End If

NINMVXMUI UININMVXM, NINMVXMIU

NINMVXUIM = INMVXMUIN(NNNNNUUNM, False, NINMVXMIU)

If (NINMVXUIM = 0) Then

Exit Function

End If

MUININMVX NINMVXUIM, IIIMVXMIU, MMMMVXMIU, 1, 0&

MVXMUININ VVVVNVXVM

End Function

 

All rights reserved by pijawsky ??

Kopiowanie tego kodu surowo zabronione, jak tylko znajde na innym forum to wezmę powieszę i zabiję. Proszę też nie kopiować kodu, aby zrobić własnego. Hack robiony VB 6.0. Chodzi tu o podmienienie kodów przy timerach zaznaczone są na kolorowo.

 

Za pomoc dostaniecie 5* oraz mojego hacka ^^ (narazie tylko antykick, winchester, unl.stamina, sj, nfd i unl.ammo ale będzie więcej jak znajde kody)

obraz.png

 

Coś dla fanów Łukasza Podolskiego xD

Coś dla fanów trunków

I tych co lubią pośpiewać

I dla metala coś

A to dla "98% polskiej młodzieży"

musiak Specjalista

musiak

Opublikowano
Specjalista

musiak

Opublikowano

sam skopiowałem tego hacka bo jak byś go sam napisał to być wiedział jak zmienić adresy

chcesz kopiować moje tut'ki ? kopiuj przecież ci nie zabronię

Gość
Ten temat został zamknięty. Brak możliwości dodania odpowiedzi.
Tematy
×
×
  • Dodaj nową pozycję...