Beiträge von tv_freeze

kleiner Patzer um Script behoben... Das ist die neuste Version ...

[autoit]

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=C:\Program Files (x86)\AutoIt3\Aut2Exe\Icons\AutoIt_Old4.ico
#AutoIt3Wrapper_outfile=Pic2BinV1.0.exe
#AutoIt3Wrapper_UPX_Parameters=--ultra-brute
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Description=Convert Picture to Binary
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=TV_Freeze 07/2011
#AutoIt3Wrapper_Res_Language=1033
#AutoIt3Wrapper_Res_Field=Coded by|TV_Freeze
#AutoIt3Wrapper_Res_Field=Build|2011-07-03 Final
#AutoIt3Wrapper_Res_Field=Compile date|%longdate% %time%
#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%
#AutoIt3Wrapper_Res_Icon_Add=C:\Program Files (x86)\AutoIt3\Aut2Exe\Icons\AutoIt_Old4.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

#include <Constants.au3>
#include <GDIPlus.au3>
#include <GuiButton.au3>
#include <GUIConstantsEx.au3>
#include <Memory.au3>
#include <MemoryConstants.au3>
#include <String.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>

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

; Pic2Bin V1.0 by TV_Freeze
;
; Greetings to: (Auto)Bert, UEZ & all another User's of http://www.AutoIt.de
;
If FileExists(@TempDir & '\ShowBinaryPicture.au3') Then FileDelete(@TempDir & '\ShowBinaryPicture.au3')
Global $sflag, $dflag, $rem1 = 'Beispiel.jpg', $rem2 = 'Beispiel-bin.au3', $oldsource = '', $olddest = '', $fehler = 0, $bakclip, $iX, $iY
Global $aDropFiles[1], $WM_DROPFILES = 0x233

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

$hGUI = GUICreate('Pic2Bin V1.0', 460, 240, -1, -1, Default, $WS_EX_ACCEPTFILES)
GUICtrlCreateGroup('', 5, 0, 450, 223)

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

; Show the Binary Picture
Global Const $hHBITMAP = Load_BMP_From_Mem(BackgroundPic(), True)
Global Const $idPic = GUICtrlCreatePic("", 8, 8, $iX, $iY) ; Top , Left, PicWidth, PicHeight
_WinAPI_DeleteObject(GUICtrlSendMsg($idPic, 0x0172, 0, $hHBITMAP)) ;$STM_SETIMAGE = 0x0172, $IMAGE_BITMAP = 0
_WinAPI_DeleteObject($hHBITMAP)

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

GUICtrlCreateLabel('Picture (BMP/JPG/GIF/PNG)', 12, 105)
$Source = GUICtrlCreateButton('SourceFile', 12, 122, 65, 21)
$Sourcefile = GUICtrlCreateInput('', 80, 122, 370, 21)

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

GUICtrlCreateLabel('Binary Filename', 12, 146)
$Dest = GUICtrlCreateButton('Destfile', 12, 162, 65, 21)
$Destfile = GUICtrlCreateInput('', 80, 162, 370, 21)

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

$convert = GUICtrlCreateButton("Convert", 12, 192, 70, 24)
GUICtrlSetTip(-1, 'Converts source-picture as binary-string')

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

$show_binary = GUICtrlCreateButton("Show Binary", 140, 192, 70, 24)
_GUICtrlButton_Enable($show_binary, False)
GUICtrlSetTip(-1, 'Shows your Binary-String (Text)')

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

$preview_binarypic = GUICtrlCreateButton("Preview", 250, 192, 70, 24)
_GUICtrlButton_Enable($preview_binarypic, False)
GUICtrlSetTip(-1, 'Shows your Binary-String Picture')

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

$end = GUICtrlCreateButton("Exit", 380, 192, 65, 24)
GUICtrlSetTip(-1, 'Ending of execute this program')

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

$tab = ''
$tab = $tab & chr(9)
$tab = $tab & chr(9)
$tab = $tab & " "
GUICtrlCreateLabel('\ coding by tv_freeze /' & $tab & 'http://www.autoit.de - the german AutoIt-forum !!!', 10, 223, 460, 14)
If @OSVersion = "WIN_XP" Then ; wenn Windows XP
GUICtrlSetFont(-1, 8.5, 400, 0, "Times New Roman", 5) ; CLEARTYPE_QUALITY=5
Else
GUICtrlSetFont(-1, 8.5, 400, 0, "Times New Roman", 2)
EndIf

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

GUICtrlSetData($Sourcefile, $rem1)
GUICtrlSetData($Destfile, $rem2)
GUIRegisterMsg($WM_DROPFILES, "WM_DROPFILES_FUNC")

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

GUISetState()

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

While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Or $msg = $end Then
_End()
EndIf
If $msg = $convert And $sflag = 1 And $dflag = 1 Then
If GUICtrlRead($Sourcefile) <> '' And GUICtrlRead($Destfile) <> '' Then
_CreatePic2Binary(GUICtrlRead($Sourcefile))
_GUICtrlButton_Enable($show_binary)
_GUICtrlButton_Enable($preview_binarypic)
MsgBox(64, 'Picture was converted !', 'Filename: ' & GUICtrlRead($Destfile))
Else
_GUICtrlButton_Enable($show_binary, False)
_GUICtrlButton_Enable($preview_binarypic, False)
GUICtrlSetData($Sourcefile, $rem1)
GUICtrlSetData($Destfile, $rem2)
$sflag = 0
$dflag = 0
$fehler = 0
MsgBox(64, 'No Picture!' , 'Please select a Picture to convert !')
EndIf
EndIf
If $msg = $show_binary And $sflag = 1 And $dflag = 1 And $fehler = 0 Then
If Not @Compiled Then
ShellExecute(GUICtrlRead($Destfile), "", @ScriptDir, "edit")
Else
If Not ProcessExists("notepad.exe") Then
If Not WinExists(GUICtrlRead($Destfile) & ' - Editor') Then
Run(@WindowsDir & "\Notepad.exe " & GUICtrlRead($Destfile), "", @SW_MAXIMIZE)
EndIf
EndIf
EndIf
EndIf
If $msg = $preview_binarypic And $sflag = 1 And $dflag = 1 And $fehler = 0 Then
_ShowBinaryPicture()
EndIf
If $msg = $Source And $sflag = 0 Then
getsourcefile()
ElseIf $msg = $Source And $sflag = 1 Then
$oldsource = GUICtrlRead($Sourcefile)
getsourcefile()
EndIf
If $msg = $Dest And $dflag = 0 And $sflag = 1 Then
$olddest = GUICtrlRead($Sourcefile)
getdestfile()
ElseIf $msg = $Dest And $dflag = 1 And $sflag = 1 Then
$olddest = GUICtrlRead($Destfile)
getdestfile()
EndIf
WEnd

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

Func _End()
GUIDelete($hGUI)
Exit
EndFunc

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

Func getsourcefile()
$file = FileOpenDialog('Select Source Picture (bmp/jpg/gif/png)', "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "Bilder (*.bmp;*.jpg;*.gif;*.png)", 1, $oldsource)
If @error Then
If $oldsource <> '' Then
GUICtrlSetData($Sourcefile, $oldsource)
Else
$sflag = 0
GUICtrlSetData($Sourcefile, $rem1)
GUICtrlSetData($Destfile, $rem2)
EndIf
Else
_Checkfile($file)
If $fehler = 1 Then
MsgBox(64, 'No Picture!' , 'the selected filename is not a Picture !' & @CRLF & 'or File could not open ...')
$sflag = 0
$dflag = 0
$fehler = 0
GUICtrlSetData($Sourcefile, $rem1)
GUICtrlSetData($Destfile, $rem2)
Else
$sflag = 1
; $dflag = 1
GUICtrlSetData($Sourcefile, $file)
; $file2 = StringLeft(GUICtrlRead($Sourcefile), StringLen(GUICtrlRead($Sourcefile)) - 4)
; $file2 &= '-bin.au3'
; GUICtrlSetData($Destfile, $file2)
EndIf
EndIf
EndFunc

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

Func getdestfile()
$olddest = StringLeft(GUICtrlRead($Sourcefile), StringLen(GUICtrlRead($Sourcefile)) - 4)
$olddest &= '-bin.au3'
$file2 = FileSaveDialog('Select Binary Filename', "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "Scriptfile-Binary for Autoit(*.au3)", 16, $olddest)
If @error Then
If $olddest <> '' Then
If $dflag = 0 And $sflag = 1 Then $dflag = 1
GUICtrlSetData($Destfile, $olddest)
Else
$dflag = 0
GUICtrlSetData($Destfile, $rem2)
EndIf
Else
$dflag = 1
If StringRight($file2, 4) <> '.au3' Then $file2 &= '-bin.au3'
GUICtrlSetData($Destfile, $file2)
EndIf
EndFunc

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

;======================================================================================
; Function Name: _CheckFile($cfile)
; Description: Check file of Pictures is real true (HEX-STRINGS)
;
; Parameters: $cFile: the filename of Picture
;
; Return Value(s): set '$fehler' -string = 1 (File is no Picture)
;
; Author(s): TV_Freeze
;=======================================================================================
Func _Checkfile($cfile)
$checkfile = FileOpen($cfile, 0)
If $checkfile = -1 Then
; ConsoleWrite("Error = " & $cfile & @CR)
$fehler = 1 ; File could not open
Else
$pic = FileRead($checkfile, 5) ; read 5 bytes
FileClose($checkfile)
$Hex = _StringToHex($pic)
If $Hex <> 'FFD8FFE000' Then ; JPG ?
If $Hex <> 'FFD8FFE11A' Then ; JPG ?
If $Hex <> 'FFD8FFDB00' Then ; JPG ?
If $Hex <> '4749463839' Then ; GIF89 ?
If $Hex <> '89504E470D' Then ; PNG ?
; check for BMP
$checkfile = FileOpen($cfile, 0)
$pic = FileRead($checkfile, 2) ; read 2 bytes
$Hex = _StringToHex($pic)
If $Hex = '424D' Then ; BM ?
$pic = FileRead($checkfile, 3) ; skip 3 bytes
$pic = FileRead($checkfile, 6) ; read 6 bytes
FileClose($checkfile)
$Hex = _StringToHex($pic)
If $Hex <> '000000000036' Then
$fehler = 1 ; File is no Picture
EndIf
Else
$fehler = 1 ; File is no BMP
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
Return $fehler
EndFunc

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

; from (Auto)Bert - MP3-Player
Func WM_DROPFILES_FUNC($hWnd, $msgID, $wParam, $lParam)
Local $nSize, $pFileName
Local $nAmt = DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", 0xFFFFFFFF, "ptr", 0, "int", 255)
For $i = 0 To $nAmt[0] - 1
$nSize = DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", $i, "ptr", 0, "int", 0)
$nSize = $nSize[0] + 1
$pFileName = DllStructCreate("char[" & $nSize & "]")
DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", $i, "ptr", DllStructGetPtr($pFileName), "int", $nSize)
ReDim $aDropFiles[$i + 1]
$aDropFiles[$i] = DllStructGetData($pFileName, 1)
$pFileName = 0
Next
; added-by-me-----------------------------------------------------------------------------------------------
$file2 = $aDropFiles[0]
If StringRight($file2, 4) = '.jpg' Or StringRight($file2, 4) = '.bmp' Or StringRight($file2, 4) = '.gif' Or StringRight($file2, 4) = '.png' Then
$sflag = 1
GUICtrlSetData($Sourcefile, $file2)
EndIf
EndFunc ;==>WM_DROPFILES_FUNC

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

; from Unkown User (I don't know from)
Func _CreatePic2Binary($sPath, $sBin='$BackgroundPic')
If Not FileExists($sPath) Then Return SetError(1,0,0)
Local $sToWrite = '', $fh = FileOpen($sPath, 16)
If @error Then Return SetError(2,0,0)
Local $read = FileRead($fh)
FileClose($fh)
Local $len = StringLen($read), $count = 4060

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

$sToWrite &= @CRLF
$sToWrite &= ';' & @TAB & 'String with the Binarydata of: ' & $sPath & @CRLF
$sToWrite &= 'Func BackgroundPic()' & @CRLF

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

$sToWrite &= ' Local ' & $sBin & ' = ""' & @CRLF
If $len <= $count Then
$sToWrite &= $read & @CRLF
Else
While 1
$sToWrite &= ' '
$sToWrite &= $sBin & ' &= "' & StringLeft($read, $count) & '"' & @CRLF
$read = StringTrimLeft($read, $count)
$len = StringLen($read)
If $len <= $count Then
$sToWrite &= ' '
$sToWrite &= $sBin & ' &= "' & $read & '"' & @CRLF
$sToWrite &= ' Return Binary($BackgroundPic)' & @CRLF
ExitLoop
EndIf
WEnd
EndIf
$sToWrite &= 'EndFunc ;==>BackgroundPic' & @CRLF
; write the Destfile
Local $hFileOut = FileOpen(GUICtrlRead($Destfile), 2+16)
FileWrite($hFileOut, $sToWrite)
FileClose($hFileOut)
ClipPut($sToWrite)
$bakclip = ClipGet()
ClipPut("")
; ConsoleWrite($sToWrite & @CRLF)
EndFunc

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

Func _ShowBinaryPicture()
Local $sToWrite2
$sToWrite2 = ''
$sToWrite2 &= @CRLF
$sToWrite2 &= '#include <GDIPlus.au3>' & @CRLF
$sToWrite2 &= '#include <GUIConstantsEx.au3>' & @CRLF
$sToWrite2 &= '#include <Memory.au3>' & @CRLF
$sToWrite2 &= '#include <MemoryConstants.au3>' & @CRLF
$sToWrite2 &= '$hGUI = GUICreate(' & '"Pic2Bin V1.0 - Binary Picture - Preview"' & ', @DesktopWidth, @DesktopHeight, 0, 0)' & @CRLF
$sToWrite2 &= '$end = GUICtrlCreateButton("Exit", @DesktopWidth-80, @DesktopHeight-60, 65, 24)' & @CRLF
$sToWrite2 &= '; Show the Binary Picture' & @CRLF
$sToWrite2 &= 'Global $iX, $iY' & @CRLF
$sToWrite2 &= 'Global Const $hHBITMAP = Load_BMP_From_Mem(BackgroundPic(), True)' & @CRLF
$sToWrite2 &= 'Global Const $idPic = GUICtrlCreatePic("", 0, 0, $iX, $iY) ; Top , Left, PicWidth, PicHeight' & @CRLF
$sToWrite2 &= '_WinAPI_DeleteObject(GUICtrlSendMsg($idPic, 0x0172, 0, $hHBITMAP)) ;$STM_SETIMAGE = 0x0172, $IMAGE_BITMAP = 0' & @CRLF
$sToWrite2 &= '_WinAPI_DeleteObject($hHBITMAP)' & @CRLF
$sToWrite2 &= 'GUISetState()' & @CRLF
$sToWrite2 &= 'While 1' & @CRLF
$sToWrite2 &= ' $msg = GUIGetMsg()' & @CRLF
$sToWrite2 &= ' If $msg = $GUI_EVENT_CLOSE Or $msg = $end Then' & @CRLF
$sToWrite2 &= ' Exit' & @CRLF
$sToWrite2 &= ' EndIf' & @CRLF
$sToWrite2 &= 'WEnd' & @CRLF
$sToWrite2 &= 'Func Load_BMP_From_Mem($bImage, $hHBITMAP = False)' & @CRLF
$sToWrite2 &= ' If Not IsBinary($bImage) Then Return SetError(1, 0, 0)' & @CRLF
$sToWrite2 &= ' Local $declared = True' & @CRLF
$sToWrite2 &= ' If Not $ghGDIPDll Then' & @CRLF
$sToWrite2 &= ' _GDIPlus_Startup()' & @CRLF
$sToWrite2 &= ' $declared = False' & @CRLF
$sToWrite2 &= ' EndIf' & @CRLF
$sToWrite2 &= ' Local Const $memBitmap = Binary($bImage) ;load image saved in variable (memory) and convert it to binary' & @CRLF
$sToWrite2 &= ' Local Const $len = BinaryLen($memBitmap) ;get length of image' & @CRLF
$sToWrite2 &= ' Local Const $hData = _MemGlobalAlloc($len, $GMEM_MOVEABLE) ;allocates movable memory ($GMEM_MOVEABLE = 0x0002)' & @CRLF
$sToWrite2 &= ' Local Const $pData = _MemGlobalLock($hData) ;translate the handle into a pointer' & @CRLF
$sToWrite2 &= ' Local $tMem = DllStructCreate("byte[" & $len & "]", $pData) ;create struct' & @CRLF
$sToWrite2 &= ' DllStructSetData($tMem, 1, $memBitmap) ;fill struct with image data' & @CRLF
$sToWrite2 &= ' _MemGlobalUnlock($hData) ;decrements the lock count associated with a memory object that was allocated with GMEM_MOVEABLE' & @CRLF
$sToWrite2 &= ' Local $hStream = DllCall("ole32.dll", "int", "CreateStreamOnHGlobal", "handle", $pData, "int", True, "ptr*", 0)' & @CRLF
$sToWrite2 &= ' $hStream = $hStream[3]' & @CRLF
$sToWrite2 &= ' Local $hBitmap = DllCall($ghGDIPDll, "uint", "GdipCreateBitmapFromStream", "ptr", $hStream, "int*", 0) ;Creates a Bitmap object based on an IStream COM interface' & @CRLF
$sToWrite2 &= ' $hBitmap = $hBitmap[2]' & @CRLF
$sToWrite2 &= ' Local Const $tVARIANT = DllStructCreate("word vt;word r1;word r2;word r3;ptr data; ptr")' & @CRLF
$sToWrite2 &= ' DllCall("oleaut32.dll", "long", "DispCallFunc", "ptr", $hStream, "dword", 8 + 8 * @AutoItX64, _' & @CRLF
$sToWrite2 &= ' "dword", 4, "dword", 23, "dword", 0, "ptr", 0, "ptr", 0, "ptr", DllStructGetPtr($tVARIANT)) ;release memory from $hStream to avoid memory leak' & @CRLF
$sToWrite2 &= ' $tMem = 0' & @CRLF
$sToWrite2 &= ' If $hHBITMAP Then' & @CRLF
$sToWrite2 &= ' Local Const $hHBmp = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap)' & @CRLF
$sToWrite2 &= ' $iX = _GDIPlus_ImageGetWidth($hBitmap)' & @CRLF
$sToWrite2 &= ' $iY = _GDIPlus_ImageGetHeight($hBitmap)' & @CRLF
$sToWrite2 &= ' _GDIPlus_BitmapDispose($hBitmap)' & @CRLF
$sToWrite2 &= ' If Not $declared Then _GDIPlus_Shutdown()' & @CRLF
$sToWrite2 &= ' Return $hHBmp' & @CRLF
$sToWrite2 &= ' EndIf' & @CRLF
$sToWrite2 &= ' If Not $declared Then _GDIPlus_Shutdown()' & @CRLF
$sToWrite2 &= ' Return $hBitmap' & @CRLF
$sToWrite2 &= 'EndFunc' & @CRLF
$sToWrite2 &= $bakclip
ClipPut($sToWrite2)
Local $hFileOut = FileOpen(@TempDir & '\ShowBinaryPicture.au3', 2+16)
FileWrite($hFileOut, $sToWrite2)
FileClose($hFileOut)
If @Compiled Then
If @OSType <> 'WIN32_NT' Then
If FileExists('C:\Programme\AutoIt3\AutoIt3.exe') Then
RunWait('C:\Programme\AutoIt3\AutoIt3.exe' & ' "' & @TempDir & '\ShowBinaryPicture.au3' & '"')
FileDelete(@TempDir & '\ShowBinaryPicture.au3')
Else
FileDelete(@TempDir & '\ShowBinaryPicture.au3')
MsgBox(64, "No AutoIt found", "Please install the AutoIt !")
EndIf
Else
If FileExists('c:\Program Files (x86)\AutoIt3\AutoIt3.exe') Then
RunWait('c:\Program Files (x86)\AutoIt3\AutoIt3.exe' & ' "' & @TempDir & '\ShowBinaryPicture.au3' & '"')
FileDelete(@TempDir & '\ShowBinaryPicture.au3')
Else
FileDelete(@TempDir & '\ShowBinaryPicture.au3')
MsgBox(64, "No AutoIt found", "Please install the AutoIt !")
EndIf
EndIf
Else
ShellExecute(@TempDir & '\ShowBinaryPicture.au3', "", @ScriptDir, "edit")
If WinExists('Pic2Bin V1.0') Then
Send("^V")
Exit(0)
EndIf
EndIf
EndFunc

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

;======================================================================================
; Function Name: Load_BMP_From_Mem
; Description: Loads an image which is saved as a binary string and converts it to a bitmap or hbitmap
;
; Parameters: $bImage: the binary string which contains any valid image which is supported by GDI+
; Optional: $hHBITMAP: if false a bitmap will be created, if true a hbitmap will be created
;
; Remark: hbitmap format is used generally for GUI internal images, $bitmap is more a GDI+ image format
;
; Requirement(s): GDIPlus.au3, Memory.au3
; Return Value(s): Success: handle to bitmap or hbitmap, Error: 0
; Error codes: 1: $bImage is not a binary string
;
; Author(s): UEZ
; Additional Code: thanks to progandy for the MemGlobalAlloc and tVARIANT lines
; Version: v0.95 Build 2011-06-14 Beta
;=======================================================================================
Func Load_BMP_From_Mem($bImage, $hHBITMAP = False)
If Not IsBinary($bImage) Then Return SetError(1, 0, 0)
Local $declared = True
If Not $ghGDIPDll Then
_GDIPlus_Startup()
$declared = False
EndIf
Local Const $memBitmap = Binary($bImage) ;load image saved in variable (memory) and convert it to binary
Local Const $len = BinaryLen($memBitmap) ;get length of image
Local Const $hData = _MemGlobalAlloc($len, $GMEM_MOVEABLE) ;allocates movable memory ($GMEM_MOVEABLE = 0x0002)
Local Const $pData = _MemGlobalLock($hData) ;translate the handle into a pointer
Local $tMem = DllStructCreate("byte[" & $len & "]", $pData) ;create struct
DllStructSetData($tMem, 1, $memBitmap) ;fill struct with image data
_MemGlobalUnlock($hData) ;decrements the lock count associated with a memory object that was allocated with GMEM_MOVEABLE
Local $hStream = DllCall("ole32.dll", "int", "CreateStreamOnHGlobal", "handle", $pData, "int", True, "ptr*", 0)
$hStream = $hStream[3]
Local $hBitmap = DllCall($ghGDIPDll, "uint", "GdipCreateBitmapFromStream", "ptr", $hStream, "int*", 0) ;Creates a Bitmap object based on an IStream COM interface
$hBitmap = $hBitmap[2]
Local Const $tVARIANT = DllStructCreate("word vt;word r1;word r2;word r3;ptr data; ptr")
DllCall("oleaut32.dll", "long", "DispCallFunc", "ptr", $hStream, "dword", 8 + 8 * @AutoItX64, _
"dword", 4, "dword", 23, "dword", 0, "ptr", 0, "ptr", 0, "ptr", DllStructGetPtr($tVARIANT)) ;release memory from $hStream to avoid memory leak
$tMem = 0
If $hHBITMAP Then
Local Const $hHBmp = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap)
$iX = _GDIPlus_ImageGetWidth($hBitmap)
$iY = _GDIPlus_ImageGetHeight($hBitmap)
; ConsoleWrite("Pic.Info" & @CR & "Width - $iX = " & $iX & @CR & "Height - $iY = " & $iY & @CR)
_GDIPlus_BitmapDispose($hBitmap)
If Not $declared Then _GDIPlus_Shutdown()
Return $hHBmp
EndIf
If Not $declared Then _GDIPlus_Shutdown()
Return $hBitmap
EndFunc ;==>Load_BMP_From_Mem

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

; logo created by tv_freeze
; String with the Binarydata of: D:\Logo.jpg
Func BackgroundPic()
Local $BackgroundPic = ""
$BackgroundPic &= "0xFFD8FFDB0043000503040404030504040405050506070C08070707070F0B0B090C110F1212110F111113161C1713141A1511111821181A1D1D1F1F1F13172224221E241C1E1F1EFFDB0043010505050706070E08080E1E1411141E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1EFFC0001108005F01BC03012100021101031101FFC4001F0000010501010101010100000000000000000102030405060708090A0BFFC400B5100002010303020403050504040000017D01020300041105122131410613516107227114328191A1082342B1C11552D1F02433627282090A161718191A25262728292A3435363738393A434445464748494A535455565758595A636465666768696A737475767778797A838485868788898A92939495969798999AA2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F0100030101010101010101010000000000000102030405060708090A0BFFC400B51100020102040403040705040400010277000102031104052131061241510761711322328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728292A35363738393A434445464748494A535455565758595A636465666768696A737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00FA36EAE62B581E7B999218971B9E4C2A8CF1C93EFF00CEA9FF006FE8BDF59D30FB1B94C7F3AF65CE31DD9C966C6FF6FE8D9E358D2FFF0002531FCE9DFDBDA2E32759D309EC7ED49FE34BDA43B8ECFB0DFF008483475381AC699FF8149FE34BFF0009068BFF00416D37FF0002A3FF001A3DA43BA0E57D84FEDFD0DB86D574CFC6E53FC681AF6878FF0090BE9B8FFAFA4FF1A3DA43BA0E57D843AEE8609FF89BE9873D7FD253FC681AF683DF54D33FF0253FC68F6B0EE8395F617FE120D17381AB699FF8131FF8D2FF00C243A376D5F4C1FF006F49FE347B48774167D806BDA29E4EB1A67FE0527F8D29D7F461D359D2F1D87DA53FC68F690EE8395F6106BFA2FF00D0634BFC6E53FC683AFE8A31FF0013AD371FF5F29FE347B487742B3EC1FF00090689CFFC4EB4EFFC084FF1A5FEDFD17FE833A61F63729FE347B487743B3EC27F6FE8D9E358D2FF00F02531FCE97FB7B45C65B59D309EC7ED49FE347B48770B3EC37FB7F465E9AC6987FEDE93FC697FE120D17FE82FA69FFB7A8FFC68F690EE82CFB09FDBFA19E1B55D30FF00DBCA63F9D1FDBDA181FF00217D371FF5F49FE347B487741CAFB0875DD0C127FB5F4C24FF00D3CA7F8D035ED048E754D33E9F694FF1A3DA43BA0E57D85FF848345E8356D331FF005F31FF008D2FFC243A30E9ABE9A3FEDE93FC68F690EE82CFB00D7B46232758D33FF0293FC695B5FD1874D674BC7A7DA53FC68F690EE8395F6106BFA2FF00D0634BFC6E53FC683AFE8BFF0041AD371FF5F29FE347B487742B3EC1FF0009068BFF0041AD3BFF000213FC68FEDFD17FE833A67B03729FE347B48775F78F95F603AFE8D9E358D2FF00F02531FCE97FB7B45232DACE967D3FD293FC68F690EE2B3EC37FB7F465E9AC6987FEDE93FC697FE120D17FE82FA6FF00E0547FE347B487743B3EC27FC241A21186D574C3FF006F298FE747F6F68607FC85F4DC7FD7D27F8D1ED21DD072BEC21D7743073FDAFA664FFD3CA7F8D035ED088E754D33FF0002531FCE8F6B0EE8395F617FE120D17A0D5B4CFF00C098FF00C697FE121D1BB6AFA68FFB7A4FF1A3DA43BA0B3EC035FD18F2758D307FDBD27F8D2B6BFA30FBBACE978F4FB4A63F9D1ED21DD072BEC20D7F45FF00A0C697F8DCA7F8D075FD171FF21AD371FF005F29C7EB47B487742B3EC1FF000906899E35AD3BFF000213FC681AFE8B8FF90D699EC3ED29FE347B48775F78ECFB01D7F46CF1AC697FF81298FE74BFDBDA291F36B3A59F4FF494E3F5A3DA43B859F610EBFA30E9AC69873FF4F49FE347FC241A29FF0098BE9B9FFAFA4FF1A3DA43BA0E57D87DB6B1A5DDCCB6F6F7D613CAD9DB1C7323138E7800E7A55E1919010019FF003DAA9493D989A333C5791A382C7FE5EADB83DFF7F1D44BCBAAAAA95E49F96BCFC67C7F235A7B114F1A81D0039E38AAD246B9C0553F874AE1D0D40C7B5048B18381E94FDD952004C9CF6AAB315C589446CB2151C800F1D2AC9319048553CE0714F4634AC41226E995828214F3C54D19014AED503D48A49084C46A09C260E782053616DCC7705001F4149B687B933F9582A5509C71C536131302360E07CBE84E69DC2C4DE5AEC2C550E38DB8A686EDE4C6A3A74C9A3744D9914C0484C6C802B0F4ED51C2C863518538E3A76A4AFB95B9231403251547738A18C4A7710A38CE71D07E1420208EEA192331BC3229272B98EAC411AB4601500F738AB6912873C52C4410B1B45DF239150CB6FF00687623F748A3A81834B9750BDC8658DA303CA5070304919356E311456885235DA4F391CB1EE7D695D0F560082EA11548279F96A39E34DA72141CF1C50C115A445C80154FAF149E561372C6A481E829257D8771EAF907685C9F6A23509B642A338C74A7B68C37D8B44C6771010E3A71504D1EF90155185EBC0A1AEC0C9A3603236A81D72452011A9270807A102812D06C4DB9C82A800E9C0A99BCAC152AA7838E292771D8642626C828380718EE6A711A95662A991FC38EB4EE161A1B1F"
$BackgroundPic &= "2F931A81C74CD472E1CEC3180AC3D287E425E64309411841B4ED257A76A95B6004EC5503BE3B52181F2B2AD85E9D7D07E15047750BAB23C320DC78FDD71F5154BCC96FB162DD159305467B9C539E196321956368FF008B2391F4A2C3BD88A583ED1210BFBB403960307F0A8648CC4A3CA50C40C65864F343D1095EFA1661114767BD635E4E58B0E58F3FCA9720B28455C13E9426377239E24DA72147A7155A4419185524F518A818B69185D4EC08500F9AE338FF00A66F5D22671CB77F415EAE0FF866151EA6578AF68D2406C73756D9FA79F1D2C658BB06F94F41939CD73E33E35E85D3F84F21F187C6EB5F0EF8A750D0A4F0E4F74D672796641781430007CD8D87158F2FED0165264AF84EE149E7FE3F97EEFF007BEE56B0CBF9A29F31CF2C672B6AC0BF1F6D480078627E993FE9AB929FDEFB9D3DAB5341F8D5A15FDD2DBEA16173A607E5642E25409FDF240040FCEB47964D2BA95D8A38C8B7AAB1E81AFEAF168FE1BBAD7368B886DE1F3B08E0065F5079E31CD739F0D7E23DB78CB579B4E4D31ACDD2033C65E70FE64790030C28C0E6B969615CE94AA5F6E86D2ADCB350B6E7A0B8547DDB4B1C7DD1DEAABDBCDB83B5C32B631F20C28F6C77AE6D8D7724F28AE0EE2C4753819AC8F176BD0F86F439B579A169962206C5201209E4FE0327F0A70829CD4575094B963717C0FE248BC4FA126AF6F6EF041248CA9B981DCA0E0374E87AD6D98CE4B29EFD28A90E49B5D8212E649F724DC72377CB9F4A4660700375EDDE95C637673CF6A88E1E40B8C1F5CD2B858B2047B76819CFAD30448BC2A0FA0A431803292E067B8A922C9527A034DDEC0AC865D3944C8258F4C134D801442C6E5994FF000E071ED4D3B89E87176DE3EB19BC707C311D94C67690A4527980AC8807CCE063A03C7AD76E0F96EDC808C30D919C9AD6B507479537BAB914EA29DDA1F1925C83F28E8327A8A64AC1325CE57158F99A6846C1268D648C6DDC3BD62F8BF573E1DF0E5D6AC6DDAEFECC9BDA20E10B0FA9CE2AA3072924BA92E564DF63CBDBE3A5A95FDD786A770DCC58BC5FDE27761F2718A67FC2F9B45FB9E199DB3CC78BD51BD7BB0F93B57A2F2D7FCDF81C7F5C5D841F1FED072BE169E407EE7FA6AFCC3B9FB95D9FC3CF8A7E1FF185F8B08EDE7B1BFDA5A3B790861281D76B0C64FB102B2AB819420E49DCB86294E5668AFF00163E21AF81750D3E0B8D3E6BC7BD85E45115C0884615802082A7775AE9BC0DADA78A3C2B63AFC50B42B72A484660C57048EA00F4F4AC6746D4D54BEE6B1A97A8E16D8DB079C8C641F4A951997AFE35CDA6C6C0C8492CA79F4A7E48C16F973E94D6800CC0E006C67B77A6ECE79FC284C4D10B619C26304F7CD5A51184C0C9CFF3A2F718C1122F0A8A3D80A66D6562C067D3FC284C18F8896CB74C8E4525CB148F764B118C02684EC27A91DB82AA5FED2D8C7DDC0216A279A25940DC7737451475417DCB2098DF702141187E339A7C6C7CCC745000524F18A3C87D06CA421258FCA073516639E3591063B73ED42426EC470205D4B4F47249F35BB7FD337AE800038FDE7E75EA613F866353732FC583FE25037027FD2EDBBFFD378EA107003925B69C66B9B19FC45E85D2D8F35FDA074DD33FE15C6A5A8AE9F6CB78668BFD204603FDF5C927BD7CDBA2CCF6BAB59DD476A976F0DC24AB03292B2956040207254E3181EB5DF81BCA93BB38314946A2B23D1358F196AFA9E9973627E1DE996DE7C653CD8AC25DE99FE319E38AE6740F07789759B9582C746BB3B9C12F24463407FE7A127F87FD9AE9A5ECF0F0779DCCA7CF564AD1B1E95E3BB2F1DF86B49866B3D69868F6367040C164C1DE142B3EDC7DDCFF000FA527C0EF126B9A978D56D6FB557961367249E5301FBDE571203D97FD9AE751A1570D2A915AFEA6FCD5215945B3A9F8A1F112F348D55F44D0D6317090F9934AE99312903F7A01E0A2F71D4F6AC6F0D0F897E21D28EAD65AACAD6C72B1B3CDB3ED0FDAE1060FEEFF00E991C66A69E1E851A0AA5557B8E752A54A8E307B1A9E08F13F8C67D78787F55B6791DA374F39EDCA9C80D8B9CF41196C2EC3CF23B579FF00C4D5F145BEA50E99E25D445E4A91FDA5628A52546091F68E800518E539AAA54A842BDA3ADD5D79135275254AECEABE0BDBF8B121B2D4D754B58BC2FE74AD708F2843293BBF7AA08F954B63E5CFBD56F8A9A8FC42F0EEA736A71EBD245A55EDC49F638A0B9DCCA8390E78E14023E5E6B27EC658969ADFF32FF791A374FF00E18B5F0A35BF1878A3C3DE24806B734DA8AC31FD8669A4C28624FCE0FF000838E9ED5C378A7C55F11FC39AD4FA3EA3E25BA37708064F2A62CAD919DC0E071ED570A745D595371FEB42253A8A9A9267AEDA1F177893E0E6953E89AAEDD7268E376BA925F2CB8E771CE0FB57866B7E37F883A56AD75A7DD789AF45CDAC8D148525C8DC38241F4ACF0F4E8CE52835AA65569D4828C93D1A3B2F11EABF1A1B49B2F10A9B8B7B19917CB86C86E75181869140C9CFE35B7E35F8ADE21F0FF87F48D3DACE28FC457166B35E3C89C439E87674C9EB834950A351C631F98FDB5585DC8E2B46F1C78BB5792796FBE21C1A41032A93332F9A7FBCA11480B56FC2FF00193C4FA46A0A9A9DDC3AD5983F3860033AF7911BA81EC6BB3EA54A69C546DE660B1338DA5CD7F23E83B2D461D52CADB50B0569EDEE625910838E08EB5C5FC55B6F1AC366DA9685A9476BA5DADAB35D4492EC9376EFBE0E390076E335E4E154235546A2BA3BEB394A0DC4F20F0326AD77E26B54D22E13FB46E9CCD148CFB3CF6C1FF485383B50774EF5EEEDAE6A1E19F0496D6E58B56D6AD97132C0C06F24FDFC7F0A81C91ED5E96614E15671A6"
$BackgroundPic &= "97BDFA1C98594A1172E9FA9E69FF0009AF8D3C47ABDAD96997A019D49B78EDBF762E533FF1F0ADD5635E854F269BAE7893E22F847568ADB54D4BED92BC65F61C3A5C81D655C8F9157BAF7AAFABE1A3254ADA93ED6AB5CF7D0F4FF857E2D83C59A3C9398521BA88859194FC92AF6740790A7D0D745A8DBDBDD40F15CC2B344786575C86FC2BC6AD074AA38F63D0A52538DCF9AFE3BD9DADAF8FE5B7B4B68E189AD217F26250BB8E0FCC31D31DC77AC7F046BF79A2C777F65F0D59EB9F68656669A077E83AAEDFBA3DABD9847DA508DDDB45A9E6C9F25576572978FB5AB8D72EEDDEE7C3D67A3B468404B781A3F3B9FBC7773C5749F00347B5BEF125C5E26A9145AAC3049F62B6E85DCAE0499F41E828A8B928B4B5087BD555F42B78E758F899E14D623D2F5FF113CD75E489018A6F31769F7207A57AE7C32BAF10F887E0ADCC96FA816D6A633C56D70EDB36BF1B4E40E075AE4AF0A4A946715A5D1BD1954E7716F5B1E49E23F14FC46F0E6BB71A3EA1E24BA37706049E4CD956E3390703819AEB6CAF7E2F7883C2506B5617E22B0820382B2EC9AEF19CC838C9FA67B574CE9616118CE51D1994675A52714F5465FC37F89BE2B5F1669D06A1AA4BA9D9DDCAB1491C801F3149C6F4FEEEDF4EF5EABF19B54F16E97059C9E1B8C35BB175B92BB4383C6DC331C281C93F4A8AF86A30C4C135EEBFEBF134A75A72A4DF54713A6DEF8A6E2D22B9BCF8896A93491C8C6DE398EE9CAF4652BF700EE067350784BE22789CEA9A7C7737A3558A63808230A6FD73832C47FE5988FBA9EB5B7D5A8D58C9285ADB3EFF00D7EA47B69C1AF7AE7AAF8D6C75ABBD31A3D0A4315E6F52ADE7987233CFCC01C7D3BF4AF0FD4FC5DE37D3F517B1B8D76F27B889DD184326D17654E0B47FDC09DC77C5726029D1A916A51BB36C54EA45A69E8743E21D4FE2C369963ADC2D3359BC69B23B0FBF30206D72B8CAFA91CE7DAB5BC4563F16AF74DB5D6AC6FF00C845D3D5AEAD6298C524920DD92AB8F9491838CF3D38C536B0B1B3DFA093AF2B9E5ABF107C70D2AA7FC24D7CC5CE33BCA897D48FEE85EF5D0F8F75AF1F787ACB4592E3C5AB3C9756B92B6B7259A73B988907030BB4A0CF7ADE5428C6715CBB9846AD4716F9B63B9F84BA67C465BA4D53C4DAA79FA6CF6A5D2092625C3120A9298F978CF7EF5EAD1A2B40ACA3270726BC9C47239FB9B1DF479947DEDC83CF89098CB0DCB8DC0724668EC4E4B05EDE82B0D16A6C38B8911BB9E8BDBFFD745AA2292401B8F5355D09B11E07F6AD8E73FEB981FF00BF4F5BAB8E9F37EB5E960FF87F332A9B993E2ACFF640EDFE956D83FF006DD2A294B2862738C752060D73E317BEBD0BA7B1E07F154FC4DD6752D5344834EBAB9D05E653084817040C1186CE7A8AE1F4DF03F8FAC2FADAFEDBC35A824F6F32CD1318C1C3A9041C67919038AF430F528429A573CEAB0AB29DEC7BA7C2BBFF0017DE59DEFF00C26303433ACAA21F32254CAE39C63DEBB6594792D1ABA8EF815E55750551F26C7A149C9C173EE790FC5C9BC5DA8DD4FA158692F71A5B88CABA26496186DD9CF407822B96F06695E38F0D6A4752B0F0F5C3CACAD11124608CB63320E78518FBB5EC616586861FD9B96FB9C35955757992D8EEBC7FE03D4F5B9E1D6EC44725E4B1C6F756F9DB8982855901EEA00E53A1AABE18B9F889E1DD3DF4DB6D166923F39A308F183FBC6396B85E7022C9FB9F95670AF42BD154EA3B5872A756954E78ABDCEAFC09A1F8A5B5B9B59F11DFB873F28B70DC48E063CCFF006131C04FC6B9FF008E9E11D7F52D62CF50B0B17BDB7F2950C70E37A4818E2427BA00795EF5853AD4E3894D6914AC6B3A73746CF7DCE7BC3DE1BF1DEA7A52784EE34E92D34837625B99DC042DCE4BAF3F7739F93D6BB7F8DBE13BFD73C3165168D0B5CCB6536E102900B2ED0370F5C6338EF4EAD7A51AD1717A5EEFE628539BA4EEBFA4798F822D3E25785AEAE5F45D0E726EF0932C912B2B91D1C64FCA07A56778BFC13E3FBCD76E6EF50D26E6FAEA72B24B2C206C2C47F0F3C01D315D2AAE1E351CEFAB39DC2B3872DB44759E18D6FE28685E1E5D361F0C652CE254B7F322196E7AF5AF3AD6FC23E37D5F55BCD467F0DDE79D752B49204418DC7AE39A8A52A14E6E4A5B9551569C5271D8F7CF83FA978B2F34EB8B5F14693FD9E2D9523B61B369700739E6B17E33FC38BDF15DF45AC68D247F6E8E3F2E58646DA2403A107D474C77AE1855850AF78BBA3AE54E7568D9EE717E0EB2F89DE0D5BAB3B4F0A0BA8676DCE93DBA483774DCA73C0F6AE8ED34CF8B1E2CD4AD62BAB68BC3560A70F2C50C716E1DD86325BE86BBE53C2F33AAE57F239631AF650B5BCCF69B5B4163642CD58BF92A14BB756C0EA7EB597E23B09757F0D6A9A6C4424971018E3663C67A8FC322BC88CD2A8A4CF4251BC6C8F0CD03C33E3AF0F6B715FC3E1EBA7B9827CED0ABB667C63CC5E788C6795EF5DFE95E02B8D4740D517C47218F55D4EE45CBC8AE70244FB8C07F0AFAA57B38BC5518DA7077969F75EE79F428547EEC9597F48E520F0B78E7C2BAB9D56D34D17B2249FBD6836959D88C798A0FDC403AA0EB5178AB4AF1F78C6EA237DA2B086D888D02E2347627224524E428EEA7AD53AF8694956E6D6C4FB3ACA2E9DB43D3BE157829BC25A4CED777093EA57AE24B978C6101031851D855AF1E5DEA96DE1DBE93458D9EFD53F70AA016DD9F435E454A91AB5F99ECD9DD083A74ECB73E7CF12685E3CD7F516BED5347BBB9B9DAB1B3A46ABBC2F423078033C8EF4EF0FDA7C46F0DF9EBA5699770F9EC0C9FB953BC8E8464F007A57AB29E19C391BD0E051ACA5CD6D48BC51A4FC49F13CB14DABE8F7B72D0A954"
$BackgroundPic &= "2B0AA0E7D306B67E137C3FF165878917C4175A7BD90B08DE589252374EFB4ED5001E84F5A89D7A10A4E317E43852AB29A949191E38D2FE2478C7578F56D5BC2D7493AC2B1622880181F8FBD75BF0CEE7E25787B499F478FC3522DB416F713C1E644373CDB72AB9CF723A54CFD84A9727368870F6D19F358E47C55E18F883E20D72E358D4BC2D7AB3DC905C468003818C8E7815DD787F56F89DA5F837FB2E1F0BB335A816F10308CBC6C1B7375ED9ADAA3C3CE1183968854FDB464E4A3B9C0E99E0DF1B69F7D05E45E1BBD79209564036001D97A11CF00771DEBD03C69A5F8EBC69E19B0BCBCB4266824916E74F88F9664391B245E7B73915A56C461FDA46A395EDA7DFFD7E24D3A75795C2DB99FE05F0B78C6CAF6E447A0C11CB210B25E5CA01CE08DF175D8067918E715426F08789F4EBAB813691717263990CA60C20BB61F72488E7F76ABFC4BFC555F5BA1ED24B9B7FBBE5FD7513A157953B1DC5A5C78E2C6DF53D7E5B492FF50731C2B6B1B612419199110FDC001E477E6BCEF58F0B78B2FF0050BDBB9F42BB9E49E5124FE480A2E189C868F9F902F71DEB9E854C3536DA9797DC6B5615A4926BCCF64F85BA8F896E6DA7B3F1269DF65366228EDE509B04EBB4E481DB1802AE7C48F887A57838DA452DA4FA85DDDA922DA2608762E32DB8F1DFA5798E8AA95DC29BD3B9D8AA3851E69A3C0BE28AF87352BB87C47E1CB8530EAA58DC58FDD91245C648F407AFBFE35D07C0FF00064FE25D457C41AD334FA6E9E025B0939599D4E54283D114E73EA6BD3A951D3C3DE5BEC70C20A75AD1DB73E82B46225663C28EF56E648E3923317FAB718C0EC6BC34D1EA58A4CA2372A3032DCE4726872E0E4E48C724818A4B519145232C7BB8607B55EC6F50D800F6C5526ADA93A94B3BB59B25C1C79AC718FF00A66F5BBB13B86AF4B06FF766553732FC5847F63F0493F6AB638FFB6F1D210258C804F3586317BEBD0BA7B0D58C85F98023B7B54A921C0F98E474AE3468CA97F0C32299DF0655C019E8467F9D42EB1A2972A30463A53BA44DAE54291B306DABBBA631D3352A92AD8E719A95AAB94F72D42A431CE016E3A54FB595C6EE847E19A3761E43CB152581C55877FB55B0727063EA7D8D17B304551202ED1293BC0FD297EF0C90C320FE14D086C76FE4C5800B0F5CF5A6B07280E71DB00D35E62445E5A6EC145627A93D69660A14EDFC80A9E85752BA315CF5538CF26A7B627EF32904F4E6921B2CA6738C1C7BF7A5E738562A076F4AA7B12B71FA837CB12E48CAF51D5AA0FB3491B33195CEE0383D29587A168B32D9601DCC1861BD2AA4D1B6E46EAC073EF46C04A312464027A629AB1614EE00A8A6D3044B1B90319E474AAB7D0C53219A4C19107CB91C11FE34C4405515779000C63A554658DCEE2A370E831EB5327AA4812D094128D8ED9AB31021B73704E00A6091636BABA963C1183E95212412C0E314ADA0EFA93F9A6EAD793CC5C93ED557CC024312B36FC71F4A2F701C09382DBBD3E94C8ED84519C0DC3B9F5A6896358332E7A60F406A2F2D33828AC4F52687E4343A55403E518FA0AAD1B104F5527279A991489ADCB13BD8633D39ACEF14F85744F145BA41ACD979C23C98E4562AEB9EB861CF6AD694DC24A51D191522A51717B1CBFF00C29BF067DA0B94BD2A4866437071C76F61FCEBD016D6D74ED32D6C6CA08EDADA34D88B1AE0633D05695B1552B2F7BA114A8429EDD43ECD2237986573B947CBDAACA165B27E7710460FF779AE7B1AA68AB346E76313F30EB52210E9804838C535761A0D58B0A7201502A58DB036EEE9D284042FB5B55D3DDB96F39D7D38F29CFF00415B417D0102BD3C27F0CC27B993E2A2A74A51BC126EADBE5C7FD378E98A0AE30467BD73637E35E85D2F843712017421B27193FAD21CED2CBC115CA9EA5B5A0AE03439938C73552ED1584647209F94FA5080AA0ECDC48E578FAD31A745E5F79FC334A2B5D01BD351D7572AB183B9B9C303DF8ABB6374D7319591595D7A31E8C2AB6417BB2DC60B0DAC3806A61FEA1D1863238A9DC645361943A8CB8F7C543F69392A6DA52BDF918AA24905E5A888AB36C2A3EE918C539595D3629FC686C1584655C9E4545249B7E5EA48FC0D1AB1F91138DD11E066A1B795A59311ABB1538181D2A5DAF71DD976112749181F4E2A4555DC01E82982D873ABCEC91AE07A1F4A7B6549471864E0D1D0435DB08514714E0A248FE5E580E9EB4865700AE30C339A52C792E841078E7AFBD0B6B05869C904AF51CE6948DF09F338EF4F71152ED55A34239527E5F6AAB9F2D9B70E57A1A520431A74032FBC8F619A7DC5CA0801CB618707BD524C39922D585DB5C218E4043019573D08F4ABB1E4E55871EB49B044D18C44E846011C5452E1A30C065874E714D0321372DBB6FD9A523F8B918A916F2D44651C98C819DA474A169A0AF7D4723A326D53D790691D572791D851E43B752377DBF29E491D7B1A89BE689B800F6A4D31A2BC32B3C9B115D8A9C00055E88499C48C0FB63142F215F5D4902AEE03B77A7481A6DB128C73C1FEED032421A3CC520C3201CD319B6A32A0EA3F3A188722891303EF01C7BFB557C15EE339A4314B1E77A1E0F1CF5A6E339C751CE69DD8ADA0C52CD7DA7165C9F3DB03FED9495BC154F24364FBD7A784FE198CF732FC524AE948CA0F1776A707FEBBC751CE159B7C798D87DF43C83F4AE7C6FC6BD0BA7B5885598E41E39FCAA46618DA31C8EB5C9B1A6E296033B88F4C93DAAB5E490470A067DBFDD51CD52772599735CC2E77A3961D87AD4D64CE4161F2374E6B34FA96D1203BD8864048C824FA54F6C9B1F7866C0E306AAF744AD0BC1B0BBB3F9D35E68CA659805228EA32BACA5B"
$BackgroundPic &= "90723B814492BAA829D73C8A2F60422CDBCF9722E777048EB53DA80B08D99C13D4D27E40874C2357CAE371ED9A8E7DBB381FFD7A036234DA57934B10557182037502AAC2B9303B704B823A9207E94E077672791CF1498D0D8E59A37DC70003F28153DFB0308B93C330C631CF1DE90742909269220546C047258726ACC64A90571F2F4E69F90AFD42E30E77AE627EACA7907E950066C91486485940C0C1CF19A5C851F31071DF34D485B6E57BB9208EDC6E70A09F9475ACB9AE6073B964240A536C224964CEC4B0F91BDEA5DDB9F6B2A9607A9A69D81A26B78F6B86566017B1ABEA78C8A1A1A6234C8572CC00E955965DD92A723D07A51E62F2079595329C1CF4A459C93B5D7258E09A2F71D89ED15523F9338CF734E9846A411F78D26047315D8481D3D2A38F18E4D34171630AAE3E6C31E40F5A94120025D581E4903A734C576F71FB83753DB2298B24A8E58E0283F2E3A9A81F62CDE36F816E49C37DDC11D7DEA8A4B34916E41B011C9618355D6E27D8B1192A0018F971F9D2CF8930C018A5EADDC352E83BF4200ED93F4A9372A818C1CF19A77B06E3071A969E09E93377FF00A65256EFCB93919FC6BD3C26B4CC67B995E2CCAE90BC11FE976DD7FEBBC74C7E7B6724573E37E35E8552D8817289B5F9E7AD4723C8D8F2F8C8E32383CD72357D8D361F147E6F12924F75A2FEDA396178846470390319ED8CD0989A31BFB19136E5886049EBC7E557F724318DB8F4C91D7B50EC816A35C63E64C60F5AB96872854A8DDD7DA92681DC9C248F1E37819F6A84DB08A33F319580E19AA9892B95F4C5F964DD9CEFA92451938391F4A95A0D0C854F9809C55C04EC0001D47B5032BC92627C027006334B707F77F29EA3B9E940D1009002158E09ECBFCEA7B65DC7893907383CF34E366C4EE493318D33275CE7007535109D9C61564E7F8B18C50D09166DD4ED3BB83D87A54F21F9101C6F53F9D00472600DCDD4FA9AAE92012E38C9ED40D9339C8E9BAA050D1821F904F5A158064AEE40F2B8EB8E3834E890C9F2CA493D768EF4B661B8EBCB78DE26884647CBC1038FCEB13FB1510005981CE7AF03DB155A6EC92F0290443182470491D68718F9971D39352DA1D8B5667E52A57E6C67DAAC0591D31B80FC38AA4D7413B917D9846A72C656E482C3A1AABA72FEF26DDD7754B4326954066C1E3E9DEA28D4F9809C7068197413B08503D874A826936CF819C01D7DE8BE802CEDFBBE3A907BD561205C06E09ECA3AD1E43E84F6E9BC91BF927904F5A9A566442D2119272401D7D2ABA13D4844E5C7CA9273DF18DB562D9490777E03FAD2D80B0E7F7215B1B83034C9381BD8E3B72681A2B070251C0C9ED5339E09C6EE2860884064DDB8704F07351CAEC4623E39201C719A1AEC1B096E5FFB4AC3CCFBC666C0FF00B64F5D11720E322BD3C1FF000CC6A7C463F8C0634221720FDA6DF1C7FD374AAF6F31618639C7AD73E37E35E83A7B1338DCD9C03EF480EE618248C75AE4B9B0302B229EC4E0F152CAC547B52BDC2C55923564DA7F0AAD2C47660F183934DB248C912308D46E6E8476AD08146ECE318A95A8EC5AE028538C66A2B97558484C1F5E7A556E065A48219BE50007E706B404D1B49E515272B92DDA92EC174356026404120631C74A92E1763A60E7271834EC24EE88264025663F9D46EC5D72393DA93B0CAF023076DC55BE5C311D452DB48A8CC880B007EF0EF531D16A0DF62EACCA46D0CBBF3D8F22A42094002E4F5154AEC4360668CB6738CE71532488EFB41058720508624AACCDFBC0871D2AACEA705C11BBFD91556BE82DB516DA5246D639C71CF5A9DC6F39C03E869741A101DCC30734382AC1874CE0F14AE34AE4B212ABDB1559D159083D0D3426569626F2CA9E39C9A858AB111AF2DD08A4D892342DD464023181F955B180B838E6843239DD56221304F7E7A5650904536F5C0DFD41A1E9B05CD013C6CEB1952772F27B0A6884990104E3DBA534857EC49729B154839C9C7350DC20F38B1A4044CC5D78E71C0AAF0A4826F98AB100EEC0E454CB7BA1AB0412247232A65875DC2AF2CCB8DBB86FE3A75AAEB6417BEA72BF15356BFD1B46D22E6C5AE37BEB9630CA9020679A369D55E303BEE048FC6A9691F1334D9E2999F4AD4ADA70E8915AC810BCEED72D6C4210C55B122804838C3A9A7602BEA8BE22BBF8A171A4C7E30D460B55D25F51B6B7B78A244128955555CB23332F5CE08CD58F865E21D63C57345797370AD6163A55B5BDD26D19975074479B2474D83030382643E9420654F8C3AB6ADA76A5E18B5D36F755B74BFBB9E3B81A55A2CD3BAADBC8E0282A46772839C7404F406A08FE2869BA041369DA9E9DE2197FB32D61FB55DDCC0B9123C4AF1C6EC30048C5B6F40377A645167B879169FE2C690F1E889FD957A6EF5463FE8CAF1B342826F2B7E4362405B95D9B8B0048E869F7BF14ECAC24D59352F0FEAD63FD9A62526678313492BED8A35DAE76B30F9B0F8C2F2702803ADF0A6AA9AF59E87AC436F35AADD33308A500B2FEEE4079070471C10704608E0D75F893B73F857A78477A66353466478C5F7E84CA1F693736F838E7FD7C759C9696031B903C87B9739FE758633E35E810574588ED638C37972320E0E0BE547E7446CA141CAE7B735C8F566AB4D092461B57E7C0C8EF4E237372471CE73D6A6C3B91C81436E6231EA4D4176FFC0A776E3C8F4A69DB413D47448615E76658D4F09C03BB6D3697412BF51E8EA4E038CE7A66A3BD31630A5413D7E94BC86665C1FDF21070B9E79AB96C9193BDB6BA93C027D29458DA34A320F2187E06A1B8C34F11E0AA7CCDCE31E9549684DFB19B79212CDB650323BF4A2D67410EE322C99EE0D4ADF61BD88844"
$BackgroundPic &= "66DDCBC61BFBAD86A2DA18E120A966C0C64B75AAB6961799752350A1F80C0548641B32A558F719E94ACAE52DAC311F924B7B53126F264CE4119C63A5160249A72CCDF36EC761CD32733480246FE5F192D8CF1ED4E3A132D4852D2C001E6AF9921EE5CE7F435662B48933E5C8D1E474DF903F034EE2B0232819DCBC1E39EF523B0F2C7CD8C9E6A6D72EE388DC7191EB926A39000DB895C7D68482E4376F85DAA7716EDEDEB4B0A185727665BA5568C9D513C2704EEDB4E565248DE33E95361EC36F4C5B70A54311597747E752BC00477A4DBDC6922DDBA46CDB988642700135A51953D187E07A55088AE8077887054365F9C607AD67DEC9976DB2819FCA9497504C65A4C82225A44739C1C1E9ED4C09E73B11BA356F46C31A695D09EBA0DB6823848DACEE57B96E4FD6AF471AED0E7008A2D71AD0C7F19F87AD3C53A441637379756C20BB86E83DAC8A8E1E270CB8241C722B9D3E14966F1E68521D2ECEDF44F0F42E6C268E626472C81444CA79C06024C9CE4AA9E4E690CE98699670F8A7FE1222D21BBFB1FD8CAE46CF2CB87E98EB91D73599A7E8D77E13D00E9DE11B6B3BE792F26BA95751BB6847EF5D9D8868E372482428181C0EBC725980D4D2F5DD6B57D2F53F105BD869B3E912B4F6634FBD7B8490C914913F99E643191857E304F5E7A731EAFE00D07525D4DEE2EAF12EF51BAB7BB699645262960DBE5955208C7C832181CF355D09B6A16FF0DB4A8B55B7D462D675B4992058A726E94B5D0499A65F318AE40DEEF9085410718C0C5501F0CAC4C9248FE29D7647FB77DBD19DE0223B92D93201E57CC71F28DFBB0B803181498D6876DA258C5A6A68DA7C334F3AC0E57CCB898BC8E7CA932CCC7A92735D332331C8CE0FA0CD7A583D2998D4D589710C171118A78A39A23CB2C8370241C8E0FB81501D334DFF00A06D8E0F19308FF0AE9714F722E29D2B4CCE3FB334FCFF00D711FE14C1A569DB88FECFB0E3AFEE07F852E58F60BB03A5E9BBB1FD9D63C7FD305FF0A0695A6E093A7D8F1D47D9D7FC28E58F60BB03A6E96173FD9B618F4F207F8535B4DD28673A7D8E3BFEE07F853E55D82EC4FECDD23AFF006759127FE9DC7F853BFB3749C0C69B6246703FD1C7F851C8BB05C71D2F4B2401A75873D0FD9D7FC293FB2B4E04E34FB1E3FE982FF851CB1EC17628D334EDBC69F6231EB00FF0A45D274D24B7F6769E71D7300FF0A3963D82EC71D2B4CC06FECBD3FF00EFC0FF000A41A56978E74CB11FF6C57FC2972AEC1762FF0066698318D3ECFF00EFC8E3F4A56D374E3C9D3AC8E4632621FE14F95760B87F6569A30A34CB0F6FDC8FF0A60D2F4F0C47F67D86475FDC0FF0A5CABB05D83697A6EEC7F6758F1FF4C17FC281A569A724E9F6391FF4EEBCFE9472C7B05D81D374B0B9FECDB1FF00BF03FC29A74DD28127FB3EC47FDB01FE14F95760BB13FB3B49233FD9F6473FF4C07F853BFB3749C71A6D8919C0CDB8FF000A395760B8E3A669848034FB1E7A7EE17FC290E95A7027FE25F6271FF4C17FC28E58F60BB14697A69071A758F1EB02FF008522693A6927FE25DA79C75FDC0FF0A3963D82EC71D2B4CDB9FECCB0C0FF00A623FC293FB2B4CC73A6588CFA42BFE14B95760BB0FECBD2F1C69D67EFFB95FF000A3FB2F4C1C8D32C7D33E48FF0A7CABB05D8EFECAD33017FB32C3F1847F8547FD93A686DBFD9DA7E476FB38FF0A5CABB05D8A74BD341C0D3AC7F08147F4A51A5E9C73FE8165C73FEA179FD29F2C7B05D8874CD2F6EE3A6D81FFB775FF0A63699A4E7274EB019FF00A771FE1472AEC17620D3747C67FB3AC8E7A7FA38FF000A9069FA585F974FB22071FEA07F851C8BB05C7369DA6B1E74FB239E06601FE14874AD38123FB3EC78FF00A60BFE1472AEC1705D2F4D20FF00C4BEC73EF02FF8522693A6B13FF12EB06C75FDC0FF000A3963D82EC79D2B4CDB9FECCB0E3FE988FF000A6FF65E99DF4DB219F4847F852E55D82EC3FB2F4BE31A75967BFEE57FC297FB334D03234DB2FA9847F853E55D82EC5FECAD30003FB32C0FD611FE14CFECBD3C363FB3EC323B7903FC2972AEC1760DA569A0E3FB3AC73FF5C17FC294695A71273A7D8F1CFF00A85E9F951CB1EC1763A1B2B08184D0D8DA46EA0E19210A4763C8A9C94639CA8FCEA92B6C173FFFD9"
Return Binary($BackgroundPic)
EndFunc ;==>BackgroundPic

[/autoit]

[autoit]

#NoTrayIcon
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=C:\Programme\AutoIt3\Aut2Exe\Icons\AutoIt_Old4.ico
#AutoIt3Wrapper_outfile=Private Process-Controll V1.0.exe
#AutoIt3Wrapper_Compression=3
#AutoIt3Wrapper_UPX_Parameters=--ultra-brute
#AutoIt3Wrapper_Res_Description=Controll private Processes
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=TV_Freeze (http://www.autoit.de)
#AutoIt3Wrapper_Res_Field=Coded by|TV_Freeze
#AutoIt3Wrapper_Res_Field=Build|02-10-2011 Final Version
#AutoIt3Wrapper_Res_Field=Compile date|%longdate% %time%
#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%
#AutoIt3Wrapper_Run_After=del /f /q "%scriptdir%\%scriptfile%_Obfuscated.au3"
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/sf /sv /om /cs=0 /cn=0
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;~ #Obfuscator_Parameters=/sf /sv /om /cs=0 /cn=0 /cf=0 /cv=0
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiStatusBar.au3>
#include <ListViewConstants.au3>
#include <Misc.au3>
#include <StatusBarConstants.au3>
If Not IsAdmin() Then ; keine Administratorrechte ?
Exit
EndIf
;
; Private Process-Controll V1.0
; Coded by TV_Freeze (Autoit.de)
; 10.02.2011
; with Autoit Version 3.3.6.1
;
; Function:
; Terminate only my private Services
; or start it...
;
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiStatusBar.au3>
#include <GuiListView.au3>
#include <GuiStatusBar.au3>
#include <Misc.au3>

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

Opt('GUIOnEventMode', 0)
Opt('MustDeclareVars', 1) ; 0=nein, 1=erfordert Deklaration
Opt("GUICloseOnESC", 0) ; 1=ESC beendet, 0=ESC schließt nicht

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

$Debug_LV = False ; Check ClassName being passed to ListView functions, set to True and use a handle to another control to see it work

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

Global $title = 'Private Process-Controll V1.0'
Global $nr, $Active_Text = 'Active Services '
Global $a, $aItem, $begin, $tf, $wahl, $mwin, $gh, $lh, $bh, $PID, $pc, $vers, $mainwin, $msg, $msg2, $hListView, $hHeader, $Button_1, $Button_2, $Button_3, $Button_4, $Button_5, $process[20]
Global $exStyles = BitOR($LVS_LIST, $LVS_EX_CHECKBOXES, $LVS_SORTASCENDING)
Global $aParts[2] = [45, -1], $hStatus, $text, $timer = 2, $newtime, $size, $aGUI, $ja, $Ja_Button, $Nein_Button, $Zeit_Button, $warte
If _Singleton($title, 1) = 0 Then Exit MsgBox(16, "STOP !", 'The program is already running!', 5)

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

; My private services !
$process[0] = "alg.exe"
$process[1] = "schedul2.exe"
$process[2] = "avguard.exe"
$process[3] = "cygrunsrv.exe"
$process[4] = "FABS.exe"
$process[5] = "spoolsv.exe"
$process[6] = "PDSched.exe"
$process[7] = "TuneUpUtilitiesService32.exe"
$process[8] = "VMLiteService.exe"
$process[9] = "vmnat.exe"
$process[10] = "vmnetdhcp.exe"
$process[11] = "vmware-authd.exe"
$process[12] = "vmware-ufad.exe"
$process[13] = "vmware-usbarbitrator.exe"

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

$vers = @OSVersion
If $vers = "WIN_XP" Then $vers = "Windows XP"
If $vers = "WIN_2000" Then $vers = "Windows 2000"
If $vers = "WIN_2003" Then $vers = "Windows Server 2003"
If $vers = "WIN_2008" Then $vers = "Windows Server 2008"
If $vers = "WIN_2008R2" Then $vers = "Windows Server 2008 R2"
If $vers = "WIN_XPe" Then $vers = "Windows XPe"
If $vers = "WIN_VISTA" Then $vers = "Windows Vista"
If $vers = "WIN_7" Then $vers = "Windows 7"

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

If $vers = "Windows 7" Or $vers = "Windows Vista" Then
$mwin = 425 ; GUI
$bh = 362 ; Buttons
$lh = 295 ; ListView
$gh = 313 ; Group
Else ; Werte für andere Versionen
$mwin = 385
$bh = 326
$lh = 259
$gh = 277
EndIf
$mainwin = GUICreate($title, 400, $mwin, -1, -1, -1)
GUICtrlCreateGroup("", 3, 5, 393, 38)
GUICtrlCreateLabel("Coded with Autoit V3.3.6.1 by [email='TV_Freeze@AutoIt.de'][/email] !", 15, 20)
GUICtrlCreateGroup("", 3, 44, 393, $gh)
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group

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

$Button_1 = GUICtrlCreateButton("Turn on", 5, $bh, 68, 30)
GUICtrlSetTip(-1, 'All selected services are turned on') ; Tooltip aktivieren
$Button_2 = GUICtrlCreateButton("Turn off", 83, $bh, 68, 30)
GUICtrlSetTip(-1, 'All selected services are turned off') ; Tooltip aktivieren
$Button_3 = GUICtrlCreateButton("All/None Select", 161, $bh, 124, 30)
GUICtrlSetTip(-1, 'All services select / deselect') ; Tooltip aktivieren
$Button_4 = GUICtrlCreateButton("Check", 294, $bh, 46, 30)
GUICtrlSetTip(-1, 'Only active services will be selected') ; Tooltip aktivieren
$Button_5 = GUICtrlCreateButton("Exit", 348, $bh, 44, 30)
GUICtrlSetTip(-1, 'Program Exit') ; Tooltip aktivieren

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

$hListView = GUICtrlCreateListView("", 8, 56, 382, $lh)

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

_GUICtrlListView_SetExtendedListViewStyle($hListView, $exStyles)
$hHeader = HWnd(_GUICtrlListView_GetHeader($hListView))
ControlDisable($hHeader, "", "") ; ListView - Spaltenbreite sperren

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

_GUICtrlListView_AddColumn($hListView, "Services from " & $vers, 328)
_GUICtrlListView_AddColumn($hListView, "Active", 50)

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

_GUICtrlListView_AddItem($hListView, "Gateway Service", 0)
_GUICtrlListView_AddItem($hListView, "Acronis Scheduler2 Service", 0)
_GUICtrlListView_AddItem($hListView, "Avira AntiVir Guard - Antivirus On-Access Service", 0)
_GUICtrlListView_AddItem($hListView, "OpenSSH Server", 0)
_GUICtrlListView_AddItem($hListView, "FABS - Helping agent for MAGIX media database", 0)
_GUICtrlListView_AddItem($hListView, "Print queue (Spooler)", 0)
_GUICtrlListView_AddItem($hListView, "Raxco - PerfectDisk (PDScheduler)", 0)
_GUICtrlListView_AddItem($hListView, "TuneUp Utilities Service (2010)", 0)
_GUICtrlListView_AddItem($hListView, "VMLite Host Service", 0)
_GUICtrlListView_AddItem($hListView, "VMware NAT Service", 0)
_GUICtrlListView_AddItem($hListView, "VMware DHCP Service", 0)
_GUICtrlListView_AddItem($hListView, "VMware Authorization Service", 0)
_GUICtrlListView_AddItem($hListView, "VMware Agent Service", 0)
_GUICtrlListView_AddItem($hListView, "VMware USB Arbitration Service", 0)

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

; System-Processe prüfen (aus meiner Liste)

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

$nr = 0 ; Process-Zähler

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

For $i = 0 To 13 ; Anzahl der Processe
$PID = ProcessExists($process[$i])
If $PID = 0 Then
_GUICtrlListView_AddSubItem($hListView, $i, "No", 1)
Else
$nr = $nr + 1
_GUICtrlListView_AddSubItem($hListView, $i, "Yes", 1)
_GUICtrlListView_SetItemChecked($hListView, $i)
EndIf
Next

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

; Statusbar
$hStatus = _GUICtrlStatusBar_Create($mainwin, -1, "", $SBARS_TOOLTIPS)
_GUICtrlStatusBar_SetParts($hStatus, $aParts)
_GUICtrlStatusBar_SetText($hStatus, "Status", 0)
_GUICtrlStatusBar_SetText($hStatus, "", 1)

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

; Aktive Processe anzeigen
Show_Active_Processes()

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

GUISetState(@SW_SHOW)

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

;Hauptschleife
While 1
$text = _GUICtrlStatusBar_GetText($hStatus, 1)
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_MINIMIZE And $text = ""
set_timer()
Case $msg = $GUI_EVENT_RESTORE And $text = ""
GUISetState(@SW_SHOW, $mainwin) ; zeige Hauptfenster wieder an
Case $msg = $GUI_EVENT_CLOSE Or $msg = $Button_5
ExitLoop
Case $msg = $Button_4
GUICtrlSetTip($Button_4, '') ; Tooltip aus
pruefen()
Case $msg = $Button_3
GUICtrlSetTip($Button_3, '') ; Tooltip aus
allnone()
Case $msg = $Button_2
GUICtrlSetTip($Button_2, '') ; Tooltip aus
Process_off()
Case $msg = $Button_1
GUICtrlSetTip($Button_1, '') ; Tooltip aus
Process_on()
EndSelect
WEnd
GUIDelete($mainwin)
Exit

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

; Processe prüfen und Checkbox an/aus markieren
Func pruefen()
$nr = 0
For $i = 0 To 13 ; Anzahl der Processe
$PID = ProcessExists($process[$i])
If $PID = 0 Then
_GUICtrlListView_AddSubItem($hListView, $i, "No", 1)
_GUICtrlListView_SetItemChecked($hListView, $i, False)
Else
$nr = $nr + 1
_GUICtrlListView_AddSubItem($hListView, $i, "Yes", 1)
_GUICtrlListView_SetItemChecked($hListView, $i, True)
EndIf
Next
Show_Active_Processes()
$wahl = 0
GUICtrlSetTip($Button_4, 'Only active services will be selected') ; Tooltip an
EndFunc ;==>pruefen

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

; Funktion alles/nichts auswählen
Func allnone()
Select
Case $wahl = 0
For $i = 0 To 13 ; Anzahl der Processe
If _GUICtrlListView_GetItemChecked($hListView, $i) = False Then
_GUICtrlListView_SetItemChecked($hListView, $i, True)
EndIf
Next
$wahl = 1

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

Case $wahl = 1
For $i = 0 To 13 ; Anzahl der Processe
If _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
_GUICtrlListView_SetItemChecked($hListView, $i, False)
EndIf
Next
$wahl = 0
EndSelect
GUICtrlSetTip($Button_3, 'All services select / deselect') ; Tooltip an
EndFunc ;==>allnone

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

Func set_timer()
Opt('GUIOnEventMode', 1) ; EventModus an
$aGUI=GUICreate('Timer Setting ?', 245, 100, (@DesktopWidth/2)-132, (@DesktopHeight/2)-65, $WS_BORDER, BitOR($WS_EX_CLIENTEDGE, $WS_EX_TOPMOST))
GUICtrlCreateLabel('Do you want to set the timer for the statusline ?', 5, 5, 300, 36, 0)

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

$Ja_Button = GUICtrlCreateButton('Yes', 45, 40, 65, 25)
GUICtrlSetOnEvent(-1, "Yes")

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

$Nein_Button = GUICtrlCreateButton('No', 145, 40, 65, 25)
GUICtrlSetOnEvent(-1, "No")

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

$Zeit_Button = GUICtrlCreateButton('', 115, 40, 26, 25)
GUICtrlSetState(-1, $GUI_DISABLE)

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

GUISetState(@SW_SHOW, $aGUI)

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

$warte = TimerInit()
While TimerDiff($warte) < 4 * 1000 ; 4 Sekunden überschritten ?
Sleep(100)
GUICtrlSetData($Zeit_Button, 4 - Int(TimerDiff($warte) / 1000))
WEnd

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

GUIDelete($aGUI)
Opt('GUIOnEventMode', 0) ; EventModus aus

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

If $ja = True Then
GUISetState(@SW_SHOW, $mainwin) ; zeige Hauptfenster wieder an
$size = WinGetPos($title)
$i = $timer ; merke den Wert für eine Fehler-Eingabe
Do
$timer = $i
$newtime = InputBox("Timer Setting","Please enter only one number" & @CR & "(0-4) Seconds", $timer, ' M1', 1, 127, $size[0]+115, $size[1]+140, $mainwin)
If $newtime = '' Then
ExitLoop ; Cancel, verändere nichts...
ElseIf Number($newtime) Then
If $newtime > -1 And $newtime < 5 Then
$timer = $newtime
Else
$timer = -1 ;Fehler-Eingabe
EndIf
ElseIf $newtime = '0' Then
$timer = $newtime
Else
$timer = -1 ;Fehler-Eingabe
EndIf
Until $timer > -1 And $timer < 5
$ja = False
EndIf
EndFunc ;==>set_timer

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

Func Yes()
GUIDelete($aGUI)
GUISetState(@SW_RESTORE) ; zeige Hauptfenster wieder
$warte = 5 * 1000 ; Zeit überschritten ! raus aus While/WEnd
$ja = True
EndFunc ;==>OK

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

Func No()
GUIDelete($aGUI)
$warte = 5 * 1000 ; ; Zeit überschritten ! raus aus While/WEnd
$ja = False
EndFunc ;==>NEIN

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

; Alle markierten Processe ausschalten
Func Process_off()
For $i = 0 To 13 ; Anzahl der Processe
$PID = ProcessExists($process[$i])
If $PID <> 0 Then
$aItem = _GUICtrlListView_GetItem($hListView, $i)
If $aItem[3] = "Gateway Service" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
$PID = ProcessExists($process[$i])
If $PID Then
Run(@ComSpec & " /c " & 'sc stop "ALG"', "", @SW_HIDE)
_GUICtrlStatusBar_SetText($hStatus, "Terminate - " & $aItem[3], 1)
delay()
set_no($i)
EndIf
EndIf

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

If $aItem[3] = "Acronis Scheduler2 Service" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc stop AcrSch2Svc', "", @SW_HIDE)
$PID = ProcessExists("TrueImageMonitor.exe")
If $PID Then ProcessClose($PID)
_GUICtrlStatusBar_SetText($hStatus, "Terminate - " & $aItem[3], 1)
delay()
set_no($i)
EndIf

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

If $aItem[3] = "Avira AntiVir Guard - Antivirus On-Access Service" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc stop AntiVirSchedulerService', "", @SW_HIDE)
RunWait(@ComSpec & " /c " & 'sc stop AntiVirService', "", @SW_HIDE)
; Terminate Process fehlgeschlagen ?
If ProcessExists("avgnt.exe") Then
For $pc = 1 to 5 ; Versuche 5 mal 'avgnt.exe' zu beenden
Sleep(50)
$PID = ProcessExists("avgnt.exe")
If $PID Then ProcessClose($PID)
Next
If Not ProcessExists("avgnt.exe") Then ; wenn kein 'avgnt.exe'
_GUICtrlStatusBar_SetText($hStatus, "Terminate - " & $aItem[3], 1)
delay()
set_no($i)
EndIf
EndIf
If ProcessExists("avguard.exe") Then
_GUICtrlStatusBar_SetText($hStatus, "Avira AntiVir Guard could not stop. (Process is protected!)", 1)
delay()
ElseIf Not ProcessExists("avguard.exe") Then
; Versuche nochmal 'avgnt.exe' zu beenden
Sleep(50)
$PID = ProcessExists("avgnt.exe")
If $PID Then ProcessClose($PID)
$nr = $nr + 1 ; Anzahl erhöhen wegen zweiter Durchlauf...
set_no($i)
EndIf
EndIf

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

If $aItem[3] = "OpenSSH Server" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc stop OpenSSHd', "", @SW_HIDE)
_GUICtrlStatusBar_SetText($hStatus, "Terminate - " & $aItem[3], 1)
delay()
set_no($i)
$PID = ProcessExists("cygrunsrv.exe")
If $PID Then ProcessClose($PID)
EndIf

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

If $aItem[3] = "FABS - Helping agent for MAGIX media database" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc stop Fabs', "", @SW_HIDE)
_GUICtrlStatusBar_SetText($hStatus, "Terminate - " & $aItem[3], 1)
delay()
set_no($i)
EndIf

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

If $aItem[3] = "Print queue (Spooler)" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc stop spooler', "", @SW_HIDE)
_GUICtrlStatusBar_SetText($hStatus, "Terminate - " & $aItem[3], 1)
delay()
set_no($i)
EndIf

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

If $aItem[3] = "Raxco - PerfectDisk (PDScheduler)" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc stop PDSched', "", @SW_HIDE)
_GUICtrlStatusBar_SetText($hStatus, "Terminate - " & $aItem[3], 1)
delay()
set_no($i)
EndIf

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

If $aItem[3] = "TuneUp Utilities Service (2010)" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc stop TuneUp.UtilitiesSvc', "", @SW_HIDE)
_GUICtrlStatusBar_SetText($hStatus, "Terminate - " & $aItem[3], 1)
delay()
set_no($i)
EndIf

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

If $aItem[3] = "VMLite Host Service" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc stop VMLiteService', "", @SW_HIDE)
_GUICtrlStatusBar_SetText($hStatus, "Terminate - " & $aItem[3], 1)
delay()
set_no($i)
EndIf

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

If $aItem[3] = "VMware NAT Service" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc stop "VMware NAT Service"', "", @SW_HIDE)
_GUICtrlStatusBar_SetText($hStatus, "Terminate - " & $aItem[3], 1)
delay()
set_no($i)
EndIf

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

If $aItem[3] = "VMware DHCP Service" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc stop VMnetDHCP', "", @SW_HIDE)
_GUICtrlStatusBar_SetText($hStatus, "Terminate - " & $aItem[3], 1)
delay()
set_no($i)
EndIf

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

If $aItem[3] = "VMware Authorization Service" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc stop VMAuthdService', "", @SW_HIDE)
_GUICtrlStatusBar_SetText($hStatus, "Terminate - " & $aItem[3], 1)
delay()
set_no($i)
EndIf

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

If $aItem[3] = "VMware Agent Service" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc stop ufad-ws60', "", @SW_HIDE)
_GUICtrlStatusBar_SetText($hStatus, "Terminate - " & $aItem[3], 1)
delay()
set_no($i)
EndIf

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

If $aItem[3] = "VMware USB Arbitration Service" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc stop VMUSBArbService', "", @SW_HIDE)
_GUICtrlStatusBar_SetText($hStatus, "Terminate - " & $aItem[3], 1)
delay()
set_no($i)
EndIf

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

Else
$PID = ProcessExists($process[$i])
If $PID = 0 Then
$nr = $nr + 1
set_no($i)
EndIf
EndIf

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

Next
$wahl = 0
GUICtrlSetTip($Button_2, 'All selected services are turned off') ; Tooltip aktivieren
EndFunc ;==>Process_off

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

; Alle markierten Processe einschalten
Func Process_on()
For $i = 0 To 13 ; Anzahl der Processe
$PID = ProcessExists($process[$i])
If $PID = 0 Then
$aItem = _GUICtrlListView_GetItem($hListView, $i)
If $aItem[3] = "Gateway Service" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc start ALG', "", @SW_HIDE)
$PID = ProcessExists($process[$i])
If $PID <> 0 Then
_GUICtrlStatusBar_SetText($hStatus, "Start - " & $aItem[3], 1)
delay()
set_yes($i)
Else
$nr = $nr + 1
set_no($i)
EndIf
EndIf

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

If $aItem[3] = "Acronis Scheduler2 Service" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
Run("C:\Programme\Acronis\TrueImageHome\TrueImageMonitor.exe")
If @error Then
$nr = $nr + 1
set_no($i)
Else
RunWait(@ComSpec & " /c " & 'sc start AcrSch2Svc', "", @SW_HIDE)
$PID = ProcessExists($process[$i])
If $PID <> 0 Then
_GUICtrlStatusBar_SetText($hStatus, "Start - " & $aItem[3], 1)
delay()
set_yes($i)
EndIf
EndIf
EndIf

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

If $aItem[3] = "Avira AntiVir Guard - Antivirus On-Access Service" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
Run("C:\Programme\Avira\AntiVir Desktop\avgnt.exe")
If @error Then
$nr = $nr + 1
set_no($i)
Else
RunWait(@ComSpec & " /c " & 'sc start AntiVirSchedulerService', "", @SW_HIDE)
RunWait(@ComSpec & " /c " & 'sc start AntiVirService', "", @SW_HIDE)
$PID = ProcessExists($process[$i])
If $PID <> 0 Then
_GUICtrlStatusBar_SetText($hStatus, "Start - " & $aItem[3], 1)
delay()
set_yes($i)
EndIf
EndIf
EndIf

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

If $aItem[3] = "OpenSSH Server" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc start OpenSSHd', "", @SW_HIDE)
$PID = ProcessExists($process[$i])
If $PID <> 0 Then
_GUICtrlStatusBar_SetText($hStatus, "Start - " & $aItem[3], 1)
delay()
set_yes($i)
Else
$nr = $nr + 1
set_no($i)
EndIf
EndIf

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

If $aItem[3] = "FABS - Helping agent for MAGIX media database" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc start Fabs', "", @SW_HIDE)
$PID = ProcessExists($process[$i])
If $PID <> 0 Then
_GUICtrlStatusBar_SetText($hStatus, "Start - " & $aItem[3], 1)
delay()
set_yes($i)
Else
$nr = $nr + 1
set_no($i)
EndIf
EndIf

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

If $aItem[3] = "Print queue (Spooler)" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc start spooler', "", @SW_HIDE)
$PID = ProcessExists($process[$i])
If $PID <> 0 Then
_GUICtrlStatusBar_SetText($hStatus, "Start - " & $aItem[3], 1)
delay()
set_yes($i)
Else
$nr = $nr + 1
set_no($i)
EndIf
EndIf

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

If $aItem[3] = "Raxco - PerfectDisk (PDScheduler)" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc start PDSched', "", @SW_HIDE)
$PID = ProcessExists($process[$i])
If $PID <> 0 Then
_GUICtrlStatusBar_SetText($hStatus, "Start - " & $aItem[3], 1)
delay()
set_yes($i)
Else
$nr = $nr + 1
set_no($i)
EndIf
EndIf

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

If $aItem[3] = "TuneUp Utilities Service (2010)" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc start TuneUp.UtilitiesSvc', "", @SW_HIDE)
$PID = ProcessExists($process[$i])
If $PID <> 0 Then
_GUICtrlStatusBar_SetText($hStatus, "Start - " & $aItem[3], 1)
delay()
set_yes($i)
Else
$nr = $nr + 1
set_no($i)
EndIf
EndIf

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

If $aItem[3] = "VMLite Host Service" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc start VMLiteService', "", @SW_HIDE)
$PID = ProcessExists($process[$i])
If $PID <> 0 Then
_GUICtrlStatusBar_SetText($hStatus, "Start - " & $aItem[3], 1)
delay()
set_yes($i)
Else
$nr = $nr + 1
set_no($i)
EndIf
EndIf

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

If $aItem[3] = "VMware NAT Service" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc start "VMware NAT Service"', "", @SW_HIDE)
$PID = ProcessExists($process[$i])
If $PID <> 0 Then
_GUICtrlStatusBar_SetText($hStatus, "Start - " & $aItem[3], 1)
delay()
set_yes($i)
Else
$nr = $nr + 1
set_no($i)
EndIf
EndIf

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

If $aItem[3] = "VMware DHCP Service" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc start VMnetDHCP', "", @SW_HIDE)
$PID = ProcessExists($process[$i])
If $PID <> 0 Then
_GUICtrlStatusBar_SetText($hStatus, "Start - " & $aItem[3], 1)
delay()
set_yes($i)
Else
$nr = $nr + 1
set_no($i)
EndIf
EndIf

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

If $aItem[3] = "VMware Authorization Service" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc start VMAuthdService', "", @SW_HIDE)
$PID = ProcessExists($process[$i])
If $PID <> 0 Then
_GUICtrlStatusBar_SetText($hStatus, "Start - " & $aItem[3], 1)
delay()
set_yes($i)
Else
$nr = $nr + 1
set_no($i)
EndIf
EndIf

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

If $aItem[3] = "VMware Agent Service" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc start ufad-ws60', "", @SW_HIDE)
$PID = ProcessExists($process[$i])
If $PID <> 0 Then
_GUICtrlStatusBar_SetText($hStatus, "Start - " & $aItem[3], 1)
delay()
set_yes($i)
Else
$nr = $nr + 1
set_no($i)
EndIf
EndIf

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

If $aItem[3] = "VMware USB Arbitration Service" And _GUICtrlListView_GetItemChecked($hListView, $i) = True Then
RunWait(@ComSpec & " /c " & 'sc start VMUSBArbService', "", @SW_HIDE)
$PID = ProcessExists($process[$i])
If $PID <> 0 Then
_GUICtrlStatusBar_SetText($hStatus, "Start - " & $aItem[3], 1)
delay()
set_yes($i)
Else
$nr = $nr + 1
set_no($i)
EndIf
EndIf

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

EndIf
Next
$wahl = 0
GUICtrlSetTip($Button_1, 'All selected services are turned on') ; Tooltip aktivieren
EndFunc ;==>Process_on

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

Func delay()
$begin = TimerInit()
$tf = 1
While $tf = 1
MyTimer()
WEnd
EndFunc

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

; Timer prüfen
Func MyTimer()
Switch TimerDiff($begin)
Case $timer * 1000 To ($timer + 1) * 1000
; Wenn die Zeit abgelaufen ist...
_GUICtrlStatusBar_SetText($hStatus, "", 1) ;Status löschen
$tf = 0 ; Timer ausschalten
EndSwitch
EndFunc ;==>MyTimer

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

Func set_no($r)
_GUICtrlListView_SetItemChecked($hListView, $r, False)
_GUICtrlListView_AddSubItem($hListView, $r, "No", 1)
$nr = $nr - 1
Show_Active_Processes()
EndFunc ;==>set_no

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

Func set_yes($r)
_GUICtrlListView_SetItemChecked($hListView, $r, False)
_GUICtrlListView_AddSubItem($hListView, $r, "Yes", 1)
$nr = $nr + 1
Show_Active_Processes()
EndFunc ;==>set_yes

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

Func Show_Active_Processes()
GUICtrlCreateLabel($Active_Text & '[ ' & $nr & ' ]', 285, 20)
EndFunc

[/autoit]

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

[autoit]

#cs ----------------------------------------------------------------------------
AutoIt Version : 3.3.6.1
Author : tv_freeze
Scriptname : GDI+ MyToolbar (beta) and nor ready yet!!!
Script Function : Start Tools on clicked privat Buttons
: by clicked the button, search the tool on HD & start them
OS : Windows XP (Vista or Win7 not tested (own risc)
Thanx to : SEuBo for GUICtrLCreatePng-Routine & 'name22' for some Help's
: BugFix for _RecursiveFileSearch-Routine
: Oscar 'WM_MOV' a little bit from CDROM-Drive-Control
: Alexanderschill for Fade/in/out-Routine
best Forum : http://www.autoit.de
#ce ------------------------------------------------------------------------------
#NoTrayIcon
#include <IE.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>

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

Opt("GUICloseOnESC", 1) ; i remove it later

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

; my Buttons
Global $clickbutton = @ScriptDir & '\Button.png', $closebutton = @ScriptDir & '\close.bmp', $minbutton = @ScriptDir & '\minimize.bmp'
; settings
Global $sAppPath = @ScriptDir & '\settings\', $sIniFile = $sAppPath & 'Toolbar.ini', $settings
Global $iLeft = IniRead($sIniFile, 'Config', 'Left', -1)
Global $iTop = IniRead($sIniFile, 'Config', 'Top', -1)
; font
Global $Font = 'Arial', $FontSize = 4, $FontColor = 0xFFFFFFFF, $ButtColor, $change
;titlebar
Global $BgColorTitle = 0xFFFFFF, $BgColor = 0x777799, $TitleHeight = 20
; gui
Global $title = "GDI+ MyToolbar", $width = 220, $height = 118
; buttons
Global $x_pos_button = 8, $y_pos_button = 50, $buttoncount = 0, $wcounter = 0, $DefaultButtonHeight = 16

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

; reading settings (tool-name's)
$data = IniReadSection($sIniFile, "Config") ; read my tools
$nr = $data[0][0]
Global $buttons[$nr + 1], $tool[$nr + 1]
For $a = 2 To $nr - 1
$tool[$a - 1] = 0
Next
; make gui-window
$hGUI = GUICreate($title, $width, $height, $iLeft, $iTop, $WS_POPUP)
GUISetBkColor($BgColor)
GUISetIcon(@ScriptDir & '\Autoit.ico')

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

; titlebar-white
GUISetFont($FontSize + 6, 400, 0, 'Arial Black')
$TitleBar = GUICtrlCreateLabel($title, 3, 4, $width - 42, 17, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetColor(-1, $FontColor)

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

barchange() ; new $width for titlebar

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

; close & minimize buttons
$minimize_b = GUICtrlCreatePic($minbutton, $width - 31, 7, 9, 9)
$close_b = GUICtrlCreatePic($closebutton, $width - 16, 7, 9, 9)

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

; my Tools-Buttons here (see ini-file)
For $i = 2 To $nr - 1
$buttons[$i] = GUICtrlCreatePng($hGUI, $clickbutton, $x_pos_button, $y_pos_button, $data[$i + 1][1], $Font, $FontSize, $FontColor)
$y_pos_button = $y_pos_button + $DefaultButtonHeight
$buttoncount = $buttoncount + 1
If $buttoncount = 4 Then
$buttoncount = 0
BiggerGui()
$x_pos_button = $x_pos_button + 104
$y_pos_button = 50
EndIf
If $wcounter = 1 Then
$width = $width + 2
new_pos() ; new position for minimize & close buttons
$wcounter = 0
EndIf
Next
If $nr / 2 <> Int($nr / 2) Then
$width = $width + 50
BiggerGui()
$x_pos_button = $x_pos_button + 104
$y_pos_button = 50
new_pos() ; new position for minimize & close buttons
EndIf

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

; About-button
$Credits = GUICtrlCreatePng($hGUI, $clickbutton, 8, 28, "Credits", $Font, $FontSize, 0xFFF0FF0F)

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

; Greetings-button
$Greetings = GUICtrlCreatePng($hGUI, $clickbutton, 112, 28, "Greetings", $Font, $FontSize, 0xFFF0FF0F)

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

; settings-button
$settings = GUICtrlCreatePng($hGUI, $clickbutton, 216, 28, "Settings", $Font, $FontSize, 0xFFF0FF0F)

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

GuiRoundCorners($hGUI, 0, 0, 2, 2)
GUISetState()
GUIRegisterMsg($WM_MOVE, 'WM_MOVE')

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

; main-loop
While 1
$nMsg = GUIGetMsg()
For $a = 2 To $nr - 1
If $nMsg = $buttons[$a] Then ; click buttons ?
If $tool[$a - 1] = "1" Then
_ErrorInfo() ; file not found!
EndIf
If $tool[$a - 1] = "0" Then
$found = ""
_toolsearch($data[$a + 1][0], @HomeDrive)
If $found <> "" Then
$tool[$a - 1] = $found
; MsgBox(0,"Button" & $a-1, $data[$a+1][0] & " gestartet",1)
Run($tool[$a - 1])
EndIf
If $found = "4" Then
$tool[$a - 1] = "1"
_ErrorInfo() ; program not found!
EndIf
Else
Run($tool[$a - 1])
EndIf
EndIf
Next
Switch $nMsg
Case $settings ; click settings ?
GUISetState(@SW_DISABLE, $hGUI)
settings()
GUISetState(@SW_ENABLE, $hGUI)
Case $minimize_b
new_pos() ; new position for minimize & close buttons
GUISetState(@SW_MINIMIZE, $hGUI)
Case $close_b
ExitLoop
Case $Greetings
new_pos() ; new position for minimize & close buttons
_FADE($title, "", 10, 2) ; fade the main-GUI out
GUISetState(@SW_MINIMIZE, $hGUI)
GUISetState(@SW_DISABLE, $hGUI)
Greetings()
GUISetState(@SW_ENABLE, $hGUI)
GUISetState(@SW_RESTORE, $hGUI)
WinSetTrans($title, "", 255)
_FADE($title, "", 6, 1) ; fade the main-GUI in
WinSetTrans($title, "", 255)
Case $GUI_EVENT_CLOSE ; i remove it later
ExitLoop
EndSwitch
WEnd
GUICtrlDelete($hGUI)
Exit

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

Func _toolsearch($datei, $Ordner)
If StringRight($datei, 4) <> '.exe' Then $datei &= '.exe'
If StringRight($Ordner, 1) <> '\' Then $Ordner &= '\'
$found = _RecursiveFileSearch($datei, $Ordner)
EndFunc ;==>_toolsearch

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

Func BiggerGui()
$winsize = WinGetPos("[active]")
$width = $width + 50
WinMove($hGUI, '', $winsize[0] - ($width - $winsize[2]) / 2, Default, $width, 118) ; center my gui-windows, please!
GUICtrlSetPos($minimize_b, $width - 33, 7)
GUICtrlSetPos($close_b, $width - 20, 7)
barchange()
$wcounter = 1
EndFunc ;==>BiggerGui

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

Func new_pos()
GUICtrlDelete($minimize_b)
$minimize_b = GUICtrlCreatePic($minbutton, $width - 35, 7, 9, 9)
GUICtrlDelete($close_b)
$close_b = GUICtrlCreatePic($closebutton, $width - 20, 7, 9, 9)
EndFunc ;==>new_pos

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

Func barchange()
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateGraphic(0, 0, $width, $TitleHeight)
GUICtrlSetBkColor(-1, $BgColorTitle)
GUICtrlSetState(-1, $GUI_DISABLE)
EndFunc ;==>barchange

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

Func GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3)
$pos = WinGetPos($h_win)
$ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3)
If $ret[0] Then
$ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1)
If $ret2[0] Then
Return 1
Else
Return 0
EndIf
Else
Return 0
EndIf
EndFunc ;==>GuiRoundCorners

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

Func GUICtrlCreatePng($hWnd, $sPath, $iX, $iY, $sString = "", $sFont = "Arial", $iFontSize = 4, $FontColor = 0xFFFFFFFF) ; SEuBo
_GDIPlus_Startup()
Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend, $hGUI
Local $hImage = _GDIPlus_ImageLoadFromFile($sPath), $iWidth = _GDIPlus_ImageGetWidth($hImage), $iHeight = _GDIPlus_ImageGetHeight($hImage)
Local $hImageContext = _GDIPlus_ImageGetGraphicsContext($hImage)

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

$hFormat = _GDIPlus_StringFormatCreate()
$hFamily = _GDIPlus_FontFamilyCreate($sFont)
$hFont = _GDIPlus_FontCreate($hFamily, $iFontSize)
$hBrush = _GDIPlus_BrushCreateSolid($FontColor)
If $change = 1 Then
$hBrush1 = _GDIPlus_BrushCreateSolid($ButtColor) ; Button Color over Brush-Button - change by tv_freeze
EndIf

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

$aMeasure = _GDIPlus_GraphicsMeasureString($hImageContext, $sString, $hFont, _GDIPlus_RectFCreate(), $hFormat)
If StringLen($sString) > 10 Then
DllStructSetData($aMeasure[0], "X", 2 + $iWidth / 2 - DllStructGetData($aMeasure[0], "Width") / 2)
Else
DllStructSetData($aMeasure[0], "X", $iWidth / 2 - DllStructGetData($aMeasure[0], "Width") / 2)
EndIf
DllStructSetData($aMeasure[0], "Y", $iHeight / 2 - DllStructGetData($aMeasure[0], "Height") / 2)
If $change = 1 Then
_GDIPlus_GraphicsFillRect($hImageContext, 2, 1, $iWidth-4, $iHeight-2, $hBrush1) ; change by tv_freeze
EndIf
_GDIPlus_GraphicsDrawStringEx($hImageContext, $sString, $hFont, $aMeasure[0], $hFormat, $hBrush)

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

$hGUI = GUICreate("", $iWidth, $iHeight, $iX, $iY, 0x80000000, BitOR(0x40, 0x80000), $hWnd)
$cLabel = GUICtrlCreateLabel("", 0, 0, $iWidth, $iHeight)
GUICtrlSetBkColor(-1, -2)
GUISetState(@SW_SHOWNOACTIVATE, $hGUI)
$hScrDC = _WinAPI_GetDC(0)
$hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
$hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
$tSize = DllStructCreate("int X;int Y")
$pSize = DllStructGetPtr($tSize)
DllStructSetData($tSize, "X", $iWidth)
DllStructSetData($tSize, "Y", $iHeight)
$tSource = DllStructCreate("int X;int Y")
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate("byte Op;byte Flags;byte Alpha;byte Format")
$pBlend = DllStructGetPtr($tBlend)
DllStructSetData($tBlend, "Alpha", 255)
DllStructSetData($tBlend, "Format", 1)
_WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
_WinAPI_ReleaseDC(0, $hScrDC)
_WinAPI_SelectObject($hMemDC, $hOld)
_WinAPI_DeleteObject($hBitmap)
_WinAPI_DeleteDC($hMemDC)
GUISwitch($hWnd)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_GraphicsDispose($hImageContext)
_GDIPlus_StringFormatDispose($hFormat)
_GDIPlus_FontFamilyDispose($hFamily)
_GDIPlus_FontDispose($hFont)
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_Shutdown()
Return SetError(0, $hGUI, $cLabel)
EndFunc ;==>GUICtrlCreatePng

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

; Save last Window-Positions (Left & Top)
Func WM_MOVE($hWnd, $iMsg, $iwParam, $ilParam) ; Oscar (from CDROM-Drive-Control)
If $hWnd = $hGui Then
Local $aPos = WinGetPos($hGUI)
IniWrite($sIniFile, 'Config', 'Left', $aPos[0])
IniWrite($sIniFile, 'Config', 'Top', $aPos[1])
EndIf
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_MOVE

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

Func ShowSubFolders($Folder, $FILE)
For $Subfolder In $Folder.SubFolders
If FileExists($Subfolder.Path & "\" & $FILE) Then
$PathFound = $Subfolder.Path & "\" & $FILE
ExitLoop
EndIf
ShowSubFolders($Subfolder, $FILE)
Next
EndFunc ;==>ShowSubFolders

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

Func _ErrorInfo()
Local $info
$info = "The program " & Chr(34) & $data[$a + 1][1] & Chr(34) & " was not found..." & @CRLF
$info = $info & "Click the Button 'Settings' to change it!"
MsgBox(48, "Button" & $a - 1, StringFormat($info), 0, $hGUI)
EndFunc ;==>_ErrorInfo

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

Func Greetings()
Local $newGUI, $oIE, $GUIActiveX, $space, $new_msg, $ok, $htm, $TRANSPARENCY
For $j = 1 To 19
$space &= Chr(32) ; space
Next
$space &= 'Greetings!'
$newGUI = GUICreate($space, 180, 248, (@DesktopWidth - 180) / 2, (@DesktopHeight - 248) / 2, Default, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
$htm = GUICreate("", 180, 218, 0, 0, $WS_CHILD, $newGUI)

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

_IEErrorHandlerRegister() ; Kein COM-Fehlerhandler
$oIE = _IECreateEmbedded() ; Webbrowserobjekt
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 198, 222)
_IENavigate($oIE, @ScriptDir & '\credits.htm')

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

$winsize = WinGetPos($space)
$ok = GUICtrlCreateButton("I have read this", 48, $winsize[1] - 84, 90, 22)
GUICtrlSetState(-1, $GUI_FOCUS)
WinSetTrans($space, "", 0)
GUISetState(@SW_SHOW, $newGUI)
$TRANSPARENCY = WinGetTrans($space)
_FADE($space, "", 6, 1) ; fade the GUI in

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

While 1
$new_msg = GUIGetMsg()
Select
Case $new_msg = $GUI_EVENT_CLOSE
ExitLoop
Case $new_msg = $ok
ExitLoop
EndSelect
WEnd
_FADE($space, "", 10, 2) ; fade the GUI out
GUIDelete($htm) ; close IE-Window
GUIDelete($newGUI) ; close Credits-Window
EndFunc ;==>Greetings

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

Func Settings()
Local $set, $setpos_x, $setpos_y
$setpos_x = IniRead($sIniFile, 'Config', 'Left', '')
$setpos_y = IniRead($sIniFile, 'Config', 'Top', '')
If @DesktopHeight - $setpos_y < $setpos_y Then
$set = GUICreate($title & ' -> Settings', 200, 100, -1, $setpos_y - 120, Default, $WS_EX_TOOLWINDOW)
Else
$set = GUICreate($title & ' -> Settings', 200, 100, -1, $setpos_y + 140, Default, $WS_EX_TOOLWINDOW)
EndIf
GUISetBkColor($BgColor)

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

$ButtColor = 0xF0000FF0
$change = 1 ; new ButtonColor on
$butset1 = GUICtrlCreatePng($set, $clickbutton, 4, 28, "Button Function", $Font, $FontSize, 0xFFFFFFFF)
$ButtColor = 0xF0000000
$butset2 = GUICtrlCreatePng($set, $clickbutton, 4, 45, "Button Color", $Font, $FontSize, 0xFFFFFFFF)
$ButtColor = 0xFFFFFFFF
$butset3 = GUICtrlCreatePng($set, $clickbutton, 4, 62, "New Button", $Font, $FontSize, 0xF0000000)
$change = 0 ; new ButtonColor off

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

GUISetState(@SW_SHOW, $set)
While 1
$nMsg = GUIGetMsg()
If $nMsg = $butset1 Then ; click buttons ?
MsgBox(0,"Button Function", "Click the Button for change Function!")
changebutton()
EndIf
Switch $nMsg
Case $GUI_EVENT_CLOSE ; i remove it later
ExitLoop
EndSwitch
WEnd
GUIDelete($set) ; close Settings-Window
EndFunc ;==>Settings

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

Func changebutton()
Local $function, $aWinPos = WinGetPos("[active]")
While 1
$nMsg = GUIGetMsg()
For $a = 2 To $nr - 1
If $nMsg = $buttons[$a] Then ; click buttons ?
$function = InputBox('New Function', 'Change your Button function:', $data[$a + 1][0], '', 270, 130, $aWinPos[0] + $aWinPos[2] / 2 - 135, $aWinPos[1] + 150, 0)
; MsgBox(0,"Button Function", $data[$a + 1][0])
EndIf
Next
Switch $nMsg
Case $GUI_EVENT_CLOSE ; i remove it later
ExitLoop
EndSwitch
WEnd
EndFunc
; Funktion by alexanderschill
; $Wintitle = Fenstertitel
; $Text = Fenstertest
; $SPEED = Schnelligkeit des Fadens (1-255)
; $FADE = 1 - Fade In | 2 - Fade Out
Func _FADE($WINTITLE, $text, $SPEED, $FADE)
While $FADE = 1
WinSetTrans($WINTITLE, "", 0)
GUISetState(@SW_SHOW)
$TRANSPARENCY = 0

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

For $TRANSPARENCY = 0 To 255 Step +$SPEED
WinSetTrans($WINTITLE, $text, $TRANSPARENCY)
Sleep(10)
Next
ExitLoop
WEnd

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

While $FADE = 2
$TRANSPARENCY = 255

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

For $TRANSPARENCY = 255 To 0 Step -$SPEED
WinSetTrans($WINTITLE, $text, $TRANSPARENCY)
Sleep(10)
Next
ExitLoop
WEnd
EndFunc ;==>_FADE

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

Func WinGetTrans($WINTITLE, $text = "")
Local $hWnd = WinGetHandle($WINTITLE, $text)
If Not $hWnd Then Return -1
Local $val = DllStructCreate("int")
Local $aRet = DllCall("user32.dll", "int", "GetLayeredWindowAttributes", "hwnd", $hWnd, "ulong_ptr", 0, "int_ptr", DllStructGetPtr($val), "ulong_ptr", 0)
If @error Or Not $aRet[0] Then Return -1
Return DllStructGetData($val, 1)
EndFunc ;==>WinGetTrans

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

;--------------------------------------------------------------------------------------------------
; Funktion _RecursiveFileSearch($FILE, $SEARCHFOLDER)
;
; Beschreibung Sucht nach vorgegebener Datei in einem Ordner rekursiv
;
; Parameter $FILE: zu suchende Datei
; $SEARCHFOLDER: Ordner für Suchstart
;
; Rückgabe Erfolg: Pfad der gesuchten Datei
; @error = 0
; Fehler: 1-kein Dateiname / 2-kein Ordnername übergeben (3-beides); 4-Datei nicht vorhanden
; @error = 1
;
; Autor BugFix ([email='bugfix@autoit.de'][/email])
;--------------------------------------------------------------------------------------------------
Func _RecursiveFileSearch($FILE, $SEARCHFOLDER)
Global $PathFound = ""
Dim $Fehler = 0
If $FILE = "" Then
SetError(1)
$Fehler += 1
EndIf
If $SEARCHFOLDER = "" Then
SetError(1)
$Fehler += 2
EndIf
If @error Then Return $Fehler
If FileExists($SEARCHFOLDER & $FILE) Then
Return $SEARCHFOLDER & $FILE
EndIf
SetError(0)
$FSO = ObjCreate("Scripting.FileSystemObject")
ShowSubFolders($FSO.GetFolder($SEARCHFOLDER), $FILE)

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

If $PathFound = "" Then
SetError(1)
$Fehler = 4
Return $Fehler
Else
SetError(0)
EndIf
Return $PathFound
EndFunc ;==>_RecursiveFileSearch

[/autoit]

[autoit]

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

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

Global Const $Font = "Arial Black", $FontSize = 10, $FontColor = 0x000000, $BgColorTitle = 0xFFFFFF, $BgColor = 0x777799, $TitleHeight = 20, $DefaultCtrlHeight = 16

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

$Width = 400
$Height = 100
$Title = "ButtonControl"
$x_Button1 = 8
$y_Button1 = 30

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

$hGUI = GUICreate($Title, $Width, $Height, -1, -1, $WS_POPUP)
GUISetBkColor($BgColor)

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

$knopt1 = GUICtrLCreatePng($hGUI,@ScriptDir & "\Button.png", $x_Button1, $y_Button1)
$knopt2 = GUICtrLCreatePng($hGUI,@ScriptDir & "\Button.png", $x_Button1, $y_Button1+17)
$knopt3 = GUICtrLCreatePng($hGUI,@ScriptDir & "\Button.png", $x_Button1, $y_Button1+34)
$knopt4 = GUICtrLCreatePng($hGUI,@ScriptDir & "\Button.png", $x_Button1, $y_Button1+51)

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

$Close = GUICtrlCreatePic("close.bmp", $Width - 16, 7, 9, 9)
$Minimize = GUICtrlCreatePic("minimize.bmp", $Width - 31, 7, 9, 9)

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

GUISetFont($FontSize, 400, 0, $Font)
$TitleBar = GUICtrlCreateLabel($Title, 6, 4, $Width - 42, 17, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetColor(-1, $FontColor)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateGraphic(0, 0, $Width, $TitleHeight)
GUICtrlSetBkColor(-1, $BgColorTitle)

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

GuiRoundCorners($hGUI, 0, 0, 2, 2)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $knopt1
MsgBox(0,"","Button1 geklickt!",1)
Case $knopt2
MsgBox(0,"","Button2 geklickt!",1)
Case $knopt3
MsgBox(0,"","Button3 geklickt!",1)
Case $knopt4
MsgBox(0,"","Button4 geklickt!",1)
Case $Minimize
GUISetState(@SW_MINIMIZE)
Case $Close
ExitLoop
; Case $GUI_EVENT_CLOSE
; ExitLoop
EndSwitch
WEnd
Exit

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

Func GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3)
$pos = WinGetPos($h_win)
$ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3)
If $ret[0] Then
$ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1)
If $ret2[0] Then
Return 1
Else
Return 0
EndIf
Else
Return 0
EndIf
EndFunc ;==>GuiRoundCorners

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

Func GUICtrlCreatePng($hWnd, $sPath, $iX, $iY) ; SEuBo
_GDIPlus_Startup()
Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend, $hGUI
Local $hImage = _GDIPlus_ImageLoadFromFile($sPath), $iWidth = _GDIPlus_ImageGetWidth($hImage), $iHeight = _GDIPlus_ImageGetHeight($hImage)
$hGUI = GUICreate("", $iWidth, $iHeight, $iX, $iY, 0x80000000, BitOR(0x40, 0x80000), $hWnd)
$cLabel = GUICtrlCreateLabel("", 0, 0, $iWidth, $iHeight)
GUICtrlSetBkColor(-1, -2)
GUISetState(@SW_SHOWNOACTIVATE, $hGUI)
$hScrDC = _WinAPI_GetDC(0)
$hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
$hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
$tSize = DllStructCreate("int X;int Y")
$pSize = DllStructGetPtr($tSize)
DllStructSetData($tSize, "X", $iWidth)
DllStructSetData($tSize, "Y", $iHeight)
$tSource = DllStructCreate("int X;int Y")
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate("byte Op;byte Flags;byte Alpha;byte Format")
$pBlend = DllStructGetPtr($tBlend)
DllStructSetData($tBlend, "Alpha", 255)
DllStructSetData($tBlend, "Format", 1)
_WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
_WinAPI_ReleaseDC(0, $hScrDC)
_WinAPI_SelectObject($hMemDC, $hOld)
_WinAPI_DeleteObject($hBitmap)
_WinAPI_DeleteDC($hMemDC)
GUISwitch($hWnd)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
Return SetError(0,$hGUI,$cLabel)
EndFunc ;==>GUICtrlCreatePng

[/autoit]

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiButton.au3>

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

Opt('GUIOnEventMode', 1)
Opt("MustDeclareVars", 1) ; 0=nein, 1=erfordert Deklaration

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

Global $wGUI, $tf, $tab, $sys1, $sys2, $box, $info, $t

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

$wGUI = GUICreate("Test-GUI", 388, 500)
GUISetOnEvent($GUI_EVENT_CLOSE, 'Beenden', $wGUI)

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

$tab = GUICtrlCreateTab(5, 2, 380, 485)
$sys1 = GUICtrlCreateTabItem("Tab 1")
GUICtrlCreateGroup("Allgemein", 10, 30, 368, 443)

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

$box = GUICtrlCreateCheckbox("Test1", 68, 55, 200, 24)

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

$sys2 = GUICtrlCreateTabItem("Tab 2")
GUICtrlCreateGroup("Allgemein", 10, 30, 368, 443)
GUICtrlCreateTabItem("") ; Beendet die Tab Definition
GUICtrlSetState($sys1, $GUI_SHOW) ; erstes Tab Anzeigen
GUISetState(@SW_SHOW, $wGUI)
While 1
If $tf = 1 Then ExitLoop
Boxckeck()
WEnd
GUIDelete($wGUI)
Exit ; Programmende

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

Func Beenden()
$tf = 1
EndFunc ;==>Raus_hier

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

Func BoxCkeck()
If BitAND(GUICtrlRead($box), $GUI_CHECKED) = 1 And $t = 0 Then
GUISwitch($wGUI, $sys1) ; NEU
$info = GUICtrlCreateButton("Info", 17, 58, 47, 15)
GUICtrlSetOnEvent(-1, "Info")
GUICtrlCreateTabItem("") ; NEU gelesen, alles was danach kommt ist auf allen Tabs sichtbar !!!
$t = 1
Else
If BitAND(GUICtrlRead($box), $GUI_CHECKED) = 0 And $t = 1 Then
_GUICtrlButton_Destroy($info)
$t = 0
EndIf
EndIf
EndFunc

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

Func info()
GUICtrlSetState($box, $GUI_FOCUS)
MsgBox(0, "Info-Box", "Box 1")
EndFunc

[/autoit]

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiButton.au3>

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

Opt('GUIOnEventMode', 1)
Opt("MustDeclareVars", 1) ; 0=nein, 1=erfordert Deklaration

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

Global $wGUI, $tf, $tab, $sys1, $sys2, $box, $info, $t

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

$wGUI = GUICreate("Test-GUI", 388, 500)
GUISetOnEvent($GUI_EVENT_CLOSE, 'Beenden', $wGUI)

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

$tab = GUICtrlCreateTab(5, 2, 380, 485)
$sys1 = GUICtrlCreateTabItem("Tab 1")
GUICtrlCreateGroup("Allgemein", 10, 30, 368, 443)

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

$box = GUICtrlCreateCheckbox("Test1", 68, 55, 200, 24)

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

$sys2 = GUICtrlCreateTabItem("Tab 2")
GUICtrlCreateGroup("Allgemein", 10, 30, 368, 443)
GUICtrlCreateTabItem("") ; Beendet die Tab Definition
GUICtrlSetState($sys1, $GUI_SHOW) ; erstes Tab Anzeigen
GUISetState(@SW_SHOW, $wGUI)
While 1
If $tf = 1 Then ExitLoop
Boxckeck()
WEnd
GUIDelete($wGUI)
Exit ; Programmende

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

Func Beenden()
$tf = 1
EndFunc ;==>Raus_hier

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

Func BoxCkeck()
If BitAND(GUICtrlRead($box), $GUI_CHECKED) = 1 And $t = 0 Then
$info = GUICtrlCreateButton("Info", 17, 58, 47, 15)
GUICtrlSetOnEvent(-1, "Info")
$t = 1
Else
If BitAND(GUICtrlRead($box), $GUI_CHECKED) = 0 And $t = 1 Then
_GUICtrlButton_Destroy($info)
$t = 0
EndIf
EndIf
EndFunc

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

Func info()
GUICtrlSetState($box, $GUI_FOCUS)
MsgBox(0, "Info-Box", "Box 1")
EndFunc

[/autoit]

Code+Script+Autoit.gif
----------------------------
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.