Beiträge von Musashi

Zitat von BugFix

Ich kompiliere ausschließlich 32bit. Das lief und läuft problemlos auf allen Systemen.

Zitat von Bitnugger

Zudem bringt 64bit auch nur selten einen echten Vorteil... ergo nutze ich 64bit nur dann, wenn dem so ist, oder etwas mit 32bit nicht funktioniert.

Mache ich auch so !

Zitat von Bitnugger

Falsch ...

[...]

Ebenfalls falsch ...

Herrje, heute kann ich offenbar gar nichts richtig machen .

(auf einem Monitor habe ich das Skript natürlich mit Erfolg getestet)

Zitat von Bitnugger

... aber egal, denn drei Minuten nach Kenntnisnahme der Kündigung hatte ich bereits eine verbindliche Zusage für eine neue (und bessere) Arbeitsstelle... ob das ein neuer Rekord ist?

Freut mich .

Bei Robert Lewandowski hätte es vermutlich nur zwei Minuten gedauert, aber schon dicht dran am Rekord .

Zitat von Bitnugger

Ich war mal so frei und habe da an einigen Stellen noch was geändert, weil es auf Systemen mit mehreren Monitoren nicht funktionierte!

Schöne Erweiterung .

Gepostet um 02:38 Uhr ! Einer der wenigen Vorteile bei uns alten Säcken ist zumindest, dass wir weniger Schlaf brauchen .

Testen kann ich das Skript leider nicht, da ich nur mit einem, wenn auch sehr guten Monitor arbeite.

Ich bin mir aber sicher, dass es funktioniert und für Multi-Monitor-User einen echten Mehrwert darstellt.

Zitat von Concara

Dieser Fehler ist dann aber im "Consolewrite" Befehl auch vorhanden. Oder sehe ich das falsch?

ConsoleWrite gibt doch nur den Rückgabewert von Dec aus. Das ist kein Fehler.

Zitat von mcbaldrian

ich will wie im dem Snipping Tool vom Win10 die linke Maustaste drücken und einen Rahmen ziehen ( ganzer Desktop ) und brauche als Endergebnis die Koordinaten in Variable.

[...]

Kann mir jemand einen Denkanstoß oder einen Codeschnipsel geben.

Hier ein Script von Melba23 aus dem EN-Forum (minimal geändert) :

#cs ----------------------------------------------------------------------------
Author : Melba23
https://www.autoitscript.com/forum/topic/165325-how-to-get-4-screen-coordinates-just-by-dragging-a-rectangle/#elControls_1206830_menu
#ce ----------------------------------------------------------------------------

#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <ScreenCapture.au3>
#Include <Misc.au3>

HotKeySet("{ESC}", "_Terminate")

Global $iX1, $iY1, $iX2, $iY2, $aPos, $sMsg, $sBMP_Path

; Create GUI
$hMain_GUI = GUICreate("Select Rectangle", 240, 50)

$hRect_Button   = GUICtrlCreateButton("Mark Area",  10, 10, 80, 30)
$hCancel_Button = GUICtrlCreateButton("Cancel",    150, 10, 80, 30)

GUISetState()

While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE, $hCancel_Button
            FileDelete(@ScriptDir & "Rect.bmp")
            Exit
        Case $hRect_Button
            GUISetState(@SW_HIDE, $hMain_GUI)
            Mark_Rect()
            ; Capture selected area
            MsgBox($MB_SYSTEMMODAL, "Coords", "Left: " & $iX1 & @CRLF & "Top: " & $iY1 & @CRLF & "Right: " & $iX2 & @CRLF & "Bott0m: " & $iY2)
            GUISetState(@SW_SHOW, $hMain_GUI)
    EndSwitch

WEnd

; -------------

Func Mark_Rect()

    Local $aMouse_Pos, $hMask, $hMaster_Mask, $iTemp
    Local $UserDLL = DllOpen("user32.dll")

    ; Create transparent GUI with Cross cursor
    $hCross_GUI = GUICreate("Test", @DesktopWidth, @DesktopHeight - 20, 0, 0, $WS_POPUP, $WS_EX_TOPMOST)
    WinSetTrans($hCross_GUI, "", 8)
    GUISetState(@SW_SHOW, $hCross_GUI)
    GUISetCursor(3, 1, $hCross_GUI)

    Global $hRectangle_GUI = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
    GUISetBkColor(0x000000)

    ; Wait until mouse button pressed
    While Not _IsPressed("01", $UserDLL)
        Sleep(10)
    WEnd

    ; Get first mouse position
    $aMouse_Pos = MouseGetPos()
    $iX1 = $aMouse_Pos[0]
    $iY1 = $aMouse_Pos[1]

    ; Draw rectangle while mouse button pressed
    While _IsPressed("01", $UserDLL)

        $aMouse_Pos = MouseGetPos()

        $hMaster_Mask = _WinAPI_CreateRectRgn(0, 0, 0, 0)
        $hMask = _WinAPI_CreateRectRgn($iX1,  $aMouse_Pos[1], $aMouse_Pos[0],  $aMouse_Pos[1] + 1) ; Bottom of rectangle
        _WinAPI_CombineRgn($hMaster_Mask, $hMask, $hMaster_Mask, 2)
        _WinAPI_DeleteObject($hMask)
        $hMask = _WinAPI_CreateRectRgn($iX1, $iY1, $iX1 + 1, $aMouse_Pos[1]) ; Left of rectangle
        _WinAPI_CombineRgn($hMaster_Mask, $hMask, $hMaster_Mask, 2)
        _WinAPI_DeleteObject($hMask)
        $hMask = _WinAPI_CreateRectRgn($iX1 + 1, $iY1 + 1, $aMouse_Pos[0], $iY1) ; Top of rectangle
        _WinAPI_CombineRgn($hMaster_Mask, $hMask, $hMaster_Mask, 2)
        _WinAPI_DeleteObject($hMask)
        $hMask = _WinAPI_CreateRectRgn($aMouse_Pos[0], $iY1, $aMouse_Pos[0] + 1,  $aMouse_Pos[1]) ; Right of rectangle
        _WinAPI_CombineRgn($hMaster_Mask, $hMask, $hMaster_Mask, 2)
        _WinAPI_DeleteObject($hMask)
        ; Set overall region
        _WinAPI_SetWindowRgn($hRectangle_GUI, $hMaster_Mask)

        If WinGetState($hRectangle_GUI) < 15 Then GUISetState()
        Sleep(10)

    WEnd

    ; Get second mouse position
    $iX2 = $aMouse_Pos[0]
    $iY2 = $aMouse_Pos[1]

    ; Set in correct order if required
    If $iX2 < $iX1 Then
        $iTemp = $iX1
        $iX1 = $iX2
        $iX2 = $iTemp
    EndIf
    If $iY2 < $iY1 Then
        $iTemp = $iY1
        $iY1 = $iY2
        $iY2 = $iTemp
    EndIf

    GUIDelete($hRectangle_GUI)
    GUIDelete($hCross_GUI)
    DllClose($UserDLL)

EndFunc   ;==>Mark_Rect

; -------------------------------------------
Func _Terminate()
    Exit;
EndFunc   ;==>_Terminate

[Off-Topic]

Zitat von Andy

...wobei noch der dezente Hinweis des TE "...und legt mir mal einer bitte den Arm aus der Sonne..SCHNELLSTMÖGLICH!" angefügt werden sollte!

Diesen Ausspruch habe ich wirklich vermisst - muss schon einige Zeit her sein, dass Du ihn verwendet hast .

Was das "Demo-Skript" von Bitnugger angeht, auch von mir ein . Ich denke, dass Bitnugger gar nicht in der Lage ist ein 'nur halbfertiges' Skript abzuliefern

Zitat von Bitnugger

Sei dir gegönnt... also mach dich ran...

Ich habe im EN-Forum einfach einen Link auf diesen Thread (präziser : auf Deinen Beitrag) gesetzt .

sebiix3 :

Cross-Postings sind nicht per se eine schlechte Sache. Möchte man z.B. Skripte veröffentlichen oder auf Fehler etc. hinweisen (also Dinge von allgemeinem Interesse), dann sind sie sogar hilfreich.

Bei individuellen Fragen sollte man sich aber erst mal auf ein Forum beschränken.

Bitnugger :

Könntest Du Deine Lösung ggf. auch im englischen Thread posten ?

Wenn ich das mache, dann bekomme ich am Ende noch (völlig unverdient) die Credits .

Zitat von Racer

Bitte, kannst Du mir das erklären?

Global $g_sSlash1 = StringInStr($g_sPath1, '\') ? '\' : '/'

Zitat von Moombas

Ohne es definitiv zu wissen denke ich das er wenn "\" im String ist, es durch "/" ersetzt wird.

Nein, ersetzt wird an dieser Stelle nichts. Es wird geprüft, ob im Pfad (mindestens) ein \ vorkommt. Falls Ja, dann wird $g_sSlash1 ein \ zugewiesen. Falls Nein, dann ein /.

EDIT : Beispiel :

Global $g_sPath1, $g_sSlash1

$g_sPath1 = "C:\TestDir\Test01\TestSubDir" ; nur \ vorhanden
$g_sSlash1 = StringInStr($g_sPath1, '\') ? '\' : '/'
ConsoleWrite($g_sSlash1 & @CRLF)

$g_sPath1 = "C:/TestDir/Test01/TestSubDir"  ; nur / vorhanden
$g_sSlash1 = StringInStr($g_sPath1, '\') ? '\' : '/'
ConsoleWrite($g_sSlash1 & @CRLF)

$g_sPath1 = "C:/TestDir\Test01/TestSubDir"  ; / und \ gemischt
$g_sSlash1 = StringInStr($g_sPath1, '\') ? '\' : '/'
ConsoleWrite($g_sSlash1 & @CRLF)

Zitat von sebiix3

Könnte mir jemand auf die Sprünge helfen?

Ich kann ja verstehen, dass Du möglichst schnell eine Lösung für dein Problem erhalten möchtest. Die identische Frage zeitgleich im englischen (compare-content-of-2-folders) und im deutschen Forum zu stellen führt aber dazu, dass sich Helfende ggf. unnötige Arbeit machen. Nicht alle lesen parallel in beiden Foren. Entscheide Dich für ein Forum, und wenn 2 bis 3 Tage nichts passiert, dann kannst Du immer noch im anderen fragen.

Zitat von diebratwurst

Beim 2ten Programm startet er leider nicht mit den Variablen Parametern. Er öffnet lediglich das Programm

[...]

Bitnugger : ... über das Programm wirst du nichts im Internet finden das ist ein firmeneigenes Programm. Dieses akzeptiert allerdings auch Parameter.

Die Info, dass es sich bei pro_vb32.exe um ein firmeneigenes Programm handelt, wäre bereits bei der Fragestellung hilfreich gewesen .

Dieses Programm erwartet sehr wahrscheinlich andere Parameter als wvs.exe . Welche das sind, müsstest Du doch im Hause erfragen können, oder nicht ?.

Einzelwerte und Bereiche überspringen :

Local Const $iMAXCOUNTER = 50  ; Maximalwert
For $iCounter = 1 To $iMAXCOUNTER
    Switch $iCounter
        Case 25, 26, 29, 40 To 45, 48
            ; diese Werte überspringen :
            ConsoleWrite("< Zähler = " & $iCounter & " -> überspringen" & @CRLF)
        Case Else
            ; Funktion(en) ausführen :
            ConsoleWrite("> Zähler = " & $iCounter & " -> ausführen" & @CRLF)
    EndSwitch
Next

Zitat von Bernd Albrecht

Also es soll von 1-10 und dann direkt von 15 bis 20 laufen.

Klingt fast zu trivial, aber meinst Du so etwas :

Local $iCounter = 0
While $iCounter < 20
    If $iCounter = 10 Then $iCounter = 14
    $iCounter += 1
    ConsoleWrite($iCounter & @CRLF)
WEnd

[Off-Topic]

Da das Problem ja offenbar gelöst ist, konnte ich mir den Spaß nicht verkneifen :

Zitat von hipfzwirgel

Hallo Oscar,

[...] Möge deine gute Tat mit reichlich Kindersegen, einer extrem guten Rente und immer währender Gesundheit vergolten werden

Dass mit dem Kindersegen hatten wir bereits in einem Thread von 2017.

Mir kam sofort wieder die Antwort von water in den Sinn :

Zitat

... ist in Ordnung , vor Kindersegen mögen mich die edlen Produkte der Firma Durex schützen

Möglicherweise verfolgt Oscar diesbezüglich aber eine andere Strategie .

Wäre es nicht einfacher, dafür die Aufgabenplanung (vormals Taskplaner) zu verwenden ?

Zitat von Oscar

Gute Frage...

Ich befinde mich derzeit im Urlaub (Helgoland) und habe nur den "kleinen" Rechner hier.

Dann genieße erst mal den Urlaub - das ist viel wichtiger .

Zitat von kilo

[...] Wenn der Download nicht der erwarteten Größe entspricht, wäre es toll, wenn die Funktion etwas wie "Download gescheitert" o.ä. ausgibt

Eigentlich prüft Oscar bereits mittels InetGetInfo :

Do ... Until $aDownloadData[$INET_DOWNLOADCOMPLETE]

ob der Download vollständig abgeschlossen wurde.

Ob ein abschließender Vergleich von InetGetSize mit der lokalen Dateigröße sinnvoll wäre muss Oscar entscheiden.

kilo :

Warum bei Dir keiner der Downloadversuche erfolgreich ist -> ???

Haben andere das mal probiert ?

Selbst wenn man nur den Direktlink der Avast-Seite, also ohne Anfügen eines Dateinamens, verwendet, erhält man eine Datei mit korrekter Größe und Hash. Sie muss dann allerdings von cookie_mmm_ava_998_999_000_m zu avast_free_antivirus_setup_offline.exe umbenannt werden.

Bitnugger hat in dem Thread RE: InetGet lädt keine große Dateien mal was zu Timeouts geschrieben. Ob das im vorliegenden Fall eine Rolle spielen könnte -> ???.

Oscar (nur am Rande) :

In der Version von 2014 gab es noch den (achten) optionalen Parameter :

; [...]
;                    $iShowButtonMode (Default = 0)
;                       0 = Keine Buttons angezeigen
;                       1 = Button [Download abbrechen] wird angezeigt
;                       2 = Button [Fenster schließen] wird angezeigt
;                       3 = Button [Download abbrechen] und [Fenster schließen] angezeigen

Gibt es einen Grund, warum Du den aus der aktuellen Version entfernt hast ?

Zitat von kilo

Wo liegt mein Fehler?

Seltsam !

1. Die Variante von gmmg (Beitrag #11) funktioniert anscheinend :

Dateigröße = 691 MB (725.062.648 Bytes)

Der MD5-Hash ist aber anders.

MD5-Hash = b97bf36db337d5806256e3964d447d3f

2. Die Variante von oh-ha (Beitrag #4) funktioniert auch :

Nach Umbenennen des .tmp Dateinamens in avast_free_antivirus_setup_offline.exe

Dateigröße = 691 MB (725.062.648 Bytes)

MD5-Hash = 8149b035b9a322be07b99fc515b8fc5b

3. _DownloadWithProgress.au3 :

(damit wir nicht durcheinander geraten, verwende ich zuerst die aktualisierte Version von Oscar vom 19.09.2021 (siehe : https://autoit.de/thread/45697-downloadwithprogress )

Dazu habe ich den Link in seine Example.au3 eingetragen, d.h.

[...]
Global $sDownloadDir = @ScriptDir
Global $aDownloadsURL = StringSplit( _
        'https://bits.avcdn.net/productfamily_ANTIVIRUS/insttype_FREE/platform_WIN/installertype_FULL/build_RELEASE/cookie_mmm_ava_998_999_000_m/avast_free_antivirus_setup_offline.exe' & ',' & _
        'https://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe' & ',' & _
        'https://www.autoitscript.com/cgi-bin/getfile.pl?../autoit3/scite/download/SciTE4AutoIt3.zip' & ',' & _

[...]

Test 1 : Oscar's Version von DownloadWithProgress.au3 :

Dateigröße = 691 MB (725.062.648 Bytes)

MD5-Hash = 8149b035b9a322be07b99fc515b8fc5b (also wie bei oh-ha )

Test 2 : Meine (optisch, nicht funktional) leicht modifizierte DownloadWithProgress.au3 aus Beitrag #5 :

Dateigröße = 691 MB (725.062.648 Bytes)

MD5-Hash = 8149b035b9a322be07b99fc515b8fc5b (also wie bei oh-ha und Oscar )

Offenbar funktioniert alles.

kilo :

Als ich die Downloads mit Progressbar (egal welche Variante) vor gut einer Stunde mehrfach hintereinander zu Testzwecken wiederholt habe, kam es einige Male allerdings auch zu den von Dir beschriebenen "Problemen", d.h. die Datei wurde nur teilweise oder gar nicht heruntergeladen. Momentan kann ich das aber nicht mehr reproduzieren.

Ich habe mit Oscar's UDF nie Probleme gehabt. Möglicherweise zickt die Avast-Site bei hoher Belastung herum . Mehr kann ich dazu leider auch nicht sagen.

Zitat von oh-ha

Bekomme diese Fehlermeldung:

[...]

Keine Ahnung, ob es nur bei mir so ist.

Ich verwende AutoIt 3.3.14.0 mit Win 7 SP1 64-Bit und bei mir funktioniert es.

Zitat von oh-ha

Dann ist da wohl ein Wert zu viel in deinem Skript

_DownloadWithProgress($sDownloadURL, $sDownloadDir, 1031, 'Download', -1, -1, 0, 1) zu _DownloadWithProgress($sDownloadURL, $sDownloadDir, 1031, 'Download', -1, -1, 0)

Der 8. und letzte Parameter ... -1, -1, 0, 1) (also... , 1) ist optional, nicht zuviel ->

Ansonsten habe ich nur zwei minimale Veränderungen vorgenommen :

1. Anzeige des Dateinamens -> kleinere Schriftart 9 statt 12 :

[...]
; Original -> falls der Dateiname zu lang ist, dann wird er nicht angezeigt :
;~     GUICtrlCreateGroup('', 10, 5, 380, 165)
;~     GUICtrlCreateLabel(StringFormat('%s "%s"', $aLanguage[0], StringRegExpReplace($sURL, '.+\/(.+)', '$1')), 25, 22, 350, 20)
;~     GUICtrlSetFont(-1, 12, 400, 0, 'Arial', 5)
; *** modfiziert : Anzeige des Dateinamens in kleiner Schrift :
    GUICtrlCreateGroup('', 10, 5, 380, 165)
    GUICtrlCreateLabel(StringFormat('%s "%s"', $aLanguage[0], StringRegExpReplace($sURL, '.+\/(.+)', '$1')), 25, 22, 350, 20)
    GUICtrlSetFont(-1, 9, 400, 0, 'Arial', 5)

2. Alternative Farben für die Progressbar :

[...]
    Local $aColors[8][2] = [[0xFFEE5F5B, 0xFFF07673], _
                            [0xFF57D338, 0xFF57D338], _
                            [0xFF13558F, 0xFF13558F], _
                            [0xFF6689BD, 0xFF6689BD], _
                            [0xFFFFBB58, 0xFFFFC97A], _
                            [0xFFFF6677, 0xFFFF8795], _
                            [0xFF78CCEE, 0xFFFFC97A], _
                            [0xFF78CCEE, 0xFFE8E5D9]]

    $hHBmp_BG = _GDIPlus_StripProgressbar($iPercent, $iW, $iH, 0xFF000000 + $iBGColor, $aColors[3][0], $aColors[3][1], '')
[...]

Diese Änderungen sollten keine Probleme machen.

oh-ha :

Versuche es sonst mal mit der Originalversion von Oscar : _DownloadWithProgress

EDIT : oh-ha

Zwischenzeitlich hat Oscar bereits darauf hingewiesen, dass Du eine veraltete Version von AutoIt verwendest.