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

Anfängerfragen zum Programmieren mit PureBasic.
DW

Beitrag von DW »

>Hab sowieso keinen Process der Process heisst, oder?
:lol: rofl

Ok, ich gibs auf. Hier wird das nichts.
Benutzeravatar
vonTurnundTaxis
Beiträge: 2130
Registriert: 06.10.2004 20:38
Wohnort: Bayreuth
Kontaktdaten:

Beitrag von vonTurnundTaxis »

> den von vonTurnundTaxis gleich übernommen hat.
Ich wollte dem Jungen doch nur Einrücken beibringen :wink:
Nicht durch Zorn, sondern durch Lachen tötet man
ClipGrab | Pastor - jetzt mit kurzen URLs!
DW

Beitrag von DW »

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.
Benutzeravatar
edel
Beiträge: 3667
Registriert: 28.07.2005 12:39
Computerausstattung: GameBoy
Kontaktdaten:

Beitrag von edel »

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
Antworten