Seite 1 von 4
versteckte Datei öffnen
Verfasst: 18.08.2008 20:34
von X360 Andy
Schönen Abend zusammen
Ich hab mich Heute wieder an PB versucht und hatte einen Idee eine Passwort abfrage zu machen.
Die Datei die das Passwort freigeben soll , ist im gleichen Ordner / Bereich wie die .exe nur das die Datei "Unsichtbar" sein soll.
Aber ich kriege es nicht hin die Datei zu öffnen ( in dem Code da unten wäre es "Test.txt" )
Ich habs mit "Openfile()" versucht:
Code: Alles auswählen
If OpenFile(0, "Test.txt")
FileSeek(0, Lof(0))
WriteStringN(0, "Zusatz inhalt")
CloseFile(0)
EndIf
Hierbei wurde aber die test.txt nicht geöffnet sondern nur beschrieben ....
Ich habe die Hilfe Datein schon durchsucht aber nichts gefunden.
Auch die Board suche war nicht sehr erfolgreich...
Darum frag einfach mal.
Code: Alles auswählen
Eingabe$ = InputRequester("Passwort abfrage","Zum öffnen der Datei das Passwort eingeben, Wenn das Passwort falsch ist wird das Programm Beendet","Passwort")
If "Beispiel" = Eingabe$
MessageRequester("Richtiges Passwort",Eingabe$+ " ist 100% Richtig" )
If OpenFile(0, "Test.txt") ; öffnet eine existierende Datei oder erstellt eine, wenn sie noch nicht existierte
End
Else
MessageRequester("Falsches Passwort","Das Passwort --> "+Eingabe$+" <-- ist falsch" )
EndIf
Ich will jetzt eben das die Test.txt geöffnet wird ( egal ob die Datei sicht oder unsichtbar ist )
BIn für jeden Hinweis oder Tipp dankbar
Verfasst: 18.08.2008 20:38
von ts-soft
Kannste bitte nochmal genauer erläutern, was Du möchtest?
Du öffnest die Datei, zum lesen und schreiben, correkt
Du springst ans Ende, correkt
Du hängst nen Satz an, correkt
Was fehlt den jetzt?
Verfasst: 18.08.2008 20:44
von X360 Andy
ts-soft hat geschrieben:Kannste bitte nochmal genauer erläutern, was Du möchtest?
Du öffnest die Datei, zum lesen und schreiben, correkt
Du springst ans Ende, correkt
Du hängst nen Satz an, correkt
Was fehlt den jetzt?
naja die Datei wird nicht geöffnet
Sie wird beschrieben ohne das sie FÜR mich sichtbar geöffnet wird.
Habs auch schon ohne CloseFile(0) versucht bringt aber auch nichts
Ich möchte eben das wenn man das Passwort richtig eingibt , die Datei geöffnet wird ( SICHTBAR )
Verfasst: 18.08.2008 20:44
von marco2007
Probier mal...
Code: Alles auswählen
If CreateFile(0, "Test.txt")
FileSeek(0, Lof(0))
WriteStringN(0, "Zusatz inhalt")
CloseFile(0)
EndIf
Eingabe$ = InputRequester("Passwort abfrage","Zum öffnen der Datei das Passwort eingeben, Wenn das Passwort falsch ist wird das Programm Beendet","Passwort")
If ReadFile(0, "test.txt")
passwort.s=ReadString(0)
If passwort=Eingabe$
MessageRequester("Super", "Richtig")
Else
MessageRequester("Sorry", "Falsch")
EndIf
CloseFile(0)
Else
MessageRequester("Sorry", "Datei konnte nicht gelesen werden!")
EndIf
Verfasst: 18.08.2008 20:46
von ts-soft
@marco2006
CreateFile und dann mit Fileseek ans Ende der leeren Datei
Verfasst: 18.08.2008 20:46
von Kaeru Gaman
X360 Andy hat geschrieben:Sie wird beschrieben ohne das sie FÜR mich sichtbar geöffnet wird.
... die Datei geöffnet wird ( SICHTBAR )
was verstehst du unter "sichtbar" öffnen?
die datei wird geöffnet, sonst würdest du ja nix reinschreiben können.
Re: versteckte Datei öffnen
Verfasst: 18.08.2008 20:47
von Little John
X360 Andy hat geschrieben:Aber ich kriege es nicht hin die Datei zu öffnen ( in dem Code da unten wäre es "Test.txt" )
Ich habs mit "Openfile()" versucht:
Code: Alles auswählen
If OpenFile(0, "Test.txt")
FileSeek(0, Lof(0))
WriteStringN(0, "Zusatz inhalt")
CloseFile(0)
EndIf
Hierbei wurde aber die test.txt nicht geöffnet sondern nur beschrieben ....
Ich glaube Du hast eine falsche Vorstellung davon, was "eine Datei öffnen" bedeutet. Bei mir funktioniert der obige Code einwandfrei: Die Datei "Test.txt" wird geöffnet, dann wird etwas hineingeschrieben, danach wird sie geschlossen. Alles OK.
Was erwartest Du denn was passieren soll?
//edit:
Willst Du evtl. den Inhalt der Datei auf dem Bildschirm darstellen?
Gruß, Little John
Verfasst: 18.08.2008 20:49
von marco2007
ts-soft hat geschrieben:@marco2006
CreateFile und dann mit Fileseek ans Ende der leeren Datei
Jo, ist Blödsinn...habe ich vergessen zu löschen....
Ich wollte nur schnell mal das Beispiel ein bißchen ändern, damit`s in einem funktioniert.
Verfasst: 18.08.2008 20:50
von X360 Andy
Kaeru Gaman hat geschrieben:X360 Andy hat geschrieben:Sie wird beschrieben ohne das sie FÜR mich sichtbar geöffnet wird.
... die Datei geöffnet wird ( SICHTBAR )
was verstehst du unter "sichtbar" öffnen?
die datei wird geöffnet, sonst würdest du ja nix reinschreiben können.
Ordner inhalt:
Passwort abfrage (sichtbar)
Datei ( unsichtbar )
Wenn man jetzt "Passwort abfrage" anklickt und das richtige Passwort hat.
soll die "Datei" geöffnet werden. ( sollte aber weiterhin "unsichtbar" im Ordner liegen )
Wenn man das Passwort eben falsch eingibt soll die Datei eben nicht geöffnet werden.
Und wenn ich bei meinem Code das Passwort richtig eingeb wird die "Datei" eben nicht geöffnet.
Verfasst: 18.08.2008 20:50
von ts-soft
Code: Alles auswählen
If OpenFile(0, "Test.txt")
Pos = Lof(0)
FileSeek(0, Pos)
WriteStringN(0, "Zusatz inhalt")
Eingabe$ = InputRequester("Passwort abfrage","Zum öffnen der Datei das Passwort eingeben, Wenn das Passwort falsch ist wird das Programm Beendet","Passwort")
FileSeek(0, Pos)
passwort.s = ReadString(0)
If passwort=Eingabe$
MessageRequester("Super", "Richtig")
Else
MessageRequester("Sorry", "Falsch")
EndIf
CloseFile(0)
EndIf