Blöde Frage: Was wird am meisten verwendet?
Beiträge von Stevenx
-
-
Danke für euer Feedback. Muss jetzt aber lernen, unsere Lehrer in Österreich brummen uns jetzt im letzten Monat viel auf .
Falls mir wer helfen will, ich bräuchte die anderen Tasten als MP3 oder WAV. Danke! -
Hallo Leute,
hab jetzt auch mein 2tes Skript fertig: The Simple Piano Simulator. In diesem Programm spielt ihr ein Klavier durch das obere Nummernblock.
Wie funktioniert das?
Wie oben beschrieben muss man einfach nur die Tasten 1 bis ß drücken, um eine "Klaviertaste" zu betätigen.
Geplant:
Noch mehr Töne
Bessere GUI
Aufnahmefunktion
"Spielen" lernenIm Anhang findet ihr 2 zip-Dateien. Das Pojekt muss mit dem anderen Verzeichniss in einem Ordner sein.
Viel Spass!
-
Sorry wollte nicht ein 2tes Thread eröffnen. Script Backup:
[autoit]#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit][autoit][/autoit][autoit]
#AutoIt3Wrapper_outfile=Backup.exe
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------Program Version: 4.0
[/autoit][autoit][/autoit][autoit]
Author: StevenX Media Company 2011; By Stefan Blagojevic; Copyright: "Geistiges Eigentum"Program Name: User Backup Starter
[/autoit][autoit][/autoit][autoit][/autoit][autoit]#ce ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit][/autoit][autoit]SoundPlay( @ScriptDir & '\Sounds\ProgramStart.mp3', 0)
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\stefan\documents\stevenx media\ubs version 4\data\images\backup.kxf
$Form1_1 = GUICreate("User Backup Starter Version 4", 625, 443, 192, 123)
$MenuItem1 = GUICtrlCreateMenu("&UBS")
$Exit = GUICtrlCreateMenuItem("UBS Beenden", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenu("&?")
$Help = GUICtrlCreateMenuItem("Hilfe", $MenuItem2)
$About = GUICtrlCreateMenuItem("Über", $MenuItem2)
$OneClick = GUICtrlCreateButton("One-Click Backup", 88, 48, 449, 137, $WS_GROUP)
$Erweitert = GUICtrlCreateButton("Erweiterter Modus", 48, 200, 521, 193, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Exit
Exit
Case $GUI_EVENT_CLOSE
GUISetState(@SW_DISABLE)
Case $Erweitert
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Erweitert", 184, 454, 193, 129)
$Label1 = GUICtrlCreateLabel("Erweiterter Modus", 8, 32, 89, 17)
$Quelle = GUICtrlCreateButton("Quelle", 8, 80, 163, 33, $WS_GROUP)
$Ziel = GUICtrlCreateButton("Ziel", 8, 136, 163, 33, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("Wann?", 8, 200, 39, 17)
$one = GUICtrlCreateRadio("1-mal", 8, 224, 113, 17)
$day = GUICtrlCreateRadio("Täglich", 8, 248, 113, 17)
$week = GUICtrlCreateRadio("Wöchentlich", 8, 272, 113, 17)
$start = GUICtrlCreateButton("Speichern und Backup", 0, 312, 177, 73, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitCase $Quelle
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
$QuelleOrdner = FileSelectFolder( 'Wählen Sie die Quelle aus.', '', 1)
Case $Ziel
$ZielOrdner = FileSelectFolder( 'Wählen Sie das Ziel aus.', '', 1)
Case $oneCase $day
[/autoit][autoit][/autoit][autoit]IniWrite( @ScriptDir & '\Settings.ubsset', 'Time-plan', 'Day', @YEAR & '/' & @MON & '/' & @MDAY)
[/autoit][autoit][/autoit][autoit]
Case $week
IniWrite( @ScriptDir & '\Settings.ubsset', 'Time-plan', 'Week', @YEAR & '/' & @MON & '/' & @MDAY)
Case $start$Copy = DirCopy( $Quelle, $Ziel, 1)
[/autoit][autoit][/autoit][autoit]
MsgBox( 0+64, 'Fertig', 'Backup ist fertig!')EndSwitch
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
WEndCase $OneClick
[/autoit][autoit][/autoit][autoit]$var = IniRead(@ScriptDir & '\Settings.ubsset', "1A", "Folder", "Nicht Gefunden")
[/autoit][autoit][/autoit][autoit]
$Ergebnisfrage = MsgBox( 4+64, 'Ergebnis', 'Ziel: <' & $var & '> Damit zufrieden?')
If $Ergebnisfrage = 6 Then
MsgBox( 0, 'Sie haben <Ja> gedrueckt', 'Backup wird gestartet...')
SoundPlay( @ScriptDir & '\Sounds\Start.mp3', 0)ShellExecute( 'C:\Windows\System32\cmd.exe')
[/autoit][autoit][/autoit][autoit]
WinWaitActive ("C:\Windows\System32\cmd.exe")
Send( 'robocopy ')
Send( @UserProfileDir & '\Music ')
Send( $var & '\UBS\Music')
Send( ' /MIR{ENTER}')Sleep( 5000)
[/autoit][autoit][/autoit][autoit]ShellExecute( 'C:\Windows\System32\cmd.exe')
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
WinWaitActive ("C:\Windows\System32\cmd.exe")Send( 'robocopy ')
[/autoit][autoit][/autoit][autoit]
Send( @UserProfileDir & '\Videos ')
Send( $var & '\UBS\Videos')
Send( ' /MIR{ENTER}')Sleep( 5000)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]ShellExecute( 'C:\Windows\System32\cmd.exe')
[/autoit][autoit][/autoit][autoit]
WinWaitActive ("C:\Windows\System32\cmd.exe")Send( 'robocopy ')
[/autoit][autoit][/autoit][autoit]
Send( @UserProfileDir & '\Documents ')
Send( $var & '\UBS\Documents')
Send( ' /MIR{ENTER}')Sleep( 5000)
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]ShellExecute( 'C:\Windows\System32\cmd.exe')
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
WinWaitActive ("C:\Windows\System32\cmd.exe")Send( 'robocopy ')
[/autoit][autoit][/autoit][autoit]
Send( @UserProfileDir & '\Downloads ')
Send( $var & '\UBS\Downloads')
Send( ' /MIR{ENTER}')Sleep( 5000)
[/autoit][autoit][/autoit][autoit]ShellExecute( 'C:\Windows\System32\cmd.exe')
[/autoit][autoit][/autoit][autoit]
WinWaitActive ("C:\Windows\System32\cmd.exe")Send( 'robocopy ')
[/autoit][autoit][/autoit][autoit]
Send( @UserProfileDir & '\Pictures ')
Send( $var & '\UBS\Pictures')
Send( ' /MIR{ENTER}')
Sleep( 5000)Else
[/autoit][autoit][/autoit][autoit]
$Ziel1 = FileSelectFolder( 'Sie sind nicht zufrieden. Wählen Sie Ihr Ziel aus, dieses wird gespeichert und verwendet.', '', 1)
IniWrite( @ScriptDir & '\Settings.ubsset', '1A', 'Folder', $Ziel1)
SoundPlay(@ScriptDir & '\Sounds\Start.mp3')
ShellExecute( 'C:\Windows\System32\cmd.exe')
WinWaitActive ("C:\Windows\System32\cmd.exe")
Send( 'robocopy ')
Send( @UserProfileDir & '\Music ')
Send( $Ziel1 & '\UBS\Music')
Send( ' /MIR{ENTER}')Sleep( 5000)
[/autoit][autoit][/autoit][autoit]ShellExecute( 'C:\Windows\System32\cmd.exe')
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
WinWaitActive ("C:\Windows\System32\cmd.exe")Send( 'robocopy ')
[/autoit][autoit][/autoit][autoit]
Send( @UserProfileDir & '\Videos ')
Send( $Ziel1 & '\UBS\Videos')
Send( ' /MIR{ENTER}')Sleep( 5000)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]ShellExecute( 'C:\Windows\System32\cmd.exe')
[/autoit][autoit][/autoit][autoit]
WinWaitActive ("C:\Windows\System32\cmd.exe")Send( 'robocopy ')
[/autoit][autoit][/autoit][autoit]
Send( @UserProfileDir & '\Documents ')
Send( $Ziel1 & '\UBS\Documents')
Send( ' /MIR{ENTER}')Sleep( 5000)
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]ShellExecute( 'C:\Windows\System32\cmd.exe')
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
WinWaitActive ("C:\Windows\System32\cmd.exe")Send( 'robocopy ')
[/autoit][autoit][/autoit][autoit]
Send( @UserProfileDir & '\Downloads ')
Send( $Ziel1 & '\UBS\Downloads')
Send( ' /MIR{ENTER}')Sleep( 5000)
[/autoit][autoit][/autoit][autoit]ShellExecute( 'C:\Windows\System32\cmd.exe')
[/autoit][autoit][/autoit][autoit]
WinWaitActive ("C:\Windows\System32\cmd.exe")Send( 'robocopy ')
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
Send( @UserProfileDir & '\Pictures ')
Send( $Ziel1 & '\UBS\Pictures')
Send( ' /MIR{ENTER}')
Sleep( 5000)EndIf
[/autoit][autoit][/autoit][autoit]Case $About
[/autoit][autoit][/autoit][autoit]
MsgBox( 0+64, 'Über', 'User Backup Starter Version 4; By Stefan Blagojevic, StevenX Media, office@StevenX.at.tf')EndSwitch
[/autoit][autoit][/autoit][autoit][/autoit][autoit]WEnd
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit] -
Da "DirCopy" nicht alles kopieren kann wegen Schreibschutz. Benutzerdateien kann man nur über BATCH kopieren.
Script angehängt.
-
Kann mir bitte wer helfen?
-
Ich will, dass die Konsole über "SEND" Backup macht, und in der GUI kann man den Fortschritt sehen.
-
Hi Leute,
ich schreib grad einen Klaviersimulator. Bei mir funktioniert Hotkeyset nicht. Kann mir wer helfen?
[autoit]#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]
#AutoIt3Wrapper_outfile=TSPS-Start.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
Program Name: The Simple Piano Simulator
Program Version: 1.0
Author: The StevenX Media Company; Stefan Blagojevic; [email='office@StevenX.at.tf'][/email]#ce ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]#include <GUIConstantsEx.au3>
[/autoit][autoit][/autoit][autoit]
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("The Simple Piano Simulator", 625, 443, 192, 124)
$Pic1 = GUICtrlCreatePic("C:\Users\Stefan\Documents\StevenX Media\The Simple Piano Simulator\Default.jpg", 8, 0, 593, 377, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Press a key", 296, 400, 59, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEndHotKeySet( 'A', 'A')
[/autoit][autoit][/autoit][autoit]Func A()
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]
SoundPlay( @ScriptDir & '\Keys\1.mp3')
EndFunc -
Mit der Extended Edition sind solche Bugs behoben. Wie oben beschrieben, inntallieren und im Order Data den Activator ausführen und QWERTZ eingeben. Danach kannst du den Launcher öffnen. Vergiss aber beim Backup nicht, die Einstellungen zu speichern (Datei>Einstellungen speichern) sonst siehst du dein Backup nie wieder! Ich hoffe, wir können in Zukunft weiter zusammen arbeiten. Meine E-Mail findest du auf meiner Website StevenX.co.de unter Kontakt.
EDIT: Ich habe mich entschlossen, UBS als Open Source zu stellen. Es gibt zwei Gründe:
.) Ich bin minderjährig. Wis soll ich das Geld annehmen?
.) In der Standard Edition sind so viele Bugs, dass es sich nicht mehr auszahltWeitere Neuigkeiten über UBS findet ihr auf: stevenxgerman.blogspot.com
-
Achja, Extended Edition ist rausgekommen! Link und Anweisungen siehe OBEN!
-
Ja. Wie gefällt es dir?
-
User Backup Starter Extended Edition ist fertig! Ist aber noch im Testmodus. Änderungen:
-Setup
-Deutsch UND Englisch
-Menüleiste:
-Einstellungen
-Hilfe
-Speichert Ziel
-Man braucht eine Lizens. Autoit Gemeinschaft bekommt sie aber kostenlos!MFG,
StevenX
-
Ich weiss, das ist ne blöde frage: Wie macht man das "ÄT" Zeichen unter Linux?
-
Mein Desktop ist net besonders....
P.S. Hab Screenshot mit DeskShot gemacht! Kompliment, ist echt toll!
MFG,
StevenX
-
Mein Projekt ist schon 8 mal heruntergeladen worden!! Wie ist mein Programm? Ich bitte um Feedback, denn nur so kann es Updates geben!
MFG,
StevenX
-
So, es war mal ein hartes Stück Arbeit, aber ich hab mein erstes (Autoit-) Programm fertig, und dieses will ich mit euch teilen.
Eigenschaften:
Mit UBS könnt ihr mit viel Power Backups von deinen Userdateien erstellen - dank "Robocopy" von der Konsole von Windows.
Mit "BackupBack" könnt ihr dann eure Backups zurückkopieren.
Laufend neue Updates (das ist jetzt die 3te Version!!)
32- und 64-bit VersionenAus verschiedensten Gründen sind die Autoit Projekte und das Programm extra gepackt. Die .zip Datei musste ich auf RS hochloden (zu groß!). Ich hab allerdings die Forenregeln gelesen, und ich verdiene mit RS kein Geld!
ACHTUNG! Hab ich erst jetzt bemerkt. Wenn man nur die Projekte runterladet, dann wird die GUI nicht komplett angezeigt! Und wenn man auch das ganze Paket runterladet, funktioniert nicht alles! Also müsst ihr die Extended Edition runterladen (Dateinanhang; siehe unten)
Nach Installation in Ordner 'Data' vom Installationsverzeichnis gehen und 'Activator.exe' starten (als Administrator) und folgendes eingeben: 'QWERTZ'. Dann bestätigen. Fertig! Die Registry wird NICHT verändert!
Bugs:
Spoiler anzeigen
Bei Backup von '\Documents' will es auch noch '\Pictures' kopieren. Folge: 'Zugriff verweigert'. Macht aber nichts! Spätestens ab Extended kein Bug.
Ultimate Backup (NEU):
Ultimate Backup hat viele neue Funktionen:
() Update Funktion
() Neue GUI
() Statusbar
() Backup ohne CMDIch werde hier nur die erste Version uploaden, die nächsten könnt ihr ja direkt via Programm runterladen, ich will den Thread ja nicht zumüllen. Außerdem muss ich UB leider über RS hochladen, da das Programm zu groß ist.
Spoiler anzeigen
Feedback ist dringend erwünscht
-
Sorry für langsame Antwort, war grad am Experimentieren....
Ich hab deshalb keinen neuen Thread aufgemacht, weil ich weiß, wie das nervt wenn tausende Threads da sind.Ich will einen Startbildschirm für mein Programm machen und da hatte ich dieses Problem ich probier mal deinen Tipp.
-
[autoit]
#include <GUIConstantsEx.au3>
[/autoit][autoit][/autoit][autoit]
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Stefan\Documents\Programme\User Backup Starter Cache\Form von Startbildschirm_Launcher.kxf
$Form1 = GUICreate("User Backup Starter Launcher", 625, 427, 192, 124)
$Pic1 = GUICtrlCreatePic("C:\Users\Stefan\Documents\User Backup Starter x64\Data\Images\Logo2.jpg", 0, 0, 625, 361, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Bitte warten Sie einen Moment...", 224, 368, 157, 17)
$Label2 = GUICtrlCreateLabel("User Backup Starter Version 3.1 RC", 216, 408, 174, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit][autoit][/autoit][autoit]
Sleep( 5000)
GUIDelete()
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitSleep( 5000)
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]
GUIDelete()$Form1 = GUICreate("User Backup Starter Launcher", 625, 443, 192, 124)
[/autoit][autoit][/autoit][autoit]
$Backup = GUICtrlCreateButton("Backup Starten", 112, 80, 417, 137, $WS_GROUP)
$Backupback = GUICtrlCreateButton("Backup Back", 112, 232, 417, 137, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 2
[/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitCase $Backup
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
Case $Backupback
EndSwitch
WEndEndSwitch
[/autoit]
WEnd -
Die ' von $Zielordner hab ich gelöscht
-
[autoit]
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit][autoit][/autoit][autoit]
#AutoIt3Wrapper_outfile=..\..\BackupUltimate.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
MsgBox(0, 'Willkommen', 'Willkommen bei UBS Starter mit Benutzeroberfläche BETA. Da es nur exklusiv ist, geben Sie bitte die Geheimzahl ein!')
$Zahl = InputBox( 'Geheimzahl', 'Bitte Geheimzahleingeben')$Format ='Format Laufwerk:\Ordner. Benutzername: Laufwerk:\Users\Benutzername'
[/autoit][autoit][/autoit][autoit]If $Zahl = '4966' Then
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]
$Format ='Format Laufwerk:\Ordner. Benutzername: Laufwerk:\Users\Benutzername'
MsgBox(0, 'Richtig', 'Zahl ist richtig! Viel Spass!')
$Benutzerordner = InputBox( 'Benutzername?', 'Wie ist dein Benutzername?')
$Zielordner = FileSelectFolder( 'Wähle den Zielordner aus!', '', 1)
DirCopy( 'C:\Users\' & $Benutzerordner & '\Music', '$Zielordner', 1)
MsgBox(0, 'Fortschritt', 'Musik ist kopiert worden!')
DirCopy( 'C:\Users\' & $Benutzerordner & '\Videos', '$Zielordner',1)
DirCopy( 'C:\Users\' & $Benutzerordner & '\Downloads', '$Zielordner',1)
DirCopy( 'C:\Users\' & $Benutzerordner & '\Documents', '$Zielordner',1)
MsgBox(0, 'Abgeschlossen', 'Abgeschlossen! Programm wird beendet')Else
[/autoit]
MsgBox(0, 'Falsch', 'Zahl ist falsch!')
EndIf
Exit