Im not using a module, just some delcarations at the top, and a couple of subs:
Declarations:
SUBS:
then all I do is call the sub when I need something written:
(Really it doesnt matter if I push hex, or an integer, they both work)
BTW, I havent worked with my code in a LOOOONG time, and am stale....
However it appears my WriteAIntSINGLE sub writes 4 bytes, as my WriteAInt only writes 1
Declarations:
Private Const PROCESS_ALL_ACCESS = &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 CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function CloseWindow Lib "user32" (ByVal hwnd 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
SUBS:
Sub WriteAInt(Address As Long, Value As Integer)
Dim hwnd As Long, pid As Long, pHandle As Long
hwnd = FindWindow(vbNullString, "Live For Speed")
If (hwnd <> 0) Then
GetWindowThreadProcessId hwnd, pid
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (pHandle <> 0) Then
WriteProcessMemory pHandle, Address, Value, 1, 0&
End If
CloseHandle pHandle
End If
End Sub
Sub WriteAIntSINGLE(Address As Long, Value As Single)
Dim hwnd As Long, pid As Long, pHandle As Long
hwnd = FindWindow(vbNullString, "Live For Speed")
If (hwnd <> 0) Then
GetWindowThreadProcessId hwnd, pid
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (pHandle <> 0) Then
WriteProcessMemory pHandle, Address, Value, 4, 0&
End If
CloseHandle pHandle
End If
End Subthen all I do is call the sub when I need something written:
Call WriteAIntSINGLE(GTRimWidthRearAddress, 0.1905)
Call WriteAInt(CarType1MinCylAddress, &H1)
(Really it doesnt matter if I push hex, or an integer, they both work)
BTW, I havent worked with my code in a LOOOONG time, and am stale....
However it appears my WriteAIntSINGLE sub writes 4 bytes, as my WriteAInt only writes 1
Last edited by redruM69, .
LFSTweak works with just Singles, no Doubles.... Maybe that is your issue?
Change the cartype of the XFG/XRG to "GT", or "Touring Car". These cartypes have less restrictions.
twk files just save your settings, so you can reload them again later...
Cmon now... try to beat my time.. LFSTweak ONLY.
No cartype mods
What about cartype modifications?
Cmon now, LFSTweak ONLY... no windmod/frictionmod/gravitymod/etc.
I dont have a screenshot, but I have reached 7.16
Very odd indeed. It almost seems like something is intercepting, and stopping ram from being edited. Can you go to your taskmgr, and take a screenshot of the processes running?
PM it to me, rather than post it here. Once we figure out a solution I'll post it
Last edited by redruM69, .
OK I think I see whats going on from the 2nd screenshot. LFSTweak doesnt understand commas as decimal places. Switch to "dots", (ie 1.06 instead of 1,06) and give it another shot.
Also, the first screenshot is the wrong address... Not sure how to use Hackman, but you need to go to the address "56100C".
The Hex editor I use is WinHEX
When the variable is found, it will be re-added.
memory address 56100C (In RAM) should be 0C
Change it to 0D and see if the GTi has a turbo
Post your results.
Also, can you post a screenshot of LFSTweak running?
Do you have a hex editor? You could try changing something manually.
Try redownloading Patch V and reinstalling it.
Make sure you pit, and then unpit for the changes to take effect.
Make sure you have LFS Set to English. You may even need to set Windows to English also. Please post results.
Thats because it IS half assed.
A lot of the code was scrapped and re-written in this version. The detection code is buggy, I agree. It will get fixed with time. Hopefully I will be at least able to add Weight back into it. I also plan on adding some car-type limitation changing to it.
Interesting.. Was the twk file from the same version of LFSTweak? Prior twk files will be incompatible.
Can you translate that error to English? Or did you already get this fixed?
Last edited by redruM69, .
Try switching to the GTi/GT/GTT, also make sure you are running in English.
LFSTweakS2 (Old release for LFS v0.5V)
Here it is folks.
LFSTweak for Patch V
It now has Licence Protection. If you don't not have an S2 or S1 license, LFSTweak will not function.
It still only works for the 3 cars GTI, GT, Turbo
Some things have been removed: No more weight, sound "raspyness" or flywheel weight.
Download
Link: http://www.beardness.com/LFSTweakS2V.zip
Mirror: Download link
Problems?
You may need to install 2 OCX Files and the VB6 runtimes:
http://www.ascentive.com/support/new/images/lib/COMCTL32.OCX
http://www.ascentive.com/support/new/images/lib/COMDLG32.OCX
http://www.microsoft.com/downl ... 9a79d5&DisplayLang=en
Make sure you set your Langauge to English in LFS if you have oddball issues
Thats about it for now!
ENJOY!!
---------------------------------------
Additional
This application has been permitted to be released to the public only becaues it contains license protection.
We will not permit applications to be released that give more content to the demo.
If you are a demo user and do not like this - tough. LFS only charges for content, if you could make infinite cars in the demo, this would remove an important benefit of owning a license.
Regards
The Moderation Team
LFSTweak for Patch V
It now has Licence Protection. If you don't not have an S2 or S1 license, LFSTweak will not function.
It still only works for the 3 cars GTI, GT, Turbo
Some things have been removed: No more weight, sound "raspyness" or flywheel weight.
Download
Link: http://www.beardness.com/LFSTweakS2V.zip
Mirror: Download link
Problems?
You may need to install 2 OCX Files and the VB6 runtimes:
http://www.ascentive.com/support/new/images/lib/COMCTL32.OCX
http://www.ascentive.com/support/new/images/lib/COMDLG32.OCX
http://www.microsoft.com/downl ... 9a79d5&DisplayLang=en
Make sure you set your Langauge to English in LFS if you have oddball issues
Thats about it for now!
ENJOY!!
---------------------------------------
Additional
This application has been permitted to be released to the public only becaues it contains license protection.
We will not permit applications to be released that give more content to the demo.
If you are a demo user and do not like this - tough. LFS only charges for content, if you could make infinite cars in the demo, this would remove an important benefit of owning a license.
Regards
The Moderation Team
Last edited by Bob Smith, .
Reason : cleaned up post and added info
......and why again is this silly? :rolleyes:
You replied to a post that said "The other cars are encrypted", implying that the cars are NOT encrypted...
When in fact they ARE encrypted, exactly as he said. It is the carFILE that is encrypting, so ya, you DID say something about modifying the carfile.
Ya but I will....... Mem address 57B0D2, change to 0A
Herki is right.
You did not edit the Sauber itself.. You modified its carTYPE (Cartype 11), And changed the min/max cylinders to 10... forcing it to 10 cylinders. the actual carfile itself is not modifiable.
LFSTweak is not a cartype modifier, only carfile.
FGED GREDG RDFGDR GSFDG