Beiträge von Lenny

Hi.

Ersetze

InetGet($Ipath, $FileName[UBound($FileName) - 1])

durch

If Not InetGet($Ipath, $FileName[UBound($FileName) - 1]) Then MsgBox(64,"Error","An unknown error occured")

Lg,

Hi.

Ich hatte auch Probleme mit InetGet wenn ich keinen Zielpfad angegeben habe. (Obwohl man diesen ja optional nur eintrage müsste)

Probier einfach mal Testweise:

InetGet($Ipath,@desktopdir&"\file")

Lg

Genau ... nicht schlecht!

Aber das war wohl zu leicht für euch...

Ich such nochmal was schwereres

Um sich das Leben zu erleichtern könnte man auch ein Script schreiben wie das:

For $i = 0 To 100
If ($i * 2) + 1 = 1.5 * ($i + 1) Then
MsgBox(64, "Alter gefunden.", "Sie war " & $i + 1 & " und er war " & 1.5 * ($i + 1))
$AlterEr = 1.5 * ($i + 1)
$AlterSie = $i + 1
ExitLoop
EndIf
Next
$TheAgeM = InputBox("Alter Berechnung", "Wie alt ist ER nun ?")
MsgBox(64, "Alter gefunden.", "Denn ist SIE nun " & $TheAgeM - ($AlterEr - $AlterSie))
$TheAgeF = InputBox("Alter Berechnung", "Wie alt ist SIE nun ?")
MsgBox(64, "Alter gefunden.", "Denn ist ER nun " & $TheAgeF + ($AlterEr - $AlterSie))

Guten Abend.

Ich habe hier, wie ich finde, ein kleines aber doch sehr nettes Rätsel, das ihr ja mal probieren könnt zu lösen.

Rätsel:

Sagt der Vater zum Sohn:

"Du mein Sohn, weisst du, es gab mal eine Zeit da war ich doppelt so alt wie deine Mutter. Ein Jahr später war ich natürlich nur noch einanhalb mal so alt wie deine Mutter."

Wenn der Vater heute 44 ist, wie alt ist denn jetzt die Mutter ?

Viel Spaß beim Lösen,

Lg,

Lenny

Hi!

Das Programm gefällt mir gut. Ich wollte soetwas schon immermal gucken.

Bei mir kam raus:

196:37:24

Hmmm ... Das ist komisch. Hatte sonst keine Probleme mit ShellExecute. Vllt weiß ja jemand anders eine Lösung.

Ist *.mp3 kein Programm zugeordnet ? O.o

Hi!

Danke... Aber ich Defragmetiere jede Woche 1mal ... Oder muss das öfter sein ?

Warum kannst du die Musik nicht öffnen ? Was passiert wenn du auf einen Listview eintrag klickst ?

Lg

Lenny

Ging das nicht einfach mit WinActive ?

Edit: Achso du willst prüfen ob es OnTop ist

HalliHallo!

Ich möchte meinen Mp3 Lister vorstellen.

Wofür ist er gut ?

Wenn ich meine Musiksammlung öffne muss ich immer sehr lange warten bis die Taschenlampe verschwindet und ich zugang zu meinen Mp3s habe. Dies liegt entweder an der großen Menge oder an der Ansicht (Symbole Ordnen Nach -> Interpret, Ansicht -> In Gruppen Anzeigen).

Dafür habe ich mir jetzt Abhilfe geschaffen: Der Mp3 Lister.

Hier ist auch gleich mal ein Video dazu:

*KLICK* ICH BIN DER LINK ZUM VIDEO

Vorteile:

+ RealTime anzeige (Auch wenn neue Musikstück neu in den Ordner kopiert werden, wird die Anzeige Aktualisiert)
+ Suchoptionen
+ Schnelligkeit
+ Aussehen
+ Bedienbarkeit, Interface, Benutzerfreundlichkeit

Nachteile und Eingeschrenkte Bedingungen:

- CPU Auslastung teils hoch
- Es werden nicht Dateien in Unterodnern gefunden
- Verzögerungen bei Buttons: Settings, Close

Workflow:

Beim ersten Start des Programmes wird der Suchordner festgelegt.

Einstellen ob exakte Suche oder nicht.

Suchword ins Inputfeld eingeben
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Bei exakter Suche wird nach Interpreten und Titeln gesucht, in denen das ganze Suchwort drinvorkommt.
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Wenn die Checkbox "Exact Results" (Exakte Ergebnisse) nicht gecheckt ist, wird geprüft ob alle, im Input angegebenen Buchstaben im LiedInterpreten- oder Titel zu finden sind. (BSP Im Video)
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

Hier ist jetzt auch noch mal das Script:

Ich hoffe ihr könnt damit etwas anfangen

Liebe Grüße,

Lenny

Edit1: Anscheinend gibt es ein Problem mit dem Video. Ich werde es grade nochmal uppen.

Edit2: Neu geuppt -> Klappt

HI!

$List = ""

Func _FilterFileTypes($File, $Type)
For $i = 1 To _FileCountLines($File)
$Line = FileReadLine($File,$i)
MsgBox(0,"",$Line)
If StringInStr($Line, $Type) Then
$List &= $Line & @CRLF
EndIf
Next
Return ($List)
EndFunc ;==>_FilterFileTypes

Lg,

Lenny

Edit: Bei Type kann man entweder z.B. '.mp3' eingeben oder einen Namen z.B. 'lied'
#include <File.au3>
wird gebraucht

Edit2: So jetzt sollte es gehen

HalliHallo!

Ich hatte irgendwie Lust eine Func zu schreiben, mit der man nach Dateien eines bestimmten Types suchen, oder einfach alle vorhandenen Dateien aufliste kann.

Ich weiß nicht ob es jemand gebrauchen kann, weil es ja auch noch eine Func mit rekursiver Suche gibt.

Aber ich bin jetzt einfach mal so frei und poste hier meine Func:

Ich hoffe es kann jemand gebrauchen. Ich denke man könnte es auch ohne zuviel Aufwand in eine direkte Dateisuche umwandeln.

Lg,

Lenny

Oha

Geht das nicht unkomplizierter :O

Guten Abend allersamt.

Ich habe mal wieder eine Frage:

Wie kann ich folgendes umsetzen:

Ich habe 3 Listviews, ich möchte aus Listview1 einen Eintrag nehmen und ihn per Drag & Drop in Listview 2 oder 3 schieben. Dh er ist aus Listview1 raus und besteht nun in listview 2 oder 3... Zusätzlich (Wenn man das große Geheimnis kennt, warscheinlich kein Problem) sollte man sie aus List view 2 und 3 wieder zurück in 1 Schieben können oder von List view 2 nach 3 usw.

Wäre Suuuuper wenn ihr mir helfen könntet

Lg,

Lenny

Hi!

Also Image weiß ich was das ist ... und Backup habe ich mir eigenltich genauso vorgestellt.

Aber gut:

Wenn nur die Windows Einstellungen UND eigene beliebige Dateien, z.B. vor einer Windows neuinstallation gesichert werden sollen, kann man das windows eigene Sicherungsprogramm benutzen

Man kann unter Start -> Alle Programme -> Zubehör -> Systemprogramme -> Übertragen von Dateien und Einstellungen klicken,
oder einfach "migwiz.exe" in das Ausführen feld eigeben.

Dann muss man lediglich noch "Quellcomputer" auswählen und dann einfach dem Assistenten folgen.

Wenn ich das falsch verstanden habe einfach überlesen

Lg,

Lenny

Vllt auch mit TimerInit / TimerDiff.

So wird das Script nicht angehalten und es kommt durch das Sleep(Komplettes Script wird ja angehalten) nicht zu (minimal) ungenauen Anzeigen

Lg,

Lenny

Hi!

Das müsste so aussehen:

Guictrlsetdata($label1,@Hour&":"&@Min&":"&@Sec)

Lg,

Lenny

P.s. Die Func kannst du komplett löschen. Dieses Guictrlsetdata müsste in aber sich immer wiederholenden Schleife gesetzt werden

Hi!

Also ich finde das ganze projekt echt gut^^. Ich habe schonmal die Seiten durchgestöbert und das einzige was mich stört ist, dass die Scripte so dargestellt werden:

InetGet("http://download.mozilla.org/?product=firefox-3.0.5&os=win&lang=de", @ScriptDir & "\firefox.exe", 0, 1)

$groesse = InetGetSize("http://download.mozilla.org/?product=firefox-3.0.5&os=win&lang=de")

While True

If @InetGetActive = 1 Then ;Wenn etwas aus dem internet runtergeladen wird , wird diese Schleife aktiviert

ToolTip(Round(@InetGetBytesRead / 1024 / 1024, 1) & "MB" & "/" & Round($groesse / 1024 / 1024, 1) & "MB" & " (" & Round(@InetGetBytesRead / $groesse * 100, 0) & "%)", @DesktopWidth / 2 - 90, 0, "Download von Mozilla Forefox3.0.5")

Else

ToolTip("") ;Um den ToolTip bei Fertigstellung des Downloads zu beenden

Exit

EndIf

WEnd

Und nicht so:

InetGet("http://download.mozilla.org/?product=firefox-3.0.5&os=win&lang=de", @ScriptDir & "\firefox.exe", 0, 1)

$groesse = InetGetSize("http://download.mozilla.org/?product=firefox-3.0.5&os=win&lang=de")

While True

If @InetGetActive = 1 Then ;Wenn etwas aus dem internet runtergeladen wird , wird diese Schleife aktiviert

ToolTip(Round(@InetGetBytesRead / 1024 / 1024, 1) & "MB" & "/" & Round($groesse / 1024 / 1024, 1) & "MB" & " (" & Round(@InetGetBytesRead / $groesse * 100, 0) & "%)", @DesktopWidth / 2 - 90, 0, "Download von Mozilla Forefox3.0.5")

Else

ToolTip("") ;Um den ToolTip bei Fertigstellung des Downloads zu beenden

Exit

EndIf

WEnd

Vllt könnt ihr ja noch eine Möglichkeit finden. Ich finde es so viiiiel leichter, auch für anfänger, die Schleifen zu überblicken.

Lg,

Lenny

HI!

Wegen dem Problem mit den Buttons:

$id_button1 = GUICtrlCreateButton("Befehl Hinzufügen",6,6,106,33,1,-1)
$id_button2 = GUICtrlCreateButton("Befehl Suche",130,6,106,33,-1,-1)
$id_pic3 = GUICtrlCreatePic("AutoIt_SearchIt.jpg",0,0,250,225,-1,-1)

Mussst du zu

$id_pic3 = GUICtrlCreatePic("AutoIt_SearchIt.jpg",0,0,250,225,-1,-1)
$id_button1 = GUICtrlCreateButton("Befehl Hinzufügen",6,6,106,33,1,-1)
$id_button2 = GUICtrlCreateButton("Befehl Suche",130,6,106,33,-1,-1)

ändern.

Dann sollte es gehen

HI!

Möchtest du komplett garkeine Versteckten Ordner in der Liste,oder das diese 3 nicht mit in die Liste gelesen werden, oder möchtest du das sie mit gelesen werden und im Nachhineinein entfernt werden ?

Lg,

Lenny