Forum
Aktif konular
Üyeler
Kurallar
Arama
VB Trainer Ufak Bir Sorun VB Trainer Ufak Bir Sorun
-
-----------------------------------------------------------------------------------------------
mödül1
Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
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
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Private 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 Function Longw(Offset As Long, WindowName As String, Value As Long) As Boolean
Dim hwnd As Long
Dim ProcessID As Long
Dim ProcessHandle As Long
hwnd = FindWindow(vbNullString, WindowName)
If hwnd = 0 Then 'Oyun şuanda açık değilse
MsgBox "Oyun şuanda açık değil!", vbCritical, "Yazma Hatası" 'Eğer isterseniz bu satırı kaldırabilirsiniz, oyun açık değilse zaten trainer bi işe yaramaz
Exit Function
End If
GetWindowThreadProcessId hwnd, ProcessID
ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID)
If ProcessHandle = 0 Then
Exit Function
End If
WriteProcessMemory ProcessHandle, Offset, Value, 4, 0& 'Değeri yazıyoruz
CloseHandle ProcessHandle 'Yazma işlemi bitti, pencere kulbunu kapatıyoruz
End Function-----------------------------------------------------------------------
-----------------------------------------------------------------------
form1
Private Sub Command1_Click()
Longyaz &HD5E104, "Crusader", text1.text 'Altın için
Longyaz &HD5E0D0, "Crusader", text2.text 'Ağaç için
Longyaz &HD5E0D8, "Crusader", text3.text 'Taş için---------------------------------------------------------------------
fakat longyaz da hata verior nedeni nedir??
-
mödül nedir ya :D
modül1 :P
-
Longyaz yerine Long yazmayi denesene bi'
-
hyr bu daha kotu oldu (:
-
:D bende indirmiştim bu dökümanı hiç bişey anlamamıştım.
-
Public Function Longw(Offset As Long, WindowName As String, Value As Long) As Boolean
yazan yer aslında
Public Function Longyaz(Offset As Long, WindowName As String, Value As Long) As Boolean
buraya yalnış aktarmisim
calistirilabilirse cok guzel seyler yapılır :D
-
kodlarda baktigim kadariyla bir hata goremedim.
Longyaz die bir function yok orda Longw diye tanimlamissin o zaman Longw &HD5E104, "Crusader", text1.text diye kullanacaksin.
Sorun bu degil diyorsan cikan hatayi sole.
-
longw olarak deistirdim sonradan ztn modulde ole kalmis ama olmuor acaba form1 e modulu fln mi tanıtcaz anlamiorm aslında ogrenmeye calisiorm :D
1 sn video cekeym hatayi fln gorun
-
sorunu cozdum
rakamlari kabul edior ama yazılari kabul etmior
rakam yazarsam calisior ama text1 e yazı yazdigim zaman direk debug hatasi verior :S
-
harfleri yazmabilmek icin ne yapabiliriz :S
bide ornegin 123 yaziorm = {
olarak gonderior :S
-
Oyundaki gold v.b seyler sayi cinsinde bir degerdir.Ahmet diye bir sayi varda benmi bilmiyorum
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla