Beiträge von Lenny

Lenny

Ich wollte auch soweit kommen, aber dann das

Spoiler anzeigen

[Blockierte Grafik: http://lennart-worm.de/pictures/Screenshot-4.jpg]

Schade

Lenny

Also ich persönlich wäre für TMN forever.

Was sagen die anderen ?

Lenny

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:

Datei Verschlüsselung

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>

[/autoit] [autoit][/autoit] [autoit]

$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 ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_verschluesseln()
Case $Button2
_entschluesseln()
Case $Button3
Exit
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit]

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

[/autoit]

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

Lenny

Zitat

1. Welche der beiden Konsolen ist Zukunftssicher?
-> Eindeutig die Xbox 360

2. 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.

Alles anzeigen

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.

Lenny

Mal direkt aus der Hilfe:

[autoit]

$Pfad = "C:\"
; Shows the filenames of all files in the current directory.
$search = FileFindFirstFile($Pfad&"*.jpg")

[/autoit][autoit][/autoit][autoit]

; Check if the search was successful
If $search = -1 Then
MsgBox(0, "Error", "No files/directories matched the search pattern")
Exit
EndIf

[/autoit][autoit][/autoit][autoit]

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

[/autoit][autoit][/autoit][autoit]

; Close the search handle
FileClose($search)

[/autoit][autoit][/autoit][autoit][/autoit]

Lenny

Schau dir mal FileFindFirstFile und FileFindNextFile in der Hilfe an! Ist ein Bsp. mit dabei.

Lenny

Meee²

Lenny

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

Lenny

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

Lenny

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])

[/autoit]

Ich denke das klappt so ... Ich werde es gleich mal probieren und mich dann ggf. verbessern

lG

Lenny

Zitat

Vorher 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!

Lenny

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

Lenny

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.

Lenny

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

Spoiler anzeigen

[autoit]

#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

[/autoit] [autoit][/autoit] [autoit]

Func _DeleteBar()
For $i = 1 To 25
GUICtrlDelete($Pictures[$i])
Next
EndFunc ;==>_DeleteBar

[/autoit]

balken.jpg habe ich mit gepostet.

Viel Spaß & vielen Dank fürs Testen.

lG,

Lenny

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

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

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

Lenny

Hey!

Großartig!

Vielen Dank - echt super

lG,

Lenny

Edit1: Bei mir stimmt die sortierung irgendwie auch nicht, und es crashed irgendwann :O

Lenny

Jo Vielen Dank euch! Echt Super. Danke Danke für eure Hilfe.

lG,

Lenny

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

Beiträge von Lenny

Poker-Card-Machine (Game)

AutoIt Community - Trackmania

Frage zu FileRead()

Playstation 3 oder XBOX 360

Bilder skalieren

Bilder skalieren

AutoIt Community - Trackmania

Poker-Card-Machine (Game)

Bilder skalieren

nur die Markierung auslesen

Bei welchem Provider seit Ihr?

Playstation 3 oder XBOX 360

Bei welchem Provider seit Ihr?

Eigene Progressbar

AutChat - Chat für Autoit'ler

AutChat - Chat für Autoit'ler

Suche Webspace (mit angaben)

Ordner in TV auflisten; nach Größe sortiert

ICQ Client in autoit

Ordner in TV auflisten; nach Größe sortiert