Beiträge von Lenny

Lenny

Hallo!

...Kann man Tastatur Anschläge... in einem script mit schreiben oder zumindest zählen und die gespeichertern daten, nach einem hotkey ausdrucken ?

Vielen dank im Vorraus ?

Lenny

Hallo!
Bei allen Titeln das selbe... !
Lenny

Lenny

Hallo !

Nein ---- der script läuft nicht so wie er sollte ... siehe Screenshot ....

Trotzdem Vielen Dank

€: Bei den geschwärzten stellen wollte ich euch nur nicht mit meinem schlimmen musikstil belästigen ... das stand nur ....

EinLied.mp3

"EinLied.mp3"konnte nicht...

Lenny

-.-

Lenny

Oo ... es gib ja schon einen Ts² ... xD ....

Allerdings erschien es mir unlogisch in die SuFu Teamspeak einzugeben,
Weil T-E-A-M-S-P-E-A-K, 9 Buchstaben und 9 natürlich eine schiefe Zahl ist....
Also Gerade Zahlen = Logisch
Ungrade Zahlen = Unlogisch ....
Dadurch konnte ich natürlich auch keine ordentlichen Ergebnisse erzielen!

Merk dir das bevor du auf die SuFu verweist! Immer Überprüfen ;D
So siehts aus

mfg Lenny

Lenny

.... ... gab es soeinen Thread schon mal oder war das eine anspielung auf meine andere threads ;D .... xD ....

Du verweist sehr viele auf die BOARDHILFE ... xD

Naya ... werde sie mal wieder in betrieb nehmen!!! ...

Lenny

Lenny

Hallo ihr!

Ich finde für Autoit.de Würde sich ein Ts² server sehr gut anbieten!
Man könnte fragen an die höherbegabten stellen damit man nicht (wie ich) zu einem Thema 100 Posts machen muss!

Wäre eine Überlegung wert denke ich ...

Mfg Lenny =)

Lenny

Danke Bugfix

...Omg ,,, hätte ja nicht gedacht das dieser script so komplex ist ...
Ich werde es versuchen ... wenn es nciht klappt mach ich mit leichteren sachen weiter ... Kannst du mir denn wenigstens einen Anfang für

Makieren ~~~~> auslesen .... Geben ?
Ich habe mir den Doppelklick script schon angeguckt und dieser ist wirklich ziemlich komplex ...

Lenny

Lenny

Joa .. super !

Funzt beides Super ... obwohl mir peethebee's lösung ein Bissl besser gefällt weils einfacher zu verstehen ist ...

Könntet ihr mir noch sagen was man braucht um das lied abzuspieln ? ... also nur sagen ... würd ich gern selber basteln ...

Vielen Dank im Vorraus ....

Also warscheinlich
Case $***
Und hier?

Vielen Dank ...

Lenny

edit1:

So könnte ihc es mir vorstellen:

[autoit]

#include <GUIConstants.au3>
#Include <GuiList.au3>
Dim $arFile[1]

$Form1 = GUICreate("AForm1", 395, 447, 694, 280)
$Button1 = GUICtrlCreateButton("Schließen", 152, 0, 75, 25, 0)
$liste = GUICtrlCreateList('', 0, 24, 393, 409)

$search = FileFindFirstFile("C:\Dokumente und Einstellungen\Lenny\Eigene Dateien\Meine Musik\*.mp3")
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
_GUICtrlListAddItem ( $liste, $file )
WEnd

GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Exit;;;;;
Case $liste
ShellExecute("wmplayer.exe", $search);;;;;
EndSwitch
WEnd

[/autoit]

aBER das klappt natürlich nicht -.-

Lenny

Lenny

Hallo!
Erstmal danke für die schnellen antoworten!

Also ... ich habe es jetzt so gemacht:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
$Form1 = GUICreate("AForm1", 395, 447, 694, 280)
$Button1 = GUICtrlCreateButton("Schließen", 152, 0, 75, 25, 0)

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

$search = FileFindFirstFile("C:\Dokumente und Einstellungen\Lenny\Eigene Dateien\Meine Musik\*.mp3")
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
$liste = GUICtrlCreateList($file, 0, 24, 393, 409)

WEnd
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Exit
EndSwitch

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

WEnd

[/autoit]

Ich sehe auch meine ganze musik ... sie läuft allerdings in der obersten spalte in sekunden schnelle durch ... (10 lieder ca. 1sek) ...

was muss ich noch hinzufügen ?

Vielne Dank im Vorraus!

Edit1:
Ich hab den Button1 aus der While schleife rausgenommen (war nur ausversehen da) jetzt laufen alle lieder ca in (0.5 sek) durch ... .. Oo

Hat sich ja eig nichts geändert!

Lenny

Edit2: ... GUISetState(@SW_SHOW) hab ich jetzt auch rausgelassen ... noch schneller !!! ... je weniger da drinnen ist desto schneller wird iwie !?

Lenny

Lenny

Hallo!

Ist der Anfang so okay ?

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AForm1", 395, 447, 694, 280)
$Find = FileFindFirstFile("C:\Dokumente und Einstellungen\Lenny\Eigene Dateien\Meine Musik\*.mp3")
$liste = GUICtrlCreateList($find , 0, 24, 393, 409)
$Button1 = GUICtrlCreateButton("Schließen", 152, 0, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

[/autoit]

Danke im Vorraus ...

Ich hab doch ein List (GUICtrlCreateList($find , 0, 24, 393, 409)
oder noch was anderes ?

Lenny

hallo ihr!
Warscheinlich wurde diese frage schon oft gestellt ... allerdings habe ich nichts passendes in der suche gefunden!

also: Ich möchte einen script machen, der mir anzeigt welche Dateien (in meinem falle *.mp3 dateien) in einem ordner sind, und diese in einer liste anzeigt!
wenn ich dann auf einen Titel klicke soll sich mein standart mediaplayer öffnen!

Ich höffe ihr könnt mir helfen!

Vielen Dank im Vorraus ... Mfg Lenny

Lenny

Hallo!
Könnte ich was verbessern oder weiter Funktionen einbau3n ?

Danke ... Lenny

Lenny

Hallo!
Ich habe mal wieder nichts Sinnvolles programmiert!
Mit diesem Programm kann man die Windows System-Zeit und das System-Datum komfortabel umstellen!

Leider konnte ich die .zip Datei noch nicht hochladen, weil sich dann mein router immer Aufhängt!

Per E-mail könnte ich ihn allerdings verschicken!

Was kann ich verbessern ?

Mfg Lenny! =)

Ich hoffe damit ist der Autoit Code gemeint

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include<date.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Time & Date Changer", 270, 112, 193, 115)
$Label1 = GUICtrlCreateLabel("Stellen sie die zeit im folgenden Format ein: HH.MM.SS ", 0, 0, 266, 17)
$Label1 = GUICtrlCreateLabel("Stellen sie das Datum im Format ein :DD.MM.YY", 0, 56, 234, 17)
$Input1 = GUICtrlCreateInput("", 0, 24, 33, 21)
$Input2 = GUICtrlCreateInput("", 40, 24, 33, 21)
$Input3 = GUICtrlCreateInput("", 80, 24, 33, 21)
$Input4 = GUICtrlCreateInput("", 0, 80, 33, 21)
$Input5 = GUICtrlCreateInput("", 40, 80, 33, 21)
$Input6 = GUICtrlCreateInput("", 80, 80, 33, 21)
$Button1 = GUICtrlCreateButton("Übernehmen", 128, 24, 129, 17, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$ihour = GUICtrlRead($Input1)
$iminute = GUICtrlRead($Input2)
_SetTime($ihour, $iminute)
$iday = GUICtrlRead($Input4)
$imonth = GUICtrlRead($Input5)
$iyear = GUICtrlRead($Input6)
_SetDate($iday, $imonth, $iyear)
send("!{f4}")
EndSwitch
WEnd

[/autoit]

wie gesagt ... ganz simpel =)

Lenny

Super! Vielen Dank =)

Lenny

Hallo ihr!

Ich bins mal wieder =)

Ich habe eine Frage Zur input box! :

Ich möchte eine Inputbox machen wo man etwas bestimmtest eingeben muss... also ein passwort!

Wenn man das passwort eingibt zB. "Hallo" soll man auf eine internetseite weiter geleitet werden zB https://autoit.de/www.autoit.de!

wenn man was anderes soll nur eine msnbox erscheinen

Wäre soetwas irgentwie möglich ?

Vielen Dank im Vorraus ... =) Lenny

Lenny

Halllo Black Psycho!
Bei mir funktioniert er einwand frei!
Und auf einem anderen Vista rechner auch!

Jetzt habe ich mal wieder eine Frage!°-°

Kann man es irgentwie hinbekommen das irgentwo der Titel und interprät vom lied beim mp3-player steht?

Vielen Dank im Vorraus!

Lenny

Hallo ihr!
Ich präsentiere meinen fast fertigen Mediaplayer....Oo pls keine negativen kommentare!

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.2.4.9
Author: myName

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

Script Function:
Template AutoIt script.

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

#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here
#include <sound.au3>
#include <GUIConstants.au3>
$antwort = MsgBox(0, "MediaPlayer", "Datei öffnen!")
$file = FileOpenDialog('','','musik-dat (*.wav;*.mp3)', 1)
_SoundOpen($file, "bla")
_SoundPlay("bla")
#Region ### START Koda GUI section ### Form=C:\Programme\Valve\dfdsf.kxf
$Form1 = GUICreate("MediaPlayer", 633, 97, 193, 114, BitOR($WS_MINIMIZEBOX,$WS_CAPTION,$WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS))
GUISetCursor (3)
GUISetBkColor(0xA6CAF0)
$Button1 = GUICtrlCreateButton("Play", 26, 8, 81, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "comic sans ms")
$Button2 = GUICtrlCreateButton("Before", 126, 8, 81, 25, 0)
$Button3 = GUICtrlCreateButton("Next", 226, 8, 81, 25, 0)
$Button4 = GUICtrlCreateButton("Pause", 326, 8, 81, 25, 0)
$Button5 = GUICtrlCreateButton("Repeat", 426, 8, 81, 25, 0)
$Button6 = GUICtrlCreateButton("Exit", 526, 8, 81, 25, 0)
$Slider1 = GUICtrlCreateSlider(35, 64, 553, 25)
GUICtrlSetData(-1, 50)
GUICtrlSetCursor ($Slider1, 3)
$Icon1 = GUICtrlCreateIcon("", 0, 8, 8, 49, 49, BitOR($SS_NOTIFY,$WS_GROUP))
GUISetState(@SW_SHOW)
GUICtrlSetCursor($Slider1, 3)
#EndRegion ### END Koda GUI section ###
$l = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_SoundResume("bla")
Case $Button2
Case $Button3
_SoundClose("bla")
$file = FileOpenDialog('','','musik-dat (*.wav;*mp3)', 1)
_SoundOpen($file, "bla")
_SoundPlay("bla", 0)
Case $Button4
_soundpause("bla")
Case $Button5
_SoundClose("bla")
_SoundOpen($file, "bla")
_SoundPlay("bla", 0)
Case $Button6
WinClose("MediaPlayer")
Case $Slider1
SoundSetWaveVolume(50)
SoundSetWaveVolume(GUICtrlRead($Slider1))
EndSwitch
WEnd

[/autoit]

Nur das mit dem before bekomme ich nicht hin ! aber ich möchte keine Hilfe sondern selber schaffen!

Wie ist er bis jetzt?? (wenn man bedenkt das ich ein total noob bin!)

Vielen dank im Vorraus

mfg Lenny

Lenny

Hallo!
Ich bin 13 Jahre alt gehe auf ein Gymnasium und doch ich verstehe was er mir sagen will ! XD

Also ich bin ein 13 Jähriger gymnasiast der eine Frage hat:

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.2.4.9
Author: myName

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

Script Function:
Template AutoIt script.

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

#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here
#NoTrayIcon
#include <Date.au3>
#include <GUIConstants.au3>
#include <Sound.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Player", 636, 124, 197, 126, BitOR($WS_CAPTION,$WS_BORDER,$WS_CLIPSIBLINGS))
$Button1 = GUICtrlCreateButton("RePlay", 368, 20, 65, 33, 0)
$Pausebutton = GUICtrlCreateButton("&Pause", 432, 20, 65, 33, 0)
$Button3 = GUICtrlCreateButton("&Next", 496, 20, 65, 33, 0)
$Button4 = GUICtrlCreateButton("&Open", 560, 20, 65, 33, 0)
$Button5 = GUICtrlCreateButton("EXIT", 24, 20, 41, 25, 0)
$Volume = GUICtrlCreateSlider(0, 100, 640, 25)
GUICtrlSetData(-1, 50)
GUISetCursor (3)
GUISetBkColor(0x000000)

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

$Input1 = GUICtrlCreateInput("Notizen:", 88, 16, 249, 57)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1 ; Hier verstehe ich nicht warum "Keine Datei geöffnet" auch erscheint wenn man eine geöffnet hat Oo warscheinlich wieder einer
Dim $re = 0 ;von meinen blöden fehlern^^
IF $re = 1 Then
SoundPlay($re)
Else
If $re = 0 Then
MsgBox(64, "Error", "Keine Datei geöffnet!")
EndIf
EndIf

Case $Pausebutton ;|
Dim $Pause = 0 ;|
If $pause = 1 Then ;|
_SoundResume($re) ;|
$pause = 0 ;| ; und das hier habe ich doch genau nach seiner Beschreibung gemacht ..! ?
Else ;|
_SoundPause($re) ;|
$pause = 1 ;|
EndIf ;|
Case $Button4
$re = FileOpenDialog('','','Mp3-Files (*.mp3;*.wav)', 1)
If @error = 2 Then
MsgBox(0, "Error", "The file does not exist")
Exit
ElseIf @error = 3 Then
MsgBox(0, "Error", "The alias was invalid")
Exit
ElseIf @extended <> 0 Then
$extended = @extended
$errorstring = DllCall("winmm.dll","int","mciGetErrorStringA","str",$extended,"str","","int",65534,"hwnd",0)
MsgBox(0, "Error", "The open failed." & @CRLF & "Error Number: " & $extended & @CRLF & "Error Description: " & $errorstring[2] & @CRLF & "Please Note: The sound may still play correctly.")
Else
MsgBox(0, "Success", "The file opened successfully")
EndIf

Case $Volume
SoundSetWaveVolume(100)
Case $Button5
WinClose("Player")
MsgBox(0,'',"The time is:" & _NowTime())
EndSwitch
SoundSetWaveVolume(GUICtrlRead($Volume))
WEnd

[/autoit]

Vielen Dank im Vorraus!

PS: ich habe mich jetzt 100 % mit den schleifen und 'if' dinger befasst!

@über mir Google übersetzung ist besser aber danke ... hast du ein Konto wo ich das Geld überweisen kann für die nächsten übersetzungen ? XD

Lenny

Lenny

Dein

[autoit]

Case $Pausebutton
If $pause = 1 Then
_SoundResume($re)
$pause = 0
Else
_SoundPause($re)
$pause = 1
EndIf

[/autoit]

Funzt irgentwie nicht ! Naya ich glaube ich bin zu Blöd!
Error:
Varialbe used without being declared ...

Spoiler anzeigen

[autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
SoundPlay($re)

Case $Pausebutton
If $pause = 1 Then
_SoundResume($re)
$pause = 0
Else
_SoundPause($re)
$pause = 1
EndIf
Case $Button4
$re = FileOpenDialog('','','Mp3-Files (*.mp3;*.wav)')

Case $Button3

SoundPlay($re)
Case $Volume
SoundSetWaveVolume(100)
Case $Button5
WinClose("Player")

EndSwitch
SoundSetWaveVolume(GUICtrlRead($Volume))
WEnd

[/autoit]

Könnte mir den mal jemand einfache anfangs Aufgaben geben?

Naya ich versuche mal wat!
Edit: Also ich habe jetzt mit einem sehr simplen Prog angefangen:

Ein Fenster, zwei Buttons, der eine heißt OPEN und der andere PLAY/PAUSE ich habe OPEN schon hinbekommen und PLAY auch und an PAUSE arbeite ich gerade !

Danke für deine Hilfe !!!

(und mutivation :]) XD

Naya das müsse doch auch mit deinem "

Spoiler anzeigen

[autoit]

Case $Pausebutton
If $pause = 1 Then
_SoundResume($re)
$pause = 0
Else
_SoundPause($re)
$pause = 1
EndIf

[/autoit]

"
gehen ... !

Danke

Beiträge von Lenny

Kann man Tastatur Anschläge...

dateien Lesen!

dateien Lesen!

dateien Lesen!

AutoIt.de <> TS²

AutoIt.de <> TS²

AutoIt.de <> TS²

dateien Lesen!

dateien Lesen!

dateien Lesen!

dateien Lesen!

dateien Lesen!

Komfortabler Time & Date changer!

Komfortabler Time & Date changer!

InputBox - Frage

InputBox - Frage

GUI - Musik - Lautstärke!

GUI - Musik - Lautstärke!

GUI - Musik - Lautstärke!

GUI - Musik - Lautstärke!