Custom Query (3931 matches)

if path contains ( ), Run/RunWait run error.

example code like this

$nRetCode = Run(@ComSpec & " /k " & @ScriptDir & "\()\MyBatch.bat")
$nRetCode = Run(@ComSpec & " /k " & '"' & @ScriptDir & "\()\MyBatch.bat" & '"')
$nRetCode = RunWait(@ComSpec & " /k " & @ScriptDir & "\(AnyPath)\MyBatch.bat")
$nRetCode = RunWait(@ComSpec & " /k " & '"' & @ScriptDir & "\(AnyPath)\MyBatch.bat" & '"')

the above 4 statements will run error. this bug exists in AutoIT 3.2.12.1, maybe exists in AutoIT 3.3.0.0

When I run the following program, if I change the "for $k=1 to X" so "X" increases, the program takes longer and longer to start up. (Not -> it takes longer to run the program - as of course it would take longer to run the program, but BEFORE the program runs it just sits there for longer and longer. As if AutoIt was running the program completely first to see if there were any errors and THEN it runs it again. Is this normal? Because if I set "X" to 1000, it takes seemingly forever for AutoIt to actually bring up the display and run the program.)

Code:

;
;	A graphics test
;
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

	Opt('MustDeclareVars', 1)
;	AutoItSetOption( "TrayAutoPause", 0 );
;	AutoItSetOption( "WinWaitDelay", 0 );

    dim	$child = GUICreate( "My Draw", 850, 650, 20, 20 )
	dim	$gc1;
	dim	$gc2;
	dim	$gc3;
	dim $i, $j, $k, $l;
	dim $pi = 3.14159265358979;
	dim $d2r = $pi / 180;
	dim	$ir = 50;	Island Radius

    $gc2 = GUICtrlCreateLabel( "Creating", 500, 40, 300, 40, $SS_CENTER )
    GUICtrlSetColor($gc2, 0xaaaaaa)
	GUICtrlSetBkColor($gc2, $GUI_BKCOLOR_TRANSPARENT)

    $gc1 = GUICtrlCreateGraphic( 24, 24, 801, 601 )
    GUICtrlSetBkColor($gc1, 0x000033)
    GUICtrlSetColor($gc1, 0)

    GUICtrlSetColor($gc1, 0xff0000)
	GUICtrlSetGraphic( $gc1, $GUI_GR_COLOR, 0xffff00 );

	for $k=1 to 1
		dim $xc = int( random() * 300 ) + 100;
		dim $yc = int( random() * 300 ) + 100;

		for $i=($xc - 100) to ($xc + 100)
			for $j=($yc - 100) to ($yc + 100)
				dim $r = random();
				dim $ni = $i - $xc;
				dim $nj = $j - $yc;
				if( ($r * $ir) > sqrt(($ni * $ni) + ($nj * $nj)) )then
					$gc3 = GUICtrlSetGraphic( $gc1, $GUI_GR_PIXEL, $i, $j );
					endif
				next
			next
		next

	GUISetState();
	sleep( 5000 );
	exit( 0 );

I use a script from Danny35d to display office and windows serials. After updating to 3.3.0.0 the returned information is not correct anymore.

#include <Array.au3>

$HKLM = "HKEY_LOCAL_MACHINE"
If @OSArch = "X64" Then 
	$HKLM &= "64"
EndIf

$OfficeKey = _GetOfficeKey()

_ArrayDisplay($OfficeKey, 'Office Key')

$HKLM = "HKEY_LOCAL_MACHINE"
If @OSArch = "X64" Then 
	$HKLM &= "64"
EndIf

;===============================================================================
;
; Function Name:    _GetWindowsKey()
; Description:      gets the Windows DigitalProductID from the registry
; Parameter(s):     none
; Requirement(s):   none
; Return Value(s):  Returns the binary Windows DigitalProductID as stored in the registry
; Author(s):        Danny35d
;
;===============================================================================
; TBD: Error checking and SetError
Func _GetWindowsKey($sRemoteComputer = '')
    Dim $aKeys[2][5]
    
    If $sRemoteComputer <> '' Then $sRemoteComputer = '\\' & StringReplace($sRemoteComputer, '\', '') & '\'
    Local Const $sRegKey = $sRemoteComputer & $HKLM & '\SOFTWARE\Microsoft\Windows NT\CurrentVersion'
    
    $aKeys[0][0] = 1
    $aKeys[1][0] = RegRead($sRegKey, 'ProductName')
    $aKeys[1][1] = RegRead($sRegKey, 'ProductID')
    $aKeys[1][2] = _DecodeProductKey(RegRead($sRegKey, 'DigitalProductID'))
    $aKeys[1][3] = RegRead($sRegKey, 'RegisteredOwner')
    $aKeys[1][4] = RegRead($sRegKey, 'RegisteredOrganization')
    Return($aKeys)
EndFunc   ;==>_GetWindowsKey

;===============================================================================
;
; Function Name:    _GetOfficeKey()
; Description:      gets the Office DigitalProductID from the registry
; Parameter(s):     none
; Requirement(s):   none
; Return Value(s):  Returns the binary 2003 Office DigitalProductID as stored in the registry
; Author(s):        Danny35d
;
;===============================================================================
; TBD: Error checking and SetError
Func _GetOfficeKey($sRemoteComputer = '')
    Dim $aKeys[1][3]
    If $sRemoteComputer <> '' Then $sRemoteComputer = '\\' & StringReplace($sRemoteComputer, '\', '') & '\'
    Local $sRegKey1 = $sRemoteComputer & $HKLM & '\SOFTWARE\Microsoft\Office'
    Local $sRegKey2 = $sRemoteComputer & $HKLM & '\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall'
    Local $iCount1 = 1, $iCount2 = 1
    
    While 1
        $sKey1 = RegEnumKey($sRegKey1, $iCount1)
        If @error <> 0 Then ExitLoop
        While 1
            $ProductID = ''
            $ProductName = ''
            $DigitalProductID = ''
            $sKey2 = RegEnumKey($sRegKey1 & '\' & $sKey1 & '\Registration', $iCount2)
            If @error <> 0 Then ExitLoop
            $ProductID = RegRead($sRegKey1 & '\' & $sKey1 & '\Registration\' & $sKey2, 'ProductID')
            $ProductName = RegRead($sRegKey1 & '\' & $sKey1 & '\Registration\' & $sKey2, 'ProductName')
            $DigitalProductID = RegRead($sRegKey1 & '\' & $sKey1 & '\Registration\' & $sKey2, 'DigitalProductID')
			$InstallPath = StringTrimRight((RegRead ($sRegKey1 & '\' & $sKey1 & '\Common\InstallRoot', 'Path')),1)
			$ProductVersion = RegRead($sRegKey1 & '\' & $sKey1 & '\Common\Productversion', 'Lastproduct')
			$OfficeLanguage = StringRight(Hex(RegRead($sRegKey1 & '\' & $sKey1 & '\Common\LanguageResources', 'SKULanguage')),4)
			
            If $ProductName = '' Then $ProductName = RegRead($sRegKey2 & '\' & $sKey2, 'DisplayName')
            $DigitalProductID = _DecodeProductKey($DigitalProductID)
            If $DigitalProductID <> 'BBBBB-BBBBB-BBBBB-BBBBB-BBBBB' Then 
                ReDim $aKeys[UBound($aKeys) + 1][6]
                $aKeys[0][0] = UBound($aKeys) - 1
                $aKeys[UBound($aKeys) - 1][0] = $ProductName
                $aKeys[UBound($aKeys) - 1][1] = $ProductID
                $aKeys[UBound($aKeys) - 1][2] = $DigitalProductID       
				$aKeys[UBound($aKeys) - 1][3] = $InstallPath
				$aKeys[UBound($aKeys) - 1][4] =	$ProductVersion
				$aKeys[UBound($aKeys) - 1][5] = $OfficeLanguage
            EndIf
			
            $iCount2 += 1
        WEnd        
        $iCount1 += 1      
    WEnd
    Return($aKeys)
EndFunc   ;==>_GetOfficeKey

;===============================================================================
;
; Function Name:    _DecodeProductKey()
; Description:      decodes the PID to get the product key
; Parameter(s):     $BinaryDPID - the PID as stored in registry
; Requirement(s):   none
; Return Value(s):  Returns the decoded Windows/Office/Visual studio/etc. product key
; Author(s):        found this in the Forum, who made it?!
;
;===============================================================================
Func _DecodeProductKey($BinaryDPID)
    Local $bKey[15]
    Local $sKey[29]
    Local $Digits[24]
    Local $Value = 0
    Local $hi = 0
    Local $n = 0
    Local $i = 0
    Local $dlen = 29
    Local $slen = 15
    Local $Result
    
    $Digits = StringSplit("BCDFGHJKMPQRTVWXY2346789", "")
    $binaryDPID = StringMid($binaryDPID, 105, 30)
    For $i = 1 To 29 Step 2
        $bKey[Int($i / 2) ] = Dec(StringMid($binaryDPID, $i, 2))
    Next
    
    For $i = $dlen - 1 To 0 Step - 1
        If Mod(($i + 1), 6) = 0 Then
            $sKey[$i] = "-" 
        Else
            $hi = 0
            For $n = $slen - 1 To 0 Step - 1
                $Value = BitOR(BitShift($hi, -8), $bKey[$n])
                $bKey[$n] = Int($Value / 24)
                $hi = Mod($Value, 24)
            Next
            $sKey[$i] = $Digits[$hi + 1]
        EndIf      
    Next
    For $i = 0 To 28
        $Result = $Result & $sKey[$i]
    Next    
    Return $Result
EndFunc   ;==>_DecodeProductKey