RULES

• No KiXtart.org Moderators or Administrators aside from myself are allowed to post in this thread.
  
• (This is for those with less experience to learn, not for bored, experienced users to bump their post count)
  
• (If you're able to easily do this task then please don't participate with any solutions)
  
• (If the task is too easy then I'll increase the difficulty level next time)
  
• No using IM,PM or Google to locate/find an answer (you're on the honor system here).
  
• For this lesson please don't use the UDF forum. The only help you're allowed is the KiXtart User Manual
  
• All submitted code must be as though it were to be used in production. ie.. code should set options and
  have error checks as well as documentation of what the code is doing. Error checking does not need to
  be extensive but should have some basic check.
  
• Code may be submitted as soon as you're ready.
  

Windows Registry Editor Version 5.00
 
[HKEY_CURRENT_USER\Software\KiXtart-Learning]
"Round02"=hex:28,00,00,00,ff,ff,ff,ff,02,00,00,00,03,00,00,00,3c,00,00,00,50,\
  00,00,00,fe,ff,ff,ff,b2,03,00,00,02,05,00,00,02,04,00,00
 

;*************************************************************************
;  Script Name:   Learning Round 2
;  Author:        Gargoyle
;  Date:          9/25/2006
;  Description:   Change a binary string in the registry
;*************************************************************************
Dim $SO,$ValRead,$Count,$Element,$valarray[],$ValWrite

;Script Options
$SO=SETOPTION("Explicit", "ON")
$SO=SETOPTION("NoMacrosInStrings", "ON")
$SO=SETOPTION("NoVarsInStrings", "ON")
$SO=SETOPTION("WrapAtEOL", "ON")

If NOT @LOGONMODE
	     Break On
EndIf

; For use in creating an array to allow for changes to said array
$Element = 0

; Read in the Value we want to work with
$ValRead = ReadValue("HKCU\Software\KiXtart-Learning","Round02")

; Build an array with each element = to a binary group
For $Count = 1 to Len($ValRead) step 2
	     redim preserve $Valarray[$Element]
	     $ValArray[$Element] = SubStr($ValRead,$Count,2)
	     $Element = $Element + 1
Next


;Now we can change the element we want
$Valarray[2] = "bc"

;And now to put it all back together so that we can write it
For $Count = 0 to Ubound($Valarray)
	     $ValWrite = $Valwrite + $ValArray[$Count]
Next

;Finally we write it back to the registry
$SO = Writevalue("HKCU\Software\KiXtart-Learning","Round02",$ValWrite,"Reg_Binary")

?$valRead
?$ValWrite

;*************************************************************************
;  Script Name:   Learning Round 2
;  Author:        Gargoyle
;  Date:          9/25/2006
;  Description:   Change a binary string in the registry
;*************************************************************************

;Error Codes
; 0 = Change has been made
; 3 = Change String to long
; 4 = Change String not in range (0 - f)
; 5 = Unable to read Value
; 6 = Unable to write value
; 7 = Invalid Position

; Required values
;	     $Key = The Registry key to read
;	     $Entry = The Registry entry to read
;	     $Position = Which Binary position do you want to change
;	     $Changeto = The value to change to

Dim $SO

;Script Options
$SO=SETOPTION("Explicit", "ON")
$SO=SETOPTION("NoMacrosInStrings", "ON")
$SO=SETOPTION("NoVarsInStrings", "ON")
$SO=SETOPTION("WrapAtEOL", "ON")

If NOT @LOGONMODE
	     Break On
EndIf

ChangeBinary("HKCU\Software\KiXtart-Learning","Round02",3,"bc")

Function ChangeBinary($Key,$Entry,$Position,$ChangeTo)

Dim $ValRead,$Count,$Element,$valarray[],$ValWrite,$ValCheck[],$

$ValCheck = "0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f"

;Check to make sure the ChangeTo is acceptable
If Len($ChangeTo) > 2
	     Exit 3
EndIf

For $ = 1 to 2
	     If Ascan($ValCheck,SubStr($Changeto,$,1)) = -1
	     	     Exit 4
	     EndIf
Next

; For use in creating an array to allow for changes to said array
$Element = 0

; Read in the Value we want to work with
$ValRead = ReadValue($Key, $Entry3D"#000000" size=2>)

If @Error = 0

; Build an array with each element = to a binary group
	     For $Count = 1 to Len($ValRead) step 2
	     	     redim preserve $Valarray[$Element]
	     	     $ValArray[$Element] = SubStr($ValRead,$Count,2)
	     	     $Element = $Element + 1
	     Next
	     	     
;Now we can change the element we want
If $Position > Ubound($Valarray)
	     Exit 7
Else
	     $Valarray[($Position - 1)] = $ChangeTo
EndIf

;And now to put it all back together so that we can write it
	     For $Count = 0 to Ubound($Valarray)
	     	     $ValWrite = $Valwrite + $ValArray[$Count]
	     Next

;Finally we write it back to the registry
	     If Writevalue($Key,$Entry,$ValWrite,"Reg_Binary") = 0
	     
	     Else
	     	     Exit 6
	     EndIf

Else
	     Exit 5
EndIf


EndFunction
? @error

(ÿÿÿÿ&#9787;&#9829;<P_ÿÿÿ²&#9829;&#9787;&#9827;&#9787;&#9830;

Quote:

---

I love seeing these things!

By the way?

Code:

---

(ÿÿÿÿ☻♥

---

Did you sneeze on your keyboard?!?!

---

For $ = 1 to Len($round02RegValue) step 2
	$modifyValueArray[$ / 2] = SubStr($round02RegValue, $, 2)
Next

;region Setup Variables
Dim $so,$Byte_To_Be_Altered,$NewByteData,$Return

$so=SetOption("Explicit", "ON")
$so=SetOption("NoMacrosInStrings", "ON")
$so=SetOption("NoVarsInStrings", "ON")
$so=SetOption("WrapAtEOL", "ON")
;endregion

;set byte to be altered
$Byte_To_Be_Altered = 3

;set new byte data
$NewByteData = 'bc'

;call registry binary data change function
;AlterBinRegVal(< key >,< value >,< byte to be altered >,< new byte data >)
$Return = AlterBinRegVal('HKCU\Software\KiXtart-Learning','Round02',$Byte_To_Be_Altered,$NewByteData)
If Not($Return=0)
	;do somthing with error code
EndIf

Function AlterBinRegVal($Key,$Value,$Byte,$Data)
	
	;region Setup Variables
	Dim $so,$Result,$AlteredResult,$Return
	;endregion
	
	;read registry value
	$Result = ReadValue($Key,$Value)
	;check for reading error, if so exit function
	If @ERROR
		Exit @ERROR
	EndIf
	
	;create new binary value by adding:
	;'bytes Left of byte to be altered' + 'new data byte' + 'bytes Right of byte to be altered'
	$AlteredResult = Left($Result,$Byte*2-2) + $Data + Right($Result,Len($Result)-$Byte*2)
	
	;write altered value back to registry
	$Return = WriteValue($Key,$Value,$AlteredResult,'Reg_Binary')
	;check for writing error, if so exit function
	If @ERROR
		Exit @ERROR
	EndIf
	
EndFunction

If Not @LogonMode
  Break On
EndIf