Beiträge von bazii

Zitat von Bitnugger

Der erste Index in einem Array fängt immer bei 0 an. Wenn das Array also 7 Spalten hat, gehen diese von 0 - 6!

In der AutoIt-Hilfe zu _WinAPI_EnumFiles steht es sogar drin:

Hallo

und danke erstmal für die ausführliche Antwort.

Ich habe mich schlecht ausgedrückt. Sorry.

In meinem Beispiel-Code mit der Animation funktioniert das umbenennen der Dateinamen sehr gut.

Das mit der Zahl 7 war nur ein Beispiel dafür, dass ab [$i][7] der nachfolgende Fehler auftritt.

If BitAND(^ ERROR Du hast ja aber erklärt warum. Hatte das nicht berücksichtigt.

Zitat von Bitnugger

Ich habe das in einigen meiner Projekte etwa so gelöst: Code: LPS_Manager.ini

Das ganze Vorhaben mit einer .ini oder. txt umzusetzen wäre mir auch viel lieber.

Zitat von Bitnugger

Die ConversionTables lade ich mir dann alle als Array in ein Array... ändert der User den Index für die aktuelle Tabelle, kopiere ich das benötigte Table-Array aus $g_aConversionTables[n] nach $g_aCurrentConversionTable.

Vielen Dank für Deine sehr guten Lösungsansatz.

Es wird für mich aber ohne weitere Hilfe, zu meinem geposteteten Code, wahrscheinlich nicht umsetzbar werden.

Aber das eigentliche Problem das ich mit dem Array hatte, hast Du ja bereits gelöst.

Zitat von Bitnugger

Zuerst das Wichtigste: _WinAPI_EnumFiles unterschlägt definitiv Files und womöglich auch Folders, denn es sind bei meinem Test 6 Einträge weniger im Array, als mit _FileListToArrayRec!

Das hatt ich auch schon am Rande in mehreren Verzeichnissen bemerkt. Die Recursion funktioniert irgendwie nicht richtig.

_FileListToArrayRec! : Schaue ich mir gleich mal an.

Vielen Dank für den Hinweis.

Hallo

mit folgendem Beispielcode ist es möglich, bis zu sechs verschiedene Zeichenersetzungen, in Datei- und Verzeichnisnamen recursiv vorzunehmen.

Versuche ich beispielsweise 10 verschiedene Zeichenersetzungen, bekomme ich einen Fehler:

Array variable has incorrect number of subscripts or subscript dimension range exceeded.:

If BitAND($aFilesFolder[$i][7], $FILE_ATTRIBUTE_DIRECTORY) Then _RenameRecursive($sPath & $aFilesFolder[$i][0])

If BitAND(^ ERROR

Warum das ganze:

Es dürfen nur Buchstaben, Zahlen, Binde- und Unterstrich in meinenDatei- und Verzeichnisnamen zugelassen werden. Alle anderen Zeichen müssen aus bestimmten Gründen aus den Verzeichnis und Dateinamen entfernt werden.

#include <APIFilesConstants.au3>
#include <APIShellExConstants.au3>
#include <GDIPlus.au3>
#include <GDIPlusConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WinAPI.au3>
#include <WinAPIConstants.au3>
#include <WinAPIFiles.au3>
#include <WinAPIShellEx.au3>
#include <WindowsConstants.au3>

Global $sPath = FileSelectFolder('     Bitte Verzeichnis auswählen !', '')
If Not FileExists($sPath) Then Exit

;===================================================================
;Codebeginn für die Animation UEZ
;===================================================================

_GDIPlus_Startup()
Global $iW = 400, $iH = 250
Global Const $hGUI = GUICreate("Loading Spinner", $iW, $iH, -1, -1, $WS_POPUP); $WS_EX_TOPMOST)
Global Const $iPic = GUICtrlCreatePic("", 0, 0, $iW, $iH)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState()

Global $hHBmp_BG, $hB, $iPerc = 0, $iSleep = 30, $s = 0, $t, $m = 0
GUIRegisterMsg($WM_TIMER, "PlayAnim")
DllCall("user32.dll", "int", "SetTimer", "hwnd", $hGUI, "int", 0, "int", $iSleep, "int", 0)

;===================================================================
;Code-Beginn für das umbenennen der Verzeichnisse und Dateien
;===================================================================

_RenameRecursive($sPath)

Func _RenameRecursive($sPath)
    If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
    Local $aFilesFolder = _WinAPI_EnumFiles($sPath,0)
    If @error Then Return
    For $i = 1 To $aFilesFolder[0][0]
        If BitAND($aFilesFolder[$i][4], $FILE_ATTRIBUTE_DIRECTORY) Then _RenameRecursive($sPath & $aFilesFolder[$i][0])
        _WinAPI_ShellFileOperation($sPath & $aFilesFolder[$i][0], $sPath & StringReplace(StringReplace(StringReplace(StringReplace(StringReplace($aFilesFolder[$i][0], "ä","ae"), "ö","oe"), "ü","ue"), " ","_"), "ß","ss"), $FO_RENAME, $FOF_SILENT)
    Next
EndFunc

GUIRegisterMsg($WM_TIMER, "")
_WinAPI_DeleteObject($hHBmp_BG)
_GDIPlus_Shutdown()
GUIDelete()
Sleep(200)
MsgBox(64,"", "Die Verzeichnisse und Dateien wurden umbenannt!")
Exit

;===================================================================
;Code für die Animation von UEZ
;===================================================================

Func PlayAnim()
    $hHBmp_BG = _GDIPlus_MultiColorLoader($iW, $iH, "Die Verzeichnisse und Dateien werden umbenannt. Bitte warten! ")
    $hB = GUICtrlSendMsg($iPic, $STM_SETIMAGE, $IMAGE_BITMAP, $hHBmp_BG)
    If $hB Then _WinAPI_DeleteObject($hB)
    _WinAPI_DeleteObject($hHBmp_BG)
EndFunc   ;==>PlayAnim


Func _GDIPlus_MultiColorLoader($iW, $iH, $sText = "", $sFont = "Verdana", $bHBitmap = True)
    Local Const $hBitmap = _GDIPlus_BitmapCreateFromScan0($iW, $iH)
    Local Const $hGfx = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    _GDIPlus_GraphicsSetSmoothingMode($hGfx, 4 + (@OSBuild > 5999))
    _GDIPlus_GraphicsSetTextRenderingHint($hGfx, 3)
    _GDIPlus_GraphicsSetPixelOffsetMode($hGfx, $GDIP_PIXELOFFSETMODE_HIGHQUALITY)
    _GDIPlus_GraphicsClear($hGfx, 0xFF232323)

    Local $iRadius = ($iW > $iH) ? $iH * 0.6 : $iW * 0.6

    Local Const $hPath = _GDIPlus_PathCreate()
    _GDIPlus_PathAddEllipse($hPath, ($iW - ($iRadius + 24)) / 2, ($iH - ($iRadius + 24)) / 2, $iRadius + 24, $iRadius + 24)

    Local $hBrush = _GDIPlus_PathBrushCreateFromPath($hPath)
    _GDIPlus_PathBrushSetCenterColor($hBrush, 0xFFFFFFFF)
    _GDIPlus_PathBrushSetSurroundColor($hBrush, 0x08101010)
    _GDIPlus_PathBrushSetGammaCorrection($hBrush, True)

    Local $aBlend[4][2] = [[3]]
    $aBlend[1][0] = 0 ;0% center color
    $aBlend[1][1] = 0 ;position = boundary
    $aBlend[2][0] = 0.33 ;70% center color
    $aBlend[2][1] = 0.1 ;10% of distance boundary->center point
    $aBlend[3][0] = 1 ;100% center color
    $aBlend[3][1] = 1 ;center point
    _GDIPlus_PathBrushSetBlend($hBrush, $aBlend)

    Local $aRect = _GDIPlus_PathBrushGetRect($hBrush)
    _GDIPlus_GraphicsFillRect($hGfx, $aRect[0], $aRect[1], $aRect[2], $aRect[3], $hBrush)

    _GDIPlus_PathDispose($hPath)
    _GDIPlus_BrushDispose($hBrush)

    Local Const $hBrush_Black = _GDIPlus_BrushCreateSolid(0xFF161616)
    _GDIPlus_GraphicsFillEllipse($hGfx, ($iW - ($iRadius + 10)) / 2, ($iH - ($iRadius + 10)) / 2, $iRadius + 10, $iRadius + 10, $hBrush_Black)

    Local Const $hBitmap_Gradient = _GDIPlus_BitmapCreateFromScan0($iRadius, $iRadius)
    Local Const $hGfx_Gradient = _GDIPlus_ImageGetGraphicsContext($hBitmap_Gradient)
    _GDIPlus_GraphicsSetSmoothingMode($hGfx_Gradient, 4 + (@OSBuild > 5999))
    Local Const $hMatrix = _GDIPlus_MatrixCreate()
    Local Static $r = 0
    _GDIPlus_MatrixTranslate($hMatrix, $iRadius / 2, $iRadius / 2)
    _GDIPlus_MatrixRotate($hMatrix, $r)
    _GDIPlus_MatrixTranslate($hMatrix, -$iRadius / 2, -$iRadius / 2)
    _GDIPlus_GraphicsSetTransform($hGfx_Gradient, $hMatrix)
    $r += 10
    Local Const $hBrush_Gradient = _GDIPlus_LineBrushCreate($iRadius, $iRadius / 2, $iRadius, $iRadius, 0xFF000000, 0xFF33CAFD, 1)
    _GDIPlus_LineBrushSetGammaCorrection($hBrush_Gradient)
    _GDIPlus_GraphicsFillEllipse($hGfx_Gradient, 0, 0, $iRadius, $iRadius, $hBrush_Gradient)
    _GDIPlus_GraphicsFillEllipse($hGfx_Gradient, 4, 4, $iRadius - 8, $iRadius - 8, $hBrush_Black)
    _GDIPlus_GraphicsDrawImageRect($hGfx, $hBitmap_Gradient, ($iW - $iRadius) / 2, ($iH - $iRadius) / 2, $iRadius, $iRadius)
    _GDIPlus_BrushDispose($hBrush_Gradient)
    _GDIPlus_BrushDispose($hBrush_Black)
    _GDIPlus_GraphicsDispose($hGfx_Gradient)
    _GDIPlus_BitmapDispose($hBitmap_Gradient)
    _GDIPlus_MatrixDispose($hMatrix)

    Local Const $hFormat = _GDIPlus_StringFormatCreate()
    Local Const $hFamily = _GDIPlus_FontFamilyCreate($sFont)
    Local Const $hFont = _GDIPlus_FontCreate($hFamily, $iRadius / 10)
    _GDIPlus_StringFormatSetAlign($hFormat, 1)
    _GDIPlus_StringFormatSetLineAlign($hFormat, 1)
    Local $tLayout = _GDIPlus_RectFCreate(0, 0, $iW, $iH)
    Local Static $iColor = 0x00, $iDir = 13
    Local $hBrush_txt = _GDIPlus_BrushCreateSolid(0xFF000000 + 0x010000 * $iColor + 0x0100 * $iColor + $iColor)
    _GDIPlus_GraphicsDrawStringEx($hGfx, $sText, $hFont, $tLayout, $hFormat, $hBrush_txt)
    $iColor += $iDir
    If $iColor > 0xFF Then
        $iColor = 0xFF
        $iDir *= -1
    ElseIf $iColor < 0x16 Then
        $iDir *= -1
        $iColor = 0x16
    EndIf
    _GDIPlus_BrushDispose($hBrush_txt)
    _GDIPlus_FontDispose($hFont)
    _GDIPlus_FontFamilyDispose($hFamily)
    _GDIPlus_StringFormatDispose($hFormat)
    _GDIPlus_GraphicsDispose($hGfx)

    If $bHBitmap Then
        Local $hHBITMAP = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap)
        _GDIPlus_BitmapDispose($hBitmap)
        Return $hHBITMAP
    EndIf
    Return $hBitmap
EndFunc

Jetzt sollte ich aber bis zu (geschätzten) 30 Varianten für verschiedene Zeichenersetzungen, in Datei- und Verzeichnisnamen recursiv vorzunehmen können.

Würdet Ihr mir bitte das eine oder andere Beispiel nennen, wie Ihr das Vorhaben am sinnvollsten umsetzen würdet?

Zitat von Oscar

Das sehe ich nicht als Alternative an.

Bei einer Arbeitsumgebung, die der Programmierer selbst administrieren kann, trifft die von autoiter genannte Variante definitiv zu. Ich war bereits sehr dankbar um die genannte Alternative, damit ich meine Software auf einem geschäftlichen Server überhaupt noch zum laufen bekam.

100% Zustimmung an Oscar, wenn ich eigentlich nur eine .exe Datei zum Download anbieten möchte.

Zitat von alpines

Einen Laufzeitcrypter schreiben und den AV-Herstellern einen Schritt voraus sein :>

Ich bin der erste, wenn das denn funktionieren würde, der 50 € dafür spenden wird.

Ich habe das Verhalten aller Virenscsanner satt.

Zum programmieren und testen nutze ich seit ein paar Monaten ausschließlich eine komplett von Virenprogrammen losgelößte Arbeitsumgebung.

Dann lade ich die Dateien zu Microsoft und somit zum freischalten der Dateien hoch. Mir hat der Defender unter Win10 seit dem letzten Release ALLES, selbst eine mit AutoIt kompilierte "Hallo Welt(Test-MsgBox).exe" rausgehauen. Seit dem lade ich jede .exe-Datei, die ich selbst mit AutoIt kompiliert habe, zu Microsoft hoch https://www.microsoft.com/en-us/wdsi/filesubmission und bekam bislang alle .exeDateien im Defender von Microsoft ohne Nachfragen freigeschaltet.

Was halt richtig saudoof für Homepagebesucher (zukünftige Nutzer) ist, wenn man seine eigene Software (und somit seine Visitenkarte) zum Download und kostenfrei zur Verfügung stellt und nahezu 15-35 Virenscanner bei Virustotal auf die Software mit "False-Positive" anschlagen.

Das ist aber auch bei z. B. NirSoft so. http://blog.nirsoft.net/2009/0…ache-to-small-developers/

Die haben eine Litanei an "was ist false-Positive" und warum schlägt unsere Software bei Virenscannern Alarm.

Zitat von Musashi

Genau !

Siehe : https://docs.microsoft.com/de-…ell-support-to-windows-pe

Oder gleich das Powershell Srkipt eines der (IMHO) besten WinPE-Systeme nutzen.

http://theoven.org/index.php?topic=2607.msg28503#msg28503

Hallo und erstmal wilkommen in diesem Forum.

Starte den Rechner oder den Server mit einer Unix- oder Linux Distribution oder einem WinPE-System und lösche die Datei einfach von der Platte.

Funktioniert einwandfrei

Vielen Dank für die Verbesserungen.

Hilft Dir zwar nicht fee aber erklärt (ein ganz klein wenig) die Sichtweise des Programmierers .

http://translate.google.com/tr…es_fieldproductversion%2F (Gugelübersetzer oder wie das auch immer ausgesprochen wird)

https://www.autoitscript.com/f…_res_fieldproductversion/ (Original)

Danke für die Info. Beim nächsten Mal schau ich genauer hin.

Das ist eine klasse Idee. Herzlichen Dank dafür!

Da ich so gut wie nur unkomplizierte Sripte habe, kann ich das eigentlich überall verwenden. Mit der automatisch erstellen Verknüpfung laufen die Skripte sauber durch.

Hallo autoiter,

danke für den Hinweis. Ja das geht im Nachhinein gesehen natürlich auch. Ich wollte baldmöglichst wieder eine doppelklickbare Verknüpfung zum Programmstart für die Kollegen auf dem Desktop haben.

Gestern hatte ich vor Bäumen den Wald nicht mehr gesehen als meine seit Jahren in Benutzung stehenden .exen, allesamt vom neuen Virenscanner in Quarantäne geschoben wurden. Diese Virenscanner raubten mir noch den letzten Nerv.

Dank der schnellen Hilfe von alpines war dann glücklicher Weise mein Puls wieder auf unter 200.

Das hat geholfen! Herzlichen Dank.

Somit funktionieren meine Programme ohne False-Positive Meldungen glücklicher Weise weiter.

Wenn man das ganze portabel (also ohne die Installation von AutoIt) machen möchte, kann man einfach die die AutoIt3.exe unter C:\Program Files (x86)\AutoIt3 und den Includes-Ordner in den Skriptpfad kopieren. Die Batchdatei von Alpines muss dann noch entsprechend auf den Skriptpfad angepasst werden.

Hallo

unsere Firma hat wieder mal in einen neuen Virenscanner investiert.

Mit dem Erfolg, dass der neue Virenscanner nicht mehr die Ausführung verschiedener mit Autoit kompilierten Programme zulässt.

Unsere Sicherheitsexperten lassen sich leider auf keine Diskussionen ein, generelle Ausnahmen zu definieren. Zum ist das.

ABER: Wenn ich meine Skripte auf die AutoIt3.exe unter C:\Program Files (x86)\AutoIt3 ziehe, startet das Programm perfekt und kann ohne False-Positive Meldung

ausgeführt werden.

Daher benötige ich benötige dringend einen Tip von Euch, wie ich aus einer CMD oder besser aus einer *.ink Verknüpfung heraus, direkt ein au.3 Skript mit der AutoIt3.exe starten kann. Den das bekomme ich nicht alleine hin und ist hoffentlich von allgemeinem Interesse.

Hallo Micha_he

zu 1)

Ich habe nun mal einfach die WinAPIIcons.au3 auskommentiert, das Skript kompilliert und getestet. Es sind mir keine Unfunktionalitäten aufgefallen.

Alles andere ist von Dir prima gelöst worden. Dankeschön.

Gern geschehen und herzlichen Dank für die schnelle und saubere Umsetzung.

Dass der sehr gut gestaltete Hinweis über "AKrypto" nur beim ersten Start mit einer MsgBox visualisiert wird, finde ich prima gelöst.

Bei erneutem Test sind mir noch wenige, weitere Kleinigkeiten aufgefallen (Sag' wenns nervt :D).

1) Beim ausführen von "Beta Run" erscheint folgende Nachricht in der Konsole: error: can't open include file <WinAPIIcons.au3>

2) Beim ausführen von "Run" erscheint erscheint folgende Nachricht ((bei mir in Zeile 205 "If _VersionCompare(@AutoItVersion, "3.3.8.0") = -1 Then Global $WM_DROPFILES = 0x233":

$WM_DROPFILES previously declared as a 'Const'

3) Die ListView-Elemente "Type" und "Size" sind per Mausklick sortierbar, jedoch die Sortierung beider ListView-Spalten wird bei mir nicht richtig ausgeführt.

4) Da "AKrypto" auf deutscher Sprachführung aufbaut, würde die entsprechende Spaltenbenennung in der Ausgangssprache des ListView Sinn machen.

5) Wenn ich z. B. ein zusätzliches Tool mit kleinerem Fenster (irgend ein Programm) ausführe und über "AKrypto" lege und nach links oder rechts mit gedrückter linker Maustaste verschiebe, verschiebt sich bei "AKrypto" eines der zweigeteilten Fenster ungewollt mit. Tut nix böses aber fällt auf.

Hallo Micha_he

zunächst mal vielen Dank für die Bereitstellung des Quellcodes.

Ich möchte Dir dafür ein kleines Feedback zurückgeben.

Mir ist bei einem Test mit kompilliertem AKrypto (x86) aufgefallen, dass

1.)

nach ausgeführten Doppelklick (im Listview) auf eine Word-Datei, das Verzeichnis "VaultTemp" angelegt wird.

Soweit soll das auch so sein und ist so gewünscht.

Was allerdings ein Sicherheitsproblem darstellen könnte ist, dass wenn man die geöffnete Datei (in meinem Fall eine Word-Datei vom Office 2010) geöffnet lässt, also AKrypto bei geöffneter Word-Datei schließt, dass dann (verständlicher Weise) das Verzeichnis "VaultTemp" wegen dem gültigen Bezug auf die Word-Datei, nicht gelöscht werden kann. Somit bleibt quasi "VaultTemp" ungelöscht und sicht- und einsehbar. Und das unverschlüsselt. Anders verhält es sich mit einer x-beliebigen editierbaren Datei, welche nach der Ausführung von "AKrypto" in Notepad++ geöffnet werden kann. Da wird der Bezug auf die geöffnete Datei getrennt. Anders bei z. B. Office-Dateien.

a) Ggf. könntest Du eine MSG-Box einzubauen, dass wenn der Ordner "VaultTemp" nicht gelöscht werden kann, dem Benutzer vor dem beenden von "AKrypto" klargemacht wird, dass die geöffnete Datei vor dem beenden von "AKrypto" geschlossen werden muss. Oder AKrypto kann nicht beendet werden solange die Datei "xxx" geöffnet ist.

b) Das öffnen einer Datei aus dem ListView heraus, deaktiviert wird aber das ist ja nicht Sinn der Sache.

Ich bin der Meinung, dass etwas dazu getan werden sollte.

2.)

Wenn man "AKrypto" öffnet aber keine Dateien oder Ordner darin verschlüsselt hat, sondern jungfräulich wieder schließt, wird erneut ein (ich nenne es mal) Masterkennwort beim nächsten angefragt. Wenn ich jetzt aber das vorher vergebene Passwort eingebe, muss ich es erneut zweimal vergeben. Das ist ein wenig verwirrend für mich gewesen bis ich geblickt habe, dass keine verschlüsselte Passwortdatei angelegt wird.

Nach dem ersten Start der Software hielte ich einen Tooltip oder eine Nachricht für "Anfänger" gut, welche darauf hinweist, dass Dateien oder Verzeichniss per Drag & Drop eingefügt werden können (als Kopie, denn das Original der Datei bleibt weiterhin unverschlüsselt), welche dann im Ausführungsverzeichnis unter dem Ordner "Vault" verschlüsselt werden.

3.) Wofür Du nichts kannst aber unter Windows 10 halt echt nervt, ist dass der Windows Defender voll auf die kompillierte .exe anschlägt.

Grundsätzlich finde ich Deine Software richtig klasse umgesetzt und halte es persönlich für vollkommend ausreichend, um portabel Dateien und Ordner zu verschlüsseln.

Hallo

ergänzend zur sehr guten Hilfestellung von Musashi.

Wenn Du nur eine Datei benötigst (siehe Dein Beispiel), kannst du auch das sehr schön gestaltete Downloadtool von Oscar zu nutzen.

Siehe: downloadwithprogress

Vielen Dank für die Bereitstellung von FontShow.

Funktioniert prima und schnell!

Event. könnte die unten genannte UFD alle Ansprüche für den Export in eine PDF-Datei genügen? Ist nur so ein Gedanke um den gesamten Code in AutoIt abzubilden.

create-pdf-from-your-application

Super. Es hat geholfen.

Herzlichen Dank für die schnelle und kompetente Hilfe!

Hallo

ich benötige Eure Hilfe.

Dieser Befehl klappt wunderbar.

RunWait(@ComSpec & ' /c ' & 'ipconfig /all > ipconfig.txt' & '"', "", @WorkingDir, @SW_HIDE)

Die Datei ipconfig.txt wird im Arbeitsverzeichnis gespeichert. Klappt wie es soll.

Jetzt möchte ich dass die Datei im Verzeichnis @WorkingDir & "\Data\" abgelegt wird.

Leider ohne Erfolg.

Könnt Ihr mir bitte weiterhelfen?

Edit: Das Verzeichnis "Data" besteht bereits.