Beiträge von UEZ

2011-06-17: Option zur Erstellung einer MD5 Checksumme hinzugefügt + Hintergrund Bild in der Input Box hinzugefügt
2011-06-18: Cursor blinken deaktiviert
2011-06-19: ISO Creator kann jetzt auch per Commandline Parameter aufgerufen werden -> ISO Creator.exe -s <source> -d <destination>
2011-06-20: Mehr Information wird jetzt in der Combo Box dargestellt
2011-06-21: Einige kleinere Feature eingebaut
2011-06-22: CD001 Check auch für EL TORITO SPECIFICATION Sektion hinzugefügt und einige Fehler beseitigt
2011-06-22: Commandline Parameter -exit hinzugefügt + Hintergrundbild kann jetzt geändert werden + Bugfixes
2011-08-03: einige "kosmetische" Änderungen
2011-08-19: kleine Verbesserungen + Optionen zum Anschauen wie die Sektoren gelesen werden (CD Icon rechts unten). Version v1 und v2 sind eingestellt!
2011-08-23: kleine interne Änderungen bzgl. GDI+ und Info im Disk Bild ausgetasucht gegen x / Size MB
2011-08-23: ein ISO 9660 Check entfernt, damit auch DVDs im UDF Format als ISO angelegt werden können und Sektoren wurden nicht auf dem Disc Bild gezeichnet
2011-08-30: fehlerhafte Darstellung der MB Größe auf dem Disc Bild und jetzt kann man MD5 Checksummen von ISO direkt erstellen
2011-09-11: Sound hinzugefügt, wenn fertig bzw. abgebrochen + Update Funktion
2011-09-24: ISO Check Funktion verändert
2011-10-04: Fine Tuning an der MD5 Funktion
2011-12-28: Bug in Combobox gefixt und Check hinzugefügt, wenn kein Laufwerk vorhanden ist
2012-03-06: Parameter $iSharer in _WinAPICreateFile() (ISO check function) Zeile hinzugefügt, da ansonsten die ISO Check Funktionen einen Fehler zurück geben kann
2012-09-10: Bug in der CD Anzeige und in der Update Check Funktion entfernt, Taskbar Progressbar und automatisches Auswerfen des Laufwerks hinzugefügt
2012-09-11: Bug behoben, wenn ext. USB Laufwerk angeschlossen wird (Programm Absturz) und ComboBox hatte nicht richtig funktioniert, DVD+RW DL und DVD+R DL Medientypen hinzugefügt

[autoit]

;Coded by UEZ 2009
#AutoIt3Wrapper_Change2CUI=y
#AutoIt3Wrapper_UseUpx=n
#Include <Date.au3>
$oMyError = ObjEvent("AutoIt.Error", "oMyError") ; Install a custom error handler

[/autoit] [autoit][/autoit] [autoit]

Global $ip = "localhost"
If $CmdLine[0] > 0 Then $ip = $CmdLine[1]

[/autoit] [autoit][/autoit] [autoit]

$objWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\" & $ip & "\root\cimv2")

[/autoit] [autoit][/autoit] [autoit]

ConsoleWrite(GetWMI($ip, 7, 123))

[/autoit] [autoit][/autoit] [autoit]

Func GetWMI($srv, $d = 7, $n = "", $cat = "System")
Local $Eventlog_Err, $Eventlog_Err_Logfile, $Eventlog_Err_EventType, $Eventlog_Err_EventID, $Eventlog_Err_TimeGenerated, $Eventlog_Err_SourceName, $Eventlog_Err_InsertionStrings, $Eventlog_Err_Message
Local $date_threshold, $days_threshold, $date_threshold_WQL, $now, $x;, $tmp
$ping = Ping($srv)
If $ping Then
$days_threshold = -1 * $d ; how many days should be looked into the past for error - 0 = today
$now = _NowCalc()
$date_threshold = _DateAdd('d', $days_threshold, $now) ;get the date / time value fom past
$date_threshold_WQL = StringLeft(StringReplace(StringReplace(StringReplace(_DateAdd('d', $days_threshold, $now), ":", ""), "/", ""), " ", ""), ;convert to WQL-Supported Date Formats
If $n = "" Then
$colItems = $objWMIService.ExecQuery("SELECT Logfile, EventType, EventCode, TimeGenerated, SourceName, InsertionStrings, Message FROM Win32_NTLogEvent WHERE LogFile='" & $cat & "' AND TimeGenerated >= '" & $date_threshold_WQL & "' AND EventType=1", "WQL", 0x30)
Else
$colItems = $objWMIService.ExecQuery("SELECT Logfile, EventType, EventCode, TimeGenerated, SourceName, InsertionStrings, Message FROM Win32_NTLogEvent WHERE EventCode = '" & $n & "' And LogFile='" & $cat & "' AND TimeGenerated >= '" & $date_threshold_WQL & "' AND EventType=1", "WQL", 0x30)
EndIf
If IsObj($colItems) Then
For $objItem In $colItems
$Eventlog_Err_Logfile = $objItem.Logfile
$Eventlog_Err_EventType = $objItem.EventType
$Eventlog_Err_EventID = $objItem.EventCode ;$objItem.EventIdentifier
$Eventlog_Err_TimeGenerated = WMIDateStringToDate2($objItem.TimeGenerated)
$Eventlog_Err_SourceName = $objItem.SourceName
$Eventlog_Err_InsertionStrings = ""
For $x = 0 To UBound($objItem.InsertionStrings) - 1
If Number($objItem.InsertionStrings($x)) = 0 And StringLeft($objItem.InsertionStrings($x), 2) <> "%%" And $objItem.InsertionStrings($x) <> "" And StringLen($objItem.InsertionStrings($x)) > 1 Then ;skip unneeded strings
$Eventlog_Err_InsertionStrings &= StringStripWS(StringReplace(StringReplace($objItem.InsertionStrings($x), Chr(10), ""), Chr(13), ""), 7) & ", "
EndIf
Next
$Eventlog_Err_InsertionStrings = StringTrimRight($Eventlog_Err_InsertionStrings, 1)
$Eventlog_Err_Message = StringStripWS(StringReplace(StringReplace($objItem.Message, Chr(10), ""), Chr(13), ""), 7)
$Eventlog_Err &= $srv & ";" & $Eventlog_Err_Logfile & ";" & $Eventlog_Err_EventType & ";" & $Eventlog_Err_EventID & ";" & $Eventlog_Err_TimeGenerated & ";" & $Eventlog_Err_SourceName & ";" & $Eventlog_Err_InsertionStrings & ";" & $Eventlog_Err_Message & ";" & @CRLF
Next
Return $Eventlog_Err
Else
Return SetError(2, 0, "Error!")
EndIf
Else
Return SetError(1, 0, "Host not reachable")
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func WMIDateStringToDate2($dtmDate)
Return (StringMid($dtmDate, 7, 2) & "." & StringMid($dtmDate, 5, 2) & "." & StringLeft($dtmDate, 4) & " " & _
StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate, 13, 2))
EndFunc ;==>WMIDateStringToDate2

[/autoit] [autoit][/autoit] [autoit]

Func oMyError()
Msgbox(0,"AutoItCOM Test","We intercepted a COM Error !" & @CRLF & @CRLF & _
"err.description is: " & @TAB & $oMyError.Description & @CRLF & _
"err.windescription:" & @TAB & $oMyError.WinDescription & @CRLF & _
"err.number is: " & @TAB & Hex($oMyError.Number, & @CRLF & _
"err.lastdllerror is: " & @TAB & $oMyError.LastDllError & @CRLF & _
"err.scriptline is: " & @TAB & $oMyError.Scriptline & @CRLF & _
"err.source is: " & @TAB & $oMyError.Source & @CRLF & _
"err.helpfile is: " & @TAB & $oMyError.Helpfile & @CRLF & _
"err.helpcontext is: " & @TAB & $oMyError.HelpContext _
, 20)
EndFunc

[/autoit]

[autoit]

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

[/autoit] [autoit][/autoit] [autoit]

$hGUI = GUICreate("Test", 200, 60)
$idInput = GUICtrlCreateInput("", 10, 10, 100, 20)
$idButton = GUICtrlCreateButton("Exit", 150, 10, 40, 40)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState()

[/autoit] [autoit][/autoit] [autoit]

GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE, $idButton
GUIDelete($hGUI)
Exit
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
Local $i
Switch BitAND($wParam, 0x0000FFFF)
Case $idInput
$i = GUICtrlRead($idInput)
$ii = StringRegExpReplace($i, "[^0-9.]", "")
If StringLen($ii) < 5 Then
If Not StringRegExp($ii, "[1-7][0-3]\d{2}", 3) Then
GUICtrlSetData($idInput, StringLeft($ii, 1) & "." & StringMid($ii, 2))
GUICtrlSetState($idButton, $GUI_ENABLE)
Else
GUICtrlSetData($idInput, $ii)
EndIf
Else
GUICtrlSetData($idInput, StringLeft($ii, 5))
EndIf
EndSwitch
Return "GUI_RUNDEFMSG"
EndFunc

[/autoit]

[autoit]

#include <Array.au3>
#include <ComboConstants.au3>
#include <Constants.au3>
#include <EditConstants.au3>
#include <GuiComboBoxEx.au3>
#include <GUIConstantsEx.au3>
#include <GuiImageList.au3>
#include <Misc.au3>
#include <SliderConstants.au3>
#include <StructureConstants.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
Global $hGUI = GUICreate("")
GUISetState()
Global $load_auto = ""
Global $load_auto, $GUI_Bg_Color = 0xB9D1EA, $ping_to = 500
Global Const $ini_file = @ScriptDir & "\Check Online Status.ini"

[/autoit] [autoit][/autoit] [autoit]

Global $hComboColor, $hGUI_Settings, $hProc, $hHook
Settings()

[/autoit] [autoit][/autoit] [autoit]

Exit

[/autoit] [autoit][/autoit] [autoit]

Func Settings()
GUISetState(@SW_DISABLE, $hGUI)
$hGUI_Settings = GUICreate("Settings", 612, 229, -1, -1, $GUI_SS_DEFAULT_GUI, Default, $hGUI)
Local Const $iAutoLoadFile = GUICtrlCreateInput($load_auto, 152, 16, 369, 22)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
Local Const $lLoadAuto = GUICtrlCreateLabel("Load List Automatically", 8, 18, 140, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetTip(-1, "Select a file which will be loaded to the program automatically")
Local Const $bBrowse = GUICtrlCreateButton("&Browse", 528, 14, 75, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
Local Const $lBgColor = GUICtrlCreateLabel("Change GUI background color", 6, 58, 177, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
;~ Local Const $lBgColorAdd = GUICtrlCreateLabel("Add new color", 6, 97, 97, 20)
;~ GUICtrlSetFont(-1, 10, 400, 0, "Arial")
;~ Local Const $bAddColor = GUICtrlCreateButton("Add &Color", 105, 94, 75, 25)
;~ GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$hComboColor = _GUICtrlComboBoxEx_Create($hGUI_Settings, "", 192, 56, 329, 200, BitOR($CBS_DROPDOWNLIST, $CBS_DISABLENOSCROLL))
;~ $hComboColor = GUICtrlCreateCombo("", 192, 56, 329, 200, BitOR($CBS_DROPDOWNLIST, $CBS_DISABLENOSCROLL))
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $hComboColor = ' & $hComboColor & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
GUICtrlSetData(-1, "item2|item3", "item3")
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
Local Const $bSet = GUICtrlCreateButton("&Set", 528, 55, 75, 64)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
Local Const $bApply = GUICtrlCreateButton("&Apply", 528, 180, 75, 40)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
Local Const $bExit_Setting = GUICtrlCreateButton("E&xit", 438, 180, 75, 40)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
Local Const $cSlider = GUICtrlCreateSlider(88, 138, 440, 30, BitOR($TBS_BOTH,$TBS_NOTICKS, $TBS_ENABLESELRANGE, $TBS_FIXEDLENGTH, $WS_TABSTOP))
GUICtrlSetLimit(-1, 5000, 100)
GUICtrlSetData(-1, 500)
GUICtrlSetCursor (-1, 0)
Local Const $lSlider = GUICtrlCreateLabel("Ping Timeout", 8, 141, 80, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetTip(-1, "Default is 500 ms")
Local Const $iPing = GUICtrlCreateInput($ping_to, 528, 140, 74, 21, BitOR($ES_CENTER, $ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW, $hGUI_Settings)
ControlFocus($hGUI_Settings, "", $bExit_Setting)
GUISetIcon(@SystemDir & "\Shell32.dll", 14, $hGUI_Settings)
Local $nMsg, $i, $file, $cindex, $em, $p, $newcolor

[/autoit] [autoit][/autoit] [autoit]

Local $aColors[7] = [0xB9D1EA, 0xC0DCC0, 0xD7E4F2, 0xFFFFE1, 0xA6CAF0, 0xFFFBF0, 0xFECFF4]

[/autoit] [autoit][/autoit] [autoit]

Local Const $hImage = _GUIImageList_Create(256, 56, 5, 3)
For $i = 0 To 6
_GUIImageList_Add($hImage, _GUICtrlComboBoxEx_CreateSolidBitMap($hComboColor, $aColors[$i], 256, 56))
Next
_GUICtrlComboBoxEx_SetImageList($hComboColor, $hImage)

[/autoit] [autoit][/autoit] [autoit]

_GUICtrlComboBoxEx_BeginUpdate($hComboColor)
For $i = 0 To 6
_GUICtrlComboBoxEx_AddString($hComboColor, "Color " & $i + 1, $i, $i)
Next
_GUICtrlComboBoxEx_EndUpdate($hComboColor)

[/autoit] [autoit][/autoit] [autoit]

$cindex = _ArraySearch($aColors, $GUI_Bg_Color)
If Not @error Then
_GUICtrlComboBoxEx_SetCurSel($hComboColor, $cindex)
Else
_GUICtrlComboBoxEx_SetCurSel($hComboColor, 0)
EndIf

[/autoit] [autoit][/autoit] [autoit]

GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $bExit_Setting
GUISetState(@SW_ENABLE, $hGUI)
GUIDelete($hGUI_Settings)
Return 1
Case $cSlider
GUICtrlSetData($iPing, GUICtrlRead($cSlider))
Case $iPing
$p = GUICtrlRead($iPing)
If $p > 5000 Then
$p = 500
ElseIf $p < 100 Then
$p = 100
EndIf
GUICtrlSetData($cSlider, $p)
Case $bBrowse
$file = FileOpenDialog("File Selection", "", "Text Files (*.txt;*.csv)")
If Not @error Then GUICtrlSetData($iAutoLoadFile, $file)
Case $bSet
$GUI_Bg_Color = "0x" & Hex($aColors[_GUICtrlComboBoxEx_GetCurSel($hComboColor)], 6)
GUISetBkColor($GUI_Bg_Color, $hGUI)
Case $bApply
$GUI_Bg_Color = "0x" & Hex($aColors[_GUICtrlComboBoxEx_GetCurSel($hComboColor)], 6)
GUISetBkColor($GUI_Bg_Color, $hGUI)
IniWrite($ini_file, "Bg-Color", "Color", "0x" & Hex($aColors[_GUICtrlComboBoxEx_GetCurSel($hComboColor)], 6))
$em = @error
IniWrite($ini_file, "Auto-Load", "Load", GUICtrlRead($iAutoLoadFile))
$em = @error
IniWrite($ini_file, "Ping-Timeout", "Ping", GUICtrlRead($iPing))
$em = @error
If $em Then
MsgBox(16, "Error", "Unable to save one or more settings to ini file!", 10)
Else
MsgBox(64, "Information", "Settings were save to " & $ini_file & " successfully", 10)
EndIf
;~ Case $bAddColor
;~ $newcolor = _ChooseColor(2, 0, 2, $hGUI_Settings)
;~ If Not @error Then
;~ ConsoleWrite($newcolor & @CRLF)
;~ EndIf
EndSwitch
WEnd
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func WM_NOTIFY($hWnd, $iMsg, $wParam, $iParam)
;~ ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $wParam = ' & $iParam & "/" & Hex(BitAND($iParam, $hComboColor)) & "," & $hComboColor & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR

[/autoit] [autoit][/autoit] [autoit]

$tNMHDR = DllStructCreate($tagNMHDR, $iParam)
$hWndFrom = DllStructGetData($tNMHDR, "hWndFrom")
;~ ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $hWndFrom = ' & $hWndFrom & "/" & $hComboColor & "/" & $hGUI_Settings & "," & $hGUI & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")

[/autoit] [autoit][/autoit] [autoit]

Switch $hWndFrom
Case $hComboColor
Switch $iCode
Case $CBEN_ENDEDITA, $CBEN_ENDEDITW ; Sent when the user has concluded an operation within the edit box or has selected an item from the control's drop-down list.
ConsoleWrite("huhu")
Return False ; accept the notification and allow the control to display the selected item
Case Else
;~ ConsoleWrite(Hex($iCode) & "/ " & Hex($CBEN_ENDEDITA) & "," & Hex($CBEN_ENDEDITW) & @CRLF)
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
Return "GUI_RUNDEFMSG"
EndFunc ;==>WM_NOTIFY

[/autoit]

[autoit]

;coded by UEZ 2011
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Global Const $STM_SETIMAGE = 0x0172
_GDIPlus_Startup()
Global Const $hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\ru3x4oa6reaz.jpg")
Global Const $hHBITMAP = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
Global Const $iW = _GDIPlus_ImageGetWidth($hImage)
Global Const $iH = _GDIPlus_ImageGetHeight($hImage)
_GDIPlus_ImageDispose($hImage)
Global Const $hGUI = GUICreate("", $iW, $iH, -1 , -1, $WS_POPUP, $WS_EX_LAYERED)
Global Const $cPic = GUICtrlCreatePic("", 0, 0, $iW, $iH)
GUICtrlSetState(-1, $GUI_DISABLE)
Global Const $cButton = GUICtrlCreateButton("Exit", $iW - 40, $iH - 40, 30, 30)
Global Const $cLabel = GUICtrlCreateLabel("", 0, 0, $iW, $iH, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1, -2)
_WinAPI_DeleteObject(GUICtrlSendMsg($cPic, $STM_SETIMAGE, 0, $hHBITMAP))
_WinAPI_DeleteObject($hHBITMAP)
_GDIPlus_ShutDown()
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Or $msg = $cButton Then ExitLoop
WEnd

[/autoit] [autoit][/autoit] [autoit]

GUIDelete($hGUI)
Exit

[/autoit]