Beiträge von Oscar

$iTimer = TimerInit()

$iIntervallmeldung = 60000
$iDauermeldung = 5000
HotKeySet('{ESC}', _Exit)

While Sleep(1000)
	_CheckMeldung()
WEnd

Func _CheckMeldung()
	Local Static $iLastMillis = 0, $bMeldung = False
	Local $iMillis = TimerDiff($iTimer)
	ConsoleWrite(Int(($iMillis - $iLastMillis) / 1000) & @CRLF)
	If $iMillis - $iLastMillis > $iIntervallmeldung Then
		$iLastMillis = $iMillis
		$bMeldung = True
	EndIf
	If $bMeldung Then
		ConsoleWrite(' Alarm' & @CRLF)
		If $iMillis - $iLastMillis > $iDauermeldung Then
			ConsoleWrite(' Alarm aus' & @CRLF)
			$bMeldung = False
		EndIf
	EndIf
EndFunc

Func _Exit()
	Exit
EndFunc

#include <Array.au3>
Local $aListViewData[10][4] = [ _
    ["PC-001", "00:1A:2B:3C:4D:5E", "192.168.23.145", "Büro 101"], _
    ["PC-002", "00:2B:3C:4D:5E:6F", "10.0.15.87", "Empfang"], _
    ["PC-003", "00:3C:4D:5E:6F:7G", "172.16.78.209", "Besprechungsraum"], _
    ["PC-004", "00:4D:5E:6F:7G:8H", "192.168.1.3", "Buchhaltung"], _
    ["PC-005", "00:5E:6F:7G:8H:9I", "10.10.55.201", "Marketing"], _
    ["PC-006", "00:6F:7G:8H:9I:0J", "172.20.100.50", "Entwicklung 1"], _
    ["PC-007", "00:7G:8H:9I:0J:1K", "192.168.0.11", "Entwicklung 2"], _
    ["PC-008", "00:8H:9I:0J:1K:2L", "10.1.1.254", "Personalabteilung"], _
    ["PC-009", "00:9I:0J:1K:2L:3M", "172.31.255.1", "Kantine"], _
    ["PC-010", "00:0J:1K:2L:3M:4N", "192.168.100.100", "Serverraum"] _
]

For $i = 0 To UBound($aListViewData) - 1
	$aListViewData[$i][2] = _IPaddrToUInt($aListViewData[$i][2])
Next
_ArraySort($aListViewData, 1, 0, 0, 2)
For $i = 0 To UBound($aListViewData) - 1
	$aListViewData[$i][2] = _UIntToIPaddr($aListViewData[$i][2])
Next
_ArrayDisplay($aListViewData)

Func _IPaddrToUInt($sIP)
	Local $tAddr = DllStructCreate('uint IP')
	Local $aTmp = StringSplit($sIP, '.', 2)
	Local $iAddr = BitOR(BitShift(Int($aTmp[0]), -24), BitShift(Int($aTmp[1]), -16), BitShift(Int($aTmp[2]), -8), Int($aTmp[3]))
	$tAddr.IP = $iAddr
	Return $tAddr.IP
EndFunc

Func _UIntToIPaddr($iAddr)
	Local $tAddr = DllStructCreate('uint IP')
	$tAddr.IP = $iAddr
	Local $tIP = DllStructCreate('byte D;byte C;byte B;byte A', DllStructGetPtr($tAddr))
	Return $tIP.A & '.' & $tIP.B & '.' & $tIP.C & '.' & $tIP.D
EndFunc

#include <GuiRichEdit.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <WinAPIShellEx.au3>
#include <MsgBoxConstants.au3>


Global $hWh = GUICreate("RichEdit Link Test", 600, 400)
Global $hRichEdit = _ChatBoxCreate($hWh, 10, 10, 580, 380)
GUISetState()

$data = "Hier ist ein Link: https://www.autoit.de" & @CRLF
_ChatBoxAdd($hRichEdit, $data)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			ExitLoop
	EndSwitch
	Sleep(10)
WEnd

_GUICtrlRichEdit_Destroy($hRichEdit)
GUIDelete($hWh)
Exit

Func _ChatBoxCreate($gui, $x = 0, $y = 0, $w = 100, $h = 100)
	$hRichEdit = _GUICtrlRichEdit_Create($gui, "", $x, $y, $w, $h, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
	_GUICtrlRichEdit_AutoDetectURL($hRichEdit, True)
	_GUICtrlRichEdit_SetEventMask($hRichEdit, $ENM_LINK) ; Setze das Ereignismask, um Link-Benachrichtigungen einzuschließen
	GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
	Return $hRichEdit
EndFunc   ;==>_ChatBoxCreate

Func _ChatBoxAdd($box, $txt)
	_GUICtrlRichEdit_AppendText($box, $txt)
EndFunc   ;==>_ChatBoxAdd

Func WM_NOTIFY($hWnd, $iMsg, $wParam, $lParam)
	#forceref $hWnd, $iMsg, $wParam, $lParam
	; Struktur für NMHDR
	Local $tNMHDR = DllStructCreate("struct;hwnd hWndFrom;uint_ptr idFrom;int code;endstruct", $lParam)
	Local $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
	Local $iCode = DllStructGetData($tNMHDR, "code")
	If $hWndFrom = $hRichEdit And $iCode = $EN_LINK Then
		$tMsgFilter = DllStructCreate($tagMSGFILTER, $lParam)
		If DllStructGetData($tMsgFilter, "msg") = $WM_LBUTTONUP Then
			$tEnLink = DllStructCreate($tagENLINK, $lParam)
			$iCpMin = DllStructGetData($tEnLink, "cpMin")
			$iCpMax = DllStructGetData($tEnLink, "cpMax")
			ConsoleWrite("Hyperlink: " & _GUICtrlRichEdit_GetTextInRange($hRichEdit, $iCpMin, $iCpMax) & @CRLF)
		EndIf
	EndIf
EndFunc   ;==>WM_NOTIFY

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <StructureConstants.au3>
#include <WindowsConstants.au3>

Opt('GUIOnEventMode', 1)

Global $g_bShowLV = False

Global $g_hGui = GUICreate('test', 800, 480)
GUISetOnEvent($GUI_EVENT_CLOSE, '_CloseGui')
Global $g_idCombo = GUICtrlCreateCombo('', 10, 10, 100, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL, $WS_VSCROLL))

Global $g_idLV = GUICtrlCreateListView('Hersteller|Artikel|Preis|Bestand', 10, 33, 780, 440)
GUICtrlCreateListViewItem('AMD|AMD Ryzen 5|128.00|328', $g_idLV)
GUICtrlCreateListViewItem('AMD|AMD Ryzen 7|198.00|58', $g_idLV)
GUICtrlCreateListViewItem('Intel|Intel Celeron G5900|211.00|167', $g_idLV)
GUICtrlSetState($g_idLV, $GUI_HIDE)

GUISetState(@SW_SHOW, $g_hGui)
GUIRegisterMsg($WM_COMMAND, '_WM_COMMAND')
GUIRegisterMsg($WM_NOTIFY, '_WM_NOTIFY')

WinWaitClose($g_hGui)

Func _CloseGui()
	GUIDelete($g_hGui)
EndFunc   ;==>_CloseGui

Func _WM_NOTIFY($hWnd, $iMsg, $wParam, $lParam)
	#forceref $hWnd, $iMsg, $wParam
	Local $tNMHDR = DllStructCreate($tagNMHDR, $lParam)
	Local $hWndFrom = HWnd(DllStructGetData($tNMHDR, 'hWndFrom'))
	Local $iCode = DllStructGetData($tNMHDR, 'Code')
	Local $tItemActivate, $sItem
	Switch $hWndFrom
		Case GUICtrlGetHandle($g_idLV)
			Switch $iCode
				Case $NM_CLICK
					$tItemActivate = DllStructCreate($tagNMITEMACTIVATE, $lParam)
					$sItem = _GUICtrlListView_GetItemTextString($g_idLV, $tItemActivate.index)
					GUICtrlSetState($g_idLV, BitOR($GUI_HIDE, $GUI_FOCUS))
					$g_bShowLV = False
					ConsoleWrite('Listview CLICK Index:' & $tItemActivate.index  & ' "' & $sItem & '"' & @CRLF)
			EndSwitch
	EndSwitch
	Return $GUI_RUNDEFMSG
EndFunc

Func _WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
	#forceref $hWnd, $iMsg, $lParam
	Local $iIDFrom = BitAND($wParam, 0xFFFF)
	Local $iCode = BitShift($wParam, 16)
	Switch $iIDFrom
		Case $g_idCombo
			Switch $iCode
				Case $CBN_DROPDOWN
					GUICtrlSetState($g_idLV, $g_bShowLV ? BitOR($GUI_HIDE, $GUI_FOCUS) : BitOR($GUI_SHOW, $GUI_FOCUS))
					ConsoleWrite('Combo DROPDOWN, LV-State:' & $g_bShowLV & @CRLF)
					$g_bShowLV = Not $g_bShowLV
			EndSwitch
	EndSwitch
	Return $GUI_RUNDEFMSG
EndFunc   ;==>_WM_COMMAND

#include <EventLog.au3>
#include <Array.au3>

Global $hEventLog = _EventLog__Open("", "System")
Global $i = 0, $aEvent
Do
	$aEvent = _EventLog__Read($hEventLog, True, False, $i)
	If $aEvent[0] = False Then ExitLoop
	If $aEvent[6] = 6006 Then ExitLoop
	$i += 1
Until 0
_EventLog__Close($hEventLog)
Global $sDateTime = _DateAndTimeToDateTime($aEvent[2], $aEvent[3])
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sDateTime = ' & $sDateTime & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console

Func _DateAndTimeToDateTime($sDate, $sTime)
	Local $sD = StringRegExpReplace($sDate, '(\d{2})/(\d{2})/(\d{4})', ' $3/$1/$2')
	Local $aT = StringRegExp($sTime, '(.{2})[: ]', 3)
	$aT[0] += (StringRight($sTime, 2) = 'PM') ? 12 : 0
	If $aT[0] = 12 Then $aT[0] = 0
	Return StringFormat('%s %02i:%02i:%02i', $sD, $aT[0], $aT[1], $aT[2])
EndFunc

#include <Array.au3>

Local $aInput[] = ["01:30:00", "-00:30:00", "02:00:00", "-01:00:00"]
;~ _ArrayDisplay($aInput)

Local $Summe = _Timeradd($aInput)
Msgbox(1,"",$Summe)

Func _Timeradd(ByRef $aInput)
    Local $iSec
    For $i = 0 To UBound($aInput) - 1
        $iSec += _TimeToSec($aInput[$i])
    Next
    Return _SecToTime($iSec)
EndFunc

Func _TimeToSec(ByRef $sTime)
    Local $aTmp, $iSign, $iSec
    $iSign = (StringLeft($sTime, 1) == '-') ? -1 : 1
    $aTmp = StringSplit(StringRight($sTime, 8), ':', 2)
    $iSec = $aTmp[0] * 3600 + $aTmp[1] * 60 + $aTmp[2]
    Return $iSec * $iSign
EndFunc

Func _SecToTime($iSec)
    Local $iHour, $iMin, $iSign = $iSec < 0 ? '-' : ''
    $iHour = Int($iSec / 3600)
    $iSec = Mod($iSec, 3600)
    $iMin = Int($iSec / 60)
    $iSec = Mod($iSec, 60)
    Return $iSign & StringFormat('%02i:%02i:%02i', Abs($iHour), Abs($iMin), Abs($iSec))
EndFunc