Huhu ![]()
kann mir jemand helfen bei einem email script?
Wollte fragen ob es geht, das das script eine datei von meinem computer alle 5 minuten an eine email sendet.
und das script soll immer gestartet werden wenn der pc angemacht wird ![]()
hoffe ihr könnt mir helfen
Greetz
Texos aka. Dennis
Beiträge von Texos
-
-
Hallo,
[autoit]
kann mir vll. jemand helfen und mir sagen wieso dies hier nicht geht?
[/autoit][autoit][/autoit][autoit]
#includeOpt('MustDeclareVars', 1)
[/autoit][autoit][/autoit][autoit]
Example()Func Example()
[/autoit][autoit][/autoit][autoit]
Local $Button_1, $Button_2, $msg
GUICreate("Flächenberechnungen")Opt("GUICoordMode", 2)
[/autoit][autoit][/autoit][autoit]
$Button_1 = GUICtrlCreateButton("Quadrat", 10, 30, 100)
$Button_2 = GUICtrlCreateButton("Rechteck", 0, -1)GUISetState()
[/autoit][autoit][/autoit][autoit]While 1
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_1
$Zahl = InputBox("Quadratflächen-Berechnung","Länge/Breite = a bitte angeben. Bei einem Komma bitte . Benutzen ( z.B. 3.5 )")
$NeueZahl = $Zahl * $Zahl
MsgBox(0,"Ergebnis:","Die Fläche des Quadrates Beträgt " & $NeueZahl)
Case $msg = $Button_2
$Zahl = InputBox("Rechteckflächen-Berechnung","Länge = a bitte angeben. Bei einem Komma bitte . Benutzen ( z.B. 3.5 )")
$Zahl1 = InputBox("Rechteckflächen-Berechnung","Breite = b bitte angeben. Bei einem Komma bitte . Benutzen ( z.B. 2.5 )")
$NeueZahl = $Zahl * $Zahl1
MsgBox(0,"Ergebnis:","Die Fläche des Rechteckes Beträgt " & $NeueZahl)
EndSelect
WEnd
EndFuncPs: habe das problem gefunden... lag bei local, sry

-
Danke für deine Hilfe Bugfix
klappt
wenn nun der button Abspielen nicht belegt ist kommt keine fehlermeldung mehr, thx 
-
Brauche eure hilfe.Er zeigt mir nämlich an, das Endswitch kein Switch hat... Ich hab das doch darin
[autoit]
While 1
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $FuerDichMeinSchatzCase $Abspielen
[/autoit][autoit][/autoit][autoit][/autoit]
If FileExists ( "C:\lieder.ini" ) Then
If GUICtrlRead ( $Radio1 ) = $GUI_CHECKED Then
$LiedPfad=IniRead ("C:\lieder.ini", "lieder", "Radio1Lied", "keines" )
$a=SoundPlay ( $LiedPfad )
Endif
EndSwitch
WEnd
[autoit]
Vorher hat das so ausgesehen, habe nur etwas entfernt :While 1
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitCase $Abspielen
[/autoit][autoit][/autoit][autoit][/autoit]
If FileExists ( @ScriptDir&"\lieder.ini" ) Then
If GUICtrlRead ( $Radio1 ) = $GUI_CHECKED Then
$LiedPfad=IniRead (@ScriptDir&"\lieder.ini", "lieder", "Radio1Lied", "keines" )
$a=SoundPlay ( $LiedPfad )
ElseIf GUICtrlRead ( $Radio2 ) = $GUI_CHECKED Then
$LiedPfad=IniRead ( @ScriptDir&"\lieder.ini", "lieder", "Radio2Lied", "keines" )
SoundPlay ( $LiedPfad )
EndIf
Else
MsgBox ( 0, "Radios belegen", "Radios bitte vorher belegen" )
EndIf
EndSwitch
WEnd -
also bei mir funktioniert das auch tadelos

-
huhu
[autoit]
ich möchte gerne, das mein script die lieder.ini und das lied Future trance - face 2 face.mp3 auf die festplatte C:\ speichert (das klappt)
doch dann hier dasCase $Abspielen
[/autoit][autoit][/autoit][autoit]
If FileExists ( "C:\lieder.ini" ) Then
If GUICtrlRead ( $Radio1 ) = $GUI_CHECKED Then
$LiedPfad=IniRead ("C:\lieder.ini", "lieder", "Radio1Lied", "keines" )
$a=SoundPlay ( $LiedPfad )
ElseIf GUICtrlRead ( $Radio2 ) = $GUI_CHECKED Then
$LiedPfad=IniRead ("C:\lieder.ini", "lieder", "Radio2Lied", "keines" )
SoundPlay ( $LiedPfad )EndIf
[/autoit]
Else
MsgBox ( 0, "test", "test1" )
Endif
EndSwitch
WEnder greift irgendwie nicht auf die lieder.ini zu und spielt das lied nicht ab
habe doch alles richtig gemacht, wenn ihr das ganze script sehen wollt sagt bitte bescheid 
Edit: hab fehler gefunden.. war in der lieder ini noch der falsche pfad tut mir leid
-
also in der GUI sind links die Lieder die man andrücken kann(button) direkt rechts daneben soll dann ein Button mit dem Text : Lied auto. suchen : kommen.
Ganz rechts sind die Buttons für die Lieder abzuspielen , Leiser/Lauter zu machen.
Wenn man auf Lied auto. suchen drückt und er das lied findet, soll er in der lieder.ini den Pfad ändern sodass er das Lied direkt gespeichert hat.
Wenn er das Lied nicht findet, soll eine Msgbox kommen in der steht : Lied wurde nicht gefunden
Dann kann man in der Msgbox auf Lied suchen oder auf Abbrechen drücken-
Wäre nett wenn ihr mir dabei helfen könntet und euch mein Script anschaut. Das mit dem Einfügen in das Script bekomme ich noch nicht so ganz hin weil manche Zeilen geändert werden müssen und man es ja nicht direkt einfach untendrunter hängen kann in das Script^^
Mfg
-
ich bin jetzt duschen und dann geh ich bei meine freundin, bin aber davor noch kurz da und antworte wenn es geht, schau dir doch das script an also mach es in eine au3 script datei und schaus dir einfach an
dann weißt du bestimmt wie ich es meine
mfg, bis gleich -
danke
aber wie füge ich das nun in mein script ein? -
Also^^
Ich möchte gerne in meinem Script haben, dass mein script auf meiner festplatte C , falls vorhanden D nach dem Lied sucht, welches in meinem Script angegeben ist.
Wenn ich dann z.B. mein Compiliertes Script starte, sagt er zuerst: Radios bitte vorher belegen.
Links in der Tabelle habe ich schon Lieder angegeben und möchte, wenn z.B. das Lied FloRider - Right Round heißt , soll er auf dem Pc nach der Datei FloRider - Right Round.mp3 suchen und es dann in die lieder.ini eintragen, sodass das script weiß wo sich die datei befindet und nicht nocheinmal den pc durchsuchen muss.
Wenn er Das Lied dann gefunden hat soll auch der Buttontext in der ersten Zeile geändert werden und zwar zum Liedtitel.
Wenn das Script aber die Datei nicht findet, soll es einfach weiter nach anderen Liedern suchen ,weiter einfügen und bei den Liedern die es nicht gefunden hat hinschreiben : Lied nicht gefunden
Ps: die lieder.ini habe ich in mein script per fileinstall installiert und wird immer automatisch nach C:\ gespeichert -
-
vielen dank =)
ich freue mich das ihr mich alle unterstützt. ist halt mein erstes radio welches ich mache
ich danke euch allen für eure hilfe
eine frage: wenn man die radios belegt, kann man irgendwie etwas einfügen das er auf dem Computer automatisch nach dem Lied sucht wie man es genannt hat wenn er es nicht findet am anfang?
dann kann ich es einem freund noch senden und dann kann ich die datei compilen und er muss nurnoch starten, weil ich ja leider immer die titel in der gui von den liedern dann ändern muss(weil ich ab und zu neue lieder reinbring) und den pfad weil er bei ihm anders ist :/... wenn er dann das lied nicht findet soll er an der stelle in der gui anzeigen (Lied nicht gefunden)
wenn so etwas ginge wäre ich natürlich dankbar wenn mir jemand helfen kann =)
Hier ist nun meine Datei, funktioniert alles prima bis auf das was ich noch gefragt habeSpoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Geheimtitel", 633, 447, 400, 229)
$Radio1 = GUICtrlCreateRadio("01 - test1", 56, 48, 160, 17)
$Radio2 = GUICtrlCreateRadio("02 - test2", 56, 72, 160, 17)
$Radio3 = GUICtrlCreateRadio("03 - test3", 56, 96, 160, 17)
$Radio4 = GUICtrlCreateRadio("04 - test4", 56, 120, 160, 17)
$Radio5 = GUICtrlCreateRadio("05 - test5", 56, 144, 160, 17)
$Radio6 = GUICtrlCreateRadio("06 - test6", 56, 168, 160, 17)
$Radio7 = GUICtrlCreateRadio("07 - test7", 56, 192, 160, 17)
$Radio8 = GUICtrlCreateRadio("08 - test8", 56, 216, 160, 17)
$Radio9 = GUICtrlCreateRadio("13 - test9", 56, 240, 160, 17)
$Radio10 = GUICtrlCreateRadio("12 - test10", 56, 264, 160, 17)
$Radio11 = GUICtrlCreateRadio("10 - test11", 56, 288, 160, 17)
$Radio12 = GUICtrlCreateRadio("09 - test", 56, 312, 160, 17);buttons
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Abspielen = GUICtrlCreateButton("Abspielen", 480, 50, 113, 25)
$Lauter = GUICtrlCreateButton("Lauter", 480, 75, 133, 25)
$Leiser = GUICtrlCreateButton("Leiser", 480, 100, 133, 25)
$RadiosBelegen = GUICtrlCreateButton("Lieder belegen", 480, 125, 113, 25)
;
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit][/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Lauter
Send("{VOLUME_UP 10}")
Case $Leiser
Send("{VOLUME_DOWN 10}")
Case $RadiosBelegen
$pfad=FileOpenDialog ( "Lied 1 auswählen", @ScriptDir, "Musik (*.wav;*.mp3)" )
IniWrite ( @ScriptDir&"\lieder.ini", "lieder", "Radio1Lied", $pfad ) ; speichern
$pfad=FileOpenDialog ( "Lied 2 auswählen", @ScriptDir, "Musik (*.wav;*.mp3)" )
IniWrite ( @ScriptDir&"\lieder.ini", "lieder", "Radio2Lied", $pfad ) ; speichern
$pfad=FileOpenDialog ( "Lied 3 auswählen", @ScriptDir, "Musik (*.wav;*.mp3)" )
IniWrite ( @ScriptDir&"\lieder.ini", "lieder", "Radio3Lied", $pfad ) ; speichern
$pfad=FileOpenDialog ( "Lied 4 auswählen", @ScriptDir, "Musik (*.wav;*.mp3)" )
IniWrite ( @ScriptDir&"\lieder.ini", "lieder", "Radio4Lied", $pfad ) ; speichern
$pfad=FileOpenDialog ( "Lied 5 auswählen", @ScriptDir, "Musik (*.wav;*.mp3)" )
IniWrite ( @ScriptDir&"\lieder.ini", "lieder", "Radio5Lied", $pfad ) ; speichern
$pfad=FileOpenDialog ( "Lied 6 auswählen", @ScriptDir, "Musik (*.wav;*.mp3)" )
IniWrite ( @ScriptDir&"\lieder.ini", "lieder", "Radio6Lied", $pfad ) ; speichern
$pfad=FileOpenDialog ( "Lied 7 auswählen", @ScriptDir, "Musik (*.wav;*.mp3)" )
IniWrite ( @ScriptDir&"\lieder.ini", "lieder", "Radio7Lied", $pfad ) ; speichern
$pfad=FileOpenDialog ( "Lied 8 auswählen", @ScriptDir, "Musik (*.wav;*.mp3)" )
IniWrite ( @ScriptDir&"\lieder.ini", "lieder", "Radio8Lied", $pfad ) ; speichern
$pfad=FileOpenDialog ( "Lied 9 auswählen", @ScriptDir, "Musik (*.wav;*.mp3)" )
IniWrite ( @ScriptDir&"\lieder.ini", "lieder", "Radio9Lied", $pfad ) ; speichern
$pfad=FileOpenDialog ( "Lied 10 auswählen", @ScriptDir, "Musik (*.wav;*.mp3)" )
IniWrite ( @ScriptDir&"\lieder.ini", "lieder", "Radio10Lied", $pfad ) ; speichern
$pfad=FileOpenDialog ( "Lied 11 auswählen", @ScriptDir, "Musik (*.wav;*.mp3)" )
IniWrite ( @ScriptDir&"\lieder.ini", "lieder", "Radio11Lied", $pfad ) ; speichern
$pfad=FileOpenDialog ( "Lied 12 auswählen", @ScriptDir, "Musik (*.wav;*.mp3)" )
IniWrite ( @ScriptDir&"\lieder.ini", "lieder", "Radio12Lied", $pfad ) ; speichern
Case $Abspielen
If FileExists ( @ScriptDir&"\lieder.ini" ) Then
If GUICtrlRead ( $Radio1 ) = $GUI_CHECKED Then
$LiedPfad=IniRead ( @ScriptDir&"\lieder.ini", "lieder", "Radio1Lied", "keines" )
$a=SoundPlay ( $LiedPfad )
ElseIf GUICtrlRead ( $Radio2 ) = $GUI_CHECKED Then
$LiedPfad=IniRead ( @ScriptDir&"\lieder.ini", "lieder", "Radio2Lied", "keines" )
SoundPlay ( $LiedPfad )
ElseIf GUICtrlRead ( $Radio3 ) = $GUI_CHECKED Then
$LiedPfad=IniRead ( @ScriptDir&"\lieder.ini", "lieder", "Radio3Lied", "keines" )
SoundPlay ( $LiedPfad )
ElseIf GUICtrlRead ( $Radio4 ) = $GUI_CHECKED Then
$LiedPfad=IniRead ( @ScriptDir&"\lieder.ini", "lieder", "Radio4Lied", "keines" )
SoundPlay ( $LiedPfad )
ElseIf GUICtrlRead ( $Radio5 ) = $GUI_CHECKED Then
$LiedPfad=IniRead ( @ScriptDir&"\lieder.ini", "lieder", "Radio5Lied", "keines" )
SoundPlay ( $LiedPfad )
ElseIf GUICtrlRead ( $Radio6 ) = $GUI_CHECKED Then
$LiedPfad=IniRead ( @ScriptDir&"\lieder.ini", "lieder", "Radio6Lied", "keines" )
SoundPlay ( $LiedPfad )
ElseIf GUICtrlRead ( $Radio7 ) = $GUI_CHECKED Then
$LiedPfad=IniRead ( @ScriptDir&"\lieder.ini", "lieder", "Radio7Lied", "keines" )
SoundPlay ( $LiedPfad )
ElseIf GUICtrlRead ( $Radio8 ) = $GUI_CHECKED Then
$LiedPfad=IniRead ( @ScriptDir&"\lieder.ini", "lieder", "Radio8Lied", "keines" )
SoundPlay ( $LiedPfad )
ElseIf GUICtrlRead ( $Radio9 ) = $GUI_CHECKED Then
$LiedPfad=IniRead ( @ScriptDir&"\lieder.ini", "lieder", "Radio9Lied", "keines" )
SoundPlay ( $LiedPfad )
ElseIf GUICtrlRead ( $Radio10 ) = $GUI_CHECKED Then
$LiedPfad=IniRead ( @ScriptDir&"\lieder.ini", "lieder", "Radio10Lied", "keines" )
SoundPlay ( $LiedPfad )
ElseIf GUICtrlRead ( $Radio11 ) = $GUI_CHECKED Then
$LiedPfad=IniRead ( @ScriptDir&"\lieder.ini", "lieder", "Radio11Lied", "keines" )
SoundPlay ( $LiedPfad )
ElseIf GUICtrlRead ( $Radio12 ) = $GUI_CHECKED Then
$LiedPfad=IniRead ( @ScriptDir&"\lieder.ini", "lieder", "Radio12Lied", "keines" )
SoundPlay ( $LiedPfad )
EndIf
Else
MsgBox ( 0, "Radios belegen", "Radios bitte vorher belegen" )
EndIf
EndSwitch
WEnd -
z.B. bei https://autoit.de/www.BigFM.de
wenn man bigfm hören will und auf winamp klickt kann man die datei runterladen. wenn man sie startet dann läuft alles über den wmp
ach und noch eine frage, hoffe ich nerve euch nicht
kann man auch einfügen, dass man neber Lied 1 drück auf den Button durchsuchen und man dann das lied suchen kann und dann mit ok bestätigen kann, somit es dann in dem Button Lied 1 gespeichert ist?
Edit: muss nun off, ich danke euch das ihr mir alle geholfen habt =)
bis heute abend =) -
es ist ein online radio . man kann die datei runterladen und über wmp hören, es wird zum server geleitet und man braucht halt internet dafür^^
-
ich bekomm es einfach nicht hin =(
[autoit]
stimmt das hier so?#include <ButtonConstants.au3>
[/autoit][autoit][/autoit][autoit]
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>#Region ### START Koda GUI section ### Form=
[/autoit][autoit][/autoit][autoit]
$Form1 = GUICreate("Form1", 633, 447, 400, 229)
$Radio1 = GUICtrlCreateRadio("Radio 1", 56, 48, 113, 17)
$Radio2 = GUICtrlCreateRadio("Radio 2", 56, 72, 113, 17)
$Abspielen = GUICtrlCreateButton("Abspielen", 56, 100, 113, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Abspielen
If GUICtrlRead ( $Radio1 ) = $GUI_CHECKED Then
SoundPlay ( "D:\Lieder\Madcon - Beggin.mp3" )
ElseIf GUICtrlRead ( $Radio2 ) = $GUI_CHECKED Then
SoundPlay ( "C:\Users\Komotz\Desktop\listen.m3u" )
EndIfEndSwitch
[/autoit]
WEnd -
WoW danke =)
aber wie öffnet er jetz die Datei wenn ich auf radio 1 drücke : C:\Benutzer\Komotz\Desktop\bigfm-cbr-128 ?
wo kann ich dies einfügen? -
Vielen dank für deine schnelle antwort

bekomme es aber immernoch nicht hin
er sagt incorrect number of parameter...
Hier das hab ich geändert:Spoiler anzeigen
[autoit]Func _WM_COMMAND()
[/autoit] [autoit][/autoit] [autoit][/autoit]
If GUICtrlRead($radio1) = $GUI_CHECKED Then
FileOpen("C:\Benutzer\Komotz\Desktop\bigfm-cbr-128.m3u")
Else
MsgBox(64, 'Info:', 'You clicked on Radio 2 and it is Checked.')
EndIf
EndFunc -
Hallo, ich habe ein Problem und bekomme mein Radio nicht zum laufen.
Hier mein Code :Spoiler anzeigen
[autoit]#include
[/autoit] [autoit][/autoit] [autoit]Opt('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit]Example()
[/autoit] [autoit][/autoit] [autoit]Func Example()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Local $radio1, $radio2, $msg
[/autoit] [autoit][/autoit] [autoit]
GUICreate("My GUI radio")
$radio1 = GUICtrlCreateRadio("Radio 1", 10, 10, 120, 20)
$radio2 = GUICtrlCreateRadio("Radio 2", 10, 40, 120, 20)
GUICtrlSetState($radio2, $GUI_CHECKED)GUISetState()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $radio1 And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED
FileOpen("C:\Benutzer\Komotz\Desktop\bigfm-cbr-128")
Case $msg = $radio2 And BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED
MsgBox(64, 'Info:', 'You clicked on Radio 2 and it is Checked.')
EndSelect
WEndEndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit]
Wenn ich auf Radio 1 drücke, kommt eine Fehlermeldung.
Ich möchte, wenn ich auf den Button Radio 1 drücke, das er das Lied öffnet und abspielt.
Das ich halt von Radio zu Radio wechseln kann.
Ihr könnt euch den Quelltext kopieren und selber mal schauen.
Ach und noch eine frage, ginge es auch das das Lied direkt über die GUI läuft? Das wäre viel viel besser =)
Ich hoffe doch das mir jemand helfen kann und dafür wäre ich sehr Dankbar
-
korrigiert^^
[autoit]
geht aber leider nichtWhile 1
[/autoit][autoit][/autoit][autoit]
Sleep(4900)$sLinkText = 'http://german-diablo-players.de/downloads.php'
[/autoit]
; Den Suchtext finden und daraus nur "Hier" zurückgeben.
$ptnLinkText = '(?:Um den Downloadlink zu starten, drücken sie bitte) (Hier)(?:)'
$asLinkText = StringRegExp ($sLinkText, $ptnLinkText, 3)
; Wenn Suchtext gefunden ...
If (IsArray ($asLinkText)) Then _
_ArrayDisplay ($asLinkText)
Wend
hab noch eine andere frage und die wäre :
bei $ptnLinkText = '(?:Um den Downloadlink zu starten, drücken sie bitte) (Hier)(?:)' ist es ja so Klammer , url , klammer
Was ist wenn es so ist? : $ptnLinkText = '(?:Um den Downloadlink zu starten, (drücken) sie bitte) (Hier)(?:)'
Also wenn noch eine Klammer darin ist es aber keine url ist? -
Achsooo..
Dankeschöön =)) ich teste