Beiträge von gmmg

gmmg · Freitag, 14:54

@All,

wie im ersten Poist geschriben will er aber doch auch Bilder verarbeitetn. Können denn die Beispiele dies auch?

Gruß gmmg

gmmg · Donnerstag, 12:01

ob das so direkt geht, weiß ich nicht, du willst ja sicher auch ein entsprechendes Layout der späteren pdf haben. Da gibt es sicher spätere weitere Antworten von Forums Mitgliedern.

Was aber geht, wenn du aus deinem Text und dem Bild mit den Funktionen von Word eine entsprechende Layout Datei erstellst und die dann als PDF druckst.

Gruß gmmg

gmmg · 6. April 2021

Hallo amdinside,

so würde das bei mir im Quellcode aussehen.

C

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\Program Files (x86)\AutoIt3\_ICOS\924.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <file.au3>
#include <AD.au3>
#include <GuiConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>

_AD_ErrorNotify(2)

;Global $hUserName, $hPassword, $sUserName, $sPassword
$gui = GUICreate("Authenticate", 120, 170)
GUICtrlCreateLabel("Username:", 10, 10, 50, 20)
$hUserName = GUICtrlCreateInput("", 10, 35, 100, 20)
GUICtrlCreateLabel("Password:", 10, 70, 50, 20)
$hPassword = GUICtrlCreateInput("", 10, 95, 100, 20, $ES_PASSWORD)
$go = GUICtrlCreateButton("OK", 10, 130, 50, 25, $BS_DEFPUSHBUTTON)
$cancel = GUICtrlCreateButton("Cancel", 60, 130, 50, 25)
GUISetState()
While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $go
            $sUserName = GUICtrlRead($hUserName)
            $sPassword = GUICtrlRead($hPassword)
            _AD_Open($sUserName, $sPassword)
            If @error Then
                MsgBox(64, "Fehler", "User oder Passwort falsch!")
                Exit
            Else

                $start = 0
                _isIngroup()

                IF  $start = 1 Then

                    ; Output Username to log file with date and time
                    _FileWriteLog(@Scriptdir & "\Username.log", $sUserName)
                    ShellExecute("notepad.exe")
                    Exit
                Else
                    MsgBox(0,"Info","Not member " & @crlf & "Close Program")
                    Exit
                EndIf
            EndIf

        Case $cancel, $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd
GUIDelete($gui)

Func _isIngroup()

    Dim $member[3]

    $member[0] = "Maschine1_admin"
    $member[1] = "Maschine1_Wartung"
    $member[2] = "IT-Systems-and-Services"

    _AD_Open()

    For $i = 0 To 2
        $is_member = _AD_IsMemberOf($member[$i], $sUserName)
        If $is_member = 1 Then
            MsgBox(0,"",$is_member & $member[$i])
            $start = 1
            ExitLoop
        EndIf
    Next

    _AD_Close()

EndFunc

Alles anzeigen

Die Abfrage von User und Passwort ist eigentlich nicht notwendig, wenn es sich um einen AD User Account handelt, der das Programm starten will.

Ungefähr wie folgt könnte man das machen.

Spoiler anzeigen

Gruß gmmg

gmmg · 1. April 2021

Oder falls es noch mehr Gruppen sind, die du abfragen möchtest, einfach in einer Schleife abfragen.

Code

$not_start = 0
    ;---------------------------------------
    Dim $member[12]

    $member[0] = "Verteiler/Gruppe1"
    $member[1] = "Verteiler/Gruppe2"
    $member[2] = "Verteiler/Gruppe3"
    $member[3] = "Verteiler/Gruppe4"
    $member[4] = "Verteiler/Gruppe5"
    $member[5] = "Verteiler/Gruppe6"
    $member[6] = "Verteiler/Gruppe7"
    $member[7] = "Verteiler/Gruppe8"
    $member[8] = "Verteiler/Gruppe9"
    $member[9] = "Verteiler/Gruppe10"
    $member[10] = "Verteiler/Gruppe11"
    $member[11] = "Verteiler/Gruppe12"

    _AD_Open()

    For $i = 0 To 11
        $is_member = _AD_IsMemberOf($member[$i], @UserName)
        If $is_member = 1 Then
            ;MsgBox(0,"",$is_member & $member[$i])
            $not_start = 1
            ExitLoop
        EndIf
    Next

    _AD_Close()

Alles anzeigen

Gruß gmmg

gmmg · 29. März 2021

Hallo Zusammen,

bei zusammenfügen beider csv Dateine konnte ich jetzt bei Fileopen die richtige Codierung festlegen.

Code

Global $hFile = FileOpen($path & "zusammen_test.csv", $FO_OVERWRITE + $FO_UNICODE)

If $hFile <> -1 Then

FileWrite($hFile, $sOut)

FileClose($hFile)

EndIf

Danke

Gruß gmmg

gmmg · 29. März 2021

Zitat von Oscar

Du solltest lieber erstmal etwas dazu sagen, ob die Dateien wirklich gleich lang sind (Zeilenanzahl).
Wenn das nämlich nicht gegeben ist, dann brauchst Du eine andere Lösung.

Guten Morgen,

danke für eure Hilfe.

Oscar, die Zeilenanzahl sollte in beiden Dateien übereinstimmen.

Folgend nochmal die original csv Dateien. (umbenannt in txt, wegen dem Forum)

Ein Problem habe ich aber jetzt. Ich möchte die CSV in Excel einlesen, sodass jede Spalte in eienr Zelle steht.

Das scheint aber wegen der Zeichencodierung nicht zu gehen.

Mit der einzelnen "Import_satiusfaction_Test" bzw. ist der Export nach xlsx kein Problem, wenn beide zusammengefasst sind, funktioniert der Export nicht mehr.

C

#include <Excel.au3>
#include <MsgBoxConstants.au3>

; Create application object
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookOpenText Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

Local $sTextFile = "d:\zusammen_test.csv"
;Local $sTextFile = "d:\Import_satisfaction_Test.csv"
_Excel_BookOpenText($oExcel, $sTextFile)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookOpenText Example 1", "Error opening '" & $sTextFile & "'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookOpenText Example 1", "Workbook '" & $sTextFile & "' has been opened successfully.")

Alles anzeigen

Gruß gmmg

gmmg · 27. März 2021

Hallo Oscar, Hallo AspirinJunkie,

danke für die schnellen Antworten

Eben mal probiert, dabei ist mir aufgefallen, dass ich ja aus der zweiten CSV Datei noch die ersten beiden Spalten löschen möchte, da die schon in der ersten Datei vorhanden sind.

Da würde ich dann bei dem Script von Oscar zweimal _ArrayColDelete($aFile2, 0) hinzufügen.

Zitat von Oscar

#include <File.au3>
Global $aFile1, $aFile2, $aOut
_FileReadToArray(@ScriptDir & '\datei1.csv.txt', $aFile1, $FRTA_NOCOUNT + $FRTA_ENTIRESPLIT, ',')
;~ _ArrayDisplay($aFile1)
_FileReadToArray(@ScriptDir & '\datei2.csv.txt', $aFile2, $FRTA_NOCOUNT + $FRTA_ENTIRESPLIT, ',')
;~ _ArrayDisplay($aFile2)
Global $sOut = ''
For $i = 0 To UBound($aFile1, $UBOUND_ROWS) - 1
For $j = 0 To UBound($aFile1, $UBOUND_COLUMNS) - 1
$sOut &= $aFile1[$i][$j] & ','
Next
For $j = 0 To UBound($aFile2, $UBOUND_COLUMNS) - 1
$sOut &= $aFile2[$i][$j] & ','
Next
$sOut = StringTrimRight($sOut, 1) & @CRLF
Next
Global $hFile = FileOpen(@ScriptDir & '\zusammen.csv.txt', 2)
If $hFile <> -1 Then
FileWrite($hFile, $sOut)
FileClose($hFile)
EndIf

Alles anzeigen

Gruß gmmg

gmmg · 26. März 2021

Hallo Zusammen,

ich habe aktuell das Problem, dass ich 2 CSV Dateien zusammenfügen möchte. Diese sollen aber nicht untereinander angefügt werden, sondern nebeneinander.

Anbei mal 3 Beipiele wie es aussehen soll.

Habe nerst gedacht, ich nutze ArrayMerge, aber da werden die Dateien untereinander geschrieben.

Hat da jemamd eine Idee, wie man das am Besten umsetzt?

Danke

Gruß gmmg

gmmg · 29. Dezember 2020

Wolfsblut ,

Willst du Daten aus einer CSV Datei direkt in Mysql einspielen oder wie soll der Ablauf sein?

Versuche das mal mit einem Beispiel zu erklären.

Bei dem Programm "Heidi SQL" hast du auch die möglichkeit eine CSV direkt in die Datenbank zu importieren (unter Werkzeuge).

Gruß gmmg

gmmg · 10. Dezember 2020

Du kannst auch den Prozess mal mit dem Api Client von Postman testen.

https://www.postman.com/product/api-client/

gruß gmmg

gmmg · 7. Dezember 2020

Hallo Yooh,

ich benutze in paar Skripten auch das WinHttp-Objekt.

Bei meinem PC musste ich aber vorher den folgenden Regkey zur TLS Sicherheit schreiben.

Code

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\WinHttp", "DefaultSecureProtocols", "REG_DWORD", "2560")

$oHTTP = ""

$URL = 'https://www......'
$sPD = 'der API String'

$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("POST", $URL, False)
$oHTTP.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded')
$oHTTP.SetRequestHeader("Cache-Control", "no-cache")
$oHTTP.Send($sPD)

$oReceived = $oHTTP.ResponseText
$oStatusCode = $oHTTP.Status

If $oStatusCode <> 200 Then
    MsgBox(4096, "Error", $oStatusCode)
    _filewritelog(@ScriptDir & "\change.log", " - Error " & $oStatusCode & @CRLF)
Else
    _filewritelog(@ScriptDir & "\change.log", " - OK " & $oStatusCode & " " & $oReceived & @CRLF)
EndIf

;RegKEy Eintrag wieder entfernen
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\WinHttp", "DefaultSecureProtocols")

Alles anzeigen

Gruß gmmg

gmmg · 28. Oktober 2020

Ohne das jetzt getestet zu haben, deine Variable $Serverpfad heißt nur Screenshot.jpg, da fehlt der Pfad selber.

Gruß gmmg

gmmg · 21. September 2020

Hallo Arno,

mach das doch mit dem PING Befehl.

Function Ping

Ping ( "address/hostname" [, timeout = 4000] )

Gruß gmmg

gmmg · 4. September 2020

Hallo Jensen,

anbei einmal die Tabelle per Autoit ausgelesen und als HTML angezeigt.

Die Werte kann man sich natürlich zum Beispiel per StringBetween oder RegEx weiter eingrenzen und weiterverarbeiten.

HTML

#include <Array.au3>
#include <IE.au3>
#include <String.au3>

$page = "https://www.mytischtennis.de/clicktt/WTTV/20-21/ligen/3-Kreisklasse-4-VR/gruppe/385717/tabelle/gesamt/"

$oIE = _IECreate($page,0,0) ;Öffne IE versteckt
$sHTML = _IEDocReadHTML($oIE)

_IEQuit($oIE)

;$sHTML = StringReplace ( $sHTML, @LF, "" )  ; eliminates all linefeeds
;$sHTML = StringReplace ( $sHTML, @CR, "" )  ; eliminates all carriagereturn
;$sHTML = StringReplace ( $sHTML, @CRLF, "" )  ; eliminates all carriagereturn-linefeeds

If $sHTML = "" then

    MsgBox(0,"", "Nicht verfügbar")

Else

    ;MsgBox(0,"", $sHTML)
    $aHTML_Array = _StringBetween($sHTML, '<h3>Tabelle (gesamt)</h3>', '</table>')
    ;_ArrayDisplay($aHTML_Array)
    MsgBox(0,"",$aHTML_Array[0])

    $oIE = _IECreate("about:blank", "url")
    _IEBodyWriteHTML($oIE, '<html> ' & $aHTML_Array[0] & '</html>')

EndIf

Alles anzeigen

Gruß gmmg

gmmg · 25. August 2020

@autoiter: Das verstehe ich auch nicht böse gemeint Eine Schleife deshalb, weil die DB ja auch über verschiedene Pfade offen sein kann

Wenn zum beispiel eine auf C:\ und eine Kopie auf D:\ oder übers Netzlaufwerk geöffnet ist, heißen die alle Instanzen bei mir alle wie im Beispiel "mitarbeiter:......"

gmmg · 24. August 2020

autoiter,

in der Schleife kann man dann auch die Fenster abfragen. Das muss DDT dann selbst entscheiden, was ihm lieber ist

Gruß gmmg

gmmg · 24. August 2020

Oder zum schließen der MSACCESS.exe so vorgehen.

Hier wird die While Schleife so lange ausgeführt, bis kein Access Prozess mehr läuft.

Code

While 1

    If ProcessExists("MSACCESS.exe") Then
        ProcessClose("MSACCESS.exe")
    Else
        ;MsgBox(0,"","Springe aus schleife",2)
        ExitLoop
    EndIf
WEnd

Gruß gmmg

gmmg · 24. August 2020

Hier ein Beispiel aus dem engl. Forum.

https://www.autoitscript.com/forum/topic/195488-tab-in-tab/

C

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

Opt("GUIOnEventMode", 1)

; Create main GUI
$hGUI = GUICreate("Main", 1000, 500)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Events")

; Create tab in main GUI
$cMain_Tab = GUICtrlCreateTab(10, 10, 980, 400)
GUICtrlSetOnEvent($cMain_Tab, "_Events")
$cSound_Tab = GUICtrlCreateTabItem("Sound")
$cVideo_Tab = GUICtrlCreateTabItem("Video")
$cPicture_Tab = GUICtrlCreateTabItem("Picture")
GUICtrlCreateTabItem("")

; Hide main GUI
GUISetState(@SW_HIDE, $hGUI)

$aPos = WinGetPos($hGUI)
ConsoleWrite($aPos[0] & " - " & $aPos[1] & @CRLF)

; Create child GUIs which will appear on tabs
$hChild_Sound = GUICreate("", 960, 350, 20, 40, $WS_POPUP, $WS_EX_MDICHILD, $hGUI)
GUISetBkColor(0xFFCCCC, $hChild_Sound) ; Using colours just for example
GUISetState(@SW_HIDE, $hChild_Sound)

$hChild_Video = GUICreate("", 960, 350, 20, 40, $WS_POPUP, $WS_EX_MDICHILD, $hGUI)
GUISetBkColor(0xCCFFCC, $hChild_Video)
GUISetState(@SW_HIDE, $hChild_Video)

$hChild_Picture = GUICreate("", 960, 350, 20, 40, $WS_POPUP, $WS_EX_MDICHILD, $hGUI)
GUISetBkColor(0xCCCCFF, $hChild_Picture)
GUISetState(@SW_HIDE, $hChild_Picture)

; Now add tabs to the child GUIs
GUISwitch($hChild_Sound)

$cSound_Sub_Tab = GUICtrlCreateTab(10, 10, 940, 320)
$cSound_Sub_Tab_1 = GUICtrlCreateTabItem("Sound_Sub_1")
$cSound_Sub_Tab_2 = GUICtrlCreateTabItem("Sound_Sub_2")
GUICtrlCreateTabItem("")

GUISwitch($hChild_Video)
$cVideo_Sub_Tab = GUICtrlCreateTab(10, 10, 940, 320)
$cVideo_Sub_Tab_1 = GUICtrlCreateTabItem("Video_Sub_1")
$cVideo_Sub_Tab_2 = GUICtrlCreateTabItem("Video_Sub_2")
$cVideo_Sub_Tab_3 = GUICtrlCreateTabItem("Video_Sub_3")
GUICtrlCreateTabItem("")

GUISwitch($hGUI)

; Show Main and initial child GUIs
GUISetState(@SW_SHOW, $hGUI)
GUISetState(@SW_SHOW, $hChild_Sound)

While 1
    Sleep(10)
WEnd

Func _Events()

    ConsoleWrite(@GUI_CtrlId & @CRLF)

    Switch @GUI_CtrlId
        Case $GUI_EVENT_CLOSE
            Exit
        Case $cMain_Tab
            ; Hide/show child GUIs as required
            Switch GUICtrlRead($cMain_Tab)
                Case 0
                   GUISetState(@SW_SHOW, $hChild_Sound)
                   GUISetState(@SW_HIDE, $hChild_Video)
                   GUISetState(@SW_HIDE, $hChild_Picture)
                Case 1
                   GUISetState(@SW_HIDE, $hChild_Sound)
                   GUISetState(@SW_SHOW, $hChild_Video)
                   GUISetState(@SW_HIDE, $hChild_Picture)
                Case 2
                   GUISetState(@SW_HIDE, $hChild_Sound)
                   GUISetState(@SW_HIDE, $hChild_Video)
                   GUISetState(@SW_SHOW, $hChild_Picture)
            EndSwitch
    EndSwitch

EndFunc

Alles anzeigen

Gruß gmmg

gmmg · 13. Juli 2020

Mit der MetroGUI-UDF soltle das auch gehen.

Gruß gmmg

gmmg · 6. Juli 2020

Probiere doch mal Tooltip oder SplashTextOn aus der Hilfe

ToolTip("This is a tooltip", 10, 10)

Sleep(300) ; Sleep to give tooltip time to display

ToolTip("", 0, 0)

gruß gmmg

Beiträge von gmmg

Mit Autoit eine PDF-Datei erstellen

Mit Autoit eine PDF-Datei erstellen

Abfrage Activedirectory ob ein User in einer Gruppe ist

Abfrage Activedirectory ob ein User in einer Gruppe ist

2 CSV Dateien zusammenfügen

2 CSV Dateien zusammenfügen

2 CSV Dateien zusammenfügen

2 CSV Dateien zusammenfügen

MySQL Abfrage in Formular ausgeben

Autoit Skript läuft auf anderem PC nicht

Autoit Skript läuft auf anderem PC nicht

FTP Upload eines Screenshots

PC status im Netz ( AD ) abfragen

Daten von einer Webseite aufbereiten

Access starten und maximieren

Access starten und maximieren

Access starten und maximieren

Tab in einem Tab

GUI ohne Close-Button?

MsgBox mit Zeitbegrenzung