is des sowas wie knoppas? xD
nee keine ahnung
*gg* das ist ein Linux, das von CD läuft.
CD einlegen, Rechner einschalten und man hat Zugriff auf die Festplatte. Alle Sicherheitsmechanismen, die Wundows irgendwie kann, sind dann wirkungslos. CD wieder raus, alle Spuren sind beseitigt.
ich hör für heut erstmal auf mach dann morgen weiter
NOCH VIEL SPAß
schlaf gut, ich mach das jetzt auch. 
ich kenn nur ubuntu und co.
gibts eine möglichkeit eine animierte gifdatei irgendwie wiederzugeben?
schlaf auch gut!
Das mit dem Hacken weiß ich doch des soll doch nur ein schutz
sein das wenn ich kurz weg bin den pc einfach anlass und des
öffne funzt auch ganz gut bis auf diese kleine lücke.
Hallo!
Bevor Du jetzt mit einem Heidenaufwand (allein dieser Thread geht schon auf keine Kuhhaut mehr) als Einsteiger Dir selbst irgendwas zusammenstöpselst aus Codefragmenten, die sich in irgendwelchen Internetquellen finden, nimm doch einfach das, was da ist:
Vergib’ ein Passwort unter Windows für Deinen Benutzer, falls Du das noch nicht gemacht hast und dann stelle beim Bildschirmschoner ein, dass die „Willkommenseite bei Reaktivierung“ angezeigt wird.
Dann muss man jedesmal, wenn der Bildschirmschoner läuft, das Passwort eingeben, weil man sonst gar nicht mehr auf den Desktop kommt.
Wenn Du mal „kurz weg“ musst, kannst Du über die Tastenkombination Win+L den Desktop sofort sperren, ohne dass die Zeit bis zum Einschalten des Bildschirmschoners um wäre.
Merke: Der beste Code ist immer der, den man gar nicht schreiben muss…
Gruß,
Martin
gibts eine möglichkeit eine animierte gifdatei irgendwie
wiederzugeben?
nur im Browser. Ich habe das in einem VB-Programm noch nicht hon bekomme.
gibts eine möglichkeit eine animierte gifdatei irgendwie
wiederzugeben?nur im Browser. Ich habe das in einem VB-Programm noch nicht
hon bekomme.
Hallo Rainer,
wirklich nicht? Noch nicht probiert oder verzweifelt? Soll ich dir mal ein OCX basteln, was dieses kann?
LG Alex
Hi Alex,
wirklich nicht? Noch nicht probiert oder verzweifelt?
versucht und aufgegeben.
Soll ich dir mal ein OCX basteln, was dieses kann?
hmmm, nein. Lieber einen Hinweis wie.
Gruß Rainer
Hallo Rainer,
naja das wie ist
Gif File öffnen, auslesen, einzelne Bilder speichern, Interall auslesen und dann timer starten und die Bilder laut Intervall anzeigen. Ist eigentlich ganz simple. Achso, wenn du ein OCS bastelst, dann noch ein paar Eigenschaften definieren und entsprechend darauf agieren. ( Zoom etc.)
Die Bildbox dann an dem usercontrol anpassen und im Resize ereignis darauf reagieren
Hört sich kompliziert an, ist es aber wirklich nicht
MfG Alex
Hi Alex,
Gif File öffnen, auslesen, einzelne Bilder speichern, Interall
auslesen und dann timer starten und die Bilder laut Intervall
anzeigen. Ist eigentlich ganz simple.
*gg* klingt so. Ich frag dann mal Wiki, was es mir über die Struktur eines animierten Gif erzählt.
Gruß Rainer
Hallo Alex,
der Thread ist so lang da kommts auf ein bißchen OT nicht mehr an
Freut mich daß du wieder mal reinschaust.
Gruß
Reinhard
Hi Alex,
was ich bei Wiki gefunden habe war nicht toll.
Die Informationen finden sich erst in der veerlinkten Spezifikation. Englisch und sehr viel Text. Da brauche ich eine Woche um das zu lesen. 
Schade. Das wäre sicher mal interessant gewesen, aber nur für Neugier ist das zu viel Arbeit.
Gruß Rainer
Hallo Rainer,
probiere mal folgende Sub 
Schmeisse einfach die RaiseEvent Anweisungen raus. desweiteren ist MyImage eine Imagebox mit dem Index 0
Eigentlich sollte die ihren Dienst machen
Private Function ReadHeader(sfile As String) As Boolean
On Error GoTo ErrHandler
ReadHeader = False
Dim MyBildHeader As String, MyDateiheader As String, MyBuffer As String, Mybildbuffer As String
Dim MyBildZaehler As Integer, Dateinr As Integer
Dim MyX As Long, MyY As Long, Myoffsetx As Long, MyOffsety As Long, MyWartezeit As Long, MyZeit As Long
For MyX = 1 To MyImage.Count - 1
Unload MyImage(MyX)
Next MyX
Dateinr = FreeFile
Open sfile For Binary Access Read As Dateinr
MyBuffer = String(LOF(Dateinr), Chr(0))
Get #Dateinr, , MyBuffer
Close Dateinr
MyX = 1
MyBildZaehler = 0
MyY = InStr(1, MyBuffer, Chr(0) & Chr(33) & Chr(249)) + 1
MyDateiheader = Left(MyBuffer, MyY)
If Left$(MyDateiheader, 3) "GIF" Then
RaiseEvent Error("Es handelt sich nicht um ein animiertes Gif")
Exit Function
End If
MyX = MyY + 2
If Len(MyDateiheader) \>= 127 Then
MyZeit& = Asc(Mid(MyDateiheader, 126, 1)) + (Asc(Mid(MyDateiheader, 127, 1)) \* 256&:wink:
Else
MyZeit = 0
End If
Do
MyBildZaehler = MyBildZaehler + 1
MyY = InStr(MyX, MyBuffer, Chr(0) & Chr(33) & Chr(249)) + 3
If MyY \> Len(sfile) Then
Dateinr = FreeFile
Open "tmp.gif" For Binary As Dateinr
Mybildbuffer = String(Len(MyDateiheader) + MyY - MyX, Chr(0))
Mybildbuffer = MyDateiheader & Mid(MyBuffer, MyX - 1, MyY - MyX)
Put #Dateinr, 1, Mybildbuffer
MyBildHeader = Left(Mid(MyBuffer, MyX - 1, MyY - MyX), 16)
Close Dateinr
MyWartezeit = ((Asc(Mid(MyBildHeader, 4, 1))) + (Asc(Mid(MyBildHeader, 5, 1)) \* 256&:wink:) \* 10&
If MyBildZaehler \> 1 Then
Myoffsetx = Asc(Mid(MyBildHeader, 9, 1)) + (Asc(Mid(MyBildHeader, 10, 1)) \* 256&:wink:
MyOffsety = Asc(Mid(MyBildHeader, 11, 1)) + (Asc(Mid(MyBildHeader, 12, 1)) \* 256&:wink:
Load MyImage(MyBildZaehler - 1)
MyImage(MyBildZaehler - 1).Left = MyImage(0).Left + (Myoffsetx \* Screen.TwipsPerPixelX)
MyImage(MyBildZaehler - 1).Top = MyImage(0).Top + (MyOffsety \* Screen.TwipsPerPixelY)
End If
MyImage(MyBildZaehler - 1).Tag = MyWartezeit
MyImage(MyBildZaehler - 1).Picture = LoadPicture("tmp.gif")
Kill ("tmp.gif")
MyX = MyY
End If
DoEvents
Loop Until MyY = 3
If MyX 1 Then
Myoffsetx = Asc(Mid(MyBildHeader, 9, 1)) + (Asc(Mid(MyBildHeader, 10, 1)) \* 256)
MyOffsety = Asc(Mid(MyBildHeader, 11, 1)) + (Asc(Mid(MyBildHeader, 12, 1)) \* 256)
Load MyImage(MyBildZaehler - 1)
MyImage(MyBildZaehler - 1).Left = MyImage(0).Left + (Myoffsetx \* Screen.TwipsPerPixelX)
MyImage(MyBildZaehler - 1).Top = MyImage(0).Top + (MyOffsety \* Screen.TwipsPerPixelY)
End If
MyImage(MyBildZaehler - 1).Tag = MyWartezeit
MyImage(MyBildZaehler - 1).Picture = LoadPicture("tmp.gif")
Kill ("tmp.gif")
End If
ReadHeader = True
Exit Function
ErrHandler:
RaiseEvent Error("Fehler beim auslesen der Meta informationen")
End Function
mfG Alex
Hi Alex,
probiere mal folgende Sub
hab ich, danke!
Schmeisse einfach die RaiseEvent Anweisungen raus. desweiteren
ist MyImage eine Imagebox mit dem Index 0
Ja, ein Bild wird schon angezeigt, der Bildzähler enthält auch einen Wert > 1. Nun sehe ich mir den Code mal genauer an, wo die einzelnen Bilder und die Millisekunden für die Pausen stecken weiß ich noch nicht.
Danke!
Das selbst herauszufinden hätte Taage oder Wochen gedauert.
Gruß Rainer
Hallo Alex,
danke! Läuft.
Verstanden hab’ ich’s auch, wenn ich das irgendwann brauche habe ich es verfügbar.
Gruß Rainer