Beiträge von DFPWare

DFPWare

ja das seh ich
aber wie has du das hinbekommen dass das mit zeilenumbruch und einrückungen superschön aufgelistet wird und bei mir so blöde?

DFPWare

ja mann ich hasse es
ich kopier den text einfach und dann kommt sowas bei raus ohne zeilenumbruch ohne alles
dann kopier ich nochmal jede einzelne zeile und füg die mit zeilenumbruch ein und was is? sieht immer noch so besch.. aus-.-
wie macht man das denn richtig?

DFPWare

Hey Leute
ich kenn mich nicht wirklich mit INI-Dateien aus, aber ich habe gehört
dass das sehr wichtig sein soll...
Ich habe hier mal ein Programm geschrieben, das sachen in eine *.h33 Datei schreiben soll und dann in einer listview ausgeben soll...
irgendwie habe ich da ein problem eingebaut aber ich glaube nicht dass das an dem ini zeug liegt
wahrscheinlich irgendein blöder fehler-.-
danke schonmal im vorraus;)

Spoiler anzeigen

[autoit]

#include
Local $nummer = 1, $readvar = 1

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

GUICreate("MyFirstIniTry", 500, 50)
$input = GUICtrlCreateInput("", 10, 10, 300, 30)
$save = GUICtrlCreateButton("Speichern", 320, 10, 70, 30)
$read = GUICtrlCreateButton("Gespeichertes", 400, 10, 90, 30)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $save
$read = GUICtrlRead($input)
IniWrite("savefile.h33", "input", $nummer, $read)
$nummer += 1
Case $read
GUICreate("Gespeichertes", 500, 500)
$list = GUICtrlCreateListView("Gespeicherter Text:", 10, 10, 480, 480)
GUISetState()
Do
$listitem = IniRead("savefile.h33", "input", $readvar, "LEER")
GUICtrlCreateListViewItem($listitem, $list)
Until $readvar = $nummer
EndSwitch
WEnd

[/autoit]

Edit bernd670 : Quellcode neu formatiert

DFPWare

geht doch viel einfacher
https://autoit.de/index.php?page=Thread&threadID=24867

DFPWare

so hab das mit

[autoit]

IsArray($array)

[/autoit]

eingefügt^^

DFPWare

ja das pfad ändern hab ich versucht bin aber kläglich gescheitert-.-
also hab ich es erstmal so gelassen:D

DFPWare

versteh ich nicht
der benennt $titel vorher als array
also bei mir klappts:D
versuch mal statt global dim zu nehmen

DFPWare

oh das geht?=D
das wusste ich nich sry

DFPWare

Hey Leute
an alle die verschlüsselte nachrichten verschicken wollen müssen sich nur dieses tool holen:)
man braucht ein passwort um die nachricht wieder zu entschlüsseln

Spoiler anzeigen

[autoit]

#include <Crypt.au3>
#include <GuiConstantsEx.au3>

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

GUICreate("Cryption",350,80)
$in1 = GUICtrlCreateInput("zu (de)crypten",10,15,100,20)
$bu1 = GUICtrlCreateButton("Crypt",120,10,50,30)
$bu2 = GUICtrlCreateButton("Decrypt",180,10,50,30)
$in2 = GUICtrlCreateInput("Passwort",240,15,100,20)
$in3 = GUICtrlCreateInput("Ausgabe",10,50,350,20)
GUISetState()

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $bu1
crypt()
Case $bu2
decrypt()
EndSwitch
WEnd

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

Func crypt()
$i1 = GUICtrlRead($in1)
$i2 = GUICtrlRead($in2)
$crypted = _Crypt_EncryptData($i1,$i2,$CALG_DES)
$binary = BinaryToString($crypted)
GUICtrlSetData($in3,$binary)
EndFunc

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

Func decrypt()
$i1 = GUICtrlRead($in1)
$i2 = GUICtrlRead($in2)
$crypted = _Crypt_DecryptData($i1,$i2,$CALG_DES)
$binary = BinaryToString($crypted)
GUICtrlSetData($in3,$binary)
EndFunc

[/autoit]

DFPWare

Hey Leute ich hab mich auch mal an nen Music Player gesetzt und das is dabe rausgekommen
guckts euch einfach mal an und sagt was ihr davon haltet und ich bin für verbesserungen sowieso immer offen;)

Spoiler anzeigen

[autoit]

#include <Sound.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>

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

Global $pfad = @ScriptDir&"\Music\"
Global $titel = _FileListToArray($pfad,"*.mp3",1)
If IsArray($titel) = 0 Then
MsgBox(0,"ERROR","In dem ausgewählten Verzeichnis befinden sich keine .mp3 Dateien")
Exit
EndIf
Global $titelnummer = 1
Global $sound
Global $volume = 100
Global $titelgui = "Music Player - " & $titel[$titelnummer]
Global $size = UBound($titel)
Global $var = 1
Global $balken
Global $shuffle = 1
Dim $groessetitel[$size]
Dim $listitem[$size]
Dim $string
Dim $length[5]

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

SoundSetWaveVolume($volume)

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

GUICreate($titelgui,500,500)
$B1 = GUICtrlCreateButton("<",10,10,50,50)
$B2 = GUICtrlCreateButton(">",70,10,50,50)
$B3 = GUICtrlCreateButton("+",130,10,50,50)
$B4 = GUICtrlCreateButton("-",190,10,50,50)
$B5 = GUICtrlCreateButton("| |",250,10,50,50)
$B6 = GUICtrlCreateButton("Musik auswählen",310,10,110,50)
$L1 = GUICtrlCreateLabel("Volume: "&$volume&"%",10,70)
$L2 = GUICtrlCreateLabel("Titelanzahl: "&$size-1,120,70)
$L3 = GUICtrlCreateLabel("Aktueller Titel: "&$titelnummer,230,70)
$P = GUICtrlCreateProgress(10,100,480,20)

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

$list = GUICtrlCreateListView("Nr.|Titel |Größe|Länge",10,130,480,360)
GUISetState()
getgroesse()
listefuellen()
play($titelnummer)

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $B1
vorher()
Case $msg = $B2
nachher()
Case $msg = $B3
lauter()
Case $msg = $B4
leiser()
Case $msg = $B5
playpause()
Case $msg = $B6
pfadaendern()
EndSelect

For $i=1 To $size-1
Switch $msg
Case $listitem[$i]
anderer($i)
EndSwitch
Next

titelende()
setbalken()
WEnd

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

Func play($nummer)
$sound = _SoundOpen($pfad&$titel[$nummer])
_SoundPlay($sound, 0)
EndFunc

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

Func vorher()
If $titelnummer >= 2 Then
_SoundClose($sound)
$titelvorher = $titelgui
$titelnummer = $titelnummer - 1
play($titelnummer)
$titelnachher = "Music Player - " & $titel[$titelnummer]
WinSetTitle($titelvorher,"",$titelnachher)
$titelgui = $titelnachher
GUICtrlSetData($L3,"Aktueller Titel: "&$titelnummer)
Else
_SoundClose($sound)
$titelvorher = $titelgui
$titelnummer = $size-1
play($titelnummer)
$titelnachher = "Music Player - " & $titel[$titelnummer]
WinSetTitle($titelvorher,"",$titelnachher)
$titelgui = $titelnachher
GUICtrlSetData($L3,"Aktueller Titel: "&$titelnummer)
EndIf
EndFunc

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

Func nachher()
If $titelnummer <= $size-2 Then
_SoundClose($sound)
$titelvorher = $titelgui
$titelnummer = $titelnummer + 1
play($titelnummer)
$titelnachher = "Music Player - " & $titel[$titelnummer]
WinSetTitle($titelvorher,"",$titelnachher)
$titelgui = $titelnachher
GUICtrlSetData($L3,"Aktueller Titel: "&$titelnummer)
Else
_SoundClose($sound)
$titelvorher = $titelgui
$titelnummer = 1
play($titelnummer)
$titelnachher = "Music Player - " & $titel[$titelnummer]
WinSetTitle($titelvorher,"",$titelnachher)
$titelgui = $titelnachher
GUICtrlSetData($L3,"Aktueller Titel: "&$titelnummer)
EndIf
EndFunc

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

Func lauter()
If $volume < 100 Then
$volume = $volume + 10
EndIf

SoundSetWaveVolume($volume)
GUICtrlSetData($L1,"Volume: "&$volume&"%")
EndFunc

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

Func leiser()
If $volume > 0 Then
$volume = $volume - 10
EndIf

SoundSetWaveVolume($volume)
GUICtrlSetData($L1,"Volume: "&$volume&"%")
EndFunc

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

Func playpause()
If $var = 1 Then
_SoundPause($sound)
GUICtrlSetData($B5,"|>")
$var = $var*-1
Else
_SoundResume($sound)
GUICtrlSetData($B5,"| |")
$var = $var*-1
EndIf
EndFunc

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

Func listefuellen()
For $i=1 To $size-1
$length1 = _SoundLength($pfad&$titel[$i])
$length2 = StringSplit($length1,":")
$length = $length2[2]&":"&$length2[3]
$listitem[$i] = GUICtrlCreateListViewItem($i&"|"&$titel[$i]&"|"&$groessetitel[$i]&"|"&$length,$list)
Next
EndFunc

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

Func getgroesse()
For $i=1 To $size-1
$groessetitel[$i] = FileGetSize($pfad&$titel[$i])/1000000
$groessetitel[$i] = Round($groessetitel[$i],2)
Next
EndFunc

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

Func anderer($anderer)
_SoundClose($sound)
$titelvorher = $titelgui
play($anderer)
$titelnachher = "Music Player - " & $titel[$anderer]
WinSetTitle($titelvorher,"",$titelnachher)
GUICtrlSetData($L3,"Aktueller Titel: "&$anderer)
$titelgui = "Music Player - " & $titel[$anderer]
EndFunc

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

Func setbalken()
$length = _SoundLength($sound)
$pos = _SoundPos($sound)
$string1 = StringSplit($pos,":")
$string2 = StringSplit($length,":")
$lengthrichtig = $string2[2]*60+$string2[3]
$posrichtig = $string1[2]*60+$string1[3]
$balken = $posrichtig/$lengthrichtig*100
GUICtrlSetData($P,$balken)
EndFunc

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

Func titelende()
If _SoundPos($sound) = _SoundLength($sound) Then
nachher()
EndIf
EndFunc

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

Func pfadaendern()
_SoundClose($sound)
_GUICtrlListView_DeleteAllItems($list)
$pfadzwischen = FileSelectFolder("Musikordner auswählen","")
$pfad = $pfadzwischen&"\"
$titel = _FileListToArray($pfad,"*.mp3",1)
$size = UBound($titel)
listefuellen()
EndFunc

[/autoit]

DFPWare

danke für die antworten ich stell das fertige skript jetz mal oben rein

DFPWare

so hab das jetz mal mit diesem Data Encryption Standart versucht aber es kommt immer nur sowas wie 0x7A7520286465296372797074656E raus
also wenn ich das encryptete wieder decrypten will

DFPWare

hey leute guckt mal mein cryption tool:D
ich wüsste nur gerne was ich beim algorithmus hinschreiben soll

Spoiler anzeigen

#include <Crypt.au3>
#include <GuiConstantsEx.au3>

GUICreate("Cryption",350,80)
$in1 = GUICtrlCreateInput("zu (de)crypten",10,15,100,20)
$bu1 = GUICtrlCreateButton("Crypt",120,10,50,30)
$bu2 = GUICtrlCreateButton("Decrypt",180,10,50,30)
$in2 = GUICtrlCreateInput("Passwort",240,15,100,20)
$in3 = GUICtrlCreateInput("Ausgabe",10,50,350,20)
GUISetState()

While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $bu1
crypt()
Case $bu2
decrypt()
EndSwitch
WEnd

Func crypt()
$i1 = GUICtrlRead($in1)
$i2 = GUICtrlRead($in2)
$crypted = _Crypt_EncryptData($i1,$i2,$CALG_DES)
$binary = BinaryToString($crypted)
GUICtrlSetData($in3,$binary)
EndFunc

Func decrypt()
$i1 = GUICtrlRead($in1)
$i2 = GUICtrlRead($in2)
$crypted = _Crypt_DecryptData($i1,$i2,$CALG_DES)
$binary = BinaryToString($crypted)
GUICtrlSetData($in3,$binary)EndFunc

DFPWare

ich hab auch Win7 und bei mir klappt lautstärke gut:D
hab jetz auch das mit dem übergang geschafft:

[autoit]

If _SoundPos($sound) = _SoundLength($sound) Then nachher()EndIf

[/autoit]

DFPWare

hey leute kann man diese kleinen knöpfe auf der taskleiste erstellen?
wenn ihr das bild seht, wisst ihr was ich mein:D
danke
DFPWare

DFPWare

oh danke:D
is ja wirklich ziemlich einfach:D
dass ich auf sowas nich komme -.-

DFPWare

oh tut mir leid ich änder das oben

DFPWare

ist es schlimm, wenn ich da nich durchblick?
kanns du es mir kurz zusammenfassen?:D
ich will nur wissen wie man es hinbekommt dass der automatisch den nächsten titel abspielt;-)

DFPWare

okay werd ich machen:D
durch mein skript blickt ja doch keiner durch xD

DFPWare

hab ich versucht, also dass der solange sleept, wie das lied lang ist, aber dann kann ich nix anderes mehr machen

Beiträge von DFPWare

INI-Problem

INI-Problem

INI-Problem

Verschlüssler/Entschlüssler (der ca. 1000ste) aber wollte das mal schreiben um mich mir Arrays auseinanderzusetzen

Music Player

Music Player

Music Player

Cryption Tool

Cryption Tool

Music Player

Cryption

Cryption

Cryption

Musik

Win7 Taskleiste knöpfe einfügen

Musik

Musik

Musik

Musik

Musik