Break On

Dim $SO

$SO=SetOption('Explicit','On')

$SO=SetOption('NoVarsInStrings','On')

 

Dim $RC,$CV,$WantedVal

$WantedVal='010247007200610064006500200035006300310036003900360037003000360030000000'

$CV=ReadValue('HKCU\Software\Microsoft\Internet Account Manager\Accounts\5c', 'POP3 Password2')

'Current Value is: ' + $CV ?

 

$RC=WriteValue('HKCU\Software\Microsoft\Internet Account Manager\Accounts\5c', 'POP3 Password2',$WantedVal,'REG_BINARY')

$CV=ReadValue('HKCU\Software\Microsoft\Internet Account Manager\Accounts\5c', 'POP3 Password2')

'Updated Value is: ' + $CV ?

Break On

Dim $SO

$SO=SetOption('Explicit','On')

$SO=SetOption('NoVarsInStrings','On')

$SO=SetOption('WrapAtEOL','On')

 

SetTaskManager('hide')

 

Function SetTaskManager($Flag)

Dim $Settings,$Count,$i,$x

$Flag = IIF($Flag='hide','67','47')

$Settings = ReadValue('HKCU\Software\Microsoft\Windows NT\CurrentVersion\TaskManager', 'Preferences')

Dim $Regstring[(Len($Settings)/2)-1]

For $i = 1 To Len($Settings) Step 2

  $Regstring[$Count] = SubStr($Settings,$i,2)

  $Count = $Count + 1

Next

$Regstring[652]=$Flag

$x = WriteValue('HKCU\Software\Microsoft\Windows NT\CurrentVersion\TaskManager', 'Preferences',Join($Regstring,""),'REG_BINARY')

EndFunction