PureBoard

Verfasst: **30.01.2007 18:49**

>Hab sowieso keinen Process der Process heisst, oder?

rofl

Ok, ich gibs auf. Hier wird das nichts.

Verfasst: **30.01.2007 19:11**

> den von vonTurnundTaxis gleich übernommen hat.
Ich wollte dem Jungen doch nur Einrücken beibringen

Verfasst: **30.01.2007 19:23**

Ich sagte, bei nem anderen Programm klappt es, er liest tatsächlich den Wert vom Speicher und ihr?
Erst ausprobieren, dann verbessern.

Ups, ihr habt ja kein Prozess, welches "Process" heißt. So ein Pech für mich.

Und wenn überhaupt, bei IchWeißDenNamenNichtMehr ist auch ein "Fehler". Ich weiß, er wollte garnichts verbessern, außer das mit dem Einrücken.

Soa, ich verzieh mich von diesem thread, da mein Problem ja anscheinend unlösbar ist.

Verfasst: **30.01.2007 21:20**

Das geht auch mit der Process lib aus PBOSL

Beispiel :

bin mir bei GetProcessPeakPagefileUsage nicht sicher

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

PureBoard

Hex to Int - VERDÖST , ne , doch nicht