fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Dateien in den Arbeispeicher laden (BETA)

Uploader:	AndT
Datum/Zeit:	06.11.2007 23:43:15

'Dateien ohne viel aufwand in den Speicher laden?? ist das überhaupt möglich?



'JA!



dim as integer ff

dim as ubyte char



open "C:\WINDOWS\WindowsUpdate.log" for binary access read as #1 ' öffnet eine belibige datei

dim as integer ende = lof(1)

dim as integer startbyte = allocate(ende)' holt sich die freie speiceheradresse( ein kleiner cheat von mir ;) )



print "Laden.."

for i as integer = startbyte to startbyte+ende ' startet die schleife



get #1,,char ' holt aus der datei jedes einzene Byte

poke i,char  ' schreibt das geholte Byte via Poge in den speicher





next

print "fertig."

close #1 ' schließt die datei wieder

Print "Ausgabe.."

dim as integer posi



' ein kleiner Beweiss das es funzt ;)

for i as integer = startbyte to startbyte + ende



    char = peek(i)



    print chr(char);

    if inkey=chr(27) then exit for

    next

sleep                                      ' wartet auf taste

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.