Beiträge von bernd670

**bernd670**

Hallo,

bei mir läuft es mit und ohne Parameter!

Läuft evtl. noch eine 2. Instanz die nicht richtig beendet wurde?
Gib einfach mal die Anzahl der Instanzen nach dem Öffnen aus!

AutoIt

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


; Open Excel application (force new instance)
Local $oExcel2 = _Excel_Open()


If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_Close Example", "Error creating the second Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)


$aProcesses = ProcessList("Excel.exe")
MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_Close Example 2", "Function starts successfully." & @CRLF & @CRLF & $aProcesses[0][0] & " Excel instance(s) running.")


; *****************************************************************************


; Close the Excel instance opened by _Excel_Open


; *****************************************************************************


_Excel_Close($oExcel2)


If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_Close Example 2", "Error closing the Excel application." & @CRLF & "@error = " & @error & ", @extended = " & @extended)


Sleep(2000)


$aProcesses = ProcessList("Excel.exe")


MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_Close Example 2", "Function ended successfully." & @CRLF & @CRLF & $aProcesses[0][0] & " Excel instance(s) still running.")

Alles anzeigen

**bernd670**

Hallo,

früher konnte man, wenn oben auf "Thema bearbeiten" geklickt hat, das Thema auf gelöst setzen, ich weiss jetzt nicht ob das evtl. nur der Ersteller kann oder ob es die Option nicht mehr gibt.

Zur not einfach den Titel editieren und [gelöst] davor schreiben!

**bernd670**

Intern wird das Standard-Programm geöffnet und die Printfunktion ausgeführt!

_FilePrint mach das gleiche wie

[autoit]

ShellExecute ("<Dateiname>", "", "", "print", @SW_HIDE)

[/autoit]

und das ist das gleiche als wenn du im Contextmenü einer Datei auf Drucken gehst. Alle Dateien die über das Contextmenü gedruckt werden können kann man auch mit ShellExecute bzw. _FilePrint ausdrucken!

**bernd670**

Ich würde mir darüber keine Gedanken machen der Fehler hat ja definitiv nicht mit deinem Programm zu tun.

**bernd670**

Kann man so machen, musst nur darauf achten die Controls auch wieder zu löschen bevor du sie mit neuen Controls überschreibst, wenn du z. B. die nächsten 20 anzeigen willst.

Einfacher ist es am Anfang eine GUI zu erstellen die z. B. schon 20 Controls hat, auch in einer Schleife wie du es schon gemacht hast.
Danach mit GuiCtrlSetImage bzw. GuiCtrlSetData nur neue Werte in die Controls schreiben und nicht benötigte zu deaktivieren.

**bernd670**

Hallo,

besser ist wenn du auf die gespeicherten ID's zugreifst.

AutoIt

; Hier wird kontrolliert, welches der in Schleife erstellten Controls angeklickt wurde.
		If $hGUIMsg > 0 Then
			For $i = 0 To $iHits - 1
				If ($hGUIMsg = $idPic[$i]) Or ($hGUIMsg = $idLabel[$i]) Then
					MsgBox(0, "", $aResultnames[$i][1])
					ExitLoop
				EndIf
			Next
		EndIf

**bernd670**

War eher Zufall, ich habe mal was anderes reingeschrieben damit hat es geklappt und dann wieder <b> reingeschrieben, hat auch geklappt. Dann hab ich mir den Text noch mal aus deinem Post genommen und im Hexeditor angeschaut.

**bernd670**

Zitat von autoiter

@bernd670
Ach ne, gibts ja nicht. Ich habe das (glaube ich aus dem Quelltext im Browser kopiert).. Probiere ich gleich mal. Dankeschön!

Das dacht ich mir fast, weil eingeben kann man das nur über Alt+0129 (Numpad)!

**bernd670**

Zitat von autoiter

Allerdings bekomme ich hier schon einen Fehler, den ich nicht verstehe. Und zwar schaffe ich es nicht, den Namen richtig zu extrahieren. Meine Textersetzung funktioniert nicht. Vor jedem Titel bleibt das <b> erhalten.

Hallo,
ich weiss zwar nicht wie du es geschafft hast, aber in dem Array $aSubstitutes steht "<b>chr(129)" drin, wobei chr(129) ein nicht sichtbares Zeichen ist. Das merkst du wenn du z. B. mit Cursor darüber fährst, dann wird zwischen > und " noch ein Schritt gemacht.

Lösche einfach mal das nicht sichbare Zeichen oder schreib gleich den ganzen String neu rein, dann sollte es funktionieren!

**bernd670**

Zitat von bazii

bernd670 :
Dein Code erzeugt ja eine zusätzliche, virtuelle GUI wenn ich mich nicht irre. Dadurch wurden mir beim Test mit der compilierten .exe auf meinen Testsystemen 2 gestartete Icons angezeigt. Kann man dies unterdrücken? Also so, dass nur ein Icon angezeigt wird.

Hast du evtl. meinen Code 1:1 in deinen übernommen?

Das sollte nur ein Beispiel sein wie man die komplette Bildschirmgröße ermitteln kann, auch wenn man z.B. 2 Monitore angeschlossen hat.

Einbauen in den Code würde ich es so:

AutoIt

;coded by UEZ build 2014-02-08, idea taken from http://codepen.io/Fahrenheit/pen/Kbyxu
;AutoIt v3.3.9.21 or higher needed!


#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <GDIPlus.au3>


 ;== == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == =
;AutoItSetOption("TrayMenuMode", 11)
;===================================================================
Opt("GUIResizeMode", $GUI_DOCKAUTO)
;===================================================================




#Region ### START Koda GUI section ### Form=h:\meine software\toolstarter\toolstarter.kxf
Opt("GUIResizeMode", $GUI_DOCKAUTO)


_GDIPlus_Startup()


Global $VirtualDskTop = _GetVirtualScreenSize()
Global Const $STM_SETIMAGE = 0x0172; $IMAGE_BITMAP = 0
Global $hHBmp_BG, $hB, $iPerc = 0, $iSleep = 30, $s = 0, $aText[2] = ["Lese Verzeichnisse ein", "Bitte warten!"], $t, $m = 0
Global $iW_Splash = 500, $iH_Splash = 250, $iPic_Splash
Show_Splash()


$Form1_1 = GUICreate("LS", 906, 762, 0, 0, BitOR($GUI_SS_DEFAULT_GUI,$WS_SIZEBOX,$WS_MAXIMIZEBOX,$WS_THICKFRAME,$WS_TABSTOP))
GUISetBkColor(0xD7E4F2)


$netzwerk = GUICtrlCreateButton("IP-Config /all", 13, 354, 129, 49)
GUICtrlSetTip(-1, "ipconfig /all")
GUICtrlSetCursor(-1, 0)
$mac = GUICtrlCreateButton("MAC-Adresse ermitteln", 156, 354, 129, 49)
GUICtrlSetTip(-1, "Zeigt die MAC-Adressen Ihrer Netzadapter an")
GUICtrlSetCursor(-1, 0)
GUISetState(@SW_SHOW)
WinMove($Form1_1, "", 0, 0, $VirtualDskTop[0], $VirtualDskTop[1])


;==============================================================================


If @OSArch = "X64" And Not @AutoItX64 Then
	DllCall("kernel32.dll", "int", "Wow64DisableWow64FsRedirection", "int", 1)
EndIf
;==============================================================================
;If @OSArch = "X64" and not @Autoitx64 Then
;	Msgbox(64, "Falsche Architektur !", "Unter einem 64bit Betriebssystem, muss auch eine 64bit-Variante" & @CRLF & "des Programms gestartet werden !")
;	Exit
;EndIf
;==============================================================================




Global $iW = 600, $iH = 150
Global Const $hGUI = GUICreate("Top-PE.DE", $iW, $iH, (890 - $iW) / 2, 100, $WS_POPUP, $WS_EX_MDICHILD, $Form1_1)
Global Const $iPic = GUICtrlCreatePic("", 0, 0, $iW, $iH)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_HIDE, $hGUI)


Do
	Switch GUIGetMsg()
		Case $netzwerk
			StartAnim()
			_netzwerk()
			Sleep(5000)
			StopAnim()
			Run(@ComSpec & " /c start ipconfig.txt", @WorkingDir, @SW_HIDE)
		Case $mac
			StartAnim()
			_mac()
			Sleep(5000)
			StopAnim()
			Run(@ComSpec & " /c start getmac.txt", @WorkingDir, @SW_HIDE)
		Case $GUI_EVENT_CLOSE
			GUIRegisterMsg($WM_TIMER, "")
			_WinAPI_DeleteObject($hHBmp_BG)
			_GDIPlus_Shutdown()
			GUIDelete()
			Exit
	EndSwitch
Until False
;==============================================================================


Func StartAnim()
	GUISetState(@SW_SHOW, $hGUI)
	GUIRegisterMsg($WM_TIMER, "PlayAnim")
	DllCall("user32.dll", "int", "SetTimer", "hwnd", $hGUI, "int", 0, "int", $iSleep, "int", 0)
EndFunc   ;==>StartAnim


Func StopAnim()
	GUISetState(@SW_HIDE, $hGUI)
	GUIRegisterMsg($WM_TIMER, "")
EndFunc   ;==>StopAnim


Func _netzwerk()
	RunWait(@ComSpec & ' /c ' & 'ipconfig /all > ipconfig.txt' & '"', "", @WorkingDir, @SW_HIDE)
	;Exit
EndFunc   ;==>_netzwerk


Func _mac()
	RunWait(@ComSpec & ' /c ' & 'getmac /V > getmac_.txt' & '"', "", @WorkingDir, @SW_HIDE)
	Sleep(200)
	RunWait(@ComSpec & ' /c ' & 'cmd /U /C TYPE getmac_.txt > getmac.txt' & '"', "", @WorkingDir, @SW_HIDE)
	Sleep(200)
	RunWait(@ComSpec & ' /c ' & 'del getmac_.txt' & '"', "", @WorkingDir, @SW_HIDE)
	Sleep(200)
	Run(@ComSpec & " /c start getmac.txt", @WorkingDir, @SW_HIDE)
	;Exit
EndFunc   ;==>_mac


;===================================================================




Func PlayAnim()
	$hHBmp_BG = _GDIPlus_LineProgressbar($iW, $iH, $aText[$m])
	$hB = GUICtrlSendMsg($iPic, $STM_SETIMAGE, $IMAGE_BITMAP, $hHBmp_BG)
	If $hB Then _WinAPI_DeleteObject($hB)
	_WinAPI_DeleteObject($hHBmp_BG)
	$t += 1
	If Not $t = Mod($t, 250) Then $m = Mod($m + 1, 2)
EndFunc   ;==>PlayAnim




Func _GDIPlus_LineProgressbar($iW, $iH, $sText = "Loading", $sFont = "Arial Black", $iFontSize = 16, $bHBitmap = True)
	Local Const $hFormat = _GDIPlus_StringFormatCreate()
	Local Const $hFamily = _GDIPlus_FontFamilyCreate($sFont)
	Local Const $hFont = _GDIPlus_FontCreate($hFamily, $iFontSize)
	_GDIPlus_StringFormatSetAlign($hFormat, 1)
	_GDIPlus_StringFormatSetLineAlign($hFormat, 1)
	Local $tLayout = _GDIPlus_RectFCreate()
	Local Const $hBitmap = _GDIPlus_BitmapCreateFromScan0($iW, $iH)
	Local Const $hGfx = _GDIPlus_ImageGetGraphicsContext($hBitmap)
	_GDIPlus_GraphicsSetSmoothingMode($hGfx, 4 + (@OSBuild > 5999))
	_GDIPlus_GraphicsSetTextRenderingHint($hGfx, 4)
	_GDIPlus_GraphicsSetPixelOffsetMode($hGfx, $GDIP_PIXELOFFSETMODE_HIGHQUALITY)


	Local $hBitmap_Bg = _GDIPlus_BitmapCreateFromMemory(_Background_Image())
	_GDIPlus_GraphicsDrawImageRect($hGfx, $hBitmap_Bg, 0, 0, $iW, $iH)
	Local $aInfo = _GDIPlus_GraphicsMeasureString($hGfx, $sText, $hFont, $tLayout, $hFormat)
	Local Const $hBrush_Text = _GDIPlus_BrushCreateSolid(0xFFFFFFFF), $hBrush_BgRect = _GDIPlus_BrushCreateSolid(0xA061BDB6), $hBrush_Rect = _GDIPlus_BrushCreateSolid(0x80FF3600)
	Local Static $z
	_GDIPlus_GraphicsFillRect($hGfx, Cos($z) * $aInfo[0].Width / 5 + ($iW - $aInfo[0].Width) / 2 - $aInfo[0].Width / 4, ($iH - $aInfo[0].Height) / 2 - $aInfo[0].Height / 4, $aInfo[0].Width + $aInfo[0].Width / 2, $aInfo[0].Height + $aInfo[0].Height / 2, $hBrush_BgRect)
	_GDIPlus_GraphicsFillRect($hGfx, Cos($z) * $aInfo[0].Width / 1.5 + ($iW - $aInfo[0].Width / 8) / 2, ($iH - $aInfo[0].Height) / 2 - $aInfo[0].Height / 2, $aInfo[0].Width / 8, 2 * $aInfo[0].Height, $hBrush_Rect)


	$tLayout.Width = $iW
	$tLayout.Height = $iH
	_GDIPlus_GraphicsDrawStringEx($hGfx, $sText, $hFont, $tLayout, $hFormat, $hBrush_Text)
	Local Const $hPen_Rect = _GDIPlus_PenCreate(0xF0E0E0E0)
	_GDIPlus_GraphicsDrawRect($hGfx, 0, 0, $iW - 1, $iH - 1, $hPen_Rect)
	_GDIPlus_PenDispose($hPen_Rect)
	$z += 0.09
	_GDIPlus_FontDispose($hFont)
	_GDIPlus_FontFamilyDispose($hFamily)
	_GDIPlus_StringFormatDispose($hFormat)
	_GDIPlus_BrushDispose($hBrush_Text)
	_GDIPlus_BrushDispose($hBrush_BgRect)
	_GDIPlus_BrushDispose($hBrush_Rect)
	_GDIPlus_GraphicsDispose($hGfx)
	_GDIPlus_BitmapDispose($hBitmap_Bg)


	If $bHBitmap Then
		Local $hHBITMAP = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap)
		_GDIPlus_BitmapDispose($hBitmap)
		Return $hHBITMAP
	EndIf
	Return $hBitmap
EndFunc   ;==>_GDIPlus_LineProgressbar




Func Show_Splash()
	Local Const $hGUI_Splash = GUICreate("Steam Punk Loading", $iW_Splash, $iH_Splash, -1, -1, $WS_POPUPWINDOW, $WS_EX_TOPMOST)
	GUISetBkColor(0xD2CEC6)
	$iPic_Splash = GUICtrlCreatePic("", 0, 0, $iW_Splash, $iH_Splash)
	GUICtrlSetState(-1, $GUI_DISABLE)
	GUISetState(@SW_SHOW, $hGUI_Splash)
	GUIRegisterMsg($WM_TIMER, "PlayAnim_Splash")
	DllCall("user32.dll", "int", "SetTimer", "hwnd", $hGUI_Splash, "int", 0, "int", 50, "int", 0)
	Sleep(3000)
	GUIRegisterMsg($WM_TIMER, "")
	_WinAPI_DeleteObject($hHBmp_BG)
	GUIDelete($hGUI_Splash)
EndFunc   ;==>Show_Splash


Func PlayAnim_Splash()
	$hHBmp_BG = _GDIPlus_SteamPunkLoading($iW_Splash, $iH_Splash, "Initialisierung...")
	$hB = GUICtrlSendMsg($iPic_Splash, $STM_SETIMAGE, $IMAGE_BITMAP, $hHBmp_BG)
	If $hB Then _WinAPI_DeleteObject($hB)
	_WinAPI_DeleteObject($hHBmp_BG)
EndFunc   ;==>PlayAnim_Splash


Func _GDIPlus_SteamPunkLoading($iW, $iH, $sString = "Please wait...", $bHBitmap = True)
	Local Const $hPenArc = _GDIPlus_PenCreate(0xA08ABDC3, 25)
	_GDIPlus_PenSetLineJoin($hPenArc, 2)
	Local $hBitmap = _GDIPlus_BitmapCreateFromScan0($iW, $iH)
	Local Const $hCtxt = _GDIPlus_ImageGetGraphicsContext($hBitmap)
	_GDIPlus_GraphicsSetPixelOffsetMode($hCtxt, $GDIP_PIXELOFFSETMODE_HIGHQUALITY)
	_GDIPlus_GraphicsSetSmoothingMode($hCtxt, 2)
	Local Const $hBmp_BG = _GDIPlus_BitmapCreateFromMemory(_Background())
	Local $hBrushTexture = _GDIPlus_TextureCreate($hBmp_BG)
	_GDIPlus_BitmapDispose($hBmp_BG)
	_GDIPlus_GraphicsFillRect($hCtxt, 0, 0, $iW, $iH, $hBrushTexture)
	Local $fCosX, $fSinY, $i
	Local Const $fDeg = ACos(-1) / 180, $iW2 = $iW / 2, $iH2 = $iH / 2, $iDiameter = 200, $iRadius = $iDiameter / 2, $iSize = 25, $iSize2 = $iSize / 2, $fFontSize = 20
	Local Static $iAngle = 0, $iX = 0, $iDir = 1
	_GDIPlus_PenSetColor($hPenArc, 0x60F0F0F0)
	_GDIPlus_GraphicsDrawArc($hCtxt, $iW2 - $iRadius, $iH2 - $iRadius, $iDiameter, $iDiameter, 0, 360, $hPenArc)
	_GDIPlus_PenSetColor($hPenArc, 0xA08ABDC3)
	For $i = 0 To 7
		If Not Mod($i, 2) Then
			_GDIPlus_GraphicsDrawArc($hCtxt, $iW2 - ($iRadius - $iSize), $iH2 - ($iRadius - $iSize), $iDiameter - 2 * $iSize, $iDiameter - 2 * $iSize, $iAngle + $i * 45, 45, $hPenArc)
		EndIf
	Next
	_GDIPlus_PenSetColor($hPenArc, 0x20F0F0F0)
	_GDIPlus_GraphicsDrawArc($hCtxt, $iW2 - ($iRadius - $iSize), $iH2 - ($iRadius - $iSize), $iDiameter - 2 * $iSize, $iDiameter - 2 * $iSize, 0, 360, $hPenArc)


	_GDIPlus_PenSetColor($hPenArc, 0x508ABDC3)
	For $i = 0 To 5
		If Not Mod($i, 2) Then
			_GDIPlus_GraphicsDrawArc($hCtxt, $iW2 - ($iRadius - 2 * $iSize), $iH2 - ($iRadius - 2 * $iSize), $iDiameter - 4 * $iSize, $iDiameter - 4 * $iSize, $iAngle + $i * 60, 60, $hPenArc)
		EndIf
	Next
	_GDIPlus_PenSetColor($hPenArc, 0x30F0F0F0)
	_GDIPlus_GraphicsDrawArc($hCtxt, $iW2 - ($iRadius - 2 * $iSize), $iH2 - ($iRadius - 2 * $iSize), $iDiameter - 4 * $iSize, $iDiameter - 4 * $iSize, 0, 360, $hPenArc)


	_GDIPlus_PenSetColor($hPenArc, 0x808ABDC3)
	For $i = 0 To 3
		If Not Mod($i, 2) Then
			_GDIPlus_GraphicsDrawArc($hCtxt, $iW2 - ($iRadius - 3 * $iSize), $iH2 - ($iRadius - 3 * $iSize), $iDiameter - 6 * $iSize, $iDiameter - 6 * $iSize, $iAngle + $i * 90, 90, $hPenArc)
		EndIf
	Next
	_GDIPlus_PenSetColor($hPenArc, 0x20F0F0F0)
	_GDIPlus_GraphicsDrawArc($hCtxt, $iW2 - ($iRadius - 3 * $iSize), $iH2 - ($iRadius - 3 * $iSize), $iDiameter - 6 * $iSize, $iDiameter - 6 * $iSize, 0, 360, $hPenArc)


	Local $hBrushCircle = _GDIPlus_BrushCreateSolid(0x60F0F0F0)
	_GDIPlus_GraphicsFillEllipse($hCtxt, $iW2 - $iSize2, $iH2 - $iSize2, $iSize, $iSize, $hBrushCircle)


	$iAngle += 4
	Local Const $hFormat = _GDIPlus_StringFormatCreate()
	Local Const $hFamily = _GDIPlus_FontFamilyCreate("Impact")
	Local Const $hFont = _GDIPlus_FontCreate($hFamily, $fFontSize)
	Local Const $tLayout = _GDIPlus_RectFCreate(0, 0, 0, 0)
	Local Const $aInfo = _GDIPlus_GraphicsMeasureString($hCtxt, $sString, $hFont, $tLayout, $hFormat)
	Local Const $hBrushTxt = _GDIPlus_LineBrushCreate($iX, 0, DllStructGetData($aInfo[0], "Width"), 0, 0x90101010, 0xFFA0A0A0, 2)
	_GDIPlus_LineBrushSetLinearBlend($hBrushTxt, $iX, 1)
	DllStructSetData($tLayout, "X", ($iW - DllStructGetData($aInfo[0], "Width")) / 2)
	DllStructSetData($tLayout, "Y", ($iH - DllStructGetData($aInfo[0], "Height")) / 2)
	_GDIPlus_LineBrushSetGammaCorrection($hBrushTxt)
	_GDIPlus_GraphicsDrawStringEx($hCtxt, $sString, $hFont, $tLayout, $hFormat, $hBrushTxt)
	$iX += 0.02 * $iDir
	If $iX > 0.98 Or $iX < 0.02 Then $iDir *= -1


	_GDIPlus_FontDispose($hFont)
	_GDIPlus_FontFamilyDispose($hFamily)
	_GDIPlus_StringFormatDispose($hFormat)
	_GDIPlus_BrushDispose($hBrushTxt)
	_GDIPlus_BrushDispose($hBrushTexture)
	_GDIPlus_BrushDispose($hBrushCircle)
	_GDIPlus_GraphicsDispose($hCtxt)
	_GDIPlus_PenDispose($hPenArc)
	If $bHBitmap Then
		Local $hHBITMAP = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap)
		_GDIPlus_BitmapDispose($hBitmap)
		Return $hHBITMAP
	EndIf
	Return $hBitmap
EndFunc   ;==>_GDIPlus_SteamPunkLoading


;Code below was generated by: 'File to Base64 String' Code Generator v1.12 Build 2013-03-27


Func _Background($bSaveBinary = False, $sSavePath = @ScriptDir)
	Local $Background
	$Background &= 'iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAMAAACdt4HsAAAAnFBMVEXX08vd2dHZ1c3b18/a1s7c2NDY1MzW0sre2tLTz8fg3NTU0Mjf29PV0cnRzcXh3dXPy8Pi3tbSzsbLx7/MyMDNycHOysLJxb3Kxr7QzMTIxLzHw7vj39fGwrrFwbnEwLjCvrbDv7fBvbXAvLS9ubG+urK7t6/k4Ni/u7O0sKi1sam3s6u8uLDl4dm4tKygnJSwrKTm4tqfm5OLh3+vBRlAAAAJ5ElEQVR4Xg3ORbIsyZIAUWMzZw+OyMz7qOBj8/731jVSkTNSyPRvstiR0BJpCcklS25k2FRHqyr20c/pShMF6cMxK/Nli99Q1BjqH/zSTXkUKuXlJ/FI+mvAQosvLb7BYyQN0thsp9RWvfRYiq9EcNCUBI8wr6PyPkZ+iPDCJX6DHN8F6QGCqe6TQErOoyhbx0ocBj95xJPFIR6b3ILLVIo0XFadSWWjpybZ7ClfctOqpzp8c6UuDjebbE/PEE9dQft7DEo5caHyaWT6c+XaLQOjsSvRNwGlMayrtHUZ7kuWUtWmZl0J0EbhXofd9aVTTz78guReD0xk+pVf9JscvPIqj79sx0ZJ++hy1I79c4GgpIaU3rnQrjx+htr3teSfqlDyghMtH3nYoZgLFwaL/F95sVVRj8oCVXmO7/LwTAXvPvVO5yi45tV2TYutBTsWJPz+7MtxQ+0iXvIGX/kJxRM4cSxxVuL2IexBNIVrY9bDApul+OGRyRCcshKIvmumI4RPq/4gyKMA+nnqzg8/vvlKlzpTPCZopJEUW1oAL3nCedrUnUltYSQ4lhWmjTiJ2D9Eu6qVarJTBFO21ao+LvEI57d+UAekHQPaUJ680IltATttgtFjTebSc6cr7wG0Dqlk5YOyxxUPTrjJ9aZXW/mhfywFnS46WwKDmc37YNP6sRePSiPiEeKDAqcnMh11p6DdMHfOIy2GalyNJR4E3W02WlL9HR/cx0/iOOujP2qxLjs+0viIua50YtMdMHsGv5WksORmBJzROjJ/U+CCEY80Wiv5rkqzLmLgtQXEZKLGRV6AWQJpYuRGGQGS77m4ZI4XG6959UJv8PzmlTCSrtXEp/APbdLSLkmmuXoEPPnhB8AAhV+Y2plEn2bca7ULLNZBuFZZPGt7RKBX5nZYEECV/OHfiRtV0DlWcJ321se7vwrKxjwaPaEmulJwkpW/WKXXp77ERoozY7zrqUkchJ2xXoi0GeOJCC9BTDToTizGKmf28qokZ13iKFIFs/L4ZKmNSoZI9dHdGhyfXVb1eqnH4095ng3fOVXymxNz6VzGVnc/8tQLPZ+U+IAMhEIRyP92XX5jLUQfLiycIujUJO7Ge/HYNGUmo3tEPl3VcYh8RMAa/vmp8hqGvRqvuIfpxSes5JFyknc59LZUWvpZn+OmrXokSLguu2DukCDxQBPFUxAuTuiDSCqFyUcMdUxU25cF3eb6MgsB4acGHpDrbiAkvNxLanMc+tgJRxjeflHTzi4iIG+ZzMil08wF21jjpdNL/uEvegFWskRDMlOsNbAsC2NFehQiiTIPtJN4rER6M/VHl3gN4v8Wxbu2FXKjA7weOKmXFZshvburROMjp96HG+TJb6PFUAPE2PEgi7MVu/gGqbtke8SqA4V/BnjwODWlnR3XHEIUJVmWVSvvjHISiZMEE9JeQKYmJJw2Y9ckb/uWZj7c9BDmriU3vfMfeC5/2qqvmmgrW3qx5xgHXLaBGsoLlVPJILU4EEBxq8DolqttLPymXPcC0Jnz3jo0y59TRwV1hPwMrWtLdIFblycm3OWgXXZd8xwrrHCME2Zc5wsSdCx0wF5Xttprgx0i72MpSaT0Irlg5I7MfanjsNDCVMGz7NDS7yV0GkYShheSfoXJ4TDOfusXn/aiyTeTvarXhTr16IMq07saOLpse1pglCVF4Se6b5nqASt0o+Q1iyD7+mnpZJRnfASGp99R'
	$Background &= 'LOFCvoQczPJitnNhK6LyTXI9KjVA1dtXWqnrFOSdR05mZE3yI2Ukuuj9N/2PwA0mbXTJCbJMAW64+752oCjN8S38V6F+KX0KB2/UvGerk6TC+J86gww9lqeynRnz76ZymsQWkPdR+B0F/8xeLjgh6ayUf9JpbxbfqDDUwpZ/1OT26fRIyi0f8H3Q4LzBFGX6BDoxVM78d+cAxHYzi2B2qMhJgo+q0llrIvmU/BlJiNwrAyX0IH6Wm00eKfWpjaa8TbIGyAa3gBRO0CN9XtQBMhnnhIlX6jlgGQ9XLlw5RdOeMZ+QJVnO5xL8BCAvlXa2cOVwUHaO9DDrDYHdgFZe+Vvj/BVX23yt2759JLfouOXvscO5npH0qRCp3tKaySMj/ynGv+FBJzwVq0j9OPhonMSowPcAWtlwZx6TQw+sUkhQYsGe2XxktUVkVDKobOZU9zH1BAjDf2SrBx9YxNtUr1+oUWLv/wqBL9s/CWf9p0FKcEiPG0RXYbgLipCqkhCrykEjA2L/InZQipV73xP+7RFHH2EHQqdRZAPgrbTodI+sLgQbY77HESDf7S4Xsv6Ag9/c+Du/nGKVTs7TVjl90tkazPB2w8xXtiDK8aDJxmy4chwo+BCaL5/wWPJOK3RCnEuTb2q2syrwD9X+x/PkL77C4T+5ZI+XHX5hV+Mzei1xfP6G72H1OH7Ibg8W2nKjtbdoQPTGdnUXeCGOtVb9Vsz2lUsx0s6IZ2YljZ2D8po570z1B5HeagoBOWp/JS2QhlWvpxzQ6ZFX/SLXKRufdqvHjW9q8jOqnDB5rx4bXXBbgY6efisZvvNgz4yPfJaGWR+guIWsCeWVpWpSeNBArcSsCxWhwWAGwPVOZyvYsfKELV9c68nFX8Phj/rkPZJ6vvXiA77oQAOFv4wA13bwBAlHGuxSjir1TDiASHdF2MjscLNHgh6wsgLRNHHfyVPHFlq8rZClpLLxg2ckd9390RIuJImnJujuBiz/KtZLiO2N6Q7zM5hLVdoBOoe02TiBsZlSSrglkFInnmjRbUPgb/DFW3M6y+WAhVJ0O+X+yxNQ61Dp2R6SqGWvbK/R+46ZD/wsZNZoBKcJJWXks9O6Etc1V+ZscgHwCQUOe83XYrX3L4ZQcz7rlgtPefNeIV79bjvl5YBOv6fVvsYZLXe5+YSJne4wevdHHSA2l2VVRxOUeyh8g9bclLo2aZhx6wWBHNwFIKOAQt2VNaHyZqtxKG2NcB9ql/RK6fHDSr5IxyMPd775wmK/oOE5rvUFKd/YhEP4f8fMHdf+y87obHLHS9dxi6Sf5HHVBxJNd+tadQ5iiJBbgboRyYL8f97GxFpfoTQpxKvgRtlOQ/yFlruI7sQi3Ok15tI52ZMnrPV7Zr7Vc/IEXyX1h0D3zBXyBVsc9k9Mbad1aQLk+sKinZvbyP4bBgBnZpLVnGnFKL8WjO5BdZDOkbFUlBcGlSGawo8rtXyHx+kpT5xWYIrTvTp9T9+0jd3ekOhbTpbUcV8a/ajXeLSPQitOv9pVDvSxS7OVeS0Cn42WuHJ4t+wThE6rOIOXrUv91QjnoNgtD1sQU2a/V1sou75sUtEHJI76RZv+/dPtxe+61iITplxwRS+Nf1j3LYe/3MCXTc9y0p4Ptrq3DSv/P++8o9FNjW8tAAAAAElFTkSuQmCC'
	Local $bString = Binary(_WinAPI_Base64Decode($Background))
	If $bSaveBinary Then
		Local $hFile = FileOpen($sSavePath & "\hexabump.png", 18)
		FileWrite($hFile, $bString)
		FileClose($hFile)
	EndIf
	Return $bString
EndFunc   ;==>_Background


;Code below was generated by: 'File to Base64 String' Code Generator v1.12 Build 2014-01-04


Func _Background_Image($bSaveBinary = False, $sSavePath = @ScriptDir)
	Local $Background_Image
	$Background_Image &= '/9j/4AAQSkZJRgABAQEASABIAAD/2wBDAAMCAgMCAgMDAwMEAwMEBQgFBQQEBQoHBwYIDAoMDAsKCwsNDhIQDQ4RDgsLEBYQERMUFRUVDA8XGBYUGBIUFRT/2wBDAQMEBAUEBQkFBQkUDQsNFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBT/wgARCACWAZADASIAAhEBAxEB/8QAGQAAAwEBAQAAAAAAAAAAAAAAAQIDAAQI/8QAFAEBAAAAAAAAAAAAAAAAAAAAAP/aAAwDAQACEAMQAAAB9OZHEY4QHDJYkqKg4ZCuCCjIOQDKWBHqmc5dhakApOoSQSV0CUITiJfnsOiMIlOQ7diBVYYo5lzArBihBOZzjPJgq4AyEadFNCoFdXOQsSmJMJ2MlJC1QlymDMgR4XMWmMFBbIQYWIrVAMUKhMGiOZChWvPcjLqkTpNwOJhqGE08VWSHSJOGFgDHE6rYRWUaNEGrydYoDEq0AikjbnoFSA0XFZLU06AFEA5DECQLUAowxAOg66RcxuRXpkIrg1Oe40qSHpz0HdCKEYoAhqFhA7kwJFHVibLhUlc6EshydQQoY0GLYaToDNhHDi7EjnQOpAq08PMgCmhzWKiBybPMoUA8rRMwxc4BdHOdayK6FBkpEk61KqjE3VSivMtfi6R4upDom4zRqMcSAtIHL0EbbDaVTCkBpOA4MaNVOTrnYpMqLlsK8bCsihzzC6MOM5z5mIDoAozgShJUClAyjNkC06mR0GK1IyvjNJzBgMlZkgzEqHCK2E2JQrMfRqR6VcZcgUpIcTsMwiUBQd41MYgdVJEOo942Cl5mpGowbEnBDN0AKoFipilDnZ5mpzXMAQKSLqAhSijbIGbOTUglRWHVyMcgYVItZKO8rEtRBKDFpWgUyko0mMmIdiPGijDYDohZRgEOSzoOEQ6GLCSqgJuoweZJksTCIWUzOmiqVVcRYgLaY07MTyMdE9hm2H2wJ7GOwV2LjYmNhabCnYG2NLY6zsRGw0th4bEevYWGx0z2Kw2KtsTtscd9hxsRpsf/xAAiEAACAgIDAQADAQEAAAAAAAAAAQIRECESMUEgAyIyQjD/2gAIAQEAAQUCsfUe33tCleP6Oixiw8VvjvDi2do9ogeiKGNEVmsULDOzd5vCRsaysWKiihi7RW11Y8WcuRdZcTZRRWFhixR1hjFmXSk+Uej283hUisPricRMsezjRVZckdjPelNtShLdlvCLLsvC+H83eG6E+QoU9xLsVvLFEoSIv45aT1nkWdjiiuI947UvxMjGisby9HHCZeZTojvD7EXhayjwTGLLFieh/sJYZeuNnlnIQzpEi3aY2crPPMSsjLFjEuR0+Vid/FlO4SsYsr4bGxZ4nq6eI4mWXZu+Qh40TVkY0JIktLFEtM99+P2tEuo/sdlUKV5r4TKx6Vt/D008NG0dl7+exi2N5ZxsrVC7lKi/jocrX42rPyEU1L4jGsS0MmhUcqa/YkiqEqxtke8SW+iXUcdKQr/4LLiOKF2UeylRW+IupvMnpSyieaKIk2SP6HGjoWOhs7J9LWHjv6TPceyEf6LGUxu2tClpxLLsqjkREMd3ZVntiKJwIMY5bbZ3h/jONOj1nmJF2ovZ6Lu8LDHE9SsZe32uqpXpRHYnaWny2csex2OOKw8XqpXhHK8MrHeKPyEHuMcSTscc2WSVtt/KioElZbFdqVuhjo47xZ2Ik2d5ZJaHo7GN0JYbouz0WaIbPZWIXV20xraTsbsjZYitVR0cSSEuLorFll4rDynY3h9RI4raw1YhLHtjPI9IYhkUJFbY+qojosRdDKI91izmcrTbL3FizYsPQuiiuJyL+GPWKKKwlmQnWIxOsctsm6I7Et0PDtkYUWS09lViseQ6ZtHeayiWziLv1lnj3jkeZlESKJLUeujsbo/p+OPJRuJydf5rNkv2jG8XeKYlSRLoeyIvliQ9'
	$Background_Image &= 'HoxDKGqJIX8rDEPQtpxIoaER2UaGex02is0VpMcyHQxnR2eXixP6ZYhs6xY2dqisMXVFYqsJftVFaaKsQ5HLd/smVhkntwsSpcqG+RxZ5GV4qmPFl/FjIjGWJ3lZZF7yyisNidSb/VjRFVH/AEixSL5KKHYuorcY0MvfLEsLePF3e/fRoS0PCWKx6OOowoWHLd3IkfzH8li6j/P5dKJpnHHvnURok9x0sRW6P//EABQRAQAAAAAAAAAAAAAAAAAAAHD/2gAIAQMBAT8Bev/EABQRAQAAAAAAAAAAAAAAAAAAAHD/2gAIAQIBAT8Bev/EACAQAAAFBAMBAAAAAAAAAAAAAAERITBAABAgUDFRYUH/2gAIAQEABj8CwN/mkgH8mDpFd5yWKU0tR7Rue7EJ6N9UYUEcSr25QRnHBCUvNHiRUeSA+i11c2yZK4pgtkpYIvAVkxPLm62F5ISX9yXRdziYXTFcnRkKwuK1ycRIBUWRUWl8ulGymCWHvS9g0OBaQbGGIMf/xAAlEAADAQACAgMBAQEBAAMAAAAAAREhMUFRYRBxgZGhwbHR4fD/2gAIAQEAAT8hVr/BCyx2xnk5E0Y3gXkXliKeaE2nKidEU0fhn8THoakdnEBvBtI2/DG7M/RuleYM8qMfw4HIQ0wSrmjlRG2YfbHvKKTf8DKw5OA1w4MeSLVwcl0tMxsYxxwUWi5GIl1+jcdMZwmRfkgiCX8GS9hu+S++ePg22h1ehZ38MPAwW+mJcnYjE/4W/o4e0YVFyaEjaEwvP8OMG22C04FtRYhIKpc6KzTtWsYRHD6M/St+A/P4TY4XJfiIfBwImFGP8JTNqPofgTrkXR2cjcWiD1CJTTa4IIDEkM/6Dd8Cy7GnHMMxN0YhDLnYmNghtQa8DTIKQipS9sXQyDAhoE0yjdIvwcM5FpTj4ZJ86U50Wr8M84Rf34an0NUmlBy78cjROCgnFjXVYoYL2J2iYDDtw5LjyJEsNmDbOyQXQ0mjiSQqd7H1/wC/Amg02/Rw4WcCw6QfgPVBnOJ9/B14bFb9DfKIbGuFFl7GHOpX0NOcE2T8F8DpYdDzVyLHBD4Z3DNz6FMuHlDQcLTW8M1yImoJeCCavI3dFyOEJaoxb0cNCob6C3TghwxD+xPocMw0xL2Q8Xws5GIfA2as5Fo4SXLOzyf5FvKwnQ14E0w7EJT9mqQ+iY4xvfRa0GGkVpeTKrMo3ga/o2hCbvOEW8EzRJ8RniIvQT8R/wDQPAV0beBmnOWKG0v4XicKQb3RynAujV7GX74P7N4TnB3DOyaKHQ2+R0TLYJdMhoJE37HENtJ/QmzCjCzJBRsvkhMpTBm6FSsNATJDEtE8G8G9VEJof4ISl+DNOVi+MfYTLyFH38CWjEjG03DoTJGnbDQtrG6EkmJiKhwcIYhnk0UKSlLRrmwaP/kazmPsZMyig/6lLbHEKkKzgrD5OBeRbRyiGmK5f8EvA2gavBUHiwt5OivxpGKwb0W/E/SAw2+yMp7RLv4NT0GRmCatxiVvo/RIU4jnex1T7+FkvJIcmaLx5I2SuNkpeRnPBTP/AASVePI0wocKhLvBdg3RT8Kh1IVb6LOx3O/wTdsw3gK5/wBExOkHvfByZqEp9hLBcEFSitLE5EXJ+DeCiD5rGDfACJYba8C3xNqN17MoebUcAZzSGj6nk1eDnF/p3N6PPQeBk/QodfYh8OEuaccQlSxRVQqlaoWnYmJPOHDr4G10otJAlF5nXxSfhC0eBLgSxnSH9m7MH4MhnBDKPrfZbaJtFZ6NuTDSOCGaR0WQP6BNJo2Q5UFpdB3SY6gYVUsh9z7Jzb+qN2HNppkVNIaz2M6hLXcHJ5l7FmCeUYFTglZpx6QR3yhYOW4KPslp+SDW74EN1WiaRVMoctUZNCUbVKOU0xI0oyCnR4AlWJNdEGkxjNXoeya47OD/APUpg6Oh0hw2v9MbyMzS5I4bOzcuMhyaJwEi3kSiTFxFnY2Iuz7g6SZK'
	$Background_Image &= 'Jkj/AKJGdU7vh7CB/wDgTnowcW8+hpCTl/4NyQ1ypp4Qpv7RfLH4I7YLVPgobN4G8sw6GDhyglo012bbrO3spvqCE6XffZwFEUJHo4wcdjiCX6z+BCvoTR/rLrSh1Rw+u1+mMniOBuvQwhL8JmmQnEMTzn2NOJdmVYTOT34WKO6XGjD8r/R5ILpV8k0boTlITHPwJ5cjDTBMmmVUyuRuJwES8Q01+BOzkYe5htG4VdPjse8D1krFTnggbjiFnEP9wuDWDh7ZjgVFZNPAvgSvYuDlmG7UNFwsHZ4QmIkYn70h6Onv2V9aTdpw5p3KNPsM80q5PfjHVuEDNuCv2LReRz1uswtY2hP0Klf4NTjkbNcVGJ4+LRLgm5UJVbYq3oSGUzgSmnJmsECL7C8kNEchvTE3ROIVUTbssWcj/pNXRTR32P8Ak6vI0RcssFoq4pjOhTDcE17GrGCdSgm22iht62JnG9jP1tMPAqSVGlM5SG6dHlnsqzDxBJfg56FFT4eiwfv48BCYzCSpiNIXThBY+Az8dD+J7FQ3o2dCKBnjgkSumaxoEiH+kdUsZOZ4xOBnQwXa/gtXsTbW8jp5PdM4EPZE/ohquzkYbyKcTWzCheIhw/gYzbzhyJxiUbL2aGTSBajAinFDJ2eiepCrwThCGFYW4PkTfJaqxnh6D3zRNVHqPa7dE69Uh1FcOq1+TQfQazsSOzkmkJ6xssKq8kFePAr7pStQk1eDVBB3MaI5BuK3BKWLBskaOUZF8KCKK0hOU+zgcafeGleBjZGPDneymuRiyJVEHmCRodChkq5OhiHe+UfiJr2EHuCEIvI6/LshqmW5yWXshj8HC2dP9M+yOybRz+TRPaChpOx8Ff6WGCEsGhphhKHkCdKRElQ0LsGv8NMcOeTDL4EJC0mzaOSX4HE7+Hg3AXo4QvdrkW6ESFNGVR6uBuinQkXR6FtNQlgT2hNbolwM18DHhka7EPQ0XR//2gAMAwEAAgADAAAAEDCHKBMLKCINALCIILCBPLBEMPDOLLPLPODGPGEFFJNKGKCEOEENLEGCDNPCLOPCNKOOFJBKHJJGMHEEBBOCOEAAHHMEEDKLEIJFINCIMAAFFPHEPEPNLFFJEGNIMFBHMAIGCNAAFPEGMLJHIJPNCEBLLHMLAHIFNGKFFGFBEFJLHCHKBAGDFANMBIJPFFAHGOILILLDPFLKGMAFLIFFLKJDHJJBGOECHCAAPAPAPAPPIAHIIHIHPHIIAHAP/8QAFBEBAAAAAAAAAAAAAAAAAAAAcP/aAAgBAwEBPxB6/8QAFBEBAAAAAAAAAAAAAAAAAAAAcP/aAAgBAgEBPxB6/8QAIxABAAMBAQEBAQADAQEBAQAAAQARITFBUWFxgZGhscHw8f/aAAgBAQABPxDvj/UsUqP8D5EXZ/IIov8APJnUDvZi1TcarTp/mNAG7lyiFI/kVQ7+wAON/wBy0Vdb0ji+HCO7+XsRQot8nANLyUum/wAWA2R2vYENYdyNqgb8hzVNq+bGouusVGIFRSqM4zg/cqP+b/J/S/2BVb82V0+XwjWpkQH+T7OxsLMwGuylpZxVlQFlygNAV8fYg0Gx6/PCO1RFPpnfZ1D5VKgNvwggUGzlsUP2/I1QKX84RUHbIRVox2BuirYhoFOkdP8Af2MrSyf0Eegf2CQkAow0xEYl8lhQ1+QQWVlVBBldXAAwDh+Ita6i/i5YalMUovSr9iybRDV0j5Oh19lHodcrYlE49GNZvpkDq1r+SpFb9EiBn1ukEUvFHkpQeHkqlgIm10o8JgN1UR24V619lT677KrQRW1diBi8+wgWAD/MRZunmsAB5B/dH/2U/aTsay+mllNnb+EG3oOzNrlPkIsaumvsAOVi6lkt0+FSxoZ8IHmGcgrFo7LU6v2Dqk2GlVldYAFXDqy/yUOquGLGhRPyAacrY6g+0JKT1+rsIAv+rhqNvrCS4NFSzl3kS50X2UgDfFplciWbnJUBwnDsENK/'
	$Background_Image &= 'jO77FMC8PYfI/wDDNoj9jqcvfIoFdMXxhTYA7y4h/XLl2FfMjZbdMzsqDhXZQTqWMtWv+CXB/wBqCo3/AFlv2TdgSapbhyufK7FXbYeXMFh3f2Kxwrkq/LP/AGEq8+EoKBVtkCIXHJYaC7B7N+x1UoF78WNOhblUHBlKdGrhC1XtrE00DSArr+25Lb/Akq6EJZbf8geqG7GigpewSeWWVXIAQKz2NBVkS1FxV1UZKXVfJyTn+pb2V7cuAofrDPhHJsAvOsUlqQypfQf1GII0tt7KkiVRaq++wqkP1jBYrt9lBvYmlv8AyGCGkpfuuxSvFuICN/cl0T+r/wDZZZL3Cc+zdDcTSFL2VW7rzvY+VD+srcsfsvG5r/1B2JaUXELatiKePf7Mq6PyUWajekPBV++RslbWyw1iIVsT/sXVs0jz9iUpw4f5lRH/AH+QOBqogKhLgoTJrQ5cT0D7yUSC/YIQs/Pk8Mz7BqlVzeyyC1DTFJFP8J4cTz7GFRdR6sDP2IFuxirKewUGn4iglD/2WlFbyHwr6e/yBtC8IUDjrfsKzcTw52aCr2+xywGv8ShFrXHyHD/2K1D+OZBE/wAitlB+o1CWczpCAKK1sXp0ewG400H+IEXo/GMBR/fSc7S3clEVWeQBDf18h6lP2rlqqsWAnYBz9JU348lZPwRpdNqPnRt5yXq6IaPYlQf6koA2PI4Ad7KBlso7hC1OvybNp8ESBLXaght5y4ADjXY75UenYG1EeR0p/wAxMdV59hgW/wABCLy1/wBSywNVUFxxiz9JacpcGocgHujy4AYfoyiX/Bly91VpReRCt4+RlgWP1RClp5AwN/j5HVdK5KEV0Yy7tn4sq0wejYWFFPbiGIfwj2oUnIiHQ5G7F48oh0QDTFygQOr2ZZdApKyixn2EBcCqHsqaDNENovm3H/apSob4MQKNPSCTZY9mwAn4zDmko+n9iOFPj9jsXgx3Ai9Pn2YysdGAsOQCx55+x1aFt1KunKqoWQ45EVonbxgpBx2Nw5+xli2tyXTH4fkL6E7AY1xX+QQZRqMFdA16QlNLnkA+poPn7MonOnyDXQ1tkbX60gCM/GKkFgf7hZ1tYQWygrsZgH9iz4NE8gkX+o1Bb+oHrnqwcwYVBwsX2yId6fOSqFf8jXRX/wBhcbK/IPwSL9mJcVOfI4eqTD/e/wDkQpR8+y6K38lBxpgTi/zyBUR/JTD0vZY0OxroYOHWUaDacr/sBR/rnUKDtuwRf5d0yim/bg3WnxlwA39SrlC98jHHrV/Jf6WV9m2wNXLcoqwBYb/GfiAtZclFX4eS+J57DcShKtoEoHe/IotX/wBlFYCqSPC2FVS2EtQa4v8AJapRUyD+hMJc+CpQfs9GgrPsYIJR5cRe3wlUbqvbmVjNgUpewRyyck/huUL3zXsp+L7Cx/NjA/5C8n+9aQDaT3/2Aw15erhpXXluS6+4lTG0tey9qgpCMDQ7LBTRoy4vj0IDS288gf0lxhL4+Q7yvY0ej2LBgvkZCqCARb/cpuj98S8CUA+qglHB5fSILuwDZr0lMen4bAItSefZabrENW3xXsMl39IxLIuZtwlsqyvkBRV/fsBZOr/Uo1RbdbFsuH2IFlr2AO/4g675nJum69Y7N0FrGV2s/wBx1vTiiN+f8QjVbhUtufGK0bnIDSTQSsMjVNOw1UZBYE/r8gDwFyvYoWxHLXsckFFuMRfVcGHXB1IWCo/XSXiJTwYC5h7AGwr4w4N5RU0238fI8GXBTRZgC8HRFXwfkWCA+ggpFr7YBe7PsN2/QeyzXPFTbVMJgLDxjQNgsEkpfD5P8KxayV35i5jTdBExoWY/ZVgqKd/YAgW+zAKV58gKq04kFSiryWD0NgAKMvaqIFtHKey35NERUd+5AsD8gPJV6q2JZfwr2VoEVO7/AKgQ8/kuu2r2KhpqVC7GWWBXIqbaI8V1brBtTHsAFijh5B2gHG44g5RRLOtX0+TgMi1CUDAoIDr9'
	$Background_Image &= '/YBgNuVUdIo8iECXxYNq4tJE9GjY2GtLgwsVStZNtYjcPmn5KiA9GJ2M8G7nyaHfsy3TTjEXU/iRWhY5UKi2/ssoBePtRdm/2fUC8IsZlci70ryL3SvJ+ARYW6qWXX4QYWX5CjYr1jUVHqJCqHEjAdRaepcqmGU7UZsHRNl0OvX5Kyy335LkSpTFFWP9hkKrkYMDsJji0hrDH57Ku8Wm5ilqlHrspBav5EOHhakSRKoiGKqDA/4lw0J0YyCHh7NWCp1lQVoCelso4p0/JXYKF2+xWLg55cKgdvtxLR0iABAMHpKm18XUUY7a1GlIISpLptEJQfYOkbEbIs+3EQbEu/sY4Luv5ACiUmfUWmkzYlEKrtEYvCP/ACUDVmxlRb9iDo/yGqFhrGUG1pukVkq1bhoaHPiarM/djkoU+IIFsGr+TJqLpUrtjSzpADVEb/8AIkQWl28guWFruJE2G/2BWjYezRgD3yvn9ggFE0k47umvjGGhTMml0fI9hqbMUXTyDJ/qqIIX/DyII4VR+ymP4kNBr1F1Do+/JRvKjsWgBo4EF+PMhpWh1PsKhe8gXYCGrEFWFPCVfdldR/GVBurexKBH0GPcCXERbnyaD1LrJnhEoYMLMKD/AFHCOv2fQVnHVD5LKax9gqL3pA7LyNGlGobZ9HmQYAH4ypcPyoqC+HpKMu/5BAx67cLCvKlYCCxgeM/ISlsU6RUez5Ni9iLDrGBALrZCxRf0h9ADOQeLdKw7o1WuSkjH8jCwH9qXTARQV6d9gtjocuIWO7dxCc2HKNdhOidVKzMaIbUuLEWp9ggAso9g3g6sYwtOx5+RDA0n5KWXY/I96w9PssoqF6EGzRx8jVBf4hFjV1EYFn7BfBTrKVBf3IODH9jVUFR/+xGkC/8AyWPWulTiYHqTpW/sEWQr9LlQkFy/yDX2d/YLb/pD0b+/Z0WA/ZW9NIw1TzGoyUbctssDCfLgp9P+TgJV1LBtXV1+Q7bfwxQk1lBL6qHYuBeAnZqgVyvJRp/uLDx+uxAS6fsoCqFH5Nkkq4kSgurZ1ChhRChDrlxrxW7vx+RAgTq+3BiGhbYhen4ZCx5Zb0yEmlgplrtQ3cOtilr5Kh54s7GGwv8AYLtCmqiCn/EBRlV2XtNfINGMBL/iKFrCypdl0e5LjErx8gAGe6RaQcI5wVBsS8E/7CvWg9uBQKg/7lrWMQwhTy8iKqrQBUEMXiuRhd/5EdpFtOhPxZCzRPn/AO+yt7/VlA5ToHYV9he/k2UUFZ2IDLMfs2BSVSk2ADc2VNS/YWIKUG7yWBgxIIBV3/uc2BHkrsSrLs8ibBSND7VFw104z2WC9X55HQNt8hbHMiwGlsulWWqHIr+hxACy7YTLfEEJ/jZTRfY9riw/2jpXYi5HMKiCvEON2vkEKLl8GuuzjOfsLZ4Ma4UX2NKukRqm9amoSxMjQVTpWX/I671X2NOEawmlhsesC/rKCnHj8iscGO16vHJUEHwPCIaSm/CL8EQhQz/cBrKXYtYn9goo2NV9ioUdK9CCTQPt9ZbYB0mx2Pmm9jiGjnXkVLR+oieDVHkdTRMRlWH2WW30IKbcHTpHcbs79jv8JpV18yHdcvyYXVa1OlU7/Y//AMpZYlR2btbrka4itXiy1KaR/aiVuQcnA9zIQCEo+VLy6V9InkOZcsHHlE9LvyHo2wor2dBZmVT9lhR/i/YA0tcF5W/9wwrFfwf+ykEBWIpA+hA6GPyCvqNZWoZodOfqW0K3txFin8hYCi0gmih17csXBTXkIF0N/wBoNFFwBNiqAt4N0fyVFv0wVIs7N2osfGLUKcIUVtbT/kRXTtS4gRZ6Zeg1dtfkoSFLYOl10YgFi03yYwBDyYUJb+QTUgdH2OHRuQQW/wCPsWYbV6MG2Wu8jvhfyIrwfkLbUm5BECrPs4qz1iarv8hm7f2X9B9RA0Qliho8m3/zHXdQU0O+EuQ2xNhoPKhVqXTH5EXg9mCDvX2NbXYXEHP5BYWD'
	$Background_Image &= 'BB232KqTG7m+iA5UVrbcqNbYP4QkHOj2UHA+I0RulqYfsK23YGrjCnFqf7lJiDSQC8+5FBetvyBcicLXYrQi6uVOt3nsSqiJqG/8RWK+gXNhSKV8bhuza/sJYGtvkUQtX2uwXYvr5A0p25Qg0qKZcJQph8n4jcJf3kybsAWqT5Gyc9hgeGwOjXSUeU3TMo0nstjWquCmqkqAqmpWUUGP8Suyesm1NM8HLjrwkAXVbOS1y7EnQdLZZWV5fkGucgEvGIUrmwAAbfXIUb9aiFTNrPZQnXuToMVpHYB7LQyBYnIDBb2oIR8ENOqBX7O1CvUuB4+RqFmfCWFPYC0Z8jZLqmiVFVLrE2ID4EyELRX+VKsLfDDSLq8d9j10v6T/2Q=='
	Local $bString = Binary(_WinAPI_Base64Decode($Background_Image))
	If $bSaveBinary Then
		Local $hFile = FileOpen($sSavePath & "\Fresh_Snow.jpg", 18)
		FileWrite($hFile, $bString)
		FileClose($hFile)
	EndIf
	Return $bString
EndFunc   ;==>_Background_Image


Func _WinAPI_Base64Decode($sB64String)
	Local $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "ptr", 0, "dword*", 0, "ptr", 0, "ptr", 0)
	If @error Or Not $aCrypt[0] Then Return SetError(1, 0, "")
	Local $bBuffer = DllStructCreate("byte[" & $aCrypt[5] & "]")
	$aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "struct*", $bBuffer, "dword*", $aCrypt[5], "ptr", 0, "ptr", 0)
	If @error Or Not $aCrypt[0] Then Return SetError(2, 0, "")
	Return DllStructGetData($bBuffer, 1)
EndFunc   ;==>_WinAPI_Base64Decode


Func _GetVirtualScreenSize()
	Local $aVSS[2] = [0, 0]


	$aVSS[0] = _WinAPI_GetSystemMetrics($SM_CXVIRTUALSCREEN)
	$aVSS[1] = _WinAPI_GetSystemMetrics($SM_CYVIRTUALSCREEN)


	If ($aVSS[0] = 0) Or ($aVSS[1] = 0) Then
		$aVSS[0] = 0
		$aVSS[1] = 0
	EndIf


	Return SetError(($aVSS[0] Or $aVSS[1]),0, $aVSS)
EndFunc

Alles anzeigen

WinMove hat in diesem Fall den gleichen effekt wie @SW_Maximize, allerdings auch über mehrere Monitore hinweg.

**bernd670**

Dann bleibt eigentlich nur noch eins. bei allen Funktionen den Code in Kommentare setzen, testen ob dann das gleiche passiert. Wenn nicht nach und nach die Funktionen wieder aktivieren und jedes mal testen bis du weisst bei welcher Funktion es passiert!

**bernd670**

Oh den Code kenn ich doch!!

Meinst du so in der Art?

AutoIt

#include <WindowsConstants.au3>
#include <ScreenCapture.au3>


Global $VirtualDskTop = _GetVirtualScreenSize()
ConsoleWrite("ScreenSize: " & $VirtualDskTop[0] & " x " & $VirtualDskTop[1] & @CRLF)
GUICreate("LS",$VirtualDskTop[0], $VirtualDskTop[1], 0, 0)
GUISetState()


Sleep(10000)




Func _GetVirtualScreenSize()
	Local $aVSS[2] = [0, 0]


	$aVSS[0] = _WinAPI_GetSystemMetrics($SM_CXVIRTUALSCREEN)
	$aVSS[1] = _WinAPI_GetSystemMetrics($SM_CYVIRTUALSCREEN)


	If ($aVSS[0] = 0) Or ($aVSS[1] = 0) Then
		$aVSS[0] = 0
		$aVSS[1] = 0
	EndIf


	Return SetError(($aVSS[0] Or $aVSS[1]),0, $aVSS)
EndFunc

Alles anzeigen

**bernd670**

ersetze mal alle

[autoit]

@WorkingDir

[/autoit]

durch

[autoit]

@ScriptDir

[/autoit]

und versuche es dann noch mal!

**bernd670**

Hast du es schon mal so probiert?

Läuft auf meinem Win 7 x64 ohne Probleme, x86 kann ich leider nicht testen.

Änderungen: 1. Zeile eingefügt u. 42-44 deaktiviert

AutoIt

#AutoIt3Wrapper_UseX64=n


;coded by UEZ build 2014-02-08, idea taken from http://codepen.io/Fahrenheit/pen/Kbyxu
;AutoIt v3.3.9.21 or higher needed!


#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <GDIPlus.au3>


 ;== == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == =
;AutoItSetOption("TrayMenuMode", 11)
;===================================================================
Opt("GUIResizeMode", $GUI_DOCKAUTO)
;===================================================================




#Region ### START Koda GUI section ### Form=h:\meine software\toolstarter\toolstarter.kxf
Opt("GUIResizeMode", $GUI_DOCKAUTO)


_GDIPlus_Startup()


Global Const $STM_SETIMAGE = 0x0172; $IMAGE_BITMAP = 0
Global $hHBmp_BG, $hB, $iPerc = 0, $iSleep = 30, $s = 0, $aText[2] = ["Lese Verzeichnisse ein", "Bitte warten!"], $t, $m = 0
Global $iW_Splash = 500, $iH_Splash = 250, $iPic_Splash
Show_Splash()


$Form1_1 = GUICreate("LS", 890, 599, -1, -1)
GUISetBkColor(0xD7E4F2)


$netzwerk = GUICtrlCreateButton("IP-Config /all", 13, 354, 129, 49)
GUICtrlSetTip(-1, "ipconfig /all")
GUICtrlSetCursor(-1, 0)
$mac = GUICtrlCreateButton("MAC-Adresse ermitteln", 156, 354, 129, 49)
GUICtrlSetTip(-1, "Zeigt die MAC-Adressen Ihrer Netzadapter an")
GUICtrlSetCursor(-1, 0)
GUISetState(@SW_SHOW)


;==============================================================================


;~ If @OSArch = "X64" And Not @AutoItX64 Then
;~ 	DllCall("kernel32.dll", "int", "Wow64DisableWow64FsRedirection", "int", 1)
;~ EndIf
;==============================================================================
;If @OSArch = "X64" and not @Autoitx64 Then
;	Msgbox(64, "Falsche Architektur !", "Unter einem 64bit Betriebssystem, muss auch eine 64bit-Variante" & @CRLF & "des Programms gestartet werden !")
;	Exit
;EndIf
;==============================================================================




Global $iW = 600, $iH = 150
Global Const $hGUI = GUICreate("Top-PE.DE", $iW, $iH, (890 - $iW) / 2, 100, $WS_POPUP, $WS_EX_MDICHILD, $Form1_1)
Global Const $iPic = GUICtrlCreatePic("", 0, 0, $iW, $iH)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_HIDE, $hGUI)


Do
	Switch GUIGetMsg()
		Case $netzwerk
			StartAnim()
			_netzwerk()
			Sleep(5000)
			StopAnim()
			Run(@ComSpec & " /c start ipconfig.txt", @WorkingDir, @SW_HIDE)
		Case $mac
			StartAnim()
			_mac()
			Sleep(5000)
			StopAnim()
			Run(@ComSpec & " /c start getmac.txt", @WorkingDir, @SW_HIDE)
		Case $GUI_EVENT_CLOSE
			GUIRegisterMsg($WM_TIMER, "")
			_WinAPI_DeleteObject($hHBmp_BG)
			_GDIPlus_Shutdown()
			GUIDelete()
			Exit
	EndSwitch
Until False
;==============================================================================


Func StartAnim()
	GUISetState(@SW_SHOW, $hGUI)
	GUIRegisterMsg($WM_TIMER, "PlayAnim")
	DllCall("user32.dll", "int", "SetTimer", "hwnd", $hGUI, "int", 0, "int", $iSleep, "int", 0)
EndFunc   ;==>StartAnim


Func StopAnim()
	GUISetState(@SW_HIDE, $hGUI)
	GUIRegisterMsg($WM_TIMER, "")
EndFunc   ;==>StopAnim


Func _netzwerk()
	RunWait(@ComSpec & ' /c ' & 'ipconfig /all > ipconfig.txt' & '"', "", @WorkingDir, @SW_HIDE)
	;Exit
EndFunc   ;==>_netzwerk


Func _mac()
	RunWait(@ComSpec & ' /c ' & 'getmac /V > getmac_.txt' & '"', "", @WorkingDir, @SW_HIDE)
	Sleep(200)
	RunWait(@ComSpec & ' /c ' & 'cmd /U /C TYPE getmac_.txt > getmac.txt' & '"', "", @WorkingDir, @SW_HIDE)
	Sleep(200)
	RunWait(@ComSpec & ' /c ' & 'del getmac_.txt' & '"', "", @WorkingDir, @SW_HIDE)
	Sleep(200)
	Run(@ComSpec & " /c start getmac.txt", @WorkingDir, @SW_HIDE)
	;Exit
EndFunc   ;==>_mac


;===================================================================




Func PlayAnim()
	$hHBmp_BG = _GDIPlus_LineProgressbar($iW, $iH, $aText[$m])
	$hB = GUICtrlSendMsg($iPic, $STM_SETIMAGE, $IMAGE_BITMAP, $hHBmp_BG)
	If $hB Then _WinAPI_DeleteObject($hB)
	_WinAPI_DeleteObject($hHBmp_BG)
	$t += 1
	If Not $t = Mod($t, 250) Then $m = Mod($m + 1, 2)
EndFunc   ;==>PlayAnim




Func _GDIPlus_LineProgressbar($iW, $iH, $sText = "Loading", $sFont = "Arial Black", $iFontSize = 16, $bHBitmap = True)
	Local Const $hFormat = _GDIPlus_StringFormatCreate()
	Local Const $hFamily = _GDIPlus_FontFamilyCreate($sFont)
	Local Const $hFont = _GDIPlus_FontCreate($hFamily, $iFontSize)
	_GDIPlus_StringFormatSetAlign($hFormat, 1)
	_GDIPlus_StringFormatSetLineAlign($hFormat, 1)
	Local $tLayout = _GDIPlus_RectFCreate()
	Local Const $hBitmap = _GDIPlus_BitmapCreateFromScan0($iW, $iH)
	Local Const $hGfx = _GDIPlus_ImageGetGraphicsContext($hBitmap)
	_GDIPlus_GraphicsSetSmoothingMode($hGfx, 4 + (@OSBuild > 5999))
	_GDIPlus_GraphicsSetTextRenderingHint($hGfx, 4)
	_GDIPlus_GraphicsSetPixelOffsetMode($hGfx, $GDIP_PIXELOFFSETMODE_HIGHQUALITY)


	Local $hBitmap_Bg = _GDIPlus_BitmapCreateFromMemory(_Background_Image())
	_GDIPlus_GraphicsDrawImageRect($hGfx, $hBitmap_Bg, 0, 0, $iW, $iH)
	Local $aInfo = _GDIPlus_GraphicsMeasureString($hGfx, $sText, $hFont, $tLayout, $hFormat)
	Local Const $hBrush_Text = _GDIPlus_BrushCreateSolid(0xFFFFFFFF), $hBrush_BgRect = _GDIPlus_BrushCreateSolid(0xA061BDB6), $hBrush_Rect = _GDIPlus_BrushCreateSolid(0x80FF3600)
	Local Static $z
	_GDIPlus_GraphicsFillRect($hGfx, Cos($z) * $aInfo[0].Width / 5 + ($iW - $aInfo[0].Width) / 2 - $aInfo[0].Width / 4, ($iH - $aInfo[0].Height) / 2 - $aInfo[0].Height / 4, $aInfo[0].Width + $aInfo[0].Width / 2, $aInfo[0].Height + $aInfo[0].Height / 2, $hBrush_BgRect)
	_GDIPlus_GraphicsFillRect($hGfx, Cos($z) * $aInfo[0].Width / 1.5 + ($iW - $aInfo[0].Width / 8) / 2, ($iH - $aInfo[0].Height) / 2 - $aInfo[0].Height / 2, $aInfo[0].Width / 8, 2 * $aInfo[0].Height, $hBrush_Rect)


	$tLayout.Width = $iW
	$tLayout.Height = $iH
	_GDIPlus_GraphicsDrawStringEx($hGfx, $sText, $hFont, $tLayout, $hFormat, $hBrush_Text)
	Local Const $hPen_Rect = _GDIPlus_PenCreate(0xF0E0E0E0)
	_GDIPlus_GraphicsDrawRect($hGfx, 0, 0, $iW - 1, $iH - 1, $hPen_Rect)
	_GDIPlus_PenDispose($hPen_Rect)
	$z += 0.09
	_GDIPlus_FontDispose($hFont)
	_GDIPlus_FontFamilyDispose($hFamily)
	_GDIPlus_StringFormatDispose($hFormat)
	_GDIPlus_BrushDispose($hBrush_Text)
	_GDIPlus_BrushDispose($hBrush_BgRect)
	_GDIPlus_BrushDispose($hBrush_Rect)
	_GDIPlus_GraphicsDispose($hGfx)
	_GDIPlus_BitmapDispose($hBitmap_Bg)


	If $bHBitmap Then
		Local $hHBITMAP = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap)
		_GDIPlus_BitmapDispose($hBitmap)
		Return $hHBITMAP
	EndIf
	Return $hBitmap
EndFunc   ;==>_GDIPlus_LineProgressbar




Func Show_Splash()
	Local Const $hGUI_Splash = GUICreate("Steam Punk Loading", $iW_Splash, $iH_Splash, -1, -1, $WS_POPUPWINDOW, $WS_EX_TOPMOST)
	GUISetBkColor(0xD2CEC6)
	$iPic_Splash = GUICtrlCreatePic("", 0, 0, $iW_Splash, $iH_Splash)
	GUICtrlSetState(-1, $GUI_DISABLE)
	GUISetState(@SW_SHOW, $hGUI_Splash)
	GUIRegisterMsg($WM_TIMER, "PlayAnim_Splash")
	DllCall("user32.dll", "int", "SetTimer", "hwnd", $hGUI_Splash, "int", 0, "int", 50, "int", 0)
	Sleep(3000)
	GUIRegisterMsg($WM_TIMER, "")
	_WinAPI_DeleteObject($hHBmp_BG)
	GUIDelete($hGUI_Splash)
EndFunc   ;==>Show_Splash


Func PlayAnim_Splash()
	$hHBmp_BG = _GDIPlus_SteamPunkLoading($iW_Splash, $iH_Splash, "Initialisierung...")
	$hB = GUICtrlSendMsg($iPic_Splash, $STM_SETIMAGE, $IMAGE_BITMAP, $hHBmp_BG)
	If $hB Then _WinAPI_DeleteObject($hB)
	_WinAPI_DeleteObject($hHBmp_BG)
EndFunc   ;==>PlayAnim_Splash


Func _GDIPlus_SteamPunkLoading($iW, $iH, $sString = "Please wait...", $bHBitmap = True)
	Local Const $hPenArc = _GDIPlus_PenCreate(0xA08ABDC3, 25)
	_GDIPlus_PenSetLineJoin($hPenArc, 2)
	Local $hBitmap = _GDIPlus_BitmapCreateFromScan0($iW, $iH)
	Local Const $hCtxt = _GDIPlus_ImageGetGraphicsContext($hBitmap)
	_GDIPlus_GraphicsSetPixelOffsetMode($hCtxt, $GDIP_PIXELOFFSETMODE_HIGHQUALITY)
	_GDIPlus_GraphicsSetSmoothingMode($hCtxt, 2)
	Local Const $hBmp_BG = _GDIPlus_BitmapCreateFromMemory(_Background())
	Local $hBrushTexture = _GDIPlus_TextureCreate($hBmp_BG)
	_GDIPlus_BitmapDispose($hBmp_BG)
	_GDIPlus_GraphicsFillRect($hCtxt, 0, 0, $iW, $iH, $hBrushTexture)
	Local $fCosX, $fSinY, $i
	Local Const $fDeg = ACos(-1) / 180, $iW2 = $iW / 2, $iH2 = $iH / 2, $iDiameter = 200, $iRadius = $iDiameter / 2, $iSize = 25, $iSize2 = $iSize / 2, $fFontSize = 20
	Local Static $iAngle = 0, $iX = 0, $iDir = 1
	_GDIPlus_PenSetColor($hPenArc, 0x60F0F0F0)
	_GDIPlus_GraphicsDrawArc($hCtxt, $iW2 - $iRadius, $iH2 - $iRadius, $iDiameter, $iDiameter, 0, 360, $hPenArc)
	_GDIPlus_PenSetColor($hPenArc, 0xA08ABDC3)
	For $i = 0 To 7
		If Not Mod($i, 2) Then
			_GDIPlus_GraphicsDrawArc($hCtxt, $iW2 - ($iRadius - $iSize), $iH2 - ($iRadius - $iSize), $iDiameter - 2 * $iSize, $iDiameter - 2 * $iSize, $iAngle + $i * 45, 45, $hPenArc)
		EndIf
	Next
	_GDIPlus_PenSetColor($hPenArc, 0x20F0F0F0)
	_GDIPlus_GraphicsDrawArc($hCtxt, $iW2 - ($iRadius - $iSize), $iH2 - ($iRadius - $iSize), $iDiameter - 2 * $iSize, $iDiameter - 2 * $iSize, 0, 360, $hPenArc)


	_GDIPlus_PenSetColor($hPenArc, 0x508ABDC3)
	For $i = 0 To 5
		If Not Mod($i, 2) Then
			_GDIPlus_GraphicsDrawArc($hCtxt, $iW2 - ($iRadius - 2 * $iSize), $iH2 - ($iRadius - 2 * $iSize), $iDiameter - 4 * $iSize, $iDiameter - 4 * $iSize, $iAngle + $i * 60, 60, $hPenArc)
		EndIf
	Next
	_GDIPlus_PenSetColor($hPenArc, 0x30F0F0F0)
	_GDIPlus_GraphicsDrawArc($hCtxt, $iW2 - ($iRadius - 2 * $iSize), $iH2 - ($iRadius - 2 * $iSize), $iDiameter - 4 * $iSize, $iDiameter - 4 * $iSize, 0, 360, $hPenArc)


	_GDIPlus_PenSetColor($hPenArc, 0x808ABDC3)
	For $i = 0 To 3
		If Not Mod($i, 2) Then
			_GDIPlus_GraphicsDrawArc($hCtxt, $iW2 - ($iRadius - 3 * $iSize), $iH2 - ($iRadius - 3 * $iSize), $iDiameter - 6 * $iSize, $iDiameter - 6 * $iSize, $iAngle + $i * 90, 90, $hPenArc)
		EndIf
	Next
	_GDIPlus_PenSetColor($hPenArc, 0x20F0F0F0)
	_GDIPlus_GraphicsDrawArc($hCtxt, $iW2 - ($iRadius - 3 * $iSize), $iH2 - ($iRadius - 3 * $iSize), $iDiameter - 6 * $iSize, $iDiameter - 6 * $iSize, 0, 360, $hPenArc)


	Local $hBrushCircle = _GDIPlus_BrushCreateSolid(0x60F0F0F0)
	_GDIPlus_GraphicsFillEllipse($hCtxt, $iW2 - $iSize2, $iH2 - $iSize2, $iSize, $iSize, $hBrushCircle)


	$iAngle += 4
	Local Const $hFormat = _GDIPlus_StringFormatCreate()
	Local Const $hFamily = _GDIPlus_FontFamilyCreate("Impact")
	Local Const $hFont = _GDIPlus_FontCreate($hFamily, $fFontSize)
	Local Const $tLayout = _GDIPlus_RectFCreate(0, 0, 0, 0)
	Local Const $aInfo = _GDIPlus_GraphicsMeasureString($hCtxt, $sString, $hFont, $tLayout, $hFormat)
	Local Const $hBrushTxt = _GDIPlus_LineBrushCreate($iX, 0, DllStructGetData($aInfo[0], "Width"), 0, 0x90101010, 0xFFA0A0A0, 2)
	_GDIPlus_LineBrushSetLinearBlend($hBrushTxt, $iX, 1)
	DllStructSetData($tLayout, "X", ($iW - DllStructGetData($aInfo[0], "Width")) / 2)
	DllStructSetData($tLayout, "Y", ($iH - DllStructGetData($aInfo[0], "Height")) / 2)
	_GDIPlus_LineBrushSetGammaCorrection($hBrushTxt)
	_GDIPlus_GraphicsDrawStringEx($hCtxt, $sString, $hFont, $tLayout, $hFormat, $hBrushTxt)
	$iX += 0.02 * $iDir
	If $iX > 0.98 Or $iX < 0.02 Then $iDir *= -1


	_GDIPlus_FontDispose($hFont)
	_GDIPlus_FontFamilyDispose($hFamily)
	_GDIPlus_StringFormatDispose($hFormat)
	_GDIPlus_BrushDispose($hBrushTxt)
	_GDIPlus_BrushDispose($hBrushTexture)
	_GDIPlus_BrushDispose($hBrushCircle)
	_GDIPlus_GraphicsDispose($hCtxt)
	_GDIPlus_PenDispose($hPenArc)
	If $bHBitmap Then
		Local $hHBITMAP = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap)
		_GDIPlus_BitmapDispose($hBitmap)
		Return $hHBITMAP
	EndIf
	Return $hBitmap
EndFunc   ;==>_GDIPlus_SteamPunkLoading


;Code below was generated by: 'File to Base64 String' Code Generator v1.12 Build 2013-03-27


Func _Background($bSaveBinary = False, $sSavePath = @ScriptDir)
	Local $Background
	$Background &= 'iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAMAAACdt4HsAAAAnFBMVEXX08vd2dHZ1c3b18/a1s7c2NDY1MzW0sre2tLTz8fg3NTU0Mjf29PV0cnRzcXh3dXPy8Pi3tbSzsbLx7/MyMDNycHOysLJxb3Kxr7QzMTIxLzHw7vj39fGwrrFwbnEwLjCvrbDv7fBvbXAvLS9ubG+urK7t6/k4Ni/u7O0sKi1sam3s6u8uLDl4dm4tKygnJSwrKTm4tqfm5OLh3+vBRlAAAAJ5ElEQVR4Xg3ORbIsyZIAUWMzZw+OyMz7qOBj8/731jVSkTNSyPRvstiR0BJpCcklS25k2FRHqyr20c/pShMF6cMxK/Nli99Q1BjqH/zSTXkUKuXlJ/FI+mvAQosvLb7BYyQN0thsp9RWvfRYiq9EcNCUBI8wr6PyPkZ+iPDCJX6DHN8F6QGCqe6TQErOoyhbx0ocBj95xJPFIR6b3ILLVIo0XFadSWWjpybZ7ClfctOqpzp8c6UuDjebbE/PEE9dQft7DEo5caHyaWT6c+XaLQOjsSvRNwGlMayrtHUZ7kuWUtWmZl0J0EbhXofd9aVTTz78guReD0xk+pVf9JscvPIqj79sx0ZJ++hy1I79c4GgpIaU3rnQrjx+htr3teSfqlDyghMtH3nYoZgLFwaL/F95sVVRj8oCVXmO7/LwTAXvPvVO5yi45tV2TYutBTsWJPz+7MtxQ+0iXvIGX/kJxRM4cSxxVuL2IexBNIVrY9bDApul+OGRyRCcshKIvmumI4RPq/4gyKMA+nnqzg8/vvlKlzpTPCZopJEUW1oAL3nCedrUnUltYSQ4lhWmjTiJ2D9Eu6qVarJTBFO21ao+LvEI57d+UAekHQPaUJ680IltATttgtFjTebSc6cr7wG0Dqlk5YOyxxUPTrjJ9aZXW/mhfywFnS46WwKDmc37YNP6sRePSiPiEeKDAqcnMh11p6DdMHfOIy2GalyNJR4E3W02WlL9HR/cx0/iOOujP2qxLjs+0viIua50YtMdMHsGv5WksORmBJzROjJ/U+CCEY80Wiv5rkqzLmLgtQXEZKLGRV6AWQJpYuRGGQGS77m4ZI4XG6959UJv8PzmlTCSrtXEp/APbdLSLkmmuXoEPPnhB8AAhV+Y2plEn2bca7ULLNZBuFZZPGt7RKBX5nZYEECV/OHfiRtV0DlWcJ321se7vwrKxjwaPaEmulJwkpW/WKXXp77ERoozY7zrqUkchJ2xXoi0GeOJCC9BTDToTizGKmf28qokZ13iKFIFs/L4ZKmNSoZI9dHdGhyfXVb1eqnH4095ng3fOVXymxNz6VzGVnc/8tQLPZ+U+IAMhEIRyP92XX5jLUQfLiycIujUJO7Ge/HYNGUmo3tEPl3VcYh8RMAa/vmp8hqGvRqvuIfpxSes5JFyknc59LZUWvpZn+OmrXokSLguu2DukCDxQBPFUxAuTuiDSCqFyUcMdUxU25cF3eb6MgsB4acGHpDrbiAkvNxLanMc+tgJRxjeflHTzi4iIG+ZzMil08wF21jjpdNL/uEvegFWskRDMlOsNbAsC2NFehQiiTIPtJN4rER6M/VHl3gN4v8Wxbu2FXKjA7weOKmXFZshvburROMjp96HG+TJb6PFUAPE2PEgi7MVu/gGqbtke8SqA4V/BnjwODWlnR3XHEIUJVmWVSvvjHISiZMEE9JeQKYmJJw2Y9ckb/uWZj7c9BDmriU3vfMfeC5/2qqvmmgrW3qx5xgHXLaBGsoLlVPJILU4EEBxq8DolqttLPymXPcC0Jnz3jo0y59TRwV1hPwMrWtLdIFblycm3OWgXXZd8xwrrHCME2Zc5wsSdCx0wF5Xttprgx0i72MpSaT0Irlg5I7MfanjsNDCVMGz7NDS7yV0GkYShheSfoXJ4TDOfusXn/aiyTeTvarXhTr16IMq07saOLpse1pglCVF4Se6b5nqASt0o+Q1iyD7+mnpZJRnfASGp99R'
	$Background &= 'LOFCvoQczPJitnNhK6LyTXI9KjVA1dtXWqnrFOSdR05mZE3yI2Ukuuj9N/2PwA0mbXTJCbJMAW64+752oCjN8S38V6F+KX0KB2/UvGerk6TC+J86gww9lqeynRnz76ZymsQWkPdR+B0F/8xeLjgh6ayUf9JpbxbfqDDUwpZ/1OT26fRIyi0f8H3Q4LzBFGX6BDoxVM78d+cAxHYzi2B2qMhJgo+q0llrIvmU/BlJiNwrAyX0IH6Wm00eKfWpjaa8TbIGyAa3gBRO0CN9XtQBMhnnhIlX6jlgGQ9XLlw5RdOeMZ+QJVnO5xL8BCAvlXa2cOVwUHaO9DDrDYHdgFZe+Vvj/BVX23yt2759JLfouOXvscO5npH0qRCp3tKaySMj/ynGv+FBJzwVq0j9OPhonMSowPcAWtlwZx6TQw+sUkhQYsGe2XxktUVkVDKobOZU9zH1BAjDf2SrBx9YxNtUr1+oUWLv/wqBL9s/CWf9p0FKcEiPG0RXYbgLipCqkhCrykEjA2L/InZQipV73xP+7RFHH2EHQqdRZAPgrbTodI+sLgQbY77HESDf7S4Xsv6Ag9/c+Du/nGKVTs7TVjl90tkazPB2w8xXtiDK8aDJxmy4chwo+BCaL5/wWPJOK3RCnEuTb2q2syrwD9X+x/PkL77C4T+5ZI+XHX5hV+Mzei1xfP6G72H1OH7Ibg8W2nKjtbdoQPTGdnUXeCGOtVb9Vsz2lUsx0s6IZ2YljZ2D8po570z1B5HeagoBOWp/JS2QhlWvpxzQ6ZFX/SLXKRufdqvHjW9q8jOqnDB5rx4bXXBbgY6efisZvvNgz4yPfJaGWR+guIWsCeWVpWpSeNBArcSsCxWhwWAGwPVOZyvYsfKELV9c68nFX8Phj/rkPZJ6vvXiA77oQAOFv4wA13bwBAlHGuxSjir1TDiASHdF2MjscLNHgh6wsgLRNHHfyVPHFlq8rZClpLLxg2ckd9390RIuJImnJujuBiz/KtZLiO2N6Q7zM5hLVdoBOoe02TiBsZlSSrglkFInnmjRbUPgb/DFW3M6y+WAhVJ0O+X+yxNQ61Dp2R6SqGWvbK/R+46ZD/wsZNZoBKcJJWXks9O6Etc1V+ZscgHwCQUOe83XYrX3L4ZQcz7rlgtPefNeIV79bjvl5YBOv6fVvsYZLXe5+YSJne4wevdHHSA2l2VVRxOUeyh8g9bclLo2aZhx6wWBHNwFIKOAQt2VNaHyZqtxKG2NcB9ql/RK6fHDSr5IxyMPd775wmK/oOE5rvUFKd/YhEP4f8fMHdf+y87obHLHS9dxi6Sf5HHVBxJNd+tadQ5iiJBbgboRyYL8f97GxFpfoTQpxKvgRtlOQ/yFlruI7sQi3Ok15tI52ZMnrPV7Zr7Vc/IEXyX1h0D3zBXyBVsc9k9Mbad1aQLk+sKinZvbyP4bBgBnZpLVnGnFKL8WjO5BdZDOkbFUlBcGlSGawo8rtXyHx+kpT5xWYIrTvTp9T9+0jd3ekOhbTpbUcV8a/ajXeLSPQitOv9pVDvSxS7OVeS0Cn42WuHJ4t+wThE6rOIOXrUv91QjnoNgtD1sQU2a/V1sou75sUtEHJI76RZv+/dPtxe+61iITplxwRS+Nf1j3LYe/3MCXTc9y0p4Ptrq3DSv/P++8o9FNjW8tAAAAAElFTkSuQmCC'
	Local $bString = Binary(_WinAPI_Base64Decode($Background))
	If $bSaveBinary Then
		Local $hFile = FileOpen($sSavePath & "\hexabump.png", 18)
		FileWrite($hFile, $bString)
		FileClose($hFile)
	EndIf
	Return $bString
EndFunc   ;==>_Background


;Code below was generated by: 'File to Base64 String' Code Generator v1.12 Build 2014-01-04


Func _Background_Image($bSaveBinary = False, $sSavePath = @ScriptDir)
	Local $Background_Image
	$Background_Image &= '/9j/4AAQSkZJRgABAQEASABIAAD/2wBDAAMCAgMCAgMDAwMEAwMEBQgFBQQEBQoHBwYIDAoMDAsKCwsNDhIQDQ4RDgsLEBYQERMUFRUVDA8XGBYUGBIUFRT/2wBDAQMEBAUEBQkFBQkUDQsNFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBT/wgARCACWAZADASIAAhEBAxEB/8QAGQAAAwEBAQAAAAAAAAAAAAAAAQIDAAQI/8QAFAEBAAAAAAAAAAAAAAAAAAAAAP/aAAwDAQACEAMQAAAB9OZHEY4QHDJYkqKg4ZCuCCjIOQDKWBHqmc5dhakApOoSQSV0CUITiJfnsOiMIlOQ7diBVYYo5lzArBihBOZzjPJgq4AyEadFNCoFdXOQsSmJMJ2MlJC1QlymDMgR4XMWmMFBbIQYWIrVAMUKhMGiOZChWvPcjLqkTpNwOJhqGE08VWSHSJOGFgDHE6rYRWUaNEGrydYoDEq0AikjbnoFSA0XFZLU06AFEA5DECQLUAowxAOg66RcxuRXpkIrg1Oe40qSHpz0HdCKEYoAhqFhA7kwJFHVibLhUlc6EshydQQoY0GLYaToDNhHDi7EjnQOpAq08PMgCmhzWKiBybPMoUA8rRMwxc4BdHOdayK6FBkpEk61KqjE3VSivMtfi6R4upDom4zRqMcSAtIHL0EbbDaVTCkBpOA4MaNVOTrnYpMqLlsK8bCsihzzC6MOM5z5mIDoAozgShJUClAyjNkC06mR0GK1IyvjNJzBgMlZkgzEqHCK2E2JQrMfRqR6VcZcgUpIcTsMwiUBQd41MYgdVJEOo942Cl5mpGowbEnBDN0AKoFipilDnZ5mpzXMAQKSLqAhSijbIGbOTUglRWHVyMcgYVItZKO8rEtRBKDFpWgUyko0mMmIdiPGijDYDohZRgEOSzoOEQ6GLCSqgJuoweZJksTCIWUzOmiqVVcRYgLaY07MTyMdE9hm2H2wJ7GOwV2LjYmNhabCnYG2NLY6zsRGw0th4bEevYWGx0z2Kw2KtsTtscd9hxsRpsf/xAAiEAACAgIDAQADAQEAAAAAAAAAAQIRECESMUEgAyIyQjD/2gAIAQEAAQUCsfUe33tCleP6Oixiw8VvjvDi2do9ogeiKGNEVmsULDOzd5vCRsaysWKiihi7RW11Y8WcuRdZcTZRRWFhixR1hjFmXSk+Uej283hUisPricRMsezjRVZckdjPelNtShLdlvCLLsvC+H83eG6E+QoU9xLsVvLFEoSIv45aT1nkWdjiiuI947UvxMjGisby9HHCZeZTojvD7EXhayjwTGLLFieh/sJYZeuNnlnIQzpEi3aY2crPPMSsjLFjEuR0+Vid/FlO4SsYsr4bGxZ4nq6eI4mWXZu+Qh40TVkY0JIktLFEtM99+P2tEuo/sdlUKV5r4TKx6Vt/D008NG0dl7+exi2N5ZxsrVC7lKi/jocrX42rPyEU1L4jGsS0MmhUcqa/YkiqEqxtke8SW+iXUcdKQr/4LLiOKF2UeylRW+IupvMnpSyieaKIk2SP6HGjoWOhs7J9LWHjv6TPceyEf6LGUxu2tClpxLLsqjkREMd3ZVntiKJwIMY5bbZ3h/jONOj1nmJF2ovZ6Lu8LDHE9SsZe32uqpXpRHYnaWny2csex2OOKw8XqpXhHK8MrHeKPyEHuMcSTscc2WSVtt/KioElZbFdqVuhjo47xZ2Ik2d5ZJaHo7GN0JYbouz0WaIbPZWIXV20xraTsbsjZYitVR0cSSEuLorFll4rDynY3h9RI4raw1YhLHtjPI9IYhkUJFbY+qojosRdDKI91izmcrTbL3FizYsPQuiiuJyL+GPWKKKwlmQnWIxOsctsm6I7Et0PDtkYUWS09lViseQ6ZtHeayiWziLv1lnj3jkeZlESKJLUeujsbo/p+OPJRuJydf5rNkv2jG8XeKYlSRLoeyIvliQ9'
	$Background_Image &= 'HoxDKGqJIX8rDEPQtpxIoaER2UaGex02is0VpMcyHQxnR2eXixP6ZYhs6xY2dqisMXVFYqsJftVFaaKsQ5HLd/smVhkntwsSpcqG+RxZ5GV4qmPFl/FjIjGWJ3lZZF7yyisNidSb/VjRFVH/AEixSL5KKHYuorcY0MvfLEsLePF3e/fRoS0PCWKx6OOowoWHLd3IkfzH8li6j/P5dKJpnHHvnURok9x0sRW6P//EABQRAQAAAAAAAAAAAAAAAAAAAHD/2gAIAQMBAT8Bev/EABQRAQAAAAAAAAAAAAAAAAAAAHD/2gAIAQIBAT8Bev/EACAQAAAFBAMBAAAAAAAAAAAAAAERITBAABAgUDFRYUH/2gAIAQEABj8CwN/mkgH8mDpFd5yWKU0tR7Rue7EJ6N9UYUEcSr25QRnHBCUvNHiRUeSA+i11c2yZK4pgtkpYIvAVkxPLm62F5ISX9yXRdziYXTFcnRkKwuK1ycRIBUWRUWl8ulGymCWHvS9g0OBaQbGGIMf/xAAlEAADAQACAgMBAQEBAAMAAAAAAREhMUFRYRBxgZGhwbHR4fD/2gAIAQEAAT8hVr/BCyx2xnk5E0Y3gXkXliKeaE2nKidEU0fhn8THoakdnEBvBtI2/DG7M/RuleYM8qMfw4HIQ0wSrmjlRG2YfbHvKKTf8DKw5OA1w4MeSLVwcl0tMxsYxxwUWi5GIl1+jcdMZwmRfkgiCX8GS9hu+S++ePg22h1ehZ38MPAwW+mJcnYjE/4W/o4e0YVFyaEjaEwvP8OMG22C04FtRYhIKpc6KzTtWsYRHD6M/St+A/P4TY4XJfiIfBwImFGP8JTNqPofgTrkXR2cjcWiD1CJTTa4IIDEkM/6Dd8Cy7GnHMMxN0YhDLnYmNghtQa8DTIKQipS9sXQyDAhoE0yjdIvwcM5FpTj4ZJ86U50Wr8M84Rf34an0NUmlBy78cjROCgnFjXVYoYL2J2iYDDtw5LjyJEsNmDbOyQXQ0mjiSQqd7H1/wC/Amg02/Rw4WcCw6QfgPVBnOJ9/B14bFb9DfKIbGuFFl7GHOpX0NOcE2T8F8DpYdDzVyLHBD4Z3DNz6FMuHlDQcLTW8M1yImoJeCCavI3dFyOEJaoxb0cNCob6C3TghwxD+xPocMw0xL2Q8Xws5GIfA2as5Fo4SXLOzyf5FvKwnQ14E0w7EJT9mqQ+iY4xvfRa0GGkVpeTKrMo3ga/o2hCbvOEW8EzRJ8RniIvQT8R/wDQPAV0beBmnOWKG0v4XicKQb3RynAujV7GX74P7N4TnB3DOyaKHQ2+R0TLYJdMhoJE37HENtJ/QmzCjCzJBRsvkhMpTBm6FSsNATJDEtE8G8G9VEJof4ISl+DNOVi+MfYTLyFH38CWjEjG03DoTJGnbDQtrG6EkmJiKhwcIYhnk0UKSlLRrmwaP/kazmPsZMyig/6lLbHEKkKzgrD5OBeRbRyiGmK5f8EvA2gavBUHiwt5OivxpGKwb0W/E/SAw2+yMp7RLv4NT0GRmCatxiVvo/RIU4jnex1T7+FkvJIcmaLx5I2SuNkpeRnPBTP/AASVePI0wocKhLvBdg3RT8Kh1IVb6LOx3O/wTdsw3gK5/wBExOkHvfByZqEp9hLBcEFSitLE5EXJ+DeCiD5rGDfACJYba8C3xNqN17MoebUcAZzSGj6nk1eDnF/p3N6PPQeBk/QodfYh8OEuaccQlSxRVQqlaoWnYmJPOHDr4G10otJAlF5nXxSfhC0eBLgSxnSH9m7MH4MhnBDKPrfZbaJtFZ6NuTDSOCGaR0WQP6BNJo2Q5UFpdB3SY6gYVUsh9z7Jzb+qN2HNppkVNIaz2M6hLXcHJ5l7FmCeUYFTglZpx6QR3yhYOW4KPslp+SDW74EN1WiaRVMoctUZNCUbVKOU0xI0oyCnR4AlWJNdEGkxjNXoeya47OD/APUpg6Oh0hw2v9MbyMzS5I4bOzcuMhyaJwEi3kSiTFxFnY2Iuz7g6SZK'
	$Background_Image &= 'Jkj/AKJGdU7vh7CB/wDgTnowcW8+hpCTl/4NyQ1ypp4Qpv7RfLH4I7YLVPgobN4G8sw6GDhyglo012bbrO3spvqCE6XffZwFEUJHo4wcdjiCX6z+BCvoTR/rLrSh1Rw+u1+mMniOBuvQwhL8JmmQnEMTzn2NOJdmVYTOT34WKO6XGjD8r/R5ILpV8k0boTlITHPwJ5cjDTBMmmVUyuRuJwES8Q01+BOzkYe5htG4VdPjse8D1krFTnggbjiFnEP9wuDWDh7ZjgVFZNPAvgSvYuDlmG7UNFwsHZ4QmIkYn70h6Onv2V9aTdpw5p3KNPsM80q5PfjHVuEDNuCv2LReRz1uswtY2hP0Klf4NTjkbNcVGJ4+LRLgm5UJVbYq3oSGUzgSmnJmsECL7C8kNEchvTE3ROIVUTbssWcj/pNXRTR32P8Ak6vI0RcssFoq4pjOhTDcE17GrGCdSgm22iht62JnG9jP1tMPAqSVGlM5SG6dHlnsqzDxBJfg56FFT4eiwfv48BCYzCSpiNIXThBY+Az8dD+J7FQ3o2dCKBnjgkSumaxoEiH+kdUsZOZ4xOBnQwXa/gtXsTbW8jp5PdM4EPZE/ohquzkYbyKcTWzCheIhw/gYzbzhyJxiUbL2aGTSBajAinFDJ2eiepCrwThCGFYW4PkTfJaqxnh6D3zRNVHqPa7dE69Uh1FcOq1+TQfQazsSOzkmkJ6xssKq8kFePAr7pStQk1eDVBB3MaI5BuK3BKWLBskaOUZF8KCKK0hOU+zgcafeGleBjZGPDneymuRiyJVEHmCRodChkq5OhiHe+UfiJr2EHuCEIvI6/LshqmW5yWXshj8HC2dP9M+yOybRz+TRPaChpOx8Ff6WGCEsGhphhKHkCdKRElQ0LsGv8NMcOeTDL4EJC0mzaOSX4HE7+Hg3AXo4QvdrkW6ESFNGVR6uBuinQkXR6FtNQlgT2hNbolwM18DHhka7EPQ0XR//2gAMAwEAAgADAAAAEDCHKBMLKCINALCIILCBPLBEMPDOLLPLPODGPGEFFJNKGKCEOEENLEGCDNPCLOPCNKOOFJBKHJJGMHEEBBOCOEAAHHMEEDKLEIJFINCIMAAFFPHEPEPNLFFJEGNIMFBHMAIGCNAAFPEGMLJHIJPNCEBLLHMLAHIFNGKFFGFBEFJLHCHKBAGDFANMBIJPFFAHGOILILLDPFLKGMAFLIFFLKJDHJJBGOECHCAAPAPAPAPPIAHIIHIHPHIIAHAP/8QAFBEBAAAAAAAAAAAAAAAAAAAAcP/aAAgBAwEBPxB6/8QAFBEBAAAAAAAAAAAAAAAAAAAAcP/aAAgBAgEBPxB6/8QAIxABAAMBAQEBAQADAQEBAQAAAQARITFBUWFxgZGhscHw8f/aAAgBAQABPxDvj/UsUqP8D5EXZ/IIov8APJnUDvZi1TcarTp/mNAG7lyiFI/kVQ7+wAON/wBy0Vdb0ji+HCO7+XsRQot8nANLyUum/wAWA2R2vYENYdyNqgb8hzVNq+bGouusVGIFRSqM4zg/cqP+b/J/S/2BVb82V0+XwjWpkQH+T7OxsLMwGuylpZxVlQFlygNAV8fYg0Gx6/PCO1RFPpnfZ1D5VKgNvwggUGzlsUP2/I1QKX84RUHbIRVox2BuirYhoFOkdP8Af2MrSyf0Eegf2CQkAow0xEYl8lhQ1+QQWVlVBBldXAAwDh+Ita6i/i5YalMUovSr9iybRDV0j5Oh19lHodcrYlE49GNZvpkDq1r+SpFb9EiBn1ukEUvFHkpQeHkqlgIm10o8JgN1UR24V619lT677KrQRW1diBi8+wgWAD/MRZunmsAB5B/dH/2U/aTsay+mllNnb+EG3oOzNrlPkIsaumvsAOVi6lkt0+FSxoZ8IHmGcgrFo7LU6v2Dqk2GlVldYAFXDqy/yUOquGLGhRPyAacrY6g+0JKT1+rsIAv+rhqNvrCS4NFSzl3kS50X2UgDfFplciWbnJUBwnDsENK/'
	$Background_Image &= 'jO77FMC8PYfI/wDDNoj9jqcvfIoFdMXxhTYA7y4h/XLl2FfMjZbdMzsqDhXZQTqWMtWv+CXB/wBqCo3/AFlv2TdgSapbhyufK7FXbYeXMFh3f2Kxwrkq/LP/AGEq8+EoKBVtkCIXHJYaC7B7N+x1UoF78WNOhblUHBlKdGrhC1XtrE00DSArr+25Lb/Akq6EJZbf8geqG7GigpewSeWWVXIAQKz2NBVkS1FxV1UZKXVfJyTn+pb2V7cuAofrDPhHJsAvOsUlqQypfQf1GII0tt7KkiVRaq++wqkP1jBYrt9lBvYmlv8AyGCGkpfuuxSvFuICN/cl0T+r/wDZZZL3Cc+zdDcTSFL2VW7rzvY+VD+srcsfsvG5r/1B2JaUXELatiKePf7Mq6PyUWajekPBV++RslbWyw1iIVsT/sXVs0jz9iUpw4f5lRH/AH+QOBqogKhLgoTJrQ5cT0D7yUSC/YIQs/Pk8Mz7BqlVzeyyC1DTFJFP8J4cTz7GFRdR6sDP2IFuxirKewUGn4iglD/2WlFbyHwr6e/yBtC8IUDjrfsKzcTw52aCr2+xywGv8ShFrXHyHD/2K1D+OZBE/wAitlB+o1CWczpCAKK1sXp0ewG400H+IEXo/GMBR/fSc7S3clEVWeQBDf18h6lP2rlqqsWAnYBz9JU348lZPwRpdNqPnRt5yXq6IaPYlQf6koA2PI4Ad7KBlso7hC1OvybNp8ESBLXaght5y4ADjXY75UenYG1EeR0p/wAxMdV59hgW/wABCLy1/wBSywNVUFxxiz9JacpcGocgHujy4AYfoyiX/Bly91VpReRCt4+RlgWP1RClp5AwN/j5HVdK5KEV0Yy7tn4sq0wejYWFFPbiGIfwj2oUnIiHQ5G7F48oh0QDTFygQOr2ZZdApKyixn2EBcCqHsqaDNENovm3H/apSob4MQKNPSCTZY9mwAn4zDmko+n9iOFPj9jsXgx3Ai9Pn2YysdGAsOQCx55+x1aFt1KunKqoWQ45EVonbxgpBx2Nw5+xli2tyXTH4fkL6E7AY1xX+QQZRqMFdA16QlNLnkA+poPn7MonOnyDXQ1tkbX60gCM/GKkFgf7hZ1tYQWygrsZgH9iz4NE8gkX+o1Bb+oHrnqwcwYVBwsX2yId6fOSqFf8jXRX/wBhcbK/IPwSL9mJcVOfI4eqTD/e/wDkQpR8+y6K38lBxpgTi/zyBUR/JTD0vZY0OxroYOHWUaDacr/sBR/rnUKDtuwRf5d0yim/bg3WnxlwA39SrlC98jHHrV/Jf6WV9m2wNXLcoqwBYb/GfiAtZclFX4eS+J57DcShKtoEoHe/IotX/wBlFYCqSPC2FVS2EtQa4v8AJapRUyD+hMJc+CpQfs9GgrPsYIJR5cRe3wlUbqvbmVjNgUpewRyyck/huUL3zXsp+L7Cx/NjA/5C8n+9aQDaT3/2Aw15erhpXXluS6+4lTG0tey9qgpCMDQ7LBTRoy4vj0IDS288gf0lxhL4+Q7yvY0ej2LBgvkZCqCARb/cpuj98S8CUA+qglHB5fSILuwDZr0lMen4bAItSefZabrENW3xXsMl39IxLIuZtwlsqyvkBRV/fsBZOr/Uo1RbdbFsuH2IFlr2AO/4g675nJum69Y7N0FrGV2s/wBx1vTiiN+f8QjVbhUtufGK0bnIDSTQSsMjVNOw1UZBYE/r8gDwFyvYoWxHLXsckFFuMRfVcGHXB1IWCo/XSXiJTwYC5h7AGwr4w4N5RU0238fI8GXBTRZgC8HRFXwfkWCA+ggpFr7YBe7PsN2/QeyzXPFTbVMJgLDxjQNgsEkpfD5P8KxayV35i5jTdBExoWY/ZVgqKd/YAgW+zAKV58gKq04kFSiryWD0NgAKMvaqIFtHKey35NERUd+5AsD8gPJV6q2JZfwr2VoEVO7/AKgQ8/kuu2r2KhpqVC7GWWBXIqbaI8V1brBtTHsAFijh5B2gHG44g5RRLOtX0+TgMi1CUDAoIDr9'
	$Background_Image &= '/YBgNuVUdIo8iECXxYNq4tJE9GjY2GtLgwsVStZNtYjcPmn5KiA9GJ2M8G7nyaHfsy3TTjEXU/iRWhY5UKi2/ssoBePtRdm/2fUC8IsZlci70ryL3SvJ+ARYW6qWXX4QYWX5CjYr1jUVHqJCqHEjAdRaepcqmGU7UZsHRNl0OvX5Kyy335LkSpTFFWP9hkKrkYMDsJji0hrDH57Ku8Wm5ilqlHrspBav5EOHhakSRKoiGKqDA/4lw0J0YyCHh7NWCp1lQVoCelso4p0/JXYKF2+xWLg55cKgdvtxLR0iABAMHpKm18XUUY7a1GlIISpLptEJQfYOkbEbIs+3EQbEu/sY4Luv5ACiUmfUWmkzYlEKrtEYvCP/ACUDVmxlRb9iDo/yGqFhrGUG1pukVkq1bhoaHPiarM/djkoU+IIFsGr+TJqLpUrtjSzpADVEb/8AIkQWl28guWFruJE2G/2BWjYezRgD3yvn9ggFE0k47umvjGGhTMml0fI9hqbMUXTyDJ/qqIIX/DyII4VR+ymP4kNBr1F1Do+/JRvKjsWgBo4EF+PMhpWh1PsKhe8gXYCGrEFWFPCVfdldR/GVBurexKBH0GPcCXERbnyaD1LrJnhEoYMLMKD/AFHCOv2fQVnHVD5LKax9gqL3pA7LyNGlGobZ9HmQYAH4ypcPyoqC+HpKMu/5BAx67cLCvKlYCCxgeM/ISlsU6RUez5Ni9iLDrGBALrZCxRf0h9ADOQeLdKw7o1WuSkjH8jCwH9qXTARQV6d9gtjocuIWO7dxCc2HKNdhOidVKzMaIbUuLEWp9ggAso9g3g6sYwtOx5+RDA0n5KWXY/I96w9PssoqF6EGzRx8jVBf4hFjV1EYFn7BfBTrKVBf3IODH9jVUFR/+xGkC/8AyWPWulTiYHqTpW/sEWQr9LlQkFy/yDX2d/YLb/pD0b+/Z0WA/ZW9NIw1TzGoyUbctssDCfLgp9P+TgJV1LBtXV1+Q7bfwxQk1lBL6qHYuBeAnZqgVyvJRp/uLDx+uxAS6fsoCqFH5Nkkq4kSgurZ1ChhRChDrlxrxW7vx+RAgTq+3BiGhbYhen4ZCx5Zb0yEmlgplrtQ3cOtilr5Kh54s7GGwv8AYLtCmqiCn/EBRlV2XtNfINGMBL/iKFrCypdl0e5LjErx8gAGe6RaQcI5wVBsS8E/7CvWg9uBQKg/7lrWMQwhTy8iKqrQBUEMXiuRhd/5EdpFtOhPxZCzRPn/AO+yt7/VlA5ToHYV9he/k2UUFZ2IDLMfs2BSVSk2ADc2VNS/YWIKUG7yWBgxIIBV3/uc2BHkrsSrLs8ibBSND7VFw104z2WC9X55HQNt8hbHMiwGlsulWWqHIr+hxACy7YTLfEEJ/jZTRfY9riw/2jpXYi5HMKiCvEON2vkEKLl8GuuzjOfsLZ4Ma4UX2NKukRqm9amoSxMjQVTpWX/I671X2NOEawmlhsesC/rKCnHj8iscGO16vHJUEHwPCIaSm/CL8EQhQz/cBrKXYtYn9goo2NV9ioUdK9CCTQPt9ZbYB0mx2Pmm9jiGjnXkVLR+oieDVHkdTRMRlWH2WW30IKbcHTpHcbs79jv8JpV18yHdcvyYXVa1OlU7/Y//AMpZYlR2btbrka4itXiy1KaR/aiVuQcnA9zIQCEo+VLy6V9InkOZcsHHlE9LvyHo2wor2dBZmVT9lhR/i/YA0tcF5W/9wwrFfwf+ykEBWIpA+hA6GPyCvqNZWoZodOfqW0K3txFin8hYCi0gmih17csXBTXkIF0N/wBoNFFwBNiqAt4N0fyVFv0wVIs7N2osfGLUKcIUVtbT/kRXTtS4gRZ6Zeg1dtfkoSFLYOl10YgFi03yYwBDyYUJb+QTUgdH2OHRuQQW/wCPsWYbV6MG2Wu8jvhfyIrwfkLbUm5BECrPs4qz1iarv8hm7f2X9B9RA0Qliho8m3/zHXdQU0O+EuQ2xNhoPKhVqXTH5EXg9mCDvX2NbXYXEHP5BYWD'
	$Background_Image &= 'BB232KqTG7m+iA5UVrbcqNbYP4QkHOj2UHA+I0RulqYfsK23YGrjCnFqf7lJiDSQC8+5FBetvyBcicLXYrQi6uVOt3nsSqiJqG/8RWK+gXNhSKV8bhuza/sJYGtvkUQtX2uwXYvr5A0p25Qg0qKZcJQph8n4jcJf3kybsAWqT5Gyc9hgeGwOjXSUeU3TMo0nstjWquCmqkqAqmpWUUGP8Suyesm1NM8HLjrwkAXVbOS1y7EnQdLZZWV5fkGucgEvGIUrmwAAbfXIUb9aiFTNrPZQnXuToMVpHYB7LQyBYnIDBb2oIR8ENOqBX7O1CvUuB4+RqFmfCWFPYC0Z8jZLqmiVFVLrE2ID4EyELRX+VKsLfDDSLq8d9j10v6T/2Q=='
	Local $bString = Binary(_WinAPI_Base64Decode($Background_Image))
	If $bSaveBinary Then
		Local $hFile = FileOpen($sSavePath & "\Fresh_Snow.jpg", 18)
		FileWrite($hFile, $bString)
		FileClose($hFile)
	EndIf
	Return $bString
EndFunc   ;==>_Background_Image


Func _WinAPI_Base64Decode($sB64String)
	Local $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "ptr", 0, "dword*", 0, "ptr", 0, "ptr", 0)
	If @error Or Not $aCrypt[0] Then Return SetError(1, 0, "")
	Local $bBuffer = DllStructCreate("byte[" & $aCrypt[5] & "]")
	$aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "struct*", $bBuffer, "dword*", $aCrypt[5], "ptr", 0, "ptr", 0)
	If @error Or Not $aCrypt[0] Then Return SetError(2, 0, "")
	Return DllStructGetData($bBuffer, 1)
EndFunc   ;==>_WinAPI_Base64Decode

Alles anzeigen

**bernd670**

Hab da mal schnell was gebastellt!

AutoIt

#include <constants.au3>


; powercfg -query
$PID = Run("powercfg -query", "", @SW_HIDE, $STDOUT_CHILD)
$szLines = ""
While 1
	$szLines &= StdoutRead($PID)
	If @error Then ExitLoop
WEnd


; alles bis zur Energieeinstellung "3c0bc021-c8a8-4e07-a973-6b14cbcb2b7e  (Bildschirm ausschalten nach)" wegschneiden
$szLines = StringTrimLeft($szLines, StringInStr($szLines, "3c0bc021-c8a8-4e07-a973-6b14cbcb2b7e") -1)
; Die Zeit auslesen
$iTime = Int(StringRegExp($szLines, "(?im)^.*?Wechselstromeinstellung:\s*(0x[[:xdigit:]]+)\s*$", 3)[0])


ConsoleWrite($iTime & @CRLF)

Alles anzeigen

**bernd670**

Hallo,

kann es sein das dieses Phänomen nur bei 32Bit-Systemen auftritt??

Der Aufruf

[autoit]

DllCall("kernel32.dll", "int", "Wow64DisableWow64FsRedirection", "int", 1)

[/autoit]

stimmt so nicht! Der letzte Wert muss ein Zeiger auf ein Int sein in dem das Ergebnis gespeichert wird.
Also entweder so:

[autoit]

$OldValue
DllCall("kernel32.dll", "int", "Wow64DisableWow64FsRedirection", "int", $oldValue)

[/autoit]

oder wenn das auch nicht geht so:

[autoit]

$tWow64DisOldVal = DllStructCreate("INT")
DllCall("kernel32.dll", "int", "Wow64DisableWow64FsRedirection", "PTR*", DllStructGetPtr($tWow64DisOldVal))

[/autoit]

**bernd670**

Wenn ich powercfg -query mache kommt eine lange liste und da steht auch folgendes

Brainfuck

GUID der Energieeinstellung: 3c0bc021-c8a8-4e07-a973-6b14cbcb2b7e  (Bildschirm ausschalten nach)
  Minimum der möglichen Einstellung: 0x00000000
  Maximum der möglichen Einstellung: 0xffffffff
  Schrittweise Erhöhung der möglichen Einstellungen: 0x00000001
  Einheiten der möglichen Einstellungen: Sekunden
Index der aktuellen Wechselstromeinstellung: 0x00001c20
Index der aktuellen Gleichstromeinstellung: 0x00000258

Index der aktuellen Wechselstromeinstellung: 0x00001c20 heisst ausschalten bei Netzteilbetrieb nach 7200 sek
Index der aktuellen Gleichstromeinstellung: 0x00000258 heisst ausschalten bei Akkubetrieb nach nach 600 sek

**bernd670**

Hallo,

_FileWriteToLine funktioniert nur wenn schon was in der Datei steht.

FileWriteLine sollte das machen was du willst.

FileOpen(@ScriptDir & "\nrf_temp.txt",1) erzeugt eine Datei zum anhängen. Wenn die Datei immer überschrieben werden soll muss sie mit mode 2 geöffnet werden FileOpen(@ScriptDir & "\nrf_temp.txt",2).

AutoIt

If Not _FileReadToArray($cdeSourceNRF, $acdeNRF) Then
	MsgBox(4096, "Fehler", " Fehler beim Einlesen ins Array (Error:" & @error & ")") ;Einlesen Sourcefile mit Errorhandling (Öffnen des Datenfiles)
	Exit
EndIf
$CdeRuns = $acdeNRF[0] / 6 ;Berechnung der Anzahl zu erzeugender Files (1-5 Zeilen = Dateiinhalt / 6.Zeile Filename)
If Int($CdeRuns) - $CdeRuns <> 0 Then
	MsgBox(16, "In der Quelldatei liegt ein Fehler vor", "Wahrscheinlichster Fehler: Ein falsche Anzahl an Datenzeilen" & @LF & @LF & "Richtig sind:" & @LF & "5 Zeilen Daten + 1 Zeile für Dateinamen (6 Zeilen/nrf file).")
Else ;Errorhandling (Anzahl Zeilen muss aufgehen / durch 6 teilbar)
	$cdeMessage1 = ""
	SplashTextOn("Step 1:   *.nrf - erstellen", $cdeMessage1, 300, 70, -1, -1, 16 + 2, "", 10, 400) ;Splash
	;######################## hier beginnt das Entscheidende #######################
	For $i = 1 To $CdeRuns ;Schleife .... Start
		$hTempFile = FileOpen(@ScriptDir & "\nrf_temp.txt", 2) ;Temp File erzeugen - <------------- das File wird erzeugt und hat die Grösse 0 KB
		For $x = 1 To 5
			FileWriteLine($hTempFile, $acdeNRF[$x]) ;Schreiben der 5 Zeilen für NRF in ein Temp File
		Next
		FileClose($hTempFile)
		$x = 6
		$cdeFilename = $acdeNRF[$x] ;Dateiname ermitteln (immer die jeweils 6.Zeile)
		FileMove(@ScriptDir & "\nrf_temp.txt", @ScriptDir & "\nrf\" & $cdeFilename, 9) ;Neues File benamen und ins Verzeichnis 'NRF' schieben  - <------------- funktioniert
		$cdeMessage1 = ($i & " / " & $CdeRuns & "   -   NRF File(s) erzeugt" & @CRLF & @CRLF & $cdeFilename) ;Splash text
		ControlSetText("Step 1:   *.nrf - erstellen", "", "Static1", $cdeMessage1) ;Splash update
		Sleep(200)
		For $y = 1 To 6
			_ArrayDelete($acdeNRF, 1) ;'Abgearbeitete Zeilen' aus dem Array löschen
		Next
	Next ;Schleife .... Ende
	Sleep(500)


;### Tidy Error -> if is never closed in your script.

Alles anzeigen

**bernd670**

Hallo,

powercfg -query ohne weitere Parameter gibt alles zum aktuellen Energieschema aus. Mit powercfg -list kannst du dir alle Verfügbaren Energieschemen auf dem Rechner anzeigen lassen, dass aktuelle wird dabei mit einem * markiert.

Funktioniert zumindest bei Win7 so!

**bernd670**

Hallo,

man könnte es zum Beispiel via Ping machen!

AutoIt

#include <Constants.au3>


ConsoleWrite(_IPV6ToName("::1") & @CRLF)
ConsoleWrite(_NameToIPV6("localhost") & @CRLF)


Func _IPV6ToName($szIpV6)
	Local $PID = Run("PING -n 2 -a -6 " & $szIpV6, "", @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD)


	Local $szLine = ""
	While 1
		$szLine &= StdoutRead($PID)
		If @error Then ExitLoop
		StderrRead($PID)
		If @error Then ExitLoop
	WEnd


	If StringRegExp($szLine, "nicht finden") Then Return SetError(1, 0, "")
	$szName = StringRegExp($szLine, "(?m)\s(\S*)\s\[", 3)[0]


	Return $szName
EndFunc   ;==>_IPV6ToName


Func _NameToIPV6($szName)
	Local $PID = Run("PING -n 2 -a -6 " & $szName, "", @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD)


	Local $szLine = ""
	While 1
		$szLine &= StdoutRead($PID)
		If @error Then ExitLoop
		StderrRead($PID)
		If @error Then ExitLoop
	WEnd


	If StringRegExp($szLine, "nicht finden") Then Return SetError(1, 0, "")
	$szName = StringRegExp($szLine, "(?m)\[(\S*)\]", 3)[0]


	Return $szName
EndFunc   ;==>_NameToIPV6To

Alles anzeigen

Beiträge von bernd670

_Excel_Close() Methode schließt Excel Apll. nicht wenn _Excel_Open() ohne Parameter aufgerufen wird.

Fehlermeldung auf Host PC: Es befindet sich kein Datenträger im Laufwerk

Drucken wieso funktioniert das

Fehlermeldung auf Host PC: Es befindet sich kein Datenträger im Laufwerk

Website parsen - Klappe die tausendste..

Website parsen - Klappe die tausendste..

Website parsen - Klappe die tausendste..

Website parsen - Klappe die tausendste..

Website parsen - Klappe die tausendste..

GUI maximiert und vollständig sichtbar auf allen Bildschirmgrößen anzeigen lassen

Fehlermeldung auf Host PC: Es befindet sich kein Datenträger im Laufwerk

GUI maximiert und vollständig sichtbar auf allen Bildschirmgrößen anzeigen lassen

Fehlermeldung auf Host PC: Es befindet sich kein Datenträger im Laufwerk

Fehlermeldung auf Host PC: Es befindet sich kein Datenträger im Laufwerk

eingestellte Zeit für "Bildschirm ausschalten" abfragen (Windows 8)

Fehlermeldung auf Host PC: Es befindet sich kein Datenträger im Laufwerk

eingestellte Zeit für "Bildschirm ausschalten" abfragen (Windows 8)

(temporäres) TextFile mit _FileWriteToLine funktioniert nicht mehr

eingestellte Zeit für "Bildschirm ausschalten" abfragen (Windows 8)

DNS Auflösung auf einem IPv6 System