Beiträge von MojoeB

#include <Array.au3>
#include <GuiListBox.au3>
#include <File.au3>

CreateListBox()
MsgBox(0, 'beendet', 'script beendet')

Func CreateListBox()

    Local $sSection = "items"
    Local $sKeyPrefix = "item"
    Local $sINIFile = @ScriptDir & "\listbox.ini"
    Local $aItems = IniReadSection($sINIFile, "items")
    Local $QrCodeList

    $hGUI = GUICreate("List Box Get ListBox Info", 400, 296)
    $QrCodeList = _GUICtrlListBox_Create($hGUI, "", 2, 2, 396, 296)

    GUISetState(@SW_SHOW)

    $aFileList = _FileListToArray("D:\Programming\Projects\temp68\test", "QR_*")
    For $i = 1 To $aFileList[0] ; Array[0] enthält die Anzahl der Elemente im Array
        IniWrite($sINIFile, $sSection, $sKeyPrefix & $i, $aFileList[$i])
    Next
   
   If @error = 1 Then
        MsgBox($MB_SYSTEMMODAL, "", "Pfad ungültig.")
        Exit
    EndIf
    If @error = 4 Then
        MsgBox($MB_SYSTEMMODAL, "", "Keine Dateien gefunden.")
        Exit
    EndIf
    Sleep(200)

    If Not @error Then
     
        
        _GUICtrlListBox_BeginUpdate($QrCodeList)
        For $i = 1 To $aItems[0][0]
            _GUICtrlListBox_AddString($QrCodeList, $aItems[$i][1])
        Next
        _GUICtrlListBox_EndUpdate($QrCodeList)

        Sleep(1250)

    Else
        MsgBox(16, "Fehler", "Die INI-Datei konnte nicht gelesen werden.")
    EndIf

EndFunc   ;==>CreateListBox

#Python!

import ctypes
import time

# Laden der benötigten Windows-API-Funktionen
user32 = ctypes.WinDLL('user32')
kernel32 = ctypes.WinDLL('kernel32')
wtsapi32 = ctypes.WinDLL('wtsapi32')

# Definition von Konstanten und Typen
WTS_CURRENT_SERVER_HANDLE = 0
FALSE = 0
WTS_USER_NAME = 5

# Manuelle Definition der Struktur LASTINPUTINFO
class LASTINPUTINFO(ctypes.Structure):
    _fields_ = [("cbSize", ctypes.c_uint),
                ("dwTime", ctypes.c_ulong)]

# Definition der Struktur WTS_SESSION_INFO
class WTS_SESSION_INFO(ctypes.Structure):
    _fields_ = [
        ("SessionId", ctypes.c_ulong),
        ("pWinStationName", ctypes.c_wchar_p),
        ("State", ctypes.c_ulong),
    ]

# Definition der benötigten Funktionen
WTSLogoffSession = wtsapi32.WTSLogoffSession
WTSLogoffSession.restype = ctypes.c_bool
WTSLogoffSession.argtypes = [ctypes.c_void_p, ctypes.c_ulong, ctypes.c_bool]

WTSQuerySessionInformation = wtsapi32.WTSQuerySessionInformationW
WTSQuerySessionInformation.restype = ctypes.c_bool
WTSQuerySessionInformation.argtypes = [ctypes.c_void_p, ctypes.c_ulong, ctypes.c_uint, ctypes.POINTER(ctypes.c_void_p), ctypes.POINTER(ctypes.c_ulong)]

WTSEnumerateSessions = wtsapi32.WTSEnumerateSessionsW
WTSEnumerateSessions.restype = ctypes.c_bool
WTSEnumerateSessions.argtypes = [ctypes.c_void_p, ctypes.c_ulong, ctypes.c_ulong, ctypes.POINTER(ctypes.POINTER(WTS_SESSION_INFO)), ctypes.POINTER(ctypes.c_ulong)]

WTSFreeMemory = wtsapi32.WTSFreeMemory
WTSFreeMemory.argtypes = [ctypes.c_void_p]

GetTickCount = kernel32.GetTickCount64
GetTickCount.restype = ctypes.c_ulonglong

# Funktion zur Überprüfung der Benutzeraktivität
def get_last_input_time():
    lii = LASTINPUTINFO()
    lii.cbSize = ctypes.sizeof(LASTINPUTINFO)
    if not user32.GetLastInputInfo(ctypes.byref(lii)):
        raise ctypes.WinError()
    return lii.dwTime

# Funktion zur Abfrage des Benutzernamens für eine Sitzung
def get_username(session_id):
    ppBuffer = ctypes.c_void_p()
    bytesReturned = ctypes.c_ulong()
    if WTSQuerySessionInformation(WTS_CURRENT_SERVER_HANDLE, session_id, WTS_USER_NAME, ctypes.byref(ppBuffer), ctypes.byref(bytesReturned)):
        username = ctypes.wstring_at(ppBuffer)
        WTSFreeMemory(ppBuffer)
        return username
    else:
        return "Unbekannt"

# Funktion zur Überprüfung der Inaktivität und Abmeldung
def check_user_activity(session_id, max_inactive_duration_minutes):
    last_input_time = get_last_input_time()

    while True:
        current_time = GetTickCount()
        last_input_time = get_last_input_time()
        
        # Berechnung der vergangenen Inaktivitätszeit in Minuten
        inactive_duration = (current_time - last_input_time) / 1000 / 60

        # Ausgabe der aktuellen Inaktivitätsdauer
        print(f"Inaktivitätsdauer für Sitzung {session_id}: {inactive_duration:.2f} Minuten")

        # Überprüfen der Inaktivität
        if inactive_duration > max_inactive_duration_minutes:
            print(f"Benutzer-Sitzung {session_id} wurde wegen Inaktivität abgemeldet.")
            WTSLogoffSession(WTS_CURRENT_SERVER_HANDLE, session_id, FALSE)
            break
        
        # Warten für eine kurze Zeit, um die Aktivität zu überwachen
        time.sleep(1)  # Überprüfung alle 60 Sekunden

# Hauptprogramm
if __name__ == "__main__":
    session_info_array = ctypes.POINTER(WTS_SESSION_INFO)()
    session_count = ctypes.c_ulong(0)

    if not WTSEnumerateSessions(WTS_CURRENT_SERVER_HANDLE, 0, 1, ctypes.byref(session_info_array), ctypes.byref(session_count)):
        print(f"Fehler beim Abrufen der Sitzungsinformationen. Fehlercode: {ctypes.get_last_error()}")
        exit(1)

    sessions = ctypes.cast(session_info_array, ctypes.POINTER(WTS_SESSION_INFO * session_count.value)).contents

    print("Aktuell angemeldete Benutzer:")
    for i in range(session_count.value):
        session_id = sessions[i].SessionId
        session_name = get_username(session_id)
        session_state = sessions[i].State
        print(f"Sitzung ID: {session_id}, Benutzer: {session_name}, Status: {session_state}")

        # Überprüfen der Benutzeraktivität und Abmelden bei Inaktivität nur für aktive Sitzungen
        if session_state == 0:  # 0 bedeutet aktiv
            check_user_activity(session_id, max_inactive_duration_minutes=120)  # Max. Inaktivität: 120 Minuten (2 Stunden)

    # Aufräumen
    WTSFreeMemory(session_info_array)

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <Array.au3>

Global $ini = @ScriptDir & '\Stats.ini'
Global $sections

; GUI erstellen
$MainMenu = GUICreate("Anrufe Legende", 939, 569, 223, 141)
$LabelMainMenu = GUICtrlCreateLabel("Anrufe Legende", 369, 16, 201, 29)
GUICtrlSetFont(-1, 15, 800, 0, "MS Sans Serif")
$GroupRechts = GUICtrlCreateGroup("", 640, 56, 289, 481)
$InfoStatistik = GUICtrlCreateEdit("", 648, 72, 273, 457, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_BORDER))
GUICtrlSetFont(-1, 10, 800, 0, "DejaVu Sans Mono")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GroupMitte = GUICtrlCreateGroup("", 336, 88, 273, 169)
$ButtonSchliessen = GUICtrlCreateButton("Schließen", 359, 180, 227, 57)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetCursor(-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GroupMitteStats = GUICtrlCreateGroup("", 336, 264, 273, 273)
$ComboStatsWahl = GUICtrlCreateCombo("", 344, 304, 257, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetCursor(-1, 0)
$LabelStats = GUICtrlCreateLabel("Statistik wählen", 424, 280, 111, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$ButtonLoeschen = GUICtrlCreateButton("Löschen", 520, 496, 75, 25)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
GUICtrlSetCursor(-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

; Funktionen

Func LoadSections()
    $sections = IniReadSectionNames($ini)
    If @error Then
        MsgBox(0, "Fehler", "Die INI-Datei konnte nicht gelesen werden.")
        Exit
    EndIf

    GUICtrlSetData($ComboStatsWahl, "")
    For $i = 1 To $sections[0]
        Local $Datum = IniRead($ini, $sections[$i], "Datum", "")
        If $Datum <> "" Then
            GUICtrlSetData($ComboStatsWahl, $Datum, True)
        EndIf
    Next
EndFunc

Func DisplayStats($section)
    Local $DatumStats = IniRead($ini, $section, "Datum", "default")
    Local $AnrufeStats = IniRead($ini, $section, "Anrufe", "default")
    Local $VerpassteAnrufeStats = IniRead($ini, $section, "Verpasste Anrufe", "default")
    Local $ZurueckgerufenStats = IniRead($ini, $section, "Zurückgerufen", "default")
    Local $NameStats = IniRead($ini, $section, "Name", "default")
    Local $WeggedruecktStats = IniRead($ini, $section, "Weggedrückt", "default")

    Local $data = StringFormat("            STATISTIK\r\n\r\n\r\nDatum: "&$DatumStats&"\r\n\r\n\r\nAnrufe: "&$AnrufeStats&"\r\n\r\n\r\nVerpasste: "&$VerpassteAnrufeStats&"\r\n\r\n\r\nPlatzhalter:\r\n\r\n\r\nZurückgerufen: "&$ZurueckgerufenStats&"\r\n\r\n\r\nName: "&$NameStats&"\r\n\r\n\r\nPlatzhalter:\r\n\r\n\r\nWeggedrückt: "&$WeggedruecktStats&"\r\n\r\n")
    GUICtrlSetData($InfoStatistik, $data)
EndFunc

Func DeleteStats($section)
    IniDelete($ini, $section)
    LoadSections()
    GUICtrlSetData($InfoStatistik, "")
EndFunc

; Initialisierung
LoadSections()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $ButtonLoeschen
            Local $selectedDate = GUICtrlRead($ComboStatsWahl)
            If $selectedDate <> "" Then
                For $i = 1 To $sections[0]
                    If IniRead($ini, $sections[$i], "Datum", "") = $selectedDate Then
                        DeleteStats($sections[$i])
                        ExitLoop
                    EndIf
                Next
            EndIf
        Case $ComboStatsWahl
            Local $selectedDate = GUICtrlRead($ComboStatsWahl)
            If $selectedDate <> "" Then
                For $i = 1 To $sections[0]
                    If IniRead($ini, $sections[$i], "Datum", "") = $selectedDate Then
                        DisplayStats($sections[$i])
                        ExitLoop
                    EndIf
                Next
            EndIf
        Case $ButtonSchliessen
            Exit
    EndSwitch
WEnd