1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. autoBert

Beiträge von autoBert

  • IniWrite mit Variable

    • autoBert
    • 22. Januar 2010 um 18:08

    Hallo Schnitzel,

    Zitat von Schnitzel

    weil er sicherlich nach deinem post immer noch nicht verstanden hat woher die 24 kommt

    Zitat von AutoBert

    $input1 ist eine Variable, welche die ID des Conrols enthält. Um den Inhalt des Controls zu schreiben, musst du diesen mi GuiCtrlRead auslesen, also so:

    Was ist daran nicht zu verstehen :?:

    mfg (Auto)Bert

  • IniWrite mit Variable

    • autoBert
    • 22. Januar 2010 um 17:43

    Hallo

    Zitat von Schnitzel

    zum verständnis:
    die 24 ist die control id. beim erstellen wird jedem control eine id zugewiesen damit man sie nachher auch ansprechen und abfragen kann.

    war doch schon gelöst siehe Post #2 und #3,

    mfg (Auto)Bert

  • Kopieren des Temp Ordners in ein anderen Ordner mit Hilfe von DirCopy unter Windows 7

    • autoBert
    • 22. Januar 2010 um 17:18

    Hallo Baron1977,

    Zitat von Baron1977

    ...
    ich habe den befehl als batch erstellt und damit funkioniert es, er ladet mir denn ganzen temp inhalt zum ziel . die batch habe ich peer autoit mit editor erstellt danach das er automatisch speichert und ausführt.


    warum gehst du den Umweg über eine Batch, falls es wegen dem sichtbaren cmd-Fenster ist, dass kann man auch vemeiden in dem man CopyWithProgress wie folgt abändert:

    [autoit]

    ;Zeile 10
    Run('XCOPY "'& $srcDir & '" "' & $destDir & '" /D /S /E /V /C /H /R /O /Y /F /G',@ScriptDir,@SW_HIDE )

    [/autoit]
    Zitat

    kann es sein wegen diese befehel : /D /S /E /V /C /H /R /O /Y /F /G ??????

    :?: aber hier die Bedeutung der gesetzten Parameter für den XCOPY-Befehl

    Code
    /D:M-T-J  Kopiert nur die an oder nach dem Datum geänderten Dateien.
                Da kein Datum angegeben, werden nur Dateien kopiert,
                die neuer als die bestehenden Zieldateien sind.
      /S        Kopiert Verzeichnisse und Unterverzeichnisse, die nicht leer sind.
      /E        Kopiert alle Unterverzeichnisse (leer oder nicht leer).
      /V        Überprüft jede neue Datei auf Korrektheit.
      /C        Setzt das Kopieren fort, auch wenn Fehler auftreten.
      /H        Kopiert auch Dateien mit den Attributen 'Versteckt' und 'System'.
      /R        Überschreibt schreibgeschützte Dateien. (eventuell entfernen)
      /O        Kopiert Informationen über den Besitzer und ACL.
      /X        Kopiert Dateiüberwachungseinstellungen (bedingt /O).
                  nicht gesetzt evtl. setzen
      /Y        Unterdrückt die Aufforderung zur Bestätigung, dass eine
                  vorhandene Zieldatei überschrieben werden soll.
                  praktisch aber evtl. entfernen, dann darf run aber nicht mit @SW_HIDE gestartet werden,
                  da sonst ein unsichtbares Fenster auf eine Eingabe wartet
      /F        Zeigt die Namen der Quell- und Zieldateien beim Kopieren an.
                  wenn mit @SW_HIDE gestartet unnötig, da Fenster unsichtbar
      /G        Ermöglicht das Kopieren von verschlüsselten Dateien auf ein
                  Ziel wo Verschlüsselung nicht unterstützt wird.
    Alles anzeigen

    mfg (Auto)Bert

  • Windows - automatische Computer Sperre aufheben

    • autoBert
    • 22. Januar 2010 um 16:39

    Hallo Mr_KARR,

    erst einmal hezlich willkommen im Forum und viel Spass mit AutoIt.

    Zitat

    Dort erscheint aber immer folgende Fehlermeldung:

    >"C:\Programme\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\...\monitorscript.au3"
    C:\...\monitorscript.au3 (87) : ==> Unknown function name.:
    AdlibEnable('_Check', 500)
    ^ ERROR
    >Exit code: 1 Time: 16.542

    Fehler treten auch auf, wenn ich das Script zu einer *.exe-Datei kompiliert habe ("Unknown Function Name").

    Das liegt daran das in der Zwischenzeit ein neues Release von AutoIt erschienen ist, so dass das Skript muss an 3.3.4.0 angepasst werden muss:

    Spoiler anzeigen
    [autoit]

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

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

    AutoIt Version: 3.3.0.0
    Author: funkey
    Edited by: Schnitzel
    Official Thread: https://autoit.de/index.php?page=Thread&threadID=14461

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

    Script Function:
    En-/Disabling Monitor

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

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

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

    #AutoIt3Wrapper_Res_LegalCopyright = ©funkey
    #AutoIt3Wrapper_Res_Fileversion = 2.0
    #AutoIt3Wrapper_Res_Description = Monitor-AutoStandby

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

    HotKeySet("^!{F11}", "_EnDisableCheck")
    HotKeySet("^!{F12}", "_EnDisableMonitor")

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

    Opt("TrayMenuMode", 1)
    Opt("TrayOnEventMode", 1)
    Opt('GUIOnEventMode', 1)

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

    Global Const $lciWM_SYSCommand = 274
    Global Const $lciSC_MonitorPower = 61808
    Global Const $lciPower_Off = 2
    Global Const $lciPower_On = -1

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

    Global $title= "Monitor-AutoStandby"
    Global $IniFile = @ScriptDir & '\Monitor-AutoStandby.ini'
    Global $aTime[14]

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

    Global $MonitorIsOff = False
    Global $EnableCheck = True

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

    GUICreate($title, 230, 280)
    GUISetOnEvent(-3, '_Exit')
    GUIRegisterMsg(0x004E, '_SaveTimes')

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

    GUICtrlCreateLabel('Monitor ein', 80, 10, 60, 20, 0x201)
    GUICtrlCreateLabel('Monitor aus', 150, 10, 60, 20, 0x201)

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

    GUICtrlCreateButton('Start', 70, 242, 90, 30)
    GUICtrlSetFont(-1, 16, 1000)
    GUICtrlSetOnEvent(-1, '_Start')

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

    For $i = 0 To 6
    GUICtrlCreateLabel(_Wochentag($i+1), 15, 30+30*$i, 60, 20, 0x200)
    $aTime[$i] = GUICtrlCreateDate(IniRead($IniFile, 'Ein', _Wochentag($i+1), "04:00"), 80, 30+30*$i, 60, 20, 0x09)
    GUICtrlSendMsg(-1, 0x1032, 0, "HH:mm")
    $aTime[$i+7] = GUICtrlCreateDate(IniRead($IniFile, 'Aus', _Wochentag($i+1), "20:00"), 150, 30+30*$i, 60, 20, 0x09)
    GUICtrlSendMsg(-1, 0x1032, 0, "HH:mm")
    Next

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

    TrayCreateItem('Einstellungen')
    TrayItemSetOnEvent(-1, '_Show')
    TrayCreateItem('')
    TrayCreateItem('Beenden')
    TrayItemSetOnEvent(-1, '_Exit')

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

    GUISetState()

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

    While 1
    Sleep(20000)
    WEnd

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

    Func _SaveTimes($hWnd, $Msg, $wParam, $lParam)
    $nNotifyCode = BitShift($wParam, 16)
    $nID = BitAND($wParam, 0x0000FFFF)
    $hCtrl = $lParam
    For $i = 0 To 6
    If $nID = $aTime[$i] Then
    IniWrite($IniFile, 'Ein', _Wochentag($i+1), GUICtrlRead($aTime[$i]))
    Return
    EndIf
    Next
    For $i = 7 To 13
    If $nID = $aTime[$i] Then
    IniWrite($IniFile, 'Aus', _Wochentag($i-6), GUICtrlRead($aTime[$i]))
    Return
    EndIf
    Next
    EndFunc

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

    Func _Start()
    GUISetState(@SW_HIDE)
    AdlibRegister('_Check', 500)
    EndFunc

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

    Func _Show()
    AdlibUnRegister()
    GUISetState(@SW_SHOW)
    EndFunc

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

    Func _Check()
    If $EnableCheck = True Then
    Local $Ein = IniRead($IniFile, 'Ein', _Wochentag(@WDAY), "04:00")
    Local $Hour_Ein = StringLeft($Ein, 2), $Min_Ein = StringRight($Ein, 2)
    Local $Aus = IniRead($IniFile, 'Aus', _Wochentag(@WDAY), "20:00")
    Local $Hour_Aus = StringLeft($Aus, 2), $Min_Aus = StringRight($Aus, 2)
    If $Ein = $Aus Then Return
    If @HOUR >= $Hour_Aus And @MIN >= $Min_Aus And $MonitorIsOff = False Then
    AdlibUnRegister()
    _Monitor_OFF()
    EndIf
    EndIf
    EndFunc

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

    Func _Wochentag($WDAY)
    Local $aWoTa[7] = ['Sonntag', 'Montag', 'Dienstag', 'Mittwoch', 'Donnerstag', 'Freitag', 'Samstag']
    Return $aWoTa[$WDAY -1]
    EndFunc

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

    Func _Monitor_ON()
    $MonitorIsOff = False
    Local $Progman_hwnd = WinGetHandle('[CLASS:Progman]')

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

    DllCall('user32.dll', 'int', 'SendMessage', _
    'hwnd', $Progman_hwnd, _
    'int', $lciWM_SYSCommand, _
    'int', $lciSC_MonitorPower, _
    'int', $lciPower_On)
    If $EnableCheck = True Then AdlibRegister('_Check', 500)
    EndFunc

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

    Func _Monitor_OFF()
    $MonitorIsOff = True
    Local $Progman_hwnd = WinGetHandle('[CLASS:Progman]')

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

    While $MonitorIsOff = True
    DllCall('user32.dll', 'int', 'SendMessage', _
    'hwnd', $Progman_hwnd, _
    'int', $lciWM_SYSCommand, _
    'int', $lciSC_MonitorPower, _
    'int', $lciPower_Off)
    _IdleWaitCommit(0)
    Sleep(20)
    WEnd
    EndFunc

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

    Func _IdleWaitCommit($idlesec)
    Local $iSave, $LastInputInfo = DllStructCreate ("uint;dword")
    DllStructSetData ($LastInputInfo, 1, DllStructGetSize ($LastInputInfo))
    DllCall ("user32.dll", "int", "GetLastInputInfo", "ptr", DllStructGetPtr ($LastInputInfo))
    Do
    $iSave = DllStructGetData ($LastInputInfo, 2)
    Sleep(60)
    DllCall ("user32.dll", "int", "GetLastInputInfo", "ptr", DllStructGetPtr ($LastInputInfo))

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

    Local $Ein = IniRead($IniFile, 'Ein', _Wochentag(@WDAY), "04:00")
    Local $Hour_Ein = StringLeft($Ein, 2), $Min_Ein = StringRight($Ein, 2)
    If @HOUR = $Hour_Ein And @MIN = $Min_Ein Then
    _Monitor_ON()
    EndIf

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

    Until (DllStructGetData ($LastInputInfo, 2)-$iSave) > $idlesec; Or $MonitorIsOff = False
    Return DllStructGetData ($LastInputInfo, 2)-$iSave
    EndFunc

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

    Func _Exit()
    _Monitor_ON()
    Exit
    EndFunc

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

    Func _EnDisableCheck()
    $EnableCheck = Not $EnableCheck
    MsgBox(0, "", "Zeitmodus: " & $EnableCheck)
    _Monitor_ON()
    EndFunc

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

    Func _EnDisableMonitor()
    $EnableCheck = False
    If $MonitorIsOff = True Then
    _Monitor_ON()
    Else
    _Monitor_OFF()
    EndIf
    EndFunc

    [/autoit]

    so lässt es sich fehlefrei kompilieren und ausführen (AdlibEnable => Adlib Register, AdlibDisable => AdlibUndregister). Auf meinem Netbook kann ich die Funktonalität aber nicht testen,

    mfg (Auto)Bert

  • Ini-Daten nutzen

    • autoBert
    • 22. Januar 2010 um 16:22

    Hallo SEuBo,

    Zitat von SEuBo

    Das liegt daran, dass du es einfach gestartet hast ohne zu überlegen:
    Die Ini Datei ist höchstwahrscheinlich nicht vorhanden (weil Beispiel);
    Ergo: IniReadSection gibt keinen Array zurück, was damit endet, dass das
    Beispielskript mit einer Fehlermeldung den Dienst quittiert.

    Du musst also auch eine vorhandene Ini Datei benutzen, um IniReadSection zu testen.

    Wenn keine INI vorhanden steigt das Beispiel aus der Hilfe aus. Ebenso wenn, die Section fehlt oder keine Key's enthält.

    @Rubberducky: ich kann deinen Fehler nicht nachvollziehen (ausser dass laut Fehlemeldung $var kein Array ist, diese passt aber nicht zum geposteten Skript, denn dass würde keine erzeugen ), poste also dein gesamtes Skript und die dazu gehörige Ini. Du kannst aber folgendes zur Vermeidung des Abruchs tun:

    [autoit]

    $var = IniReadSection("C:\Temp\meineDatei.ini", "sektion2")
    If @error or not isArray($var) Then
    MsgBox(4096, "", "Es ist ein Fehler aufgetreten. Warscheinlich keine INI Datei vorhanden, oder fehlerhaft")
    Else
    For $i = 1 To $var[0][0]
    MsgBox(4096, "", "Schlüssel: " & $var[$i][0] & @CRLF & "Wert: " & $var[$i][1])
    Next
    EndIf

    [/autoit]

    mfg (Auto)Bert

  • IniWrite mit Variable

    • autoBert
    • 22. Januar 2010 um 15:28

    Hallo bizzi,

    $input1 ist eine Variable, welche die ID des Conrols enthält. Um den Inhalt des Controls zu schreiben, musst du diesen mi GuiCtrlRead auslesen, also so:

    [autoit]

    IniWrite (@scriptdir & "\server.ini", "server", "ip", GuiCtrlRead($Input1))

    [/autoit]

    mfg (Auto)Bert

  • Gibt es eine SoundGetWaveVolume() func.?

    • autoBert
    • 22. Januar 2010 um 15:11

    Hallo Roggazzz,

    such mal im Forum Skripte nach Starplayer von Oscar , er hat meines Wissens nach soetwas eingebaut,

    mfg (Auto)Bert

  • Kopieren des Temp Ordners in ein anderen Ordner mit Hilfe von DirCopy unter Windows 7

    • autoBert
    • 22. Januar 2010 um 14:38

    Hallo Oscar,

    der Fehler liegt meines Erachtens in der Beschreibung zu DirCopy:

    Zitat

    Copies a directory and all sub-directories and files (Similar to xcopy).

    Das von mir in #6 gepostete Beispiel von CopyWithProgress (Original gigx siehe https://autoit.de/index.php?page…25989#post25989) verwendet xcopy und das Ergebnis ist das gleiche, es werden alle Dateien und Unterordner des Quellpfades in den Zielpfad kopiert. Wenn ich bei beiden den Zielpfad um AutoIt3 erweitere wird auch dieser Ordner im Zielpfad angelegt. Die Beschreibung müsste also heissen:

    Zitat

    Copies all files and all sub-directories with files from the sourcepath into the destinationpath (Similar to xcopy).

    dann würde das Ergebnis mit der Bescheibung übereinstimmen,

    mfg (Auto)Bert

  • Adresszeile beim Firefox auslesen

    • autoBert
    • 22. Januar 2010 um 02:55

    Hallo hexer,

    sorry link eingefügt siehe Post #2,

    mfg (Auto)Bert

  • Kopieren des Temp Ordners in ein anderen Ordner mit Hilfe von DirCopy unter Windows 7

    • autoBert
    • 22. Januar 2010 um 02:51

    Hallo Oscar ,

    ich bin mir nicht sicher ob dies ein Bug oder ein Verständnisproblem ist. Wenn ich folgendes Skript ausfüfre:

    [autoit]

    $sSource = 'c:\programme\autoit3'
    $sDest = 'c:\test'
    $ret = DirCopy($sSource, 'c:\test', 1)
    ConsoleWrite($ret & @CRLF)

    [/autoit]

    werden alle Dateien und Ordner korrekt kopiert, der Ordner des Quellpfades (c:\programme\autoit3) wird allerdings nicht im Zielpfad angelegt sondern nur seine Dateien und Unterordner.

    Zitat

    Eine Datei, die sich direkt in "BluetoothBTW" befindet (Pfad: "d:\temp\BluetoothBTW\test.bmp") wird hingegen nicht kopiert.

    Dies tritt bei mir nicht auf,

    mfg (Auto)Bert

  • Adresszeile beim Firefox auslesen

    • autoBert
    • 22. Januar 2010 um 02:19

    Hallo hexer,

    schau einmal URls bekommen an,

    mfg (Auto)Bert

  • Deutsche Hilfe - Funktionen ohne Beispiel

    • autoBert
    • 21. Januar 2010 um 23:39

    Hallo Tweaky,

    hier ein Beispiel zu der (sehr einfachen Func) _ScreenCapture_SetJPGQuality:

    [autoit]

    #include <ScreenCapture.au3>

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

    ; Capture full screen Quality 100%
    _ScreenCapture_Capture(@MyDocumentsDir & "\GDIPlus_Image_100Proz.jpg")
    ; Capture full screen Quality 50%
    _ScreenCapture_SetJPGQuality(50)
    _ScreenCapture_Capture(@MyDocumentsDir & "\GDIPlus_Image_50Proz.jpg")
    ; Capture full screen Quality 30%
    _ScreenCapture_SetJPGQuality(30)
    _ScreenCapture_Capture(@MyDocumentsDir & "\GDIPlus_Image_30Proz.jpg")
    ; Capture full screen Quality 20%
    _ScreenCapture_SetJPGQuality(20)
    _ScreenCapture_Capture(@MyDocumentsDir & "\GDIPlus_Image_20Proz.jpg")
    ; Capture full screen Quality 5%
    _ScreenCapture_SetJPGQuality(5)
    _ScreenCapture_Capture(@MyDocumentsDir & "\GDIPlus_Image_5Proz.jpg")

    [/autoit]


    Es zeigt auch (in den JPG's) dass man es mit der Kompression nicht übertreiben sollte,

    mfg (Auto)Bert

  • Drag and drop fehler

    • autoBert
    • 21. Januar 2010 um 21:08

    Hallo Jura,

    du solltest die includes auch zum download einstellen, da man ansonsten das Skript nicht starten kann:

    C
    >"C:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Programme\AutoIt3\Downloads\JuraX\MPlayer with Bass.au3" /autoit3dir "C:\Programme\AutoIt3" /UserParams    
    +>21:03:24 Starting AutoIt3Wrapper v.2.0.0.1    Environment(Language:0407  Keyboard:00000407  OS:WIN_XP/Service Pack 3  CPU:X86 OS:X86)
    >Running AU3Check (1.54.19.0)  from:C:\Programme\AutoIt3
    C:\Programme\AutoIt3\Downloads\JuraX\MPlayer with Bass.au3(6,10) : ERROR: can't open include file <Bass.au3>
    #include <Bass.au3>
    ~~~~~~~~~^
    C:\Programme\AutoIt3\Downloads\JuraX\MPlayer with Bass.au3(7,10) : ERROR: can't open include file <BassConstants.au3>
    #include <BassConstants.au3>
    ~~~~~~~~~^
    C:\Programme\AutoIt3\Downloads\JuraX\MPlayer with Bass.au3(42,67) : WARNING: $BASS_POS_BYTE: possibly used before declaration.
    $song_length = _BASS_ChannelGetLength($MusicHandle, $BASS_POS_BYTE)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Programme\AutoIt3\Downloads\JuraX\MPlayer with Bass.au3(101,20) : ERROR: syntax error
            $play_pause
    ~~~~~~~~~~~~~~~~~~~^
    C:\Programme\AutoIt3\Downloads\JuraX\MPlayer with Bass.au3(102,5) : ERROR: missing Wend.
        EndIf
    ~~~~^
    C:\Programme\AutoIt3\Downloads\JuraX\MPlayer with Bass.au3(100,35) : REF: missing Wend.
        If $progress_slider = 100 Then
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Programme\AutoIt3\Downloads\JuraX\MPlayer with Bass.au3(42,67) : ERROR: $BASS_POS_BYTE: undeclared global variable.
    $song_length = _BASS_ChannelGetLength($MusicHandle, $BASS_POS_BYTE)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Programme\AutoIt3\Downloads\JuraX\MPlayer with Bass.au3(32,25) : ERROR: _BASS_STARTUP(): undefined function.
    _BASS_STARTUP("BASS.dll")
    ~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Programme\AutoIt3\Downloads\JuraX\MPlayer with Bass.au3(33,31) : ERROR: _BASS_Init(): undefined function.
    _BASS_Init(0, -1, 44100, 0, "")
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Programme\AutoIt3\Downloads\JuraX\MPlayer with Bass.au3(41,60) : ERROR: _BASS_StreamCreateFile(): undefined function.
    $MusicHandle = _BASS_StreamCreateFile(False, $file, 0, 0, 0)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Programme\AutoIt3\Downloads\JuraX\MPlayer with Bass.au3(42,67) : ERROR: _BASS_ChannelGetLength(): undefined function.
    $song_length = _BASS_ChannelGetLength($MusicHandle, $BASS_POS_BYTE)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Programme\AutoIt3\Downloads\JuraX\MPlayer with Bass.au3(49,35) : ERROR: Aktualisieren(): undefined function.
    AdlibRegister("Aktualisieren", 100)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Programme\AutoIt3\Downloads\JuraX\MPlayer with Bass.au3(73,50) : ERROR: WM_DROPFILES_FUNC(): undefined function.
    GUIRegisterMsg($WM_DROPFILES, 'WM_DROPFILES_FUNC')
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Programme\AutoIt3\Downloads\JuraX\MPlayer with Bass.au3(88,69) : ERROR: _BASS_ChannelGetPosition(): undefined function.
        $current = _BASS_ChannelGetPosition($MusicHandle, $BASS_POS_BYTE)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Programme\AutoIt3\Downloads\JuraX\MPlayer with Bass.au3(92,49) : ERROR: _BASS_ChannelGetLevel(): undefined function.
        $levels = _BASS_ChannelGetLevel($MusicHandle)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Programme\AutoIt3\Downloads\JuraX\MPlayer with Bass.au3(93,34) : ERROR: _LoWord(): undefined function.
        $rightChLvl = _LoWord($levels)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Programme\AutoIt3\Downloads\JuraX\MPlayer with Bass.au3(95,33) : ERROR: _HiWord(): undefined function.
        $LeftChLvl = _HiWord($levels)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Programme\AutoIt3\Downloads\JuraX\MPlayer with Bass.au3 - 15 error(s), 1 warning(s)
    !>21:03:24 AU3Check ended.rc:2
    +>21:03:35 AutoIt3Wrapper Finished
    >Exit code: 0    Time: 11.621
    Alles anzeigen

    mfg (Auto)Bert

    P(r)ost: 1111

  • Script wird nicht beendet

    • autoBert
    • 21. Januar 2010 um 20:47

    Hallo

    Zitat von owi dowi spinn

    Ich habe kein DllClose benutzt. Werd ich mal einbauen.
    Das Script kann ich hier leider nicht posten, da es den Forenregeln nicht entspricht

    da du dein Skript nicht posten kannst darfst du auch keinen Support erwarten, da er eh gegen die Forenregeln verstösst schlage ich vor du close ihn selbst und versuchst es alleine,

    mfg (Ato)Bert

  • 404-Not-Found erblickt die AutoIt-Welt

    • autoBert
    • 21. Januar 2010 um 20:15

    Hallo chip.de,

    hezlich willkomen im Forum und viel Spass mit AutoIt. Ich hoffe nur, dass du keinen Ärger mit dem Original bekommst (Verwechselunggefahr, Namensrechte etc.),

    mfg (Auto)Bert

  • Kopieren des Temp Ordners in ein anderen Ordner mit Hilfe von DirCopy unter Windows 7

    • autoBert
    • 21. Januar 2010 um 20:10

    Hallo Baron1977,

    versuh es einmal so:

    Spoiler anzeigen
    [autoit]

    CopyWithProgress("@TempDir, "E:\hallo") ;kopiert den kompletten AutoIt-Ordner nach c:\test

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

    #Include <Date.au3>
    Func CopyWithProgress($srcDir, $destDir) ;Original gigx siehe https://autoit.de/index.php?page…25989#post25989
    Local $tsBeginn = _NowCalc(), $tsDiff =-1, $tsRest ;eingefügt für Restdauer
    If StringRight($srcDir, 1) = "\" Then $srcDir = StringLeft($srcDir, StringLen($srcDir) - 1)
    If StringRight($destDir, 1) <> "\" Then $destDir = $destDir & "\"
    If Not FileExists($destDir) Then DirCreate($destDir)
    $srcSize = DirGetSize($srcDir, 1)
    $1_percent = $srcSize[0] / 100
    Run('XCOPY "'& $srcDir & '" "' & $destDir & '" /D /S /E /V /C /H /R /O /Y /F /G')
    ProgressOn("Advanced status of file copying", "", "",10,10)
    Do
    if $tsDiff < 0 Then Sleep(5000)
    $destSize = DirGetSize($destDir, 1)
    $tsDiff = _DateDiff("s",$tsBeginn,_NowCalc())
    $tsRest = round($tsDiff / ($destSize[0] / $1_percent) * 100,0) - $tsDiff
    ConsoleWrite($tsDiff & " " & $1_percent & " " & $tsRest &@CRLF)
    ProgressSet(Round($destSize[0] / $1_percent, 2), Round($destSize[0] / (1024 * 1024), 2) & " MB of " & Round($srcSize[0] / (1024 * 1024), 2)& " MB copied" & @CRLF _
    & $destSize[1] & " of " & $srcSize[1] & " Files copied." & @CRLF _
    & $destSize[2] & " of " & $srcSize[2] & " Folders copied.", Round($destSize[0] / $1_percent, 2) & "% - Done! " & $tsRest & " sec. Rest")
    Sleep($tsDiff)
    Until $destSize[0] >= $srcSize[0]
    MsgBox(0,"Fertig in " & $tsDiff & " sec.",Round($destSize[0] / (1024 * 1024), 2) & " MB of " & Round($srcSize[0] / (1024 * 1024), 2)& " MB copied" & @CRLF _
    & $destSize[1] & " of " & $srcSize[1] & " Files copied." & @CRLF _
    & $destSize[2] & " of " & $srcSize[2] & " Folders copied." & @CRLF & Round($destSize[0] / $1_percent, 2) & "% - Done! ")
    ProgressOff()
    EndFunc

    [/autoit]

    ist mithilfe von xcopy (ich glaube, dir schon einmal einen Link auf dieses Skript gegeben zu haben),

    mfg (Auto)Bert

  • datei in einen ordner verschieben?

    • autoBert
    • 21. Januar 2010 um 19:58

    Hallo black-key,

    @StartupDir = Pfad zum Autostart-Ordner des aktuellen Benutzers. Teste folgenden Einzeiler:

    [autoit]

    MsgBox(0,"StartUpDir:",@StartupDir)

    [/autoit]

    und du wirst je nach Benutzer immer einen anderen (aber den zutreffenden Pfad erhalten). Du solltest dir die Makroreferenz zu den Verzeichnis-bezogenen Macros in der Hilfe anschauen,

    mfg (Auto)Bert

  • datei in einen ordner verschieben?

    • autoBert
    • 21. Januar 2010 um 19:20

    Hallo black-key,

    dieses Macro sollte helfen:

    Zitat

    @StartupDir : current user's Startup folder

    mfg (Auto)Bert

  • Drag and drop fehler

    • autoBert
    • 21. Januar 2010 um 19:11

    Hallo Jura,

    Zitat von JuraX

    kann einer den Fehler finden? ?( ?( ?( (skript ist ein bisschen unnordentlich)

    ein bisschen :?:
    Da das Skript sehr schlampig zusammenkopiert ist schlage ich vor, du bringst dein Skript in eine Form, die einigermassen den Konventionen entspricht siehe:

    Zitat von nuts

    Ok daran lags nicht.
    JuraX vielleiht hilft es schon dein Skript etwas "aufzuräumen"
    Includes -> Deklaration & Wertzuweisung der Variablen (Gui usw.) -> While Wend Schleife -> Funktionen
    So ca.

    dies wäre sicherlich hilfreicher, als hier einen Doppelten Thread zu eröffnen.
    Ich kann mir nicht vorsellen, dass sich diese Mühe macht dir zu helfen, solange du nicht bereit bist eine einigermassen vernünftige Grundlage einzustellen,

    hier noch ein Tip

    mfg Auto)Bert

  • Label $PBS_Marquee

    • autoBert
    • 21. Januar 2010 um 01:30

    Hallo hellboy3,

    also dieses Skript läuft auch mit Obfuscator:

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Run_Obfuscator=y
    #Obfuscator_Parameters=/striponly
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <StaticConstants.au3>

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

    AdlibRegister('_MoveMarquee', 100)
    AdlibRegister('_Laufschrift', 100)

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

    Global $iPos = 0, $sText = 'Das ist der Text, der immer wieder durchläuft! Viel Spass damit!'

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

    Global $mygui = GUICreate('my gui', 200, 100)
    Global $myl = GUICtrlCreateLabel($sText, 0, 10, 150, 30)
    Global $myl2 = GUICtrlCreateLabel($sText, 10, 50, 180, 15,$SS_LEFTNOWORDWRAP)
    GUISetState()
    While GUIGetMsg() <> -3
    WEnd
    AdlibUnRegister('_MoveMarquee')
    AdlibRegister('_Laufschrift')

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

    Func _MoveMarquee()
    Local $aCpos = ControlGetPos($mygui, '', $myl)
    If $aCpos[0] >= 200 Then $aCpos[0] = 0
    ControlMove($mygui, '', $myl, $aCpos[0] + 10, $aCpos[1])
    EndFunc

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

    Func _Laufschrift()
    GUICtrlSetData($myl2,StringMid($sText,$iPos) & " " & $sText)
    $iPos = $iPos +1
    if $iPos > StringLen($sText) Then $iPos = 0
    EndFunc

    [/autoit]

    mfg (Auto)Bert

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™