6 odpowiedzi w tym temacie

[Deatre]

Jak zrobić cheata do BF 1942.

Potrzebne nam będzie:
-VB6, ściągniemy go z http://www.mpcforum.pl/index.php?showtopic=19944 (serial to 11111111111)
-BF 1942 (w turialu jest adress na wersje 1.6)
-trochę czasu


1.Otwieramy VB i klikamy na nowy pusty projekt
2.klikamy ADD i ADD module
nazywamy go jak chcemy nazwa sama w sobie nie gra roli.
3.Otwieramy moduł i wklejamy:

KOD

Public Const krebs = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'Deklaracej API
Public Declare Function string1 Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function string2 Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function string3 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 string4 Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function string5 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function string6 Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function string7 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 writeabyte(BF1942 As String, Combination_4_ As Long, Super_zahl_4_ As Byte) 'Piszemy funkcje writebyte
Dim string8 As Long
Dim string9 As Long
Dim hoden As Long
string8 = string5(vbNullString, BF1942)
If (string8 = 0) Then
End
Exit Function
End If
string1 string8, string9
hoden = string2(krebs, False, string9)
If (hoden = 0) Then
Exit Function
End If
string3 hoden, Combination_4_, Super_zahl_4_, 1, 0&
string4 lmdkwaa
End Function

Public Function readabyte(BF1942 As String, Combination_4_ As Long, Super_zahl_filter_4_ As Byte) 'Piszemy funkcje readbyte
Dim string8 As Long
Dim string9 As Long
Dim hoden As Long
string8 = string5(vbNullString, BF1942)
If (string8 = 0) Then
End
Exit Function
End If
string1 string8, string9
hoden = string2(krebs, False, string9)
If (hoden = 0) Then
Exit Function
End If
string7 hoden, Combination_4_, Super_zahl_filter_4_, 1, 0&
string4 lmdkwaa
End Function

Na formie programu dajemy Button klikamy na niego x2 razy i piszemy:

KOD

call writeabyte("BF1942", &46AFBF, 9090)

Uwaga Turial nie był sprawdzany ściągam patch dla pewności, już kiedyś tak robiłem i działało!

Troche pomocy do Kilo_kartofli
zastrzegam se prawo do kopiowania turiala

[t3ix]

Co te 2 nopy robią ?

[rakuu]

Też mi tutek ! Chciałem się dowiedziec a nie brać kod i wklejać.

[grubi900]

Właśnie tego szukałem leci +

[Sekhmet]

Pewnie dostane warn'a za odkop ale i tak temat jest przyklejony...
Ale mnie denerwują Ci co piszą "Łap +" a nic nic dają...

Zaloguj się bądź Zarejestruj aby zobaczyć tą ukrytą treść

@Pozdro dla up'a

#Topic

taki to mi tut jak nie wiadomo co...
Mógłbyś wytłumaczyć kod...

[Morrow]

Użytkownik Sekhmet dnia 14 lipiec 2011 - 11:14 napisał

Pewnie dostane warn'a za odkop ale i tak temat jest przyklejony...
Ale mnie denerwują Ci co piszą "Łap +" a nic nic dają...

Piszą wyraźnie łap + najwidoczniej nie złapał

@topic
chciałem się czegoś nauczyć a u tylko kopiuj wklej.... Pewnie skopiowałeś z innej strony. Łap -.

[Avengers]

To jest inaczej... Łap +, najczęściej rzuca takim +, ale inni rzucają -
I zgadzam się z tym, że to tylko kopiuj+wklej... I czemu tu nie ma nic o C/C++? Tylko delphi/visual basic ;p
//Tu - dział forum

Użytkownik Avengers edytował ten post 22 listopad 2011 - 18:35