Krakatoa

solution without modifying SQLite.au3 $sSQliteDll = _SQLite_Startup(@SystemDir & "\_x64\..\winsqlite3.dll")

winsqlite3.dll not user sqlite dll, but winsqlite3.dll is in Windows by default. They don't change often. winsqlite3.dll is not recommendation, but that should be choice if the programmer sees fit. What is my point? The user should be able to set the sqlite dll name without _x64 in the 64bit script with default SQLite.au3.

Yes. 32bit is c:\Windows\SysWOW64\winsqlite3.dll 64bit is c:\Windows\System32\winsqlite3.dll But default SQLite.au3 64bit winsqlite3.dll can't, only winsqlite3_x64.dll can, but it doesn't exist.

I want to use default SQLite.au3 + 64bit autoit script + default Windows c:\Windows\System32\winsqlite3.dll ... but default SQLite.au3 won't let me: If @AutoItX64 And (StringInStr($sDll_Filename, "_x64") = 0) Then $sDll_Filename = StringReplace($sDll_Filename, ".dll", "_x64.dll") I have to use modified SQLite.au3 That's why I wrote here a proposal to override SQLite.au3 to use the default SQLite.au3 to load 64bit winsqlite3.dll

But this is AutoIt Technical Discussion = This is proposal to change the default SQLite.au3 to load winsqlite3.dll

winsqlite3.dll is default Windows sqlite dll 32bit _SQLite_Startup(@SystemDir & "\winsqlite3.dll") not problem. 64bit problem, requires _x64.dll Why can't it be solved somehow by default SQLite.au3? Example: SQLite.au3 (add $add_x64): ... Func _SQLite_Startup($sDll_Filename = "", $bUTF8ErrorMsg = False, $iForceLocal = 0, $hPrintCallback = $__g_hPrintCallback_SQLite, $bAutoItTypeConversion = False, $add_x64 = True) ... If $add_x64 And @AutoItX64 And (StringInStr($sDll_Filename, "_x64") = 0) Then $sDll_Filename = StringReplace($sDll_Filename, ".dll", "_x64.dll") ... and 32bit and 64bit not problem: _SQLite_Startup(@SystemDir & "\winsqlite3.dll", False, 0, $__g_hPrintCallback_SQLite, False, False)

@LarsJ If problem CreateCoreWebView2EnvironmentWithOptions ERR then add to the autoit script: EnvSet ("WEBVIEW2_USER_DATA_FOLDER", @AppDataDir & "\WebView2") (or any other folder where the script can write)

PidGenX UDF PidGenX.au3 ; =========================================================================== ; Title: PidGenX ; AutoIt Version: 3.3.14.5 ; Author: Krakatoa ; Description: Windows and Office Pid Checker ; Parameters: ; $ProductKey Product Key ; $PKeyPath xrm-ms file path ; Return Value: ; Success: array ; [0] = ProductID ; [1] = ExtendedPID ; [2] = ActivationID ; [3] = EditionType ; [4] = EditionID ; [5] = KeyType ; [6] = EULA ; Failure: ; 1 - Error in DllStructCreate ; 2 - Error in DllCall ; 3 - Invalid Arguments ; 4 - Invalid Key ; 5 - File xrm.ms not found ; 6 - Invalid Input ; =========================================================================== Global Const $PIDGENX_PRODUCTID = 0 Global Const $PIDGENX_EXTENDEDPID = 1 Global Const $PIDGENX_ACTIVATIONID = 2 Global Const $PIDGENX_EDITIONTYPE = 3 Global Const $PIDGENX_EDITIONID = 4 Global Const $PIDGENX_KEYTYPE = 5 Global Const $PIDGENX_EULA = 6 Func _PidGenX ($ProductKey, $PKeyPath) $PID = DllStructCreate("byte[50]") If @error Then Return SetError(1, 1, "Error in DllStructCreate") DllStructSetData($PID, 1, 50, 1) $DPID = DllStructCreate("byte[164]") If @error Then Return SetError(1, 2, "Error in DllStructCreate") DllStructSetData($DPID, 1, 164, 1) $DPID4 = DllStructCreate("byte[1272]") If @error Then Return SetError(1, 3, "Error in DllStructCreate") DllStructSetData($DPID4, 1, 248, 1) DllStructSetData($DPID4, 1, 4, 2) $result = DllCall("PidGenX.dll", "int", "PidGenX", _ "wstr", $ProductKey, _ "wstr", $PKeyPath, _ "wstr", "00000", _ "int", 0, _ "INT_PTR", DllStructGetPtr($PID), _ "INT_PTR", DllStructGetPtr($DPID), _ "INT_PTR", DllStructGetPtr($DPID4)) If @error Then Return SetError(2, 0, "Error in DllCall") If $result[0] = 0 Then Local $PidGenX[7] $PidGenX[0] = StringStripWS(BinaryToString(DllStructGetData($PID, 1), 2),15) $dpid4Result = DllStructGetData($DPID4, 1) $PidGenX[1] = StringStripWS(BinaryToString(BinaryMid($dpid4Result, 9, 128), 2),15) $PidGenX[2] = StringStripWS(BinaryToString(BinaryMid($dpid4Result, 137, 128), 2),15) $PidGenX[3] = StringStripWS(BinaryToString(BinaryMid($dpid4Result, 281, 512), 2),15) $PidGenX[4] = StringStripWS(BinaryToString(BinaryMid($dpid4Result, 889, 128), 2),15) $PidGenX[5] = StringStripWS(BinaryToString(BinaryMid($dpid4Result, 1017, 128), 2),15) $PidGenX[6] = StringStripWS(BinaryToString(BinaryMid($dpid4Result, 1145, 128), 2),15) Return $PidGenX Else If($result[0] == -2147024809) Then Return SetError(3, 0, "Invalid Arguments") ElseIf($result[0] == -1979645695) Then Return SetError(4, 0, "Invalid Key") ElseIf($result[0] == -2147024894) Then Return SetError(5, 0, "File xrm.ms not found") Else Return SetError(6, 0, "Invalid Input") EndIf EndIf EndFunc Example PidChecker PidChecker.au3 #include "PidGenX.au3" Opt("TrayIconHide", 1) $hGUI = GUICreate("PidChecker", 540, 340) GUICtrlCreateGroup("xrm-ms file path", 10, 10, 420, 55) $idComboBox = GUICtrlCreateCombo("C:\Windows\System32\spp\tokens\pkeyconfig\pkeyconfig.xrm-ms", 20, 30, 400, 20) GUICtrlSetData($idComboBox, _ "C:\Windows\System32\spp\tokens\pkeyconfig\pkeyconfig-downlevel.xrm-ms" & _ "|" & "C:\Windows\System32\spp\tokens\pkeyconfig\pkeyconfig-csvlk.xrm-ms" & _ "|" & @ScriptDir & "\xrm-ms\win81_pkeyconfig.xrm-ms" & _ "|" & @ScriptDir & "\xrm-ms\win7_pkeyconfig.xrm-ms" & _ "|C:\Program Files\Microsoft Office\root\Office16\pkeyconfig-office.xrm-ms" & _ "|C:\Program Files\Microsoft Office\root\Office15\pkeyconfig-office.xrm-ms") GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlCreateGroup("Product Key", 10, 75, 420, 55) $Input = GUICtrlCreateInput("", 20, 95, 260, 20) $idCheck = GUICtrlCreateButton("CHECK", 320, 90, 85, 30) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlCreateGroup("Output Data", 10, 140, 520, 185) $info = GUICtrlCreateEdit( "", 20, 160, 500, 150, 2048) GUICtrlSetFont($info, 9, 0, 0, "Consolas") GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW, $hGUI) While 1 Switch GUIGetMsg() Case -3 ExitLoop Case $idCheck $aPidGenX = _PidGenX (GUICtrlRead($Input), GUICtrlRead($idComboBox)) If @error Then $Output = _ "Product Key: " & GUICtrlRead($Input) & @CRLF & _ "Error: " & $aPidGenX GUICtrlSetData($info, $Output) Else $Output = _ "Product Key: " & GUICtrlRead($Input) & @CRLF & _ "Key Status: " & "Valid" & @CRLF & _ "Product ID: " & $aPidGenX[$PIDGENX_PRODUCTID] & @CRLF & _ "Extended PID: " & $aPidGenX[$PIDGENX_EXTENDEDPID] & @CRLF & _ "Activation ID: " & $aPidGenX[$PIDGENX_ACTIVATIONID] & @CRLF & _ "Edition Type: " & $aPidGenX[$PIDGENX_EDITIONTYPE] & @CRLF & _ "Edition ID: " & $aPidGenX[$PIDGENX_EDITIONID] & @CRLF & _ "Key Type: " & $aPidGenX[$PIDGENX_KEYTYPE] & @CRLF & _ "EULA: " & $aPidGenX[$PIDGENX_EULA] GUICtrlSetData($info, $Output) GUICtrlSetState ($info, 256) EndIf EndSwitch WEnd GUIDelete($hGUI) Info for example PidChecker: Windows 10 installed (C:\Windows\System32\spp\tokens\pkeyconfig\pkeyconfig.xrm-ms = Windows 10 xrm-ms file) Office 2016/2019 installed (C:\Program Files\Microsoft Office\root\Office16\pkeyconfig-office.xrm-ms = Office 2016/2019 xrm-ms file) Office 2016/2019 installed (C:\Program Files\Microsoft Office\root\Office15\pkeyconfig-office.xrm-ms = Office 2013 xrm-ms file) "\xrm-ms\win81_pkeyconfig.xrm-ms" from Windows 8.1 iso "\xrm-ms\win7_pkeyconfig.xrm-ms" from Windows 7 iso Screen:

MediaInfo Au MediaInfo Au is MediaInfo Lite in Autoit. +basic and full info+drag and dropsource code: #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=icon.ico #AutoIt3Wrapper_Res_Comment=MediaInfo #AutoIt3Wrapper_Res_Description=MediaInfoAu #AutoIt3Wrapper_Res_Fileversion=2015.12.18.1 #AutoIt3Wrapper_Res_Language=1033 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <Array.au3> #include <FontConstants.au3> $sFileVersion = FileGetVersion("MediaInfo.dll") GUICreate("MediaInfo " & $sFileVersion, 600, 600, -1, -1, $WS_SIZEBOX, $WS_EX_ACCEPTFILES) If $CmdLine[0] > 0 Then $_file = $CmdLine[1] Else $_file = "" EndIf Local $info = GUICtrlCreateEdit( "", 0, 0, 598, 575, $ES_AUTOVSCROLL + $WS_VSCROLL + $ES_READONLY) If $_file <> "" Then $data = _ArrayToString(_MediaInfodll($_file, ""), @CRLF) GUICtrlSetData($info, $data) EndIf GUICtrlSetState(-1, $GUI_DROPACCEPTED) GUICtrlSetFont($info, 9, $FW_DONTCARE, $GUI_FONTNORMAL, "Consolas") GUICtrlSetState ( $info, $GUI_FOCUS ) Local $idContextmenu = GUICtrlCreateContextMenu() Local $idOpen = GUICtrlCreateMenuItem("Otevřít", $idContextmenu) GUICtrlCreateMenuItem("", $idContextmenu) ; separator Local $idMenuLite = GUICtrlCreateMenuItem("Základní výpis", $idContextmenu) Local $idMenuFull = GUICtrlCreateMenuItem("Kompletní výpis", $idContextmenu) Local $idSave = GUICtrlCreateMenuItem("Uložit výpis", $idContextmenu) GUICtrlCreateMenuItem("", $idContextmenu) ; separator Local $idMenuInfo = GUICtrlCreateMenuItem("O programu", $idContextmenu) GUISetState(@SW_SHOW) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop Case $idMenuFull $data = _ArrayToString(_MediaInfodll($_file, "1"), @CRLF) GUICtrlSetData($info, $data) Case $idMenuLite $data = _ArrayToString(_MediaInfodll($_file, ""), @CRLF) GUICtrlSetData($info, $data) Case $idMenuInfo MsgBox(0, " O programu MediaInfoKK", "Vytvořil Krakatoa" & @CRLF & "http://krakatoa.www3.cz/") Case $GUI_EVENT_DROPPED If @GUI_DropId = $info Then $_file = @GUI_DragFile $data = _ArrayToString(_MediaInfodll($_file, ""), @CRLF) GUICtrlSetData($info, $data) EndIf Case $idOpen $_file_tmp = FileOpenDialog("Otevřít", @HomeDrive, "Vše (*.*)") If not @error Then $_file = $_file_tmp $data = _ArrayToString(_MediaInfodll($_file, ""), @CRLF) GUICtrlSetData($info, $data) EndIf Case $idSave $sFilePath = FileSaveDialog("Uložit", @HomeDrive, "Log (*.txt)", "log") If not @error Then Local $hFileOpen = FileOpen($sFilePath, 2) If not @error Then FileWrite($hFileOpen, $data) EndIf EndSwitch WEnd Func _MediaInfodll ( $_file, $complete ) $_Dll = DllOpen ( "MediaInfo.dll" ) $_Handle = DllCall ( $_Dll, "ptr", "MediaInfo_New" ) DllCall ( $_Dll, "int", "MediaInfo_Open", "ptr", $_Handle[0], "wstr", $_file ) DllCall ( $_Dll, "wstr", "MediaInfo_Option", "ptr", 0, "wstr", "Complete", "wstr", $complete ) $_Inform = DllCall ( $_Dll, "wstr", "MediaInfo_Inform", "ptr", $_Handle[0], "int", 0 ) DllClose ( $_Dll ) $_Return = StringSplit ( $_Inform[0], @lf ) If Not @error Then Return $_Return Else Return 0 EndIf EndFuncsetup source code (inno setup): [Setup] AppName=MediaInfo AppVersion=2015.12.18.01 DefaultDirName={pf}\MediaInfo DefaultGroupName=MediaInfo UninstallDisplayIcon={pf}\MediaInfo\MediaInfo.exe SolidCompression=yes ; Pouze 64bit: ; ArchitecturesInstallIn64BitMode=x64 [Files] Source: "{app}\MediaInfo.exe"; DestDir: "{app}" Source: "{app}\MediaInfo.dll"; DestDir: "{app}" [Registry] Root: HKCR; Subkey: "*\shell\MediaInfo"; Flags: uninsdeletekey Root: HKCR; Subkey: "*\shell\MediaInfo"; ValueType: string; ValueName: "Icon"; ValueData: "{app}\MediaInfo.exe" Root: HKCR; Subkey: "*\shell\MediaInfo\Command"; ValueType: string; ValueData: """{app}\MediaInfo.exe"" ""%1""" [UninstallDelete] Type: filesandordirs; Name: "{app}" [Icons] Name: "{group}\MediaInfo"; Filename: "{app}\MediaInfo.exe" [Languages] Name: "czech"; MessagesFile: "compiler:Languages\Czech.isl";Info, source code, binary and screen: http://krakatoa.www3.cz/mediainfo-au.php

Example valid code without language: #include <Array.au3> $_InfoArray = _GetInfoArrayByMediaInfodll ( 'd:\autoit\mediainfo\video.mp4' ) _ArrayDisplay ( $_InfoArray ) Func _GetInfoArrayByMediaInfodll ( $_MediaFilePath ) $_Dll = DllOpen ( "MediaInfo.dll" ) $_Handle = DllCall ( $_Dll, "ptr", "MediaInfo_New" ) DllCall ( $_Dll, "int", "MediaInfo_Open", "ptr", $_Handle[0], "wstr", $_MediaFilePath ) DllCall ( $_Dll, "wstr", "MediaInfo_Option", "ptr", 0, "wstr", "Complete", "wstr", "" ) $_Inform = DllCall ( $_Dll, "wstr", "MediaInfo_Inform", "ptr", $_Handle[0], "int", 0 ) DllClose ( $_Dll ) $_Return = StringSplit ( $_Inform[0], @lf ) If Not @error Then Return $_Return Else Return 0 EndIf EndFunc ;==> _GetInfoArrayByMediaInfodll ( ) Example language string: General;Hlavní Duration;TrváníOficial info: https://mediaarea.net/en/MediaInfo/Support/SDK/Doxygen/class_media_info_lib_1_1_media_info.html#a75fb33d32e1ab5ab87688e3be5598114 https://mediaarea.net/en/MediaInfo/Support/SDK/Quick_Start#Language Please, how set the language (example string or svc file) of the library mediainfo?

Thanks Jos. Read changes and use $FO_ANSI and no problem.

Why open file in Autoit 3.3.12.0 as string (OK) and why open file in Autoit 3.3.14.0 and 3.3.15.0 as hex (?) (KO). Help. Thanks. $hFile = FileOpen("vs2015.com_enu.iso.torrent") $sFileRead = FileRead($hFile) $aArray = StringRegExp($sFileRead, '(^)d8:announce(.*?):http://', 1) $temp = StringMid($sFileRead, 15, $aArray[1]) MsgBox (0, "", $temp)Torrent files are different charset (UTF8, UTF8 with bom, ASCII...) Torrent file: vs2015.com_enu.iso.torrent

BrewManNH, wraithdu: Thanks help. Replace type and 64bit 3.3.12.0 no error 6. Valid code (_StartService, _StopService, _ServiceRunning)(ControlService not struct but str (str no problem)). ;=============================================================================== ; Description: Starts a service ; Parameters: $sServiceName - name of the service to start ; Requirements: None ; Return Values: On Success - 1 ; On Failure - 0 and @error is set to extended Windows error code ; Note: This function does not check to see if the service has started successfully ;=============================================================================== Func _StartService($sServiceName) Local $hAdvapi32 Local $hKernel32 Local $arRet Local $hSC Local $hService Local $lError = -1 $hAdvapi32 = DllOpen("advapi32.dll") If $hAdvapi32 = -1 Then Return 0 $hKernel32 = DllOpen("kernel32.dll") If $hKernel32 = -1 Then Return 0 $arRet = DllCall($hAdvapi32, "handle", "OpenSCManagerA", _ "str", "", _ "str", "ServicesActive", _ "dword", 0x0001) If $arRet[0] = 0 Then $arRet = DllCall($hKernel32, "dword", "GetLastError") $lError = $arRet[0] Else $hSC = $arRet[0] $arRet = DllCall($hAdvapi32, "handle", "OpenServiceA", _ "handle", $hSC, _ "str", $sServiceName, _ "dword", 0x0010) If $arRet[0] = 0 Then $arRet = DllCall($hKernel32, "dword", "GetLastError") $lError = $arRet[0] Else $hService = $arRet[0] $arRet = DllCall($hAdvapi32, "bool", "StartServiceA", _ "handle", $hService, _ "dword", 0x0000, _ "str", "") If $arRet[0] = 0 Then $arRet = DllCall($hKernel32, "dword", "GetLastError") $lError = $arRet[0] EndIf DllCall($hAdvapi32, "bool", "CloseServiceHandle", "handle", $hService) EndIf DllCall($hAdvapi32, "bool", "CloseServiceHandle", "handle", $hSC) EndIf DllClose($hAdvapi32) DllClose($hKernel32) If $lError <> -1 Then SetError($lError) Return 0 EndIf Return 1 EndFunc ;=============================================================================== ; Description: Stops a service ; Parameters: $sServiceName - name of the service to stop ; Requirements: None ; Return Values: On Success - 1 ; On Failure - 0 and @error is set to extended Windows error code ; Note: This function does not check to see if the service has stopped successfully ;=============================================================================== Func _StopService($sServiceName) Local $hAdvapi32 Local $hKernel32 Local $arRet Local $hSC Local $hService Local $lError = -1 $hAdvapi32 = DllOpen("advapi32.dll") If $hAdvapi32 = -1 Then Return 0 $hKernel32 = DllOpen("kernel32.dll") If $hKernel32 = -1 Then Return 0 $arRet = DllCall($hAdvapi32, "handle", "OpenSCManagerA", _ "str", "", _ "str", "ServicesActive", _ "dword", 0x0001) If $arRet[0] = 0 Then $arRet = DllCall($hKernel32, "dword", "GetLastError") $lError = $arRet[0] Else $hSC = $arRet[0] $arRet = DllCall($hAdvapi32, "handle", "OpenServiceA", _ "handle", $hSC, _ "str", $sServiceName, _ "dword", 0x0020) If $arRet[0] = 0 Then $arRet = DllCall($hKernel32, "dword", "GetLastError") $lError = $arRet[0] Else $hService = $arRet[0] $arRet = DllCall($hAdvapi32, "bool", "ControlService", _ "handle", $hService, _ "dword", 0x00000001, _ "str", "") If $arRet[0] = 0 Then $arRet = DllCall($hKernel32, "dword", "GetLastError") $lError = $arRet[0] EndIf DllCall($hAdvapi32, "bool", "CloseServiceHandle", "handle", $hService) EndIf DllCall($hAdvapi32, "bool", "CloseServiceHandle", "handle", $hSC) EndIf DllClose($hAdvapi32) DllClose($hKernel32) If $lError <> -1 Then SetError($lError) Return 0 EndIf Return 1 EndFunc ;=============================================================================== ; Description: Checks if a service is running ; Parameters: $sServiceName - name of the service to check ; Requirements: None ; Return Values: On Success - 1 ; On Failure - 0 ; Note: This function relies on the fact that only a running service responds ; to a SERVICE_CONTROL_INTERROGATE control code. Check the ControlService ; page on MSDN for limitations with using this method. ;=============================================================================== Func _ServiceRunning($sServiceName) Local $hAdvapi32 Local $arRet Local $hSC Local $hService Local $bRunning = 0 $hAdvapi32 = DllOpen("advapi32.dll") If $hAdvapi32 = -1 Then Return 0 $arRet = DllCall($hAdvapi32, "handle", "OpenSCManagerA", _ "str", "", _ "str", "ServicesActive", _ "dword", 0x0001) If $arRet[0] <> 0 Then $hSC = $arRet[0] $arRet = DllCall($hAdvapi32, "handle", "OpenServiceA", _ "handle", $hSC, _ "str", $sServiceName, _ "dword", 0x0080) If $arRet[0] <> 0 Then $hService = $arRet[0] $arRet = DllCall($hAdvapi32, "bool", "ControlService", _ "handle", $hService, _ "dword", 0x00000004, _ "str", "") $bRunning = $arRet[0] DllCall($hAdvapi32, "bool", "CloseServiceHandle", "handle", $hService) EndIf DllCall($hAdvapi32, "bool", "CloseServiceHandle", "handle", $hSC) EndIf DllClose($hAdvapi32) Return $bRunning EndFunc

wraithdu: Added "A" as ANSI. Added handle and dword. Same always: 32bit and 64bit 3.3.8.1 and 32bit 3.3.10.2 and 32bit 3.3.12.0 OK 64bit 3.3.10.2 and 64bit 3.3.12.0 error 6 OpenService. 64bit 3.3.8.1 OK + 64bit 3.3.10.2 and 64bit 3.3.12.0 error 6 OpenService -> 64bit 3.3.10.2 and 64bit 3.3.12.0 bug. Func _StartService($sServiceName) Local $hAdvapi32 Local $hKernel32 Local $arRet Local $hSC Local $hService Local $lError = -1 $hAdvapi32 = DllOpen("advapi32.dll") If $hAdvapi32 = -1 Then Return 0 $hKernel32 = DllOpen("kernel32.dll") If $hKernel32 = -1 Then Return 0 $arRet = DllCall($hAdvapi32, "long", "OpenSCManagerA", _ "str", "", _ "str", "ServicesActive", _ "dword", 0x0001) If $arRet[0] = 0 Then $arRet = DllCall($hKernel32, "long", "GetLastError") $lError = $arRet[0] MsgBox (0,"error1", $lError) Else $hSC = $arRet[0] MsgBox (0,"$hSC", $hSC) $arRet = DllCall($hAdvapi32, "long", "OpenServiceA", _ "handle", $hSC, _ "str", $sServiceName, _ "dword", 0x0010) If $arRet[0] = 0 Then $arRet = DllCall($hKernel32, "long", "GetLastError") $lError = $arRet[0] MsgBox (0,"error2", $lError) Else $hService = $arRet[0] $arRet = DllCall($hAdvapi32, "int", "StartServiceA", _ "long", $hService, _ "long", 0, _ "str", "") If $arRet[0] = 0 Then $arRet = DllCall($hKernel32, "long", "GetLastError") $lError = $arRet[0] MsgBox (0,"error3", $lError) EndIf DllCall($hAdvapi32, "int", "CloseServiceHandle", "long", $hService) EndIf DllCall($hAdvapi32, "int", "CloseServiceHandle", "long", $hSC) EndIf DllClose($hAdvapi32) DllClose($hKernel32) If $lError <> -1 Then MsgBox (0,"error", $lError) SetError($lError) Return 0 EndIf Return 1 EndFunc

Grrr. No old script! 3.3.8.1 = 16-Nov-2012 win 8.1, advapi32.dll, OpenService OpenService is normal function in Win 8.1 advapi32.dll, no old! Compile 32bit autoit script with service function with autoit version 3.3.8.1 = no bug! Advapi32.dll + OpenService = no error 6 Compile 64bit autoit script with service function with autoit version 3.3.8.1 = no bug! Advapi32.dll + OpenService = no error 6 Compile 32bit autoit script with service function with autoit version 3.3.10.2 and 3.3.12.0 = no bug! Advapi32.dll + OpenService = no error 6 Compile 64bit autoit script with service function with autoit version 3.3.10.2 and 3.3.12.0 = bug! Advapi32.dll + OpenService = error 6! Autoit (3.3.10.2 and 3.3.12.0) compile 64bit exe with bug!

New autoit script compile 64bit + service function = error 6 '?do=embed' frameborder='0' data-embedContent>> OK is: 1) old 64bit (and 32bit) autoit 2) new 32bit autoit compile script 64bit 3.3.10.2 and new autoit script compile bug version? Why no repair? :-(

Old version is 3.3.8.1 Version 3.3.8.1 is stable version for decenber 2013 and old (for BrewManNH). Script OK, autoit: 32bit 3.3.8.1, 64bit 3.3.8.1, 32bit 3.3.10.2 Script KO, autoit: 64bit 3.3.10.2 ... no start service 64bit 3.3.10.2 autoit bug version? Why no function script in autoit 64bit 3.3.10.2?

OK. How start service in autoit version v3.3.10.2 64bit with ServiceControl.au3?

ServiceControl.au3 '?do=embed' frameborder='0' data-embedContent>> Script: #RequireAdmin #include <ServiceControl.au3> _StartService("", "Apache") Old version autoit: 32bit OK, 64bit OK New version autoit: 32bit OK, 64bit KO Why no function script in autoit v3.3.10.2 64bit? Thanks

WinDSFilterManager alpha, no all code created, code no optimized compile: 32bit (compile 64bit no function OK) OS: only 64bit Win7 and Win8 support (32bit OS = clean source code) 1) view preferred DirectShow splitter (32bit and 64bit), table: kontejner, splitter, ID Splitter 2) view preferred DirectShow filter (32bit and 64bit), table: format, id format, filter, id filter 3) view all DirectShow filter, DMO decoder audio and video filter, table: filtr, filtr id, type 4) modify preferred DirectShow splitter (32bit), all modify preffered no create now 5) log file create (txt): 1) and 2) and 3) and filter merit, filter file and filter support format (input and output) No support all name for audio and video ID now. Modify preferred DirectShow splitter (32bit) - GUICtrlCreateCombo ... all DS filter and Generate Still Video = no splitter only Example: modify preferred DirectShow splitter (32bit): Create and modify: Kontejner: .avi Splitter: LAV Splitter Source and click "Proveď" Delete: Kontejner: .avi Splitter: ---Smazat hodnotu v registru--- and click "Proveď" WinDSFilterManager: Download (version 23.1.2013) au3, ico and example log file: WinDSFilterManager.au3 video.ico log.txt Download (version 23.1.2013) au3, ico, compiled exe and example log file: WinDSFilterManager.7z

:-) No Problem: ... $GUICreate = GUICreate ("Example2", 300, 150) ... GUIDelete ($GUICreate) ...

Problem with close three opening windows Open window example1 ... open window example2 ... close (storno) example2 ... close (storno) example1 = OK Open window example1 ... open window example2 ... open window example3 ... close (storno) example3 (no problem) ... close (storno) example2 = PROBLEM ... close example2 no close :_-( Please, Help! No problem with: Open window example1 ... open window example2 ... open window example3 ... close (storno) example3 ... close (storno) example2 ... close (storno) example1 problem script: #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Opt('MustDeclareVars', 1) Example1() Func Example1() Local $button01, $button02, $msg GUICreate("Example1", 300, 150) $button01 = GUICtrlCreateButton("New", 50, 70, 50, 20) $button02 = GUICtrlCreateButton("Storno", 200, 70, 50, 20) GUISetState() While 1 $msg = GUIGetMsg() If $msg = $button01 Then Example2() If $msg = $button02 Then ExitLoop If $msg = $GUI_EVENT_CLOSE Then ExitLoop WEnd GUIDelete() EndFunc Func Example2() Local $button01, $button02, $msg GUICreate("Example2", 300, 150) $button01 = GUICtrlCreateButton("New", 50, 70, 50, 20) $button02 = GUICtrlCreateButton("Storno", 200, 70, 50, 20) GUISetState() While 1 $msg = GUIGetMsg() If $msg = $button01 Then Example3() If $msg = $button02 Then ExitLoop If $msg = $GUI_EVENT_CLOSE Then ExitLoop WEnd GUIDelete() EndFunc Func Example3() GUICreate("Example3", 300, 150) Local $button02, $msg $button02 = GUICtrlCreateButton("Storno", 200, 70, 50, 20) GUISetState() While 1 $msg = GUIGetMsg() If $msg = $button02 Then ExitLoop If $msg = $GUI_EVENT_CLOSE Then ExitLoop WEnd GUIDelete() EndFunc Thanks, help.