omg i so luv this shit...+k for u
here's my full scan with [Only registered and activated users can see links. Click Here To Register...]Quote:
Originally posted by blinko@Dec 17 2006, 12:23
*EDIT Here i have now a Zoom Hack made in Visual Basic 6.0
I figured out how to do it was simple after i thought about it.
Memory address: 00051790C
at 4 bytes the default zoom on the client is 256 which in hex is 0x100 or in VB6.0 &H100 the zoom setting i used was 150 in 4 bytes or 0x96 in hex or in VB6.0 &H96
The lower the number the farther out the zoom goes, the higher the closer it becomes.
combo box fills from 150 to 256(default) also takes your own typed in values and hex's them.
Dim String2Hex as Variant
Dim HexString as long
Public Function Zoom(ByVal Zoom_Amount As String)
If Trim(Zoom_Amount) = vbNullString Then Exit Function
String2Hex = CLng(Zoom_Amount)
HexString = "&H" & Hex(String2Hex)
P.hWnd = FindWindow(vbNullString, COWiN)
GetWindowThreadProcessId P.hWnd, P.pID
P.pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, P.pID)
WriteProcessMemory P.pHandle, ByVal &H51790C, HexString, 4, 0&
CloseHandle P.pHandle
End Function