Beiträge von autoBert

Zitat von autoBert

Edge wird daher gelegentlich gestartet, wenn ich in Systemprogrammen Hilfe benötige. Dies war in der Vorgängerversion von Win10 noch nicht.

Nach dem Reaktivieren des Mikrosoftkontos hat sich auch dieses Problem erledigt.

Zitat von misterspeed

Lizenzschlüssel und / oder Microsoft Konto mit dem ursprünglich mal aktiviert wurde sollte ja vorhanden sein.

Der Produktkey (=Lizenzschlüssel? *²) ist vorhanden, das Microsoftkonto wurde von mir vor langer Zeit auf Lokale Anmeldung umgestellt, ist aber inzwischen reaktiviert. Hat kein MsOffice Profil.

*2 Mit diesem Productkey konnte ich damals MsO13 installieren. Hat diesmal mit Hilfe des Links in der Antwort auf deinen 1. Link, auch geklappt.

Edit: Zwischen damals und gestern hatte ich allerdings auf eine 64 Bitversion (kostenlos) upgegraded, werde ich hoffentlich auch noch schaffen bevor das EOL kommt und nur noch Office365 (mit jährlichem Abo) möglich ist.

danke (auto)Bert

Was ich mir allerdings antuen möchte ist: Office Home & Student 2013 wieder zu installieren. Mein Notebook und die Lizenz für Win8.1 sowie Office HS 2013 waren ein Paket. Win 8.1 war vorinstalliert. Office musste ich mit einem SoftwareOnline Installer installieren. Entweder ich werde alt oder die Vertriebsleute werden immer besser dreister. Ich lande immer wieder auf der Seite wo mir ein Abo verkauft werden soll.

@All, speziell water, hast du vielleicht einen Direktlink zu einem MS Office 2013 Download?

mfg (auto)Bert

Nachdem mittlerweile alle meine MSOffice13 Dateien mit .bak versehen wurden habe ich diese komplett deinstaliert und der Spuk mit der sich schier zu Tode arbeitenden Festplatte hat sich erledigt. Das löschen der ETL Dateien, nach Erstellen von lesbaren XML's behalte ich aus Prinzip bei. Ob ich mir eine echte Analyse der XML's antue

mfg (auto)Bert

Hier mal ein Beispiel (copy & paste aus Hilfe und ber. vorhandenem eigenen Beispielskript):

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$pidNP = Run('notepad')
; Wait max 10 seconds for the Notepad window to appear.
$hNP = WinWait("[CLASS:Notepad]", "", 10)
; Moving Notepadwindow and resize it
WinMove($hNP, '', 0, 0, 480, 480)

$gui = GUICreate("KLeines 1 X 1", 400, 120, 500, 100)
$Start = GUICtrlCreateButton("&Start", 10, 10)
$PauseResume = GUICtrlCreateButton("&Pause", 10, 40)
$Anzeige = GUICtrlCreateLabel("Anzeige", 10, 90, 380)
GUISetState()

While 1
    _EventHandler()
WEnd


Func _EventHandler()
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            ; Close the Notepad window using the handle returned by WinWait.
            WinClose($hNP)

            ; Now a screen will pop up and ask to save the changes, the classname of the window is called
            ; "#32770" and simulating the "TAB" key to move to the second button in which the "ENTER" is simulated to not "save the file"
            WinWaitActive("[CLASS:#32770]")
            Sleep(500)
            Send("{TAB}{ENTER}")
            Exit
        Case $Start
            GUICtrlSetState($Start, $GUI_DISABLE)
            WinActivate($hNP)
            WinWaitActive($hNP, '', 10)
            For $i = 1 To 10
                For $j = 1 To 10
                    $sToSend = $j & " * " & $i & " = " & $i * $j
                    ;GUICtrlSetData($Anzeige, $sToSend)
                    Send($sToSend & @CRLF)
                    _MySleep(200)
                Next
            Next
            GUICtrlSetState($Start, $GUI_ENABLE)
            WinActivate($hNP)
        Case $PauseResume
            If GUICtrlRead($PauseResume) = "&Pause" Then
                GUICtrlSetData($PauseResume, "&Weiter")
                While GUICtrlRead($PauseResume) <> "&Pause"
                    _MySleep(50)
                WEnd
            Else
                GUICtrlSetData($PauseResume, "&Pause")
            EndIf
            WinActivate($hNP)
    EndSwitch
EndFunc   ;==>_EventHandler


Func _MySleep($iMSec)
    Local $iStart = TimerInit()
    Do
        _EventHandler()
    Until TimerDiff($iStart) >= $iMSec
EndFunc   ;==>_MySleep

Mit ControlSend wäre es sicher schöner zu lösen.

mfg (auto)Bert

Das Tool arbeitet gut, werde jetzt alle Dateien analysieren ob evtl. kritische Daten ab (und durchs Netz) zu MS wandern. Würde das Tracing aber am liebsten immer noch ganz abstellen.

mfg (auto)Bert

Zitat von bazii

Gesamtheitlich hatten alle Dateien zusammen ca. 40 MB Speicherverbrauch

Der Speicherpatz dieser Dateien ist nicht das Problem, mich interesiert der Inhalt da sie etl. über das Internet zu M$ übertragen werden.

Zitat von autoBert

Dringender sind aber für mich die *.etl. Ich habe noch kein Programm gefunden, die mir diese Trac(k)e-Dateien analysiert.

und hier erweist sich dein Link als nützlich:

Zitat

Das funktioniert aber sehr schnell mit dem Kommandozeilentool „Trace Report“ (tracerpt.exe).

befindet sich dieses Tool doch bei den von MS mitgelieferten Werkzeugen.

Zitat von bazii

Hast Du bereits im Taskmanager oder über die Ereignisanzeige nachgeschaut, welcher Prozess die Auslastung verursacht;

Systemdateien wie Explorer, Defender, SearchIndexer und leider auch FireFox (und zwar auch ohne aktive Internetverbindung, nur viele offene Tabs Motorsport|Heise|lokale Nachrichten)

mfg (auto)Bert

Zitat von bazii

Es könnte sein dass Dich bei der 60 GB-Datei Outlook ärgert.

Mein Standard Mail-Programm ist von Mozilla.org (und annähernd Spam frei. Microsoft verindert ja leider Programme wie Edge, outlook etc. zu löschen. Edge wird daher gelegentlich gestartet, wenn ich in Systemprogrammen Hilfe benötige. Dies war in der Vorgängerversion von Win10 noch nicht. Ich frage mich wann das nächste Bu€ssgeld für M$ fällig wird für die zu starke Verzahnung von Edge.

Bei dieser Datei wüsste ich zwar auch gerne warum sie entsteht. [offtopic]wer da z.B. sein Bitcoinwallet bei mir sichert und sie hier auch nicht mehr finden kann [/offtopic]

Dringender sind aber für mich die *.etl. Ich habe noch kein Programm gefunden, die mir diese Trac(k)e-Dateien analysiert. Vor allem scheint es auf die Performane zu gehen. Meine Festplatte ist meist bei 100% Auslastung.

mfg (auto)Bert

Wie bereits in gefragt:

Zitat von autoBert

Seit dem Update kommt es regelmäßig zu enormen Datenspeicherverbrauch bis 70 GB, mit Bleachbit löscht die meisten der mMn unnötige Dateien. Übrig bleiben Dateien mit der Endung etl. derzeit 479 Dateien.

Habt ihr ähnliches beobachtet?

Gibt es irgendwelche Systemeinstellungen, die den Verbrauch minimieren?

Die größte Datei ist eine TMP Datei mit fast 60 GB, diese wird automatisch mit BleachBit gelöscht. Die *.etl werden jetzt von mir mit diesem Skript

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_requestedExecutionLevel=highestAvailable
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Array.au3>
#include <File.au3>


$aIFiles = _FileListToArrayRec("c:\", "*.etl", 1, 1,0, 2)
If IsArray($aIFiles) Then
    _ArrayDisplay($aIFiles)
    _FileWriteFromArray($aIFiles, 'etlList.txt')
    For $iFiles = 1 To $aIFiles[0]
        FileDelete($aIFiles[$iFiles])
        If @error Then ContinueLoop
    Next
    Else
        MsgBox(64, 'ETL', 'alle erfolgreich vertrieben', 5)
EndIf

Die Frage nach dem Abstellen des Trac(K)ing's stellt sich immer noch

mfg (auto)Bert

Seit dem Update kommt es regelmäßig zu enormen Datenspeicherverbrauch bis 70 GB, mit Bleachbit löscht die meisten der mMn unnötige Dateien. Übrig bleiben Dateien mit der Endung etl. derzeit 479 Dateien.

Habt ihr ähnliches beobachtet?

Gibt es irgendwelche Systemeinstellungen, die den Verbrauch minimieren?

mfg (auto)Bert

Lade dir die GuiCtrlPic.au3 von @Großvater herunter.

Und ändere in Zeile 35 von GUICtrlCreatePic auf _GUICtrlPic_Create.

Danach sollte es klappen,

mfg (auto)Bert

chesstiger : aus Html PDF zu erzeugen ist mit Sicherheit die schnellere Lösung, aber ginge dies nicht auch mit dem "Microsoft To PDF"-Druckertreiber?

hipfzwirgel : Mit Example_Mixed und Example_Image2PDF sind aber gute Beispiele in der Zipdatei, die zeigen wie es mit AutoIt funktioniert.

Es gibt im Entwickerforum https://www.autoitscript.com/f…e/attachment.php?id=34962 .

Zitat von Code4Fun

Wenn an einer bestimmten Stelle die Farbe Orange oder Rot zu sehen ist, soll die Funktion so lange eine Wartechleife drehen, bis weder Orange noch Rot an diesen Pixeln zu sehen ist.

genau dies soll die obige Codeänderung bewirken.

Zitat von Code4Fun

Wenn die Farben dann nicht mehr da sind, soll die Funktion weiter laufen.

dafür benötigst du eine weitere Schleife, also insgesamt muß es dann so aussehen:

While 1
    While Not PixelSearch(964, 805, 963, 804, 0xE67600) And Not PixelSearch(964, 805, 963, 804, 0xAC1F2D)
        Sleep(10000) ; 10 sek
    WEnd
WEnd

Ich verwende PixelSearch nicht, da PixelSearch

Zitat

Success: a two-element array of pixel's coordinates. (Array[0] = x, Array[1] = y). Failure: sets the @error flag to 1 if the color is not found

zurückgibt,läuft deine Schleife solange bis PixelSearch einen der beiden Werte findet. Abhilfe:

While Not PixelSearch(964, 805, 963, 804, 0xE67600) And Not PixelSearch(964, 805, 963, 804, 0xAC1F2D)

Einfach nur ein Tippfehler:

PasswordCountExceededError <> PasswordCountExeededError

korrigieren, dann macht _arraysearch das was du erwartest!

Du kannst dir dazu campweb | Oflline Deutsch<>English Übersetzter | Mit versch. Ü-Möglichkeiten

anschauen. Liefert zwar keine Übersetzungen kompleter Texte, als Wörterbuch ganz brauchbar.

mfg (auto)Bert

Ich hätte das Problem so gelöst:

#include <file.au3>
#include <array.au3>

ConsoleWrite(@TempDir & @CRLF)

Global $aFile = "", $iMaxCols = 0, $a2D
_FileReadToArray(@ScriptDir & "\VarArray.txt", $aFile)

_GetMaxCols($aFile, $iMaxCols)
ConsoleWrite('max. Spalten: ' & $iMaxCols & @CRLF)

_FillToMax($aFile, $iMaxCols)
_FileWriteFromArray(@TempDir & "\VarArray.txt", $aFile, 1, $aFile[0], ';')
;ShellExecute(@TempDir & "\VarArray.txt")
_FileReadToArray(@TempDir & "\VarArray.txt", $a2D, 1, ';')
_ArrayDisplay($a2D)


Func _GetMaxCols($aFile, ByRef $iMaxCols)
    For $i = 1 To $aFile[0]
        StringReplace($aFile[$i], ';', ';')
        If @extended > $iMaxCols Then $iMaxCols = @extended
    Next
    $iMaxCols = $iMaxCols + 1
EndFunc   ;==>_GetMaxCols

Func _FillToMax(ByRef $aFile, $iMaxCols)
    Local $sTemp = ';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;', $iFill
    For $i = 1 To $aFile[0]
        StringReplace($aFile[$i], ';', ';')
        If @extended < $iMaxCols Then
            $iFill = $iMaxCols - @extended - 1
            $aFile[$i] = $aFile[$i] & StringLeft($sTemp, $iFill)
            ;ConsoleWrite($aFile[$i] & ': ' & $iFill & @CRLF)
        EndIf
    Next
EndFunc   ;==>_FillToMax

Zitat von Musashi

Häufig findet man sie aber noch mit Google, sofern man die passenden Suchworte verwendet (hier z.B. "Autoit OwnTab UDF funkey".

Der von Dir angegebene Link scheint auch bereits wieder ein Opfer geworden zu sein.

Du meinst vermutlich : eigenes-tab-register-owntab-udf

Ja, wir meinen beide die gleiche UDF.

Zitat von autoBert

Ob Sie unter der aktuellen Autoit-Version noch lauffähig ist weis ich nicht.

Wie befürchtet, ein SCRIPT BREAKING CHANGE in der GDIPlus.au3. Deshalb hier die UDF von funkey (angepasst von mir): OwnTab.au3 und ein Beispiel (original): OwnTab_Example.au3

viel Spass damit (auto)Bert

funkey: Bitte prüfen ob nicht noch weitere Changes nötig sind. (Namen $__g_hGDIPDll wurde angepasst)

Leider sind durch div, Fotensoftwareupdates viele schöne Beispiele verlorengegangen, bzw. die Links sind tot. Grundsätzlich kann es nur ein TabControl in einer Gui geben. Man kann aber auf unsichtbaren HilfsGui's (als eigenständige Gui nicht zu erkennen) je ein TabControl platzieren. Die OwnTab-UDF von funkey ermöglicht z.B. TabInTab. Ob Sie unter der aktuellen Autoit-Version noch lauffähig ist weis ich nicht.

Hier ein kleines Beispiel mit Childs:

; Example of TAB in TAB ctrl
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>


Opt('GUIOnEventMode', 1)


Global $main_GUI, $child1, $child2, $main_tab, $ok_button, $cancel_button
_main()


Func _main()
    ; This window has 2 ok/cancel-buttons
    $main_GUI = GUICreate("TAB in TAB", 260, 250, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX))
    GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
    $ok_button = GUICtrlCreateButton("OK", 40, 200, 70, 20)
    GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKBOTTOM + $GUI_DOCKSIZE)
    GUICtrlSetOnEvent(-1, '_End')
    $cancel_button = GUICtrlCreateButton("Cancel", 150, 200, 70, 20)
    GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKBOTTOM + $GUI_DOCKSIZE)
    GUICtrlSetOnEvent(-1, '_End')


    ; Create the first child window that is implemented into the main GUI
    $child1 = GUICreate("", 230, 170, 15, 35, BitOR($WS_CHILD, $WS_TABSTOP), -1, $main_GUI)
    $child_tab = GUICtrlCreateTab(2, 5, 225, 165)
    GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
    $child11tab = GUICtrlCreateTabItem("1")
    $child12tab = GUICtrlCreateTabItem("2")
    GUICtrlCreateLabel('Nur auf Tab2',25,25)
    GUICtrlCreateTabItem("")



    ; Create the second child window that is implemented into the main GUI
    $child2 = GUICreate("", 230, 170, 15, 35, BitOR($WS_CHILD, $WS_TABSTOP), -1, $main_GUI)
    $listview2 = GUICtrlCreateListView("Col1|Col2", 2, 5, 225, 165, -1, $WS_EX_CLIENTEDGE)
    GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
    GUICtrlCreateListViewItem("ItemLong1|ItemLong12", $listview2)
    GUICtrlCreateListViewItem("ItemLong2|Item22", $listview2)
    GUISetState()


    ; Switch back the main GUI and create the tabs
    GUISwitch($main_GUI)
    $main_tab = GUICtrlCreateTab(10, 10, 240, 180)
    GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
    GUICtrlSetOnEvent(-1, '_MainTab')
    $child1tab = GUICtrlCreateTabItem("Child1")
    $child2tab = GUICtrlCreateTabItem("Child2")
    $child3tab = GUICtrlCreateTabItem("Child3")
    $listview3 = GUICtrlCreateListView("Noch|eine|LV", 17, 39, 223, 138, -1, $WS_EX_CLIENTEDGE)
    GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
    GUICtrlCreateListViewItem("Spalte1.1|Spalte1.2|Spalte1.3", $listview3)
    GUICtrlCreateListViewItem("Spalte2.1|Spalte2.2|Spalte2.3", $listview3)


    GUICtrlCreateTabItem("")

    GUIRegisterMsg($WM_SIZE, 'WM_SIZE')


    GUISetState()
    While 1
        Sleep(125)
    WEnd
EndFunc   ;==>_main


Func _End()
    GUIDelete($child1)
    GUIDelete($child2)
    GUIDelete($main_GUI)
    Exit
EndFunc   ;==>_End


Func _MainTab()
    Switch GUICtrlRead($main_tab)
        Case 0
            GUISetState(@SW_HIDE, $child1)
            GUISetState(@SW_SHOW, $child2)


        Case 1
            GUISetState(@SW_HIDE, $child2)
            GUISetState(@SW_SHOW, $child1)
        Case Else
            GUISetState(@SW_HIDE, $child1)
            GUISetState(@SW_HIDE, $child2)
    EndSwitch
EndFunc   ;==>_MainTab


Func WM_SIZE($hWnd, $iMsg, $iWParam, $iLParam)
    $aMGPos = WinGetClientSize($main_GUI)
    WinMove($child1, "", 15, 35, +$aMGPos[0] - 30, +$aMGPos[1] - 80)
    WinMove($child2, "", 15, 35, +$aMGPos[0] - 30, +$aMGPos[1] - 80)
EndFunc   ;==>WM_SIZE

mfg >(auto)Bert