Beiträge von mumpel

Zitat von BugFix

Ich sitze meist am Laptop - 1280 x 1024.

Bei der Auflösung bin ich blind.

Zitat von BugFix

1200 x 1000

Das kann ich mal versuchen. Ob ich da noch was lesen kann?

Besser wäre natürlich eine automatische Anpassung. Andere Softwarehersteller können es ja auch. Aber das übersteigt meine Fähigkeiten. Vor einer Woche hatte ich noch nicht einmal gedacht, dass ich meinen VBA-Code auf AutoIt umgeschrieben bekomme. Nur weil sich bei uns einige einen QR-Code-Generator gewünscht haben, habe ich es doch gewagt. Bis auf JAB-Code ist es mir auch gelungen. Nur sind bei uns keine Monitore kleiner 24".

Selbst dann ist die GUI noch zu groß.

Zitat von oh-ha

Kann es sein, dass sich die alten erzeugten QR-Code-Bilder nicht löschen, wenn ein neues generiert wird?

Derzeit noch. Nach einer Möglichkeit, eine Rückfrage "Datei ersetzen" auszugeben, suche ich noch (schwierig wenn man den Suchbegriff nicht kennt).

Zitat von oh-ha

ist es schon fast zu großzügig gestaltet

Das muss aber so sein. Von Mini-Dialogen mit Bildlaufleisten halte ich nichts.

Vielleicht kennt sich ja jemand mit der automatischen Bildschirmanpassung aus. Ich kann auch nur auf 24" testen.

Was sollen Bildlaufleisten bringen? Die GUI ist absichtlich so groß.

Die GUI ist auf 1700x1000 gesetzt. Wenn ich "GUICoordMode" nutze, verschwinden alle Controlls.

Hallo!

Ich versuche gerade, einen VBA-Code nach AutoIt umzuschreiben. Jedoch stoße ich hier an meine Grenzen. Wie müsste das in AutoIt aussehen?? Vielleicht kann man das auch ohne Excel umschreiben? SetCurrentDirectory und LoadLibrar sind kein Problem. Aber ab jabPic.InputString komme ich nicht weiter (da muss man ja Type jabDTO und Dim jabPic As jabDTO umschreiben können). Danke!

Type jabDTO
     InputString             As String
     FileName                As String
     ColorNumber             As Long
     SymbolNumber            As Long
     ModuleSize              As Long
     MasterSymbolWidth       As Long
     MasterSymbolHeight      As Long
     SymbolPositions()       As Long 'Liste
     SymbolPositionsNumber   As Long
     SymbolVersionsX         As Long
     SymbolVersionsY         As Long
     SymbolVersionsNumber    As Long
     SymbolEccLevels()       As Long 'Liste
     SymbolEccLevelsNumber   As Long
     ColorSpace              As Long
End Type

  Private Declare Function writeToTmpFile Lib "jabwrapper.dll" (ptrFoo As jabDTO) As Long
  Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
  Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
  Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal GetModuleHandle As String) As Long
  Private Declare Function SetCurrentDirectoryA Lib "kernel32" (ByVal lpPathName As String) As Long


Sub CreateJABCode(strName As String, strText As String, Optional bolUF As Boolean = False, Optional lngModuleSize As Long = 8, _
                  Optional lngECCLevel As Long = 0, Optional lngColorNumber As Long = 8, Optional lngXPos As Long = 1, Optional lngYPos As Long = 1)
On Error GoTo Zwei

Start:

    Dim strPicPath     As String
    Dim strPicName     As String
    Dim jabPic         As jabDTO
    Dim lb             As Long
    
    'Workaround wenn DLLs nicht registriert worden sind
    #If Win64 And VBA7 Then
      SetCurrentDirectoryA (ThisWorkbook.Path & "\jabcode\jabcodeWrapper\dlls64")
    #Else
      SetCurrentDirectoryA (ThisWorkbook.Path & "\jabcode\jabcodeWrapper\dlls32")
    #End If
    lb = LoadLibrary(ThisWorkbook.Path & "\jabcode\jabcodeWrapper\dlls32\jabwrapper.dll")
    
    jabPic.InputString = strText
    
    jabPic.FileName = ThisWorkbook.Path & "\images\jabcode\" & strName & ".png"
    jabPic.ColorNumber = lngColorNumber
    jabPic.ModuleSize = lngModuleSize
    jabPic.SymbolVersionsX = lngXPos
    jabPic.SymbolVersionsY = lngYPos
    jabPic.SymbolEccLevelsNumber = lngECCLevel
    strPicPath = writeToTmpFile(jabPic)


        With Sheets("JAB-Code").Image1
            .Picture = LoadImage(ThisWorkbook.Path & "\images\jabcode\" & strName & ".png")
            .AutoSize = True
        End With
    
    Do Until lb = 0
        FreeLibrary lb
        If CBool(Err.LastDllError) Then
            MsgBox "dll error" & " " & Err.LastDllError
            Err.Clear
            Exit Do
        End If

        lb = 0
        lb = GetModuleHandle(ThisWorkbook.Path & "\jabcode\jabcodeWrapper\dlls32\jabwrapper.dll")
    Loop
Ende:

Exit Sub

Zwei:
GoTo Start
End Sub

JAB-Code-Projekt: https://github.com/jabcode/jabcode

Gruß, René

Zitat von Peter S. Taler

Tip am Rande x-change editor pro... kostetet nur Bruchteile von Acrobat (Vollversion) und kann (eigentlich) alles was Acrobat auch kann...

Aber funktioniert nicht mit meinem Signaturpad, da es dafür nur ein Add-On für Adobe gibt.

Zitat von Peter S. Taler

So manche Software wird mit jedem Update schlechter

Adobe Acrobat+ Reader z.B. Das wurde optisch versaubeutelt.

Würde ich gern. Das gelingt mir aber nicht. mit dem "Resize" komme ich nicht zurecht. Das Problem habe ich übrigens auch, wenn ich die Auflösung auf 125% stelle (Bei 100% kann man ja nicht arbeiten, wenn man kein Luchs ist. ).

Hallo!

Nun bin ich, auch mit Hilfe dieses Forums, mit meinem Projekt fertig. Eigentlich erstellt für Kolleginnen und Kollegen, da es bei uns in der Firma keine QR-Code-Generatoren gibt. Das Programm ist nahezu selbsterklärend. Es können die wichtigsten QR-Codes erstellt werden, sowie Aztec und Datamatrix. Es ist auch möglich, den Secret eines 2FA-QR-Codes auszulesen, entweder aus einer Bilddatei, oder per Webcam, um daraus einen eigenen 2FA-QR-Code zu erstellen. Wichtig ist nur der Secret, Kontoname, Anzeigename und Herausgeber können frei festgelegt werden. JAB-Code ist noch nicht integriert, daran arbeite ich noch. Optimiert für 24"-Monitore. Eure Meinung dazu? Verbesserungsvorschläge?

Da das Projekt zu groß für dieses Forum ist, habe ich es auf meinem Webspace abgelegt. Die Ordnerstruktur bitte beibehalten. Die Bibliotheken (QRCreator, zbar, QRDecode.dll und QREnCode.dll) stammen aus dem Internet (sourcefork, hier aus dem Forum und github) sind frei verfügbar. http://www.rholtz-office.de/counters/getfile.php?id=903

Gruß, René

Zitat von Alina

Muss an meiner Herkunft liegen, das ich den Sar(g)kasmus nicht verstanden habe.

Naja. Manche deutschen Comedians, früher nannte man sie Komiker, haben eben einen seltsamen Humor. Dabei übersehen sie, dass sie selber ein WItz sind. 🤣 Kleiner Scherz nebenbei.

Zum Thema:

Bis auf die Tatsache, dass irgendein AutoIt-Code so manches AV-Programm durcheinanderbringt; das macht VBA-Code ürbigens auch; kann ich keine Probleme mit AutoIt bemerken. Deshalb meine ich, dass es nicht unbedingt immer etwas Neues braucht. Aber vielleicht bin ich auch noch nicht lange genug dabei, um das beurteilen zu können.

Danke! Diese Kleinigkeit war es.

Hallo!

           $ret = "otpauth://totp/Autodesk%3Amaierz%40maier.de?period=30&digits=6&algorithm=SHA1&secret=MMMMMMMMM&issuer=Autodesk"
           $ret = StringReplace($ret, "QR-Code:", "")
           $ret = StringReplace($ret, "Â", "")
           $ret = StringReplace($ret, "ä", "ä")
           $ret = StringReplace($ret, "ö", "ö")
           $ret = StringReplace($ret, "ü", "ü")
           $ret = StringReplace($ret, "ß", "ß")
           $ret = StringReplace($ret, "é", "é")
           $ret = StringReplace($ret, Chr(160), " ")
           If StringInStr($ret, "&") Then

              $ret = StringSplit($ret, "?")
              $ret = StringSplit($ret, "&")
              MsgBox (64,"",Ubound($ret))
                     For $inString = 1 To $ret[0] ;(oder "Ubound($ret)"?)
                         $outString = $ret($inString)
                         MsgBox(64,"",$outString)
                            If StringMid($outString, 0, 7) = "secret=" Then
                               $outString = StringReplace($ret($inString), "secret=", "")
                               MsgBox(64, "Hinweis", $outString)
                               ExitLoop
                            EndIf
                     Next
           Else
              MsgBox(64, "Hinweis", "&-Zeichen ist nicht vorhanden")
           EndIf

Mit obigen Code möchte ich einen String nach "&" splitten. Zuerst muss alles bis zum Fragezeichen weg. Das funktioniert auch ($ret = StringSplit($ret, "?")). Dann soll nach "&" gesplittet werden. Rauskommen müssten 5 Werte ("period=", "algorithm=", "secret=", "digits=" und "issuer="). Funktioniert aber nicht. In VBA funktioniert das genau so. Aber wie funktioniert es in AutoIt richtig, so das ich die Werte bekomme? Danke!

Gruß, René

Zitat von Alina

Ich habe davon die ersten 5-7 Zeilen Gelesen. Was ist da los?

Das sollte Sarkasmus sein. Nach dem Motto "Warum ständig alles neu?".

Zitat von BugFix

Hatte ich noch angefügt

Da hatte ich die Seite noch nicht aktualisiert. Genügt die zint.exe, kann man den Rest aus dem Archiv löschen? Es funktioniert zwar ohne die dll und die andere Anwendung, aber sicher bin ich mir nicht.

Auf jeden Fall ist zint etwas Feines, die kann jede Menge Barcodes erstellen, und noch dazu kostenlos. Auf diesen Thread bin ich auch nur zufällig gestoßen, nach "mühevoller Google-Suche".

Danke! Daumen hoch. Man kann aber auch einen Dateinamen vorgeben.

$zint_path = @ScriptDir & "\zint"
$zint_exe = $zint_path & "\zint.exe"
$cmd = $zint_exe & ' -o test4.png -b AZTEC --scale=3 --border=1 --box -d "Hier steht Text" --quietzones'
Run($cmd, $zint_path, @SW_HIDE)

Hallo!

Auch wenn das Thema schon älter ist. Die Zeile zint -b QRCODE --border=1 --box -d "Gerade CLI ausprobiert - Das ist wirklich easy!" --quietzones kann so natürlich nicht genutzt werden. Wie führt man die Zeile in AutoIt aus? Mit "Run" geht das nicht. (In "cmd" getestet, da läuft es natürlich). Danke!

Gruß, René

Zitat von water

Für die native Unterstützung eines kommerziellen Produktes wie sevoutbar sehe ich wenig Chance für eine Umsetzung.

Aber vielleicht ist jemand in der Lage, soetwas nachzubauen.

Zitat von Alina

Melde dich mal im UK Forum an.

Bin ich schon.

Zitat von Alina

man kann auch schreiben, wenn man eine Iddee / einen Vorschlag für eine Erweiterung hat

Hätte ich schon. https://www.tools4vb.com/software/sevoutbar_activex.php (nutze ich in VBA). Aber in welchem Unterforum macht man das?