1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
| function main_start()
local processName = "javaw.exe"
if processName == "javaw.exe" then
openProcess(processName)
local scan = createMemScan(UDF1.CEProgressbar1)
local list = createFoundList(scan)
if string.sub(maxRam, 1, 4) == '3072' then
scan.firstScan(1, 8, 0, "00 00 00 0? 00 00 00 ?? ?? ?? E4 ?? ?? ?? EB ?? ?? ?? E? ?? ?? ?? ?? ?? ?? ?? E? 00 00 00 00 ?? ?? ?? ?? ?? ?? ?? ?? 0? 00 00 00 00 00 00 00 ?? ?? ?? F8", "", 0, 0xffffffffffffffff, "+W-C", 1, 1, true, false, false, false)
end
if string.sub(maxRam, 1, 4) == '8192' then
scan.firstScan(1, 8, 0, "00 00 00 0? 00 00 00 ?? ?? ?? B3 ?? ?? ?? B8 ?? ?? ?? B? ?? ?? ?? ?? ?? ?? ?? B? 00 00 00 00 ?? ?? ?? ?? ?? ?? ?? ?? ?? 00 00 00 00 00 00 00 ?? ?? ?? F8", "", 0, 0xffffffffffffffff, "+W-C", 1, 1, true, false, false, false)
end
if UDF1.CECheckbox1.Checked then
pause()
end
scan.waitTillDone()
if UDF1.CECheckbox1.Checked then
unpause()
end
list.initialize()
if list.getCount() == 1 then
if UDF1.CECheckbox3.Checked == false then
messageDialog("P1", "ok.", type, mbYes)
end
UDF1.CELabel2.Caption = "Activated!"
local isReach = false
local function loop(timer)
if isKeyOpen == true then
if isKeyPressed(71) then
if isReach then
isReach = false
local bytes = readBytes(list.getAddress(0), 30, true)
bytes[24] = bytes[24] - 4
writeBytes(string.sub(string.format("%02x", (tonumber(list.getAddress(0), 16) + 23) * 256), 1, 9), bytes[24])
else
isReach = true
local bytes = readBytes(list.getAddress(0), 30, true)
bytes[24] = bytes[24] + 4
writeBytes(string.sub(string.format("%02x", (tonumber(list.getAddress(0), 16) + 23) * 256), 1, 9), bytes[24])
end
end
if isKeyPressed(72) then
UDF1.CELabel2.Caption = "P1."
if UDF1.CECheckbox3.Checked == false then
messageDialog("P1", "Again...", type, mbYes)
end
timer.Enabled = false
main_start()
end
end
end
local timer = createTimer()
timer.setInterval = 100
timer.OnTimer = loop
timer.Enabled = true
else
messageDialog("P1", "Error", type, mbYes)
UDF1.RadioButton1.Checked = false
end
else
messageDialog("P1", "Error", type, mbYes)
end
end |
(
