Beiträge von Jasfar
-
-
alpines Das schaut echt leicht, schnell und einfach aus, danke für den Tipp!
-
Falls du nur was zum Faden brauchst, und nicht selbst Programmieren möchtest hab ich hier noch nen älteres Projekt von mir: MusikPlayer mit Equalizer,Playlist, etc.
Damit kann man Lieder abspielen und auch Faden (mit bestimmter Zeit,...), mehrere Playlists, Equalizer, Streams,...
Eventuell solltest du dir auch VirtualDJ mal ansehen
Vielen Dank!
Ich hab mir die Version 3 mal heruntergeladen, die UDFs ins Include Verzeichnis gezogen, bekomme aber leider eine Fehlermeldung:
"C:\Users\mschaefer\Documents\MusicIt\Bass.au3" (158) : ==> Duplicate function name.:
Func _BASS_Startup($sBassDLL = "")
-
Vielen Dank für die Einführung, damit sollte ich klar kommen
BananaJoe Mit Audacity habe ich das früher gemacht, allerdings wenn das fertig geschnitten ist, gibt es das Problem, dass man nie genau weiß wie lange die verschiedenen Feuertools brennen, das kommt immer drauf an, deswegen muss man Flexibel sein können was die Musik angeht. Wir haben immer abwechselnd Leute hintern, die die Show im Blick haben und wissen wann das Feuer bald ausgeht, und so das nächste Lied faden können um einen flüssigen Ablauf zu gewährleisten
-
Hallo zusammen,
ich habe leider beim suchen nicht wirklich etwas gefunden, außer die bass UDF.
Ich würde gerne folgendes realisieren:
Und zwar möchte ich gerne 2 MP3 Dateien gleichzeitig abspielen können und zwar in unterschiedlicher Lautstärke.
Hintergrund ist folgender:
Ich habe am Freitag einen Feuerschow Auftritt und habe dafür mehrere Musikstücke, diese sollen teilweise gleichzeitig Laufen, teilweiße Soundeffekte abspielen, sobald ein Button dafür gedrückt wird.
Allerdings habe ich bisher noch nie etwas in dieser Richtung geschrieben, deswegen wollte ich einfach mal um ein paar Denkanstöße bitten
Vielen Dank schon einmal!
-
Ich danke die vielmals!!
Durch dein Script bin ich auf den Fehler bei mir gestoßen, die Variable $username war das GUI Control, ich hätte $read_username setzen müssen
Ich werde mir dein Script aber mal genauer anschauen und es dann umsetzen, vielen Dank für deine Unterstützung
-
Ah, den neuen Beitrag erst jetzt gesehen, werde das gleich einmal ausprobieren, danke dir
-
Das kopieren hat leider auch nicht funktioniert...
Ich poste einmal das komplette Script, vl. hilft das weiter
C
Alles anzeigen;***************************************** ;Datenübertragung.au3 by mschaefer ;Erstellt mit ISN AutoIt Studio v. 1.06 ;***************************************** ; -- Created with ISN Form Studio 2 for ISN AutoIt Studio -- ; #include <StaticConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Include <GuiButton.au3> #include <EditConstants.au3> #include <ProgressConstants.au3> $mypcname = @ComputerName $gui = GUICreate("Datenübertraung",492,217,-1,-1,-1,-1) GUICtrlCreateLabel("Alter PC:",20,30,106,15,-1,-1) GUICtrlSetBkColor(-1,"-2") $olddns = GUICtrlCreateLabel($mypcname,142,30,170,15,-1,-1) GUICtrlSetBkColor(-1,"-2") GUICtrlCreateLabel("Neuer PC:",20,69,106,15,-1,-1) GUICtrlSetBkColor(-1,"-2") Global $newpc = GUICtrlCreateInput("",162,64,150,20,-1,$WS_EX_CLIENTEDGE) Global $username = GUICtrlCreateInput("",162,107,150,20,-1,$WS_EX_CLIENTEDGE) GUICtrlCreateLabel("Benutzername:",20,112,106,15,-1,-1) GUICtrlSetBkColor(-1,"-2") $button = GUICtrlCreateButton("Übertragung starten",20,157,142,30,BitOr($BS_CENTER,$BS_MULTILINE),-1) ;~ $status = GUICtrlCreateLabel("",180,170,235,15,-1,-1) GUICtrlSetBkColor(-1,"-2") GUISetState(@SW_SHOW,$gui) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $button $gui2 = GUICreate("REAL Administator Passwort",390,132,-1,-1,-1,-1) GUICtrlCreateLabel("Bitte die ADM-Zugangsdaten eingeben:",10,10,358,15,-1,-1) GUICtrlSetBkColor(-1,"-2") GUICtrlCreateLabel("Benutzername:",10,37,95,15,-1,-1) GUICtrlSetBkColor(-1,"-2") GUICtrlCreateLabel("Passwort:",10,60,95,15,-1,-1) GUICtrlSetBkColor(-1,"-2") $admuser = GUICtrlCreateInput("",131,32,150,20,-1,$WS_EX_CLIENTEDGE) $admpw = GUICtrlCreateInput("",131,55,150,20,$ES_PASSWORD,$WS_EX_CLIENTEDGE) $admbutton = GUICtrlCreateButton("OK",131,88,100,30,-1,-1) GUISetState(@SW_SHOW,$gui2) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $admbutton $read_newpc = GUICtrlRead($newpc) $read_admuser = GUICtrlRead($admuser) $read_admpw = GUICtrlRead($admpw) $read_user = GUICtrlRead($username) GUIDelete($gui) $a = DriveMapAdd("A:","\\" & $read_newpc & "\C$\Users\" & $read_user,0,"real\" & $read_admuser,$read_admpw) $read_admuser = "anmkrthon4q3foi aödhfnq4aficvoaöqARUITRH)NVUDFADFAOFHAJERHABFJKBABFbfajksdfhbhqiubakjbf" $read_admpw = "amdsifnarignajdfghanrguvafdlkvgnafldi5tut84wih539084tifhernotuih3498thweurt3948trhwuth34trrhw348t3n" If @error = 1 Then MsgBox(16,"Datenübertragungsfehler","Fehlercode: 1 " & @CRLF & "Undefinierter / anderer Fehler. " & @CRLF & "Fehlercode der Windows API:" & @CRLF & @extended,0) ElseIf @error = 2 Then MsgBox(16,"Datenübertragungsfehler","Fehlercode: 2 " & @CRLF & "Der Zugriff auf die Remote-Freigabe wurde verweigert.",0) ElseIf @error = 3 Then MsgBox(16,"Datenübertragungsfehler","Fehlercode: 3 " & @CRLF & "Dieses Gerät ist bereits zugewiesen.",0) ElseIf @error = 4 Then MsgBox(16,"Datenübertragungsfehler","Fehlercode: 4 " & @CRLF & "Der Gerätename ist ungültig.",0) ElseIf @error = 5 Then MsgBox(16,"Datenübertragungsfehler","Fehlercode: 5 " & @CRLF & "Ungültige Remote-Freigabe.",0) ElseIf @error = 6 Then MsgBox(16,"Datenübertragungsfehler","Fehlercode: 6 " & @CRLF & "Ungültiger Benutzername oder Passwort.",0) ElseIf @error = 0 Then GUIDelete($gui2) $gui3 = GUICreate("Datenübertragung läuft...",422,78,-1,-1,-1,-1) $progress = GUICtrlCreateProgress(10,10,403,20,$PBS_SMOOTH ,-1) $progressbutton = GUICtrlCreateButton("OK",162,40,100,30,-1,-1) GUICtrlSetState(-1,BitOr($GUI_SHOW,$GUI_DISABLE)) GUISetState(@SW_SHOW,$gui3) ;Daten übertragen $olddrive = "C:\Users\" & $username $newdrive = "A:\" If DirCopy($olddrive & "\Desktop",$newdrive & "\Desktop\",1) Then GUICtrlSetData($progress,10) Else MsgBox(16,"Datenübertragunsfehler","Dateien vom Desktop konnten nicht kopiert werden.") EndIf $copy_bilder = FileCopy($olddrive & "\Pictures\*.*",$newdrive & "\Pictures\",1) If $copy_bilder = 1 then GUICtrlSetData($progress,20) ElseIf $copy_bilder = 0 Then MsgBox(16,"Datenübertragungsfehler",'Datein von "Bilder" konnten nicht kopiert werden.') EndIf $copy_dokumente = FileCopy($olddrive & "\Documents\*.*",$newdrive & "\Documents\",1) If $copy_dokumente = 1 Then GUICtrlSetData($progress,30) ElseIf $copy_dokumente = 0 Then MsgBox(16,"Datenübertragungsfehler",'Dateien von "Dokumente" konnten nicht kopiert werden.') EndIf $copy_download = FileCopy($olddrive & "\Downloads\*.*",$newdrive & "\Downloads\",1) If $copy_download = 1 Then GUICtrlSetData($progress,40) ElseIf $copy_download = 0 Then MsgBox(16,"Datenübertragungsfehler",'Dateien von "Downloads" konnten nicht kopiert werden.') EndIf $copy_fav = FileCopy($olddrive & "\Favorites\*.*",$newdrive & "\Favorites\",1) If $copy_fav = 1 Then GUICtrlSetData($progress,50) ElseIf $copy_fav = 0 Then MsgBox(16,"Datenübertragungsfehler",'Dateien von "Favorieten" konnten nicht kopiert werden.') EndIf $copy_contact = FileCopy($olddrive & "\Contacts\*.*",$newdrive & "\Contacts\",1) If $copy_contact = 1 Then GUICtrlSetData($progress,60) ElseIf $copy_contact = 0 Then MsgBox(16,"Datenübertragungsfehler",'Dateien von "Kontakte" konnten nicht kopiert werden.') EndIf $copy_links = FileCopy($olddrive & "\Links\*.*",$newdrive & "\Links\",1) If $copy_links = 1 Then GUICtrlSetData($progress,70) ElseIf $copy_links = 0 Then MsgBox(16,"Datenübertragungsfehler",'Dateien von "Links" konnten nicht kopiert werden.') EndIf $copy_music = FileCopy($olddrive & "\Music\*.*",$newdrive & "\Music\",1) If $copy_music = 1 Then GUICtrlSetData($progress,80) ElseIf $copy_music = 0 Then MsgBox(16,"Datenübertragungsfehler",'Dateien von "Musik" konnten nicht kopiert werden.') EndIf $copy_video = FileCopy($olddrive & "\Videos\*.*",$newdrive & "\Videos\",1) If $copy_video = 1 Then GUICtrlSetData($progress,90) ElseIf $copy_video = 0 Then MsgBox(16,"Datenübertragungsfehler",'Dateien von "Videos" konnten nicht kopiert werden.') EndIf $copy_ffbackup = FileCopy($olddrive & "\AppData\Roaming\Mozilla\Firefox\Profiles\*.*",$newdrive & "\FIREFOX BACKUP\",8) If $copy_ffbackup = 1 Then GUICtrlSetData($progress,95) ElseIf $copy_ffbackup = 0 Then MsgBox(16,"Datenübertragungsfehler",'Dateien von "Firefox Backup" konnten nicht kopiert werden.') EndIf Sleep(250) DriveMapDel("A:") GUICtrlSetData($progress,100) Sleep(100) GUICtrlSetState($progressbutton,$GUI_ENABLE) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE ;~ Exit Case $progressbutton Exit EndSwitch WEnd EndIf EndSwitch WEnd EndSwitch WEnd
-
Danke für die Antwort!
Hat leider auch nicht funktioniert. Es kommt wieder eine Fehlermeldung.
-
Hallo zusammen,
nach langem muss ich mal wieder was in au3 schreiben, da wir auf Arbeit aber momentan viel zutun haben, benötige ich Hilfe bei einem einfachen Programm.
Es geht darum, dass wir nach einem Rechnertausch schnell die Daten per Script auf den neuen Rechner übertragen wollen. Dafür wird auf dem alten Rechner der neue als Laufwerk eingebunden. Funktioniert alles problemlos.
Nun ist es aber so, dass bei der Datenübertragung immer ein Fehler auftritt. Wahrscheinlich ist es ein Anfängerfehler, aber ich komme leider trotzdem nicht weiter.
Hier einmal das Script ab dem Zeitpunkt des Fehlers:
Code
Alles anzeigen;Daten übertragen $olddrive = "C:\Users\" & $username $newdrive = "A:\" $copy_desktop = FileCopy($olddrive & "\Desktop\*.*",$newdrive & "\Desktop\",1) If $copy_desktop = 1 Then GUICtrlSetData($progress,10) ElseIf $copy_desktop = 0 Then MsgBox(16,"Datenübertragunsfehler","Dateien vom Desktop konnten nicht kopiert werden.") EndIf $copy_bilder = FileCopy($olddrive & "\Pictures\*.*",$newdrive & "\Pictures\",1) If $copy_bilder = 1 then GUICtrlSetData($progress,20) ElseIf $copy_bilder = 0 Then MsgBox(16,"Datenübertragungsfehler",'Datein von "Bilder" konnten nicht kopiert werden.') EndIf $copy_dokumente = FileCopy($olddrive & "\Documents\*.*",$newdrive & "\Documents\",1) If $copy_dokumente = 1 Then GUICtrlSetData($progress,30) ElseIf $copy_dokumente = 0 Then MsgBox(16,"Datenübertragungsfehler",'Dateien von "Dokumente" konnten nicht kopiert werden.') EndIf $copy_download = FileCopy($olddrive & "\Downloads\*.*",$newdrive & "\Downloads\",1) If $copy_download = 1 Then GUICtrlSetData($progress,40) ElseIf $copy_download = 0 Then MsgBox(16,"Datenübertragungsfehler",'Dateien von "Downloads" konnten nicht kopiert werden.') EndIf $copy_fav = FileCopy($olddrive & "\Favorites\*.*",$newdrive & "\Favorites\",1) If $copy_fav = 1 Then GUICtrlSetData($progress,50) ElseIf $copy_fav = 0 Then MsgBox(16,"Datenübertragungsfehler",'Dateien von "Favorieten" konnten nicht kopiert werden.') EndIf $copy_contact = FileCopy($olddrive & "\Contacts\*.*",$newdrive & "\Contacts\",1) If $copy_contact = 1 Then GUICtrlSetData($progress,60) ElseIf $copy_contact = 0 Then MsgBox(16,"Datenübertragungsfehler",'Dateien von "Kontakte" konnten nicht kopiert werden.') EndIf $copy_links = FileCopy($olddrive & "\Links\*.*",$newdrive & "\Links\",1) If $copy_links = 1 Then GUICtrlSetData($progress,70) ElseIf $copy_links = 0 Then MsgBox(16,"Datenübertragungsfehler",'Dateien von "Links" konnten nicht kopiert werden.') EndIf $copy_music = FileCopy($olddrive & "\Music\*.*",$newdrive & "\Music\",1) If $copy_music = 1 Then GUICtrlSetData($progress,80) ElseIf $copy_music = 0 Then MsgBox(16,"Datenübertragungsfehler",'Dateien von "Musik" konnten nicht kopiert werden.') EndIf $copy_video = FileCopy($olddrive & "\Videos\*.*",$newdrive & "\Videos\",1) If $copy_video = 1 Then GUICtrlSetData($progress,90) ElseIf $copy_video = 0 Then MsgBox(16,"Datenübertragungsfehler",'Dateien von "Videos" konnten nicht kopiert werden.') EndIf $copy_ffbackup = FileCopy($olddrive & "\AppData\Roaming\Mozilla\Firefox\Profiles\*.*",$newdrive & "\FIREFOX BACKUP\",8) If $copy_ffbackup = 1 Then GUICtrlSetData($progress,95) ElseIf $copy_ffbackup = 0 Then MsgBox(16,"Datenübertragungsfehler",'Dateien von "Firefox Backup" konnten nicht kopiert werden.') EndIf
Auf die einzelnen Ordner hat man Zugriff, auch die Pfade habe ich überprüft, allerdings scheitert das immer wieder aufs neue
Für Hilfe bin ich sehr Dankbar
-
Hallo zusammen,
im Moment habe ich ein recht großes Projekt vor mir, ein Managerspiel...
Bisher klappte auch alles Problemlos. Ich kann ein Spiel starten und bekomme die entsprechenden Grafiken angezeigt. Ich kann einzellne Punkte auf einer Karte ansteuern usw. Doch jetzt hänge ich und komme seit zwei Tagen nicht mehr weiter...Hier das Problem:
Ich habe eine Karte, welche normal als Hintergrundgrafik angelegt ist. Die Karte hat einige Punkte welche mit Unsichtbaren Labels angeklickt werden können (GUISetOnEventMode, 1). Beim Ansteuern soll folgendes Passieren:
Neben dem Objekt wird ein Fenster erstellt indem man verschiedene Optionen hat: Gehört es keinem, kann man es Kaufen, gehört es mir kann ich es betreten und gehört es dem Gegner kann ich es Angreifen. Das erstellen des Fensters mit GDI+ war kein Problem (habe mich zum ersten mal an GDI+ versucht und durch Tutorials war das kein Problem).
Jetzt habe ich aber folgenden Wunsch.. Drückt man irgendwo auf die Karte soll das Fenster verschwinden (funktioniert mit _IsPressed)
Drückt man aber innerhalb des Fensters auf einen Button soll eine neue Funktion aufgerufen werden.Ich zeig euch hierzu mal die Funktion:
Spoiler anzeigen
AutoIt
Alles anzeigenFunc toObj($ObjID) Opt("GUIOnEventMode", 0) Sleep(100) $mousepos = MouseGetPos() $InfoGui = GUICreate("InfoGui",200,200,$mousepos[0],$mousepos[1], $WS_POPUP, -1,$game) GUISetState() _GDIPlus_Startup() $GDIInfoGui = _GDIPlus_GraphicsCreateFromHWND($InfoGui) $red = _GDIPlus_BrushCreateSolid(0xF7FFB0B0) $redpen = _GDIPlus_PenCreate(0xF7FF0000, 3) $green = _GDIPlus_BrushCreateSolid(0xF7C2FFB0) $greenpen = _GDIPlus_PenCreate(0xF74DFF00,3) $gray = _GDIPlus_BrushCreateSolid(0xF7E6E6E6) $graypen = _GDIPlus_PenCreate(0xF78A8A8A,3) ; Überprüfen des Objekts und setzen der richtigen Farbe $owner = IniRead(@ScriptDir & "\tmpsave.shg","Game","Obj" & $ObjID,"0") If $towner = 0 Then ; Gehört keinem _GDIPlus_GraphicsFillRect($GDIInfoGui,0,0,1100,800,$gray) _GDIPlus_GraphicsDrawRect($GDIInfoGui,0,0,199,199,$graypen) _GDIPlus_GraphicsDrawRect($GDIInfoGui,50,50,100,40,$graypen) ;_GDIPlus_GraphicsDrawString($GDIInfoGui,"KAUFEN",50,50) ElseIf $toiletowner = 1 Then ; Gehört Spieler _GDIPlus_GraphicsFillRect($GDIInfoGui,0,0,1100,800,$green) _GDIPlus_GraphicsDrawRect($GDIInfoGui,0,0,199,199,$greenpen) ElseIf $toiletowner = 2 Then ; Gehört Gegner _GDIPlus_GraphicsFillRect($GDIInfoGui,0,0,1100,800,$red) _GDIPlus_GraphicsDrawRect(GDIInfoGui,0,0,199,199,$redpen) EndIf WinSetTrans("InfoGui","",220) _GDIPlus_GraphicsDrawString(GDIInfoGui,"Obj " & $ObjID & " Informationen",25,10,"Comic Sans MS",12) $buttontest = _GUICtrlButton_Create($InfoGui,"KAUFEN",50,50,100,40) While 1 Switch GuiGetMsg() Case $buttontest MsgBox(0,"","Bestanden") EndSwitch If _IsPressed("01") Then _GDIPlus_BrushDispose($red) _GDIPlus_BrushDispose($green) _GDIPlus_BrushDispose($gray) _GDIPlus_GraphicsDispose($GDIInfoGui) _GDIPlus_PenDispose($redpen) _GDIPlus_PenDispose($greenpen) _GDIPlus_PenDispose($graypen) _GDIPlus_Shutdown() GUIDelete($InfoGui) Opt("GUIOnEventMode", 1) ExitLoop EndIf WEnd EndFunc
Ich würde mich freuen wenn mir jemand helfen könnte oder mir vielleicht eine einfacherer oder elegantere Lösung zeigt
Liebe Grüße
Marvin -
Kenne da auch noch eine kleine Wette die man auf jeden Fall gewinnt^^
Bietet einem Freund eine Wette an indem ihr sagt: "Ich Wette mit dir, wenn du stehen bleibst und ich einmal um die herumlaufe wirst du keine Hose mehr anhaben." Sollte er das nicht mitmachen wollen sagt ihm, dass ihr in nicht berühren werdet.
Willigt er die Wette ein geh einfach langsam um ihn herum, er wird euch gespannt und irritiert dabei ansehen, allein der Blick ist es Wert. Danach stellt euch vor ihn, ihr habt die Wette gewonnen.
Denn: Er Stand mit einer Hose da, ihr seid um ihn herum gelaufen, er steht weiterhin nur mit einer Hose da, er hat also keine Hose mehr an, mehr im sinne von keine weitere Hose. -
Hi,
versuch mal den Fehler herauszufinden wenn du nicht die exe startest, sondern deine au3 Datei. Dann bekommst du die entsprechende Fehlerzeile angezeigt.
-
Auch von mir ein freundliches Hallo und Willkommen!
-
Mein wunsch wurde erfüllt
Dann bekommst du natürlich auch deinen Hirncomputer... Allerdings hat er nun auch Bedürfnisse, die du wohl jetzt erfüllen musst, bist du nicht lieb zu ihm verweigert er das arbeiten
Ich wünsche mir meinen bestandenen Jagdschein und Falknerschein
-
Den PC mit Spiel bekommt deine Freundin. Allerdings wird sie süchtig nach dem Spiel und ihr seht euch im realen Leben niemals wieder
Ich wünsche mir Feierabend
-
Super vielen Dank
-
Hallo, und danke für die wirklich sehr schnelle Antwort^^
Müssen die Clients und der Server in einem Netzwerk sein oder können Clients welche sich nicht im selben Netzwerk befinden auch auf den Server zugreifen?
Das mit der Sicherheit, nunja gut, ...
Vl. fällt mir da irgendwas ein, mir schwirren da schon diverse Dinge im Kopf... Würde das ganze dann zwar nicht unüberwindbar machen, aber etwas aufwändiger^^LG
-
Hallo zusammen,
ich habe es noch nicht ausprobiert, aber einfach mal eine Grundlegende Frage zu den TCP - Möglichkeiten in AutoIt.
Geplant ist ein Server/Client System. Der Server soll alle TCP - Anfragen der Clients verwalten und dementsprechend Aufgaben ausführen (Daten speichern etc.), allerdings sollen auch die Clients die Möglichkeit haben TCP - Anfragen vom Server zu erhalten. Nachdem was ich bisher gelesen habe, sollte das soweit erstmal kein Problem darstellen.
Meine Frage ist jetzt folgende:
Die IP Adresse des Servers ändert sich nicht. Die der Clients können sich aber natürlich jederzeit ändern bzw. es können jederzeit neue dazu kommen. Über eine Art "Login - System" wird die neue IP - Adresse an den Server übermittelt.
Frage nun ist allerdings, da es sich nicht um ein Netzwerk handelt sondern es auch über das Internet funktionieren soll, was beachtet werden muss damit es funktioniert. Was für mögliche Sicherheitsrisiken gibt es und wie kann man diese "absichern"?
Wie viele Clients lassen sich über TCP mittels AutoIt gleichzeitig verwalten? Hat jemand bereits Erfahrung mit einem ähnlichen Vorhaben gemacht?Ich bedanke mich schon jetzt recht herzlich für eure Antworten
-
Hallo, danke für eure Antworten!
Ich habe mir eure Systeme mal angesehen und wir haben uns für Mantis entschieden, einfach und sauber
Natürlich wird AutoIt verwendet, und natürlich werden wir zumindest die "Client" - Seite OpenSource handhaben. Den entsprechenden Server dazu erstmal nicht, das wird evtl. später OpenSource.