[tut]how Make Bf 1942 Cheat

[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:

 

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:

 

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ą...

 

 

@Pozdro dla up'a

 

#Topic

 

taki to mi tut jak nie wiadomo co...

Mógłbyś wytłumaczyć kod...

[Morrow]

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

[mks412]

[Mardaruk]

xxx

[Ratvi]

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

[Niezniszczon]

fajne:)

[dudek245]

like;

[Bati2kmc]

Hell Test

[Ema]

to są 2 funkcje od czytania i wstrzykiwania wartości poszczególnych adresów w BFie... żaden tut jak napisać cheata

[Ema]

to są 2 funkcje od czytania i wstrzykiwania wartości poszczególnych adresów w BFie... żaden tut jak napisać cheata

[Trupioblady]

To nie cheat !

[KsiadzNatanekx]

Bardzo mi się przydało dzięki

[NataliaPC]

xxx

 

dragon473 183 posty i postmaker..

[Lobuz94]

przydatne

[ritmonter]

Potwierdzam, bardzo fajny cheat

[ritmonter]

...

[mieciomen]

czesc prosze o pomoc tych co graja w lola albo jak chca grac to prosze sie tu reetrowac za wasze lvle bede otrzymywal nagrody z gory dziekuje

[tttpl]

Nie przyda mi sie

[DeadStarkPL]

Nawet nawet^.^

[MagicznyKrzys]

Ogólnie to niezly cheat :P