
Ok, ich gibs auf. Hier wird das nichts.
Code: Alles auswählen
pid = GetProcessPID("PureBasic1.exe")
if pid
*mem = GetProcessMem(pid)
size = GetProcessPeakPagefileUsage(pid) ; keine ahnung ob das so stimmt. Nachlesen !
ptr = *mem
Repeat ; speicher nach long wert suchen
if pPeekL(pid, *mem) = 666
MessageRequester("","Gefundene Adresse : " + str(*mem))
pPokeL(pid, *mem,555)
break
EndIf
*mem + 4
Until *mem > ptr + size
endif
Code: Alles auswählen
h = OpenWindow(0,0,0,100,100,"test")
CreateGadgetList(h)
a = 666
StringGadget(0,0,0,100,20,str(@a))
StringGadget(1,0,30,100,20,str(a))
Repeat
e = WaitWindowEvent()
if e = #PB_Event_Gadget
if EventGadget() = 1 and EventType() = #PB_EventType_Focus
SetGadgetText(1,str(a))
endif
EndIf
Until e = 16