Ich wollte auch soweit kommen, aber dann das
Spoiler anzeigen
[Blockierte Grafik: http://lennart-worm.de/pictures/Screenshot-4.jpg]
Schade
Ich wollte auch soweit kommen, aber dann das
[Blockierte Grafik: http://lennart-worm.de/pictures/Screenshot-4.jpg]
Schade
Also ich persönlich wäre für TMN forever.
Was sagen die anderen ?
Hallo Zusammen.
Weil ich kein eingenttliches Problem mit einem Skript habe, habe ich den Thread mal im Offtopic erstellt.
Also ich habe mir ein etwas älteres Skript genommen, bei dem ich früher schonmal Hilfe gebraucht hatte und mir Oscar die beste Lösung geliefert hatte:
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
$Form1 = GUICreate("Lenny's FileCrypter", 632, 345, 194, 132, BitOR($WS_POPUP, $WS_BORDER, $WS_CLIPSIBLINGS))
$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Lenny\Eigene Dateien\Lenny's.jpg", 0, 0, 632, 150, BitOR($SS_NOTIFY, $SS_SUNKEN, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS), $GUI_WS_EX_PARENTDRAG)
$Button1 = GUICtrlCreateButton("Datei zum Verschlüsseln wählen", 40, 160, 243, 25, $WS_BORDER)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Datei zum Entschlüsseln wählen", 344, 160, 243, 25, $WS_BORDER)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
Global $Input1 = GUICtrlCreateInput("Pfad", 40, 200, 545, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("0% (0 von 0 KB)", 45, 284, 298, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
Global $Progress1 = GUICtrlCreateProgress(40, 304, 294, 17)
$Button3 = GUICtrlCreateButton("Close me.", 352, 304, 227, 17, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_verschluesseln()
Case $Button2
_entschluesseln()
Case $Button3
Exit
EndSwitch
WEnd
Func _verschluesseln()
Local $iProgress, $iCryptLevel, $sFilePath, $iFileSize, $hSource, $hTarget, $sFileBlock, $iPercent, $old
GUICtrlSetState($Button1, $GUI_DISABLE) ; Button deaktivieren
$sFilePath = FileOpenDialog("Datei zum Verschlüsseln auswählen", "", "Alle Dateien (*.*)", 1)
If Not @error Then
GUICtrlSetData($Input1, $sFilePath)
$iFileSize = FileGetSize($sFilePath) ; Dateigröße auslesen
$hSource = FileOpen($sFilePath, 16) ; Quelldatei im Binary-Mode öffnen
$hTarget = FileOpen($sFilePath & ".lfc", 2 + 8 + 16) ; Zieldatei im Binary-Mode zum Schreiben öffnen
While True
$sFileBlock = FileRead($hSource, 64) ; einen 64 Byteblock aus der Quelldatei lesen
If @error = -1 Then ExitLoop ; Wenn @error = -1, dann Dateiende erreicht / Schleife verlassen
FileWrite($hTarget, _BlockEncrypt($sFileBlock, "cTDE808Ww7y53mn1o6AsS528aZE03i91")) ; den Block verschlüsseln und speichern;
$iProgress += 64 ; Wert für die Progressbar addieren
$iPercent = Int(100 / $iFileSize * $iProgress) ; Prozentwert errechnen
If $iPercent <> $old Then
GUICtrlSetData($Label1, $iPercent & "% (" & _StringAddThousandsSep($iProgress, ".") & " von " & _StringAddThousandsSep($iFileSize, ".") & " Bytes)")
GUICtrlSetData($Progress1, $iPercent) ; und anzeigen
$old = $iPercent
EndIf
WEnd
FileClose($hTarget) ; Zieldatei schließen
FileClose($hSource) ; Quelldatei schließen
GUICtrlSetData($Label1, "100% (fertig!)") ; Label auf 100% setzen
GUICtrlSetData($Progress1, 100) ; Progressbar auf 100% setzen
EndIf
GUICtrlSetState($Button1, $GUI_ENABLE) ; Button wieder aktivieren
EndFunc ;==>_verschluesseln
Func _entschluesseln()
Local $iProgress, $iCryptLevel, $sFilePath, $iFileSize, $hSource, $hTarget, $sFileBlock, $sPos, $sTarget, $iPercent, $old
GUICtrlSetState($Button2, $GUI_DISABLE) ; Button deaktivieren
$sFilePath = FileOpenDialog("Wählen sie die Datei zum DeCrypten aus", "", " (*.lfc)", 1)
If Not @error Then
GUICtrlSetData($Input1, $sFilePath)
$iFileSize = FileGetSize($sFilePath) ; Dateigröße auslesen
$hSource = FileOpen($sFilePath, 16) ; Quelldatei im Binary-Mode öffnen
$sTarget = StringTrimRight($sFilePath, 4) ; Dateiendung (.lfc) entfernen
If FileExists($sTarget) Then ; Wenn die Zieldatei bereits existiert, dann...
$sPos = StringInStr($sTarget, ".", 0, -1) ; Position der Dateiendung
$sTarget = StringLeft($sTarget, $sPos - 1) & "_Neu." & StringRight($sTarget, StringLen($sTarget) - $sPos) ; "_Neu" hinzufügen
EndIf
$hTarget = FileOpen($sTarget, 2 + 8 + 16) ; Zieldatei im Binary-Mode öffnen
While True
$sFileBlock = FileRead($hSource, 64) ; eine Zeile aus der Quelldatei lesen
If @error = -1 Then ExitLoop ; Wenn @error = -1, dann Dateiende erreicht / Schleife verlassen
FileWrite($hTarget, _BlockEncrypt($sFileBlock, "cTDE808Ww7y53mn1o6AsS528aZE03i91")) ; die Zeile entschlüsseln und speichern
$iProgress += 64 ; Wert für die Progressbar addieren
$iPercent = Int(100 / $iFileSize * $iProgress) ; Prozentwert errechnen
If $iPercent <> $old Then
GUICtrlSetData($Label1, $iPercent & "% (" & _StringAddThousandsSep($iProgress, ".") & " von " & _StringAddThousandsSep($iFileSize, ".") & " Bytes)")
GUICtrlSetData($Progress1, $iPercent) ; und anzeigen
$old = $iPercent
EndIf
WEnd
FileClose($hTarget) ; Zieldatei schließen
FileClose($hSource) ; Quelldatei schließen
GUICtrlSetData($Label1, "100% (fertig!)") ; Label auf 100% setzen
GUICtrlSetData($Progress1, 100) ; Progressbar auf 100% setzen
EndIf
GUICtrlSetState($Button2, $GUI_ENABLE) ; Button wieder aktivieren
EndFunc ;==>_entschluesseln
Func _BlockEncrypt($sCryptBlock, $sPass)
Local $sOut = "", $iPassLen = StringLen($sPass), $j = 1, $sTemp
For $i = 3 To StringLen($sCryptBlock) Step 2
$sTemp = Asc(StringMid($sPass, Mod($j, $iPassLen), 1))
$sOut &= Chr(BitXOR(Dec(StringMid($sCryptBlock, $i, 2)), $sTemp, Abs($iPassLen - $i)))
$j += 1
Next
Return $sOut
EndFunc ;==>_BlockEncrypt
Es geht um den Bereich ab Func _verschluesseln().
Genau um dieses Stück:
[autoit]$hTarget = FileOpen($sFilePath & ".lfc", 2 + 8 + 16) ; Zieldatei im Binary-Mode zum Schreiben öffnen ;HIER
While True
$sFileBlock = FileRead($hSource, 64) ; einen 64 Byteblock aus der Quelldatei lesen ; HIER
If @error = -1 Then ExitLoop ; Wenn @error = -1, dann Dateiende erreicht / Schleife verlassen
FileWrite($hTarget, _BlockEncrypt($sFileBlock, "cTDE808Ww7y53mn1o6AsS528aZE03i91")) ; den Block verschlüsseln und speichern;
$iProgress += 64 ; Wert für die Progressbar addieren
$iPercent = Int(100 / $iFileSize * $iProgress) ; Prozentwert errechnen
If $iPercent <> $old Then
GUICtrlSetData($Label1, $iPercent & "% (" & _StringAddThousandsSep($iProgress, ".") & " von " & _StringAddThousandsSep($iFileSize, ".") & " Bytes)")
GUICtrlSetData($Progress1, $iPercent) ; und anzeigen
$old = $iPercent
EndIf
WEnd
Dort wird ein 64 Byte Block aus der Datei gelesen. Warum klappt das auch wenn die Dateigröße nicht durch 64 teilbar ist?
Zb haben wir 160byte: Nach 2 mal 64byte auslesen sind ja nur noch 32byte übrig.
Oder ließt FileRead, wenn weniger bytes als die als Parameter angegebene Größe vorhanden sind, nur noch soviel wie da sind ?
Vielen Dank im Voraus,
Lenny
ZitatAlles anzeigen1. Welche der beiden Konsolen ist Zukunftssicher?
-> Eindeutig die Xbox 3602. Welche der beiden Konsolen ist von der Hardware besser ausgerüstet? - Wobei ich mir denke, dass PS3 von der Hardware her weiter vorne ist.
-> Wenn du viel unnützen Kram und schwächere Bild Quali willst dann die Ps3.3. Wie sieht es mit den Speielen aus?
-> Xbox hat eine weit größere Auswahl, da 90% der ps2/3 spiele auch für xbox rauskommen.
Xbox spiele meist aber nicht für Ps
Im grunde liegt die Xbox weit vorn.
Und ja, ich muss das erste mal in meinem Leben sagen:
Microsoft hat was gut gemacht.
Ein typischer Beitrag eines X-Box überzeugten, in der Diskussion PS3 oder X-Box.
Wenn sich erstmal für eine Konsole entschieden hat, geht man 100% Parteiisch in die Diskussion. Für mich ist das einfach übertrieben.
Mal direkt aus der Hilfe:
[autoit]
$Pfad = "C:\"
; Shows the filenames of all files in the current directory.
$search = FileFindFirstFile($Pfad&"*.jpg")
; Check if the search was successful
If $search = -1 Then
MsgBox(0, "Error", "No files/directories matched the search pattern")
Exit
EndIf
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
_ScalePicture($Pfad&$file) ; HIER die Funktion um das Bild zu rezisen; $Pfad&$file ist hierbei der Dateipfad.
WEnd
; Close the search handle
FileClose($search)
Schau dir mal FileFindFirstFile und FileFindNextFile in der Hilfe an! Ist ein Bsp. mit dabei.
hehe ... Das Spiel gefällt mir richtig gut! Es macht sogar richtig Spaß.
Die Grafiken gefallen mir super und die Anzeige rechts, was man denn nun erreicht hat ist einfach klasse: Im RL hab ich bis jetzt nicht verstanden was man wann hat (Außer Pair :P)
Schönes Projekt, gefällt mir echt gut!
lG
Habe das auch noch nicht gemacht und kenne mich in diesem Gebiet auch nicht grade gut aus, aber vllt. hilft dir ja das:
http://www.autoitscript.com/forum/index.php?showtopic=80138
lG
Hi.
Ich kann erstmal nur beim 2ten Problem helfen:
[autoit]
$TextNachZeichen = StringRegExp(GuiCtrlRead($Input),"X(.*)",3) ;für X musst du das Zeichen einsetzen.
MsgBox(64,"Information","Der Text nach dem Zeichen ist: "&$TextNachZeichen[0])
Ich denke das klappt so ... Ich werde es gleich mal probieren und mich dann ggf. verbessern
lG
ZitatVorher waren wir bei der Telekom und leider muss ich sagen, das wir
NICHT zufrieden waren! Andauernd brach die Verbindung zusammen, manschmal für mehrere Tage.
Der Support war, ich drücke es mal milde aus: wirklich schlecht.
Genau die gleichen Probleme waren bei uns auch vorzufinden!
Ich möchte dazu ein paar Dinge sagen
Die Playstation hat, wie du sicher weisst, ein Blue Ray Laufwerk. Die X-Box 360 ein HD-DVD. Die BR-D hat sich gegen die HD-DVD durchgesetzt, sodass im Großen und Ganzen HD-DVDs nur noch selten zum Einsatz kommen, wie z.B. für die X-Box 360.
Was mich auch an der X-Box auch stört: Man muss bezahlen um Online zu gehen, bei der Playstation bezahlt man nur die Internet Gebüren.
Hardware technisch ist zwar die Playstation ein wenig besser, allerdings haben einige Spiele, die auf der Playstation unter Framerate Verlust leiden, dies auf der X-Box nicht. Was mir an der PS3 Hardware-Technisch auch gut gefällt ist die Six-Axis unterstützung der Controller.
Im Allgemeinen finde ich auch, dass es für die X-Box bessere spiele gibt (Rockband z.B.).
Ich selber habe mich damals für die Playstation 3 entschieden und weiß nicht ganz was ich sagen soll: Ich benutze sie nicht häufig, aber weiß auch nicht ob sich das mit einer X-Box 360 ändern würde.
Vllt. hilft dir das ein wenig
Wir sind fast schon immer bei Arcor und hatte noch nie Probleme mit Telephon und Internet: Termine wurden immer eingehalten, freundlicher Service und angemessene Preise.
Hallo!
Weil ich mich auch für dieses Thema interessiere, habe ich auch mal 3 verschiedene Progressbar Methoden erstellt; vllt gefällt dir ja eine davon
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("", 270, 25, 192, 124, BitOR($WS_POPUP, $WS_BORDER, $WS_CLIPSIBLINGS))
Global $Pictures[26]
GUISetBkColor(0x282828)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Method = 1
While 1
Switch $Method
Case 1
$left = 10
For $i = 1 To 25
$Pictures[$i] = GUICtrlCreatePic("balken.jpg", $left, 10, 5, 5, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$left += 10
Sleep(150) ; Mit Sleep die Geschwindigkeit steuern.
Next
$Method = 2
_DeleteBar()
Case 2
$Pic1 = GUICtrlCreatePic("balken.jpg", 10, 10, 0, 0, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
For $i = 1 To 250
GUICtrlSetPos($Pic1, 10, 10, $i)
Sleep(10) ; Mit Sleep die Geschwindigkeit steuern.
Next
$Method = 3
GUICtrlDelete($Pic1)
Case 3
$left = 10
For $i = 1 To 25
$Pictures[$i] = GUICtrlCreatePic("balken.jpg", $left, 10, 5, 5, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$left += 10
Sleep(150) ; Mit Sleep die Geschwindigkeit steuern.
Next
$Pic1 = GUICtrlCreatePic("balken.jpg", 10, 10, 0, 0, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
For $i = 1 To 250
GUICtrlSetPos($Pic1, 10, 10, $i)
Sleep(10) ; Mit Sleep die Geschwindigkeit steuern.
Next
$Method = 4
EndSwitch
WEnd
Func _DeleteBar()
For $i = 1 To 25
GUICtrlDelete($Pictures[$i])
Next
EndFunc ;==>_DeleteBar
balken.jpg habe ich mit gepostet.
Viel Spaß & vielen Dank fürs Testen.
lG,
Lenny
HiHo und schonmal Danke für die Antworten
Ich habe mich nochmal registriert und wieder keine Mail bekommen. Vllt macht mir mein AV ja probleme. Ich deinstalliere es grade (Hab noch eine andere Version).
Mal sehen wie es denn aussieht
lG,
Lenny
Hallo ihr . Ich wollte euch mal besuchen kommen, weil ich das Projekt wirklich sehr schön finde :)!
Also habe ich "Collanos Workplace" installiert und mich registriert. Nur ist die AktivierungsMail noch nicht angekommen (4Tage her.)
Hattet ihr ähnliche Probleme ?
lG,
Lenny
Wenn man sich die genauen Statistiken anguckt, dann ist Bplaced schon gut finde ich.
Die meisten Server sind so 2 Mal am Tag offline und das für 1,5 Minuten.
Guck dir mal andere Hoster an, die sind viel schlimmer
Sonst: Gekauft ist http://www.webgo24.de/ schon sehr günstig (Server, Domain, Email usw) ... Weil die noch nicht so bekannt sind
Hey!
Großartig!
Vielen Dank - echt super
lG,
Lenny
Edit1: Bei mir stimmt die sortierung irgendwie auch nicht, und es crashed irgendwann :O
Jo Vielen Dank euch! Echt Super. Danke Danke für eure Hilfe.
lG,
Lenny
Hey ihr Beiden. Ihr seit echt klasse!
Über die Funktion "_GUICtrlTreeView_Sort(http://www.autoit.de/dokumentation_…g_variables.htm)" wusste ich noch garnicht Bescheid
Zwar ist die Reinfolge nicht soherum wie vorgesehen, aber das ist eig. auch kein Problem!
Echt Super!
Vielen Dank - Freue mich echt suuper!
lG
Lenny
Edit1:
Ich bins nochmal! Das sortieren klappt auf der ersten Ebene wunderbar. Nur wenn ich tiefer gehe, ist es nicht mehr sortiert.
Ich schau mal ob ich das Problem finden kann