#50792 - 2000-07-29 05:46 AM
KIXTART-TOOL: stripping kix code/reformatting kix code
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
Dear,Another program we are referencing a time ago is finished for publishing. Goal: make source code difficult to debug/make source code easilier to read Available at site http://home.wanadoo.nl/scripting programname kixstrip.exe. It will do two things:
- strip your kixtart source code by removing comments, empty lines,
spaces & tabs at the beginning of a line. after this operation it will
combine the statements to one line and place label-statements
on separates lines.
for you as user it is possible to add a license agreement to it.
possible syntax warnings are added at the end as comment. during
the analyze it check the block-structures.
- reformatting your kixtart source code by inserting spaces by
changing the block-structure. so it is easilier to read an unfor-
matted source code.
in this case is check also the block structure.
remark: it is important you respect the syntax of the manual.
it is the same requirement for kixref.exe.
The help information of the program is: kixstrip ?
code:
Kixstrip 3.62 (vs 1.35e) MCA - scripting@wanadoo.nl - 2000
------------------------------------------------------------------------------
kixstrip [input] [output] /Block_Check or /BC
/Combine
/License
/License=[var]
/NoCombine or /NC
/NoLicense
/NoPrint
/Print
/TAB=[num] (default: 2)
? default: /Combine /License /NoPrint
other: /Block_Check /Tab=2 (auto set: /NoCombine /NoLicense /Print)
/Print (don't remove print statements )
input to file "kix-info.kix"
output to file "kix-info.out"
Example of input: code:
IF setconsole("hide")
ENDIF
;
; NT/95 cleanup - Kixtart 3.62
;
; (c) scripting@wanadoo.nl - 2000
;
; vs 1.00 - program (cleanup recent list, set HKCR keys, set BOOT.INI, set TaskMgr)
;
; 1.00 (20000715) original version
;
$prgrm_version="1.00"
;
$debug_mode="no" ; - yes/no -
IF (@inwin = 1)
$NT_mode="yes"
ELSE
$NT_mode="no"
ENDIF
;
break off
flushkb $info="" ; --------------------------------------------------------------------------
; - taskmgr settings. all counters -
; -------------------------------------------------------------------------- $ikey="HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\TaskManager"
IF (ExistKey($ikey) = 0)
$ikey_ex="preferences"
$taskmgr_prefs= "ac000000a00f00000200000001000000020000000000000020"
$taskmgr_prefs=$taskmgr_prefs+"000000de030000d70200000200000000000000010000000200"
$taskmgr_prefs=$taskmgr_prefs+"00000300000004000000050000000600000007000000080000"
$taskmgr_prefs=$taskmgr_prefs+"00090000000a0000000b0000000c0000000d000000ffffffff"
$taskmgr_prefs=$taskmgr_prefs+"6b000000320000002300000046000000460000004600000046"
$taskmgr_prefs=$taskmgr_prefs+"000000460000004600000046000000460000003c0000003c00"
$taskmgr_prefs=$taskmgr_prefs+"00003c000000460000004b0000000000000000000000"
IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
$result_data_type=ReadType($ikey, $ikey_ex)
ELSE
$result_data_type="REG_BINARY"
ENDIF
IF (ReadValue($ikey, $ikey_ex) <> $taskmgr_prefs)
IF (writevalue($ikey, $ikey_ex, $taskmgr_prefs, $result_data_type) <> 0)
IF (writevalue($ikey, $ikey_ex, $taskmgr_prefs, "REG_BINARY") <> 0)
ENDIF
ENDIF
$info=$info+" taskmgr."+$ikey_ex
IF ($debug_mode = "yes")
? " taskmgr.["+$ikey_ex+"]="+$ivalue
ENDIF
ENDIF
ENDIF ; --------------------------------------------------------------------------
; - update BOOT.INI timer -
; -------------------------------------------------------------------------- IF ($NT_mode = "yes")
$filename="c:\boot.ini" ; - NT boot menu -
$file_attr=getfileattr($filename)
IF setfileattr($filename, 128)
ENDIF
IF (readprofilestring($filename, "boot loader", "timeout") <> "1")
IF (writeprofilestring($filename, "boot loader", "timeout", "1") = 0)
$info=$info+" boot.timeout=1"
IF ($debug_mode = "yes")
? " "+$filename+" (attr: "+$file_attr+") -> [boot loader] timeout=1"
ENDIF
ENDIF
ENDIF
IF setfileattr($filename, $file_attr)
ENDIF
ENDIF ; --------------------------------------------------------------------------
; - add "Quickview with Notepad" to menu, when no file association exist -
; -------------------------------------------------------------------------- ; - enabling 'quickview with notepad' -
IF (ExistKey("HKEY_CLASSES_ROOT\unknown") = 0)
$result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell")
$result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell\open")
$result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell\open\command")
ENDIF
;
$ikey="HKEY_CLASSES_ROOT\unknown\Shell\open"
$ikey_ex=ENUMVALUE($ikey, 0)
$default_notepad="Quickview with Notepad"
IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
$result_data_type=ReadType($ikey, $ikey_ex)
ELSE
$result_data_type="REG_SZ"
ENDIF
IF (writevalue($ikey, $ikey_ex, $default_notepad, $result_data_type) = 0)
IF (writevalue($ikey, $ikey_ex, $default_notepad, "REG_SZ") = 0)
ENDIF
ENDIF
;
$ikey="HKEY_CLASSES_ROOT\unknown\Shell\open\command"
$ikey_ex=ENUMVALUE($ikey, 0)
$default_notepad_exe="notepad.exe %1"
IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
$result_data_type=ReadType($ikey, $ikey_ex)
ELSE
$result_data_type="REG_SZ"
ENDIF
IF (writevalue($ikey, $ikey_ex, $default_notepad_exe, $result_data_type) = 0)
IF (writevalue($ikey, $ikey_ex, $default_notepad_exe, "REG_SZ") = 0)
ENDIF
ENDIF ; --------------------------------------------------------------------------
; - change "regfile" + "vbsfile" to edit mode -
; -------------------------------------------------------------------------- $ikey="HKEY_CLASSES_ROOT\regfile\shell"
$ikey_ex=ENUMVALUE($ikey, 0)
$default_key="edit"
IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
$result_data_type=ReadType($ikey, $ikey_ex)
ELSE
$result_data_type="REG_SZ"
ENDIF
IF (ReadValue($ikey, $ikey_ex) <> $default_key)
IF (writevalue($ikey, $ikey_ex, $default_key, $result_data_type) = 0)
IF (writevalue($ikey, $ikey_ex, $default_key, "REG_SZ") = 0)
ENDIF
ENDIF
$info=$info+" "+$ikey+"="+$default_key
ENDIF
;
$ikey="HKEY_CLASSES_ROOT\vbsfile\shell"
$ikey_ex=ENUMVALUE($ikey, 0)
$default_key="edit"
IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
$result_data_type=ReadType($ikey, $ikey_ex)
ELSE
$result_data_type="REG_SZ"
ENDIF
IF (ReadValue($ikey, $ikey_ex) <> $default_key)
IF (writevalue($ikey, $ikey_ex, $default_key, $result_data_type) = 0)
IF (writevalue($ikey, $ikey_ex, $default_key, "REG_SZ") = 0)
ENDIF
ENDIF
$info=$info+" "+$ikey+"="+$default_key
ENDIF ; --------------------------------------------------------------------------
; - cleanup 'recent list' -
; -------------------------------------------------------------------------- $max_ikeys=23
DIM $ikeys[$max_ikeys+1]
$ikeys[01]="HKEY_CURRENT_USER\Software\Binary Research Ltd\Ghost Explorer\Recent File List"
$ikeys[02]="HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs"
$ikeys[03]="HKEY_CURRENT_USER\Software\Microsoft\Microsoft Management Console\Recent File List"
$ikeys[04]="HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Excel\Recent File List"
$ikeys[05]="HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\MS Project\Recent File List"
$ikeys[06]="HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\PowerPoint\Recent File List"
$ikeys[07]="HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Excel\Recent File List"
$ikeys[08]="HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\MS Project\Recent File List"
$ikeys[09]="HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\PowerPoint\Recent File List"
$ikeys[10]="HKEY_CURRENT_USER\Software\Microsoft\Outlook Express\Recent Stationery List"
$ikeys[11]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Paint\Recent File List"
$ikeys[12]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\WordPad\Recent File List"
$ikeys[13]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\DesktopStreamMRU"
$ikeys[14]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Doc Find Spec MRU"
$ikeys[15]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FindComputerMRU"
$ikeys[16]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\PrnPortsMRU"
$ikeys[17]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RecentDocs"
$ikeys[18]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU"
$ikeys[19]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\StreamMRU"
$ikeys[20]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\Preload"
$ikeys[21]="HKEY_CURRENT_USER\Software\Netscape\Netscape Navigator\URL History"
$ikeys[22]="HKEY_CURRENT_USER\Software\Nico Mak Computing\Winzip\extract"
$ikeys[23]="HKEY_CURRENT_USER\Software\Nico Mak Computing\Winzip\filemenu"
;
$i=1
WHILE ($i <= $max_ikeys)
$ikey=$ikeys[$i]
$i=$i+1
IF (ExistKey($ikey) = 0)
IF ($debug_mode = "yes")
? "input -> ["+$ikey+"]"
ENDIF
$index=0
DO
$icode=ENUMVALUE($ikey, $index)
IF (len($icode) <> 0)
$ivalue=ReadValue($ikey, $icode)
$result=DelValue($ikey, $icode)
IF ($debug_mode = "yes")
IF ($result = 0)
? " "+$icode+"="+$ivalue
ELSE
? " error "+$icode+"="+$ivalue+" -> "+$result
ENDIF
ENDIF
IF ($result <> 0)
$index=$index+1
ENDIF
ENDIF
UNTIL (len($icode) = 0)
$index=$index+1
DO
$icode=ENUMVALUE($ikey, $index)
IF (len($icode) <> 0)
$ivalue=ReadValue($ikey, $icode)
$result=DelValue($ikey, $icode)
IF ($debug_mode = "yes")
IF ($result = 0)
? " "+$icode+"="+$ivalue
ELSE
? " error "+$icode+"="+$ivalue+" -> "+$result
ENDIF
ENDIF
IF ($result <> 0)
$index=$index+1
ENDIF
ENDIF
UNTIL (len($icode) = 0)
ENDIF
LOOP
;
$ikey="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders"
IF (Exist($ikey) = 0)
$ivalue=ReadValue($ikey, "Recent")
IF ($debug_mode = "yes")
? "recent.user_shell_folders -> "+$ivalue+"="+ExpandEnvironmentVars($ivalue)
ENDIF
IF (len($ivalue) <> 0)
del ExpandEnvironmentVars($ivalue)+"\*.lnk"
ENDIF
ENDIF
;
$ikey="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
IF (Exist($ikey) = 0)
$ivalue=ReadValue($ikey, "Recent")
IF ($debug_mode = "yes")
? "recent.shell_folders -> "+$ivalue+"="+ExpandEnvironmentVars($ivalue)
ENDIF
IF (len($ivalue) <> 0)
del ExpandEnvironmentVars($ivalue)+"\*.lnk"
ENDIF
ENDIF
;
del "c:\ffastun*.*"
del "c:\file*.chk"
del "c:\temp\~*.*"
del "c:\temp\*.~*"
del "c:\temp\*.??~"
del "c:\temp\*.tmp"
del "c:\temp\mscreate.dir"
del "c:\temp\*.---"
IF ($NT_mode = "yes")
del "c:\winnt\~*.*"
del "c:\winnt\*.~*"
del "c:\winnt\*.??~"
del "c:\winnt\*.tmp"
del "c:\winnt\mscreate.dir"
del "c:\winnt\*.---"
del "c:\winnt\temp\~*.*"
del "c:\winnt\temp\*.~*"
del "c:\winnt\temp\*.??~"
del "c:\winnt\temp\*.tmp"
del "c:\winnt\temp\mscreate.dir"
del "c:\winnt\temp\*.---"
ELSE
del "c:\windows\~*.*"
del "c:\windows\*.~*"
del "c:\windows\*.??~"
del "c:\windows\*.tmp"
del "c:\windows\mscreate.dir"
del "c:\windows\*.---"
del "c:\windows\temp\~*.*"
del "c:\windows\temp\*.~*"
del "c:\windows\temp\*.??~"
del "c:\windows\temp\*.tmp"
del "c:\windows\temp\mscreate.dir"
del "c:\windows\temp\*.---"
ENDIF
;
$max_ikeys=8
DIM $ikeys[$max_ikeys+1]
DIM $sub_ikeys[$max_ikeys+1]
$ikeys [01]="HKEY_CURRENT_USER\Software\Adobe\Acrobat Reader\4.0\AdobeViewer"
$sub_ikeys[01]="AVPrecentFile" ; <nr>
$ikeys [02]="HKEY_CURRENT_USER\Software\Adobe\Adobe Acrobat\4.0\AdobeViewer"
$sub_ikeys[02]="AVPrecentFile" ; <nr>
$ikeys [03]="HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Access\Settings"
$sub_ikeys[03]="MRU" ; <nr>
$ikeys [04]="HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Access\Settings"
$sub_ikeys[04]="MRUFlags" ; <nr>
$ikeys [05]="HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Access\Settings"
$sub_ikeys[05]="MRU" ; <nr>
$ikeys [06]="HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Access\Settings"
$sub_ikeys[06]="MRUFlags" ; <nr>
$ikeys [07]="HKEY_CURRENT_USER\Software\Microsoft\Photo Editor\3.0\Microsoft Photo Editor"
$sub_ikeys[07]="LastFile" ; <nr>
$ikeys [08]="HKEY_CURRENT_USER\Software\Microsoft\Photo Editor\3.0\Microsoft Photo Editor"
$sub_ikeys[08]="LastType" ; <nr>
;
$i=1
WHILE ($i <= $max_ikeys)
$ikey=$ikeys[$i]
$sub_ikey=$sub_ikeys[$i]
IF (ExistKey($ikey) = 0)
IF ($debug_mode = "yes")
? "input -> ["+$ikey+"]+["+$sub_ikey+"??]"
ENDIF
$k=0
WHILE ($k <= 10)
$ivalue=ReadValue($ikey, $sub_ikey+$k)
$result=DelValue($ikey, $sub_ikey+$k)
IF ($debug_mode = "yes")
IF ($result = 0)
? " "+$sub_ikey+$k+"="+$ivalue
ELSE
; ? " error "+$sub_ikey+$k+"="+$ivalue+" -> "+$result
ENDIF
ENDIF
$k=$k+1
LOOP
ENDIF
$i=$i+1
LOOP
;
$info=$info+" cleanup.recent" ; -------------------------------------------------------------------------- :end_script
IF ($debug_mode = "yes")
? $info
ENDIF
break on
flushkb
:end
Example of output after calling: kixstrip cleanup.kix cleanup.txt code:
Kixstrip 3.62 (vs 1.35e) input 341 cleanup.kix
output 277 cleanup.txt
-skip- 64
-blocks- 0
-labels- 2
license: MCA - scripting@wanadoo.nl - 2000
code:
;
; Kixtart 3.62
;
; (c) MCA - scripting@wanadoo.nl - 2000
;
; The software product is protected by copyright laws and
; international copyright treaties, as well as other in-
; tellectual property laws and treaties.
; The SOFTWARE PRODUCT is licensed, not sold.
;
; If you want to use the software for any (new) purpose
; you needs a license agreement, which can only be deli-
; vered by creator and owner of this software.
;
IF setconsole("hide") ENDIF $prgrm_version="1.00" $debug_mode="no" IF (@inwin = 1) $NT_mode="yes" ELSE $NT_mode="no" ENDIF break off flushkb $info="" $ikey="HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\TaskManager" IF (ExistKey($ikey) = 0) $ikey_ex="preferences" $taskmgr_prefs= "ac000000a00f00000200000001000000020000000000000020" $taskmgr_prefs=$taskmgr_prefs+"000000de030000d70200000200000000000000010000000200" $taskmgr_prefs=$taskmgr_prefs+"00000300000004000000050000000600000007000000080000" $taskmgr_prefs=$taskmgr_prefs+"00090000000a0000000b0000000c0000000d000000ffffffff" $taskmgr_prefs=$taskmgr_prefs+"6b000000320000002300000046000000460000004600000046" $taskmgr_prefs=$taskmgr_prefs+"000000460000004600000046000000460000003c0000003c00" $taskmgr_prefs=$taskmgr_prefs+"00003c000000460000004b0000000000000000000000" IF (ExistKey($ikey+"\"+$ikey_ex) = 0) $result_data_type=ReadType($ikey, $ikey_ex) ELSE $result_data_type="REG_BINARY" ENDIF IF (ReadValue($ikey, $ikey_ex) <> $taskmgr_prefs) IF (writevalue($ikey, $ikey_ex, $taskmgr_prefs, $result_data_type) <> 0) IF (writevalue($ikey, $ikey_ex, $taskmgr_prefs, "REG_BINARY") <> 0) ENDIF ENDIF $info=$info+" taskmgr."+$ikey_ex IF ($debug_mode = "yes") ENDIF ENDIF ENDIF IF ($NT_mode = "yes") $filename="c:\boot.ini" $file_attr=getfileattr($filename) IF setfileattr($filename, 128) ENDIF IF (readprofilestring($filename, "boot loader", "timeout") <> "1") IF (writeprofilestring($filename, "boot loader", "timeout", "1") = 0) $info=$info+" boot.timeout=1" IF ($debug_mode = "yes") ENDIF ENDIF ENDIF IF setfileattr($filename, $file_attr) ENDIF ENDIF IF (ExistKey("HKEY_CLASSES_ROOT\unknown") = 0) $result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell") $result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell\open") $result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell\open\command") ENDIF $ikey="HKEY_CLASSES_ROOT\unknown\Shell\open" $ikey_ex=ENUMVALUE($ikey, 0) $default_notepad="Quickview with Notepad" IF (ExistKey($ikey+"\"+$ikey_ex) = 0) $result_data_type=ReadType($ikey, $ikey_ex) ELSE $result_data_type="REG_SZ" ENDIF IF (writevalue($ikey, $ikey_ex, $default_notepad, $result_data_type) = 0) IF (writevalue($ikey, $ikey_ex, $default_notepad, "REG_SZ") = 0) ENDIF ENDIF $ikey="HKEY_CLASSES_ROOT\unknown\Shell\open\command" $ikey_ex=ENUMVALUE($ikey, 0) $default_notepad_exe="notepad.exe %1" IF (ExistKey($ikey+"\"+$ikey_ex) = 0) $result_data_type=ReadType($ikey, $ikey_ex) ELSE $result_data_type="REG_SZ" ENDIF IF (writevalue($ikey, $ikey_ex, $default_notepad_exe, $result_data_type) = 0) IF (writevalue($ikey, $ikey_ex, $default_notepad_exe, "REG_SZ") = 0) ENDIF ENDIF $ikey="HKEY_CLASSES_ROOT\regfile\shell" $ikey_ex=ENUMVALUE($ikey, 0) $default_key="edit" IF (ExistKey($ikey+"\"+$ikey_ex) = 0) $result_data_type=ReadType($ikey, $ikey_ex) ELSE $result_data_type="REG_SZ" ENDIF IF (ReadValue($ikey, $ikey_ex) <> $default_key) IF (writevalue($ikey, $ikey_ex, $default_key, $result_data_type) = 0) IF (writevalue($ikey, $ikey_ex, $default_key, "REG_SZ") = 0) ENDIF ENDIF $info=$info+" "+$ikey+"="+$default_key ENDIF $ikey="HKEY_CLASSES_ROOT\vbsfile\shell" $ikey_ex=ENUMVALUE($ikey, 0) $default_key="edit" IF (ExistKey($ikey+"\"+$ikey_ex) = 0) $result_data_type=ReadType($ikey, $ikey_ex) ELSE $result_data_type="REG_SZ" ENDIF IF (ReadValue($ikey, $ikey_ex) <> $default_key) IF (writevalue($ikey, $ikey_ex, $default_key, $result_data_type) = 0) IF (writevalue($ikey, $ikey_ex, $default_key, "REG_SZ") = 0) ENDIF ENDIF $info=$info+" "+$ikey+"="+$default_key ENDIF $max_ikeys=23 DIM $ikeys[$max_ikeys+1] $ikeys[01]="HKEY_CURRENT_USER\Software\Binary Research Ltd\Ghost Explorer\Recent File List" $ikeys[02]="HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs" $ikeys[03]="HKEY_CURRENT_USER\Software\Microsoft\Microsoft Management Console\Recent File List" $ikeys[04]="HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Excel\Recent File List" $ikeys[05]="HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\MS Project\Recent File List" $ikeys[06]="HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\PowerPoint\Recent File List" $ikeys[07]="HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Excel\Recent File List" $ikeys[08]="HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\MS Project\Recent File List" $ikeys[09]="HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\PowerPoint\Recent File List" $ikeys[10]="HKEY_CURRENT_USER\Software\Microsoft\Outlook Express\Recent Stationery List" $ikeys[11]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Paint\Recent File List" $ikeys[12]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\WordPad\Recent File List" $ikeys[13]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\DesktopStreamMRU" $ikeys[14]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Doc Find Spec MRU" $ikeys[15]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FindComputerMRU" $ikeys[16]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\PrnPortsMRU" $ikeys[17]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RecentDocs" $ikeys[18]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU" $ikeys[19]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\StreamMRU" $ikeys[20]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\Preload" $ikeys[21]="HKEY_CURRENT_USER\Software\Netscape\Netscape Navigator\URL History" $ikeys[22]="HKEY_CURRENT_USER\Software\Nico Mak Computing\Winzip\extract" $ikeys[23]="HKEY_CURRENT_USER\Software\Nico Mak Computing\Winzip\filemenu" $i=1 WHILE ($i <= $max_ikeys) $ikey=$ikeys[$i] $i=$i+1 IF (ExistKey($ikey) = 0) IF ($debug_mode = "yes") ENDIF $index=0 DO $icode=ENUMVALUE($ikey, $index) IF (len($icode) <> 0) $ivalue=ReadValue($ikey, $icode) $result=DelValue($ikey, $icode) IF ($debug_mode = "yes") IF ($result = 0) ELSE ENDIF ENDIF IF ($result <> 0) $index=$index+1 ENDIF ENDIF UNTIL (len($icode) = 0) $index=$index+1 DO $icode=ENUMVALUE($ikey, $index) IF (len($icode) <> 0) $ivalue=ReadValue($ikey, $icode) $result=DelValue($ikey, $icode) IF ($debug_mode = "yes") IF ($result = 0) ELSE ENDIF ENDIF IF ($result <> 0) $index=$index+1 ENDIF ENDIF UNTIL (len($icode) = 0) ENDIF LOOP $ikey="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" IF (Exist($ikey) = 0) $ivalue=ReadValue($ikey, "Recent") IF ($debug_mode = "yes") ENDIF IF (len($ivalue) <> 0) del ExpandEnvironmentVars($ivalue)+"\*.lnk" ENDIF ENDIF $ikey="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" IF (Exist($ikey) = 0) $ivalue=ReadValue($ikey, "Recent") IF ($debug_mode = "yes") ENDIF IF (len($ivalue) <> 0) del ExpandEnvironmentVars($ivalue)+"\*.lnk" ENDIF ENDIF del "c:\ffastun*.*" del "c:\file*.chk" del "c:\temp\~*.*" del "c:\temp\*.~*" del "c:\temp\*.??~" del "c:\temp\*.tmp" del "c:\temp\mscreate.dir" del "c:\temp\*.---" IF ($NT_mode = "yes") del "c:\winnt\~*.*" del "c:\winnt\*.~*" del "c:\winnt\*.??~" del "c:\winnt\*.tmp" del "c:\winnt\mscreate.dir" del "c:\winnt\*.---" del "c:\winnt\temp\~*.*" del "c:\winnt\temp\*.~*" del "c:\winnt\temp\*.??~" del "c:\winnt\temp\*.tmp" del "c:\winnt\temp\mscreate.dir" del "c:\winnt\temp\*.---" ELSE del "c:\windows\~*.*" del "c:\windows\*.~*" del "c:\windows\*.??~" del "c:\windows\*.tmp" del "c:\windows\mscreate.dir" del "c:\windows\*.---" del "c:\windows\temp\~*.*" del "c:\windows\temp\*.~*" del "c:\windows\temp\*.??~" del "c:\windows\temp\*.tmp" del "c:\windows\temp\mscreate.dir" del "c:\windows\temp\*.---" ENDIF $max_ikeys=8 DIM $ikeys[$max_ikeys+1] DIM $sub_ikeys[$max_ikeys+1] $ikeys [01]="HKEY_CURRENT_USER\Software\Adobe\Acrobat Reader\4.0\AdobeViewer" $sub_ikeys[01]="AVPrecentFile" $ikeys [02]="HKEY_CURRENT_USER\Software\Adobe\Adobe Acrobat\4.0\AdobeViewer" $sub_ikeys[02]="AVPrecentFile" $ikeys [03]="HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Access\Settings" $sub_ikeys[03]="MRU" $ikeys [04]="HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Access\Settings" $sub_ikeys[04]="MRUFlags" $ikeys [05]="HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Access\Settings" $sub_ikeys[05]="MRU" $ikeys [06]="HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Access\Settings" $sub_ikeys[06]="MRUFlags" $ikeys [07]="HKEY_CURRENT_USER\Software\Microsoft\Photo Editor\3.0\Microsoft Photo Editor" $sub_ikeys[07]="LastFile" $ikeys [08]="HKEY_CURRENT_USER\Software\Microsoft\Photo Editor\3.0\Microsoft Photo Editor" $sub_ikeys[08]="LastType" $i=1 WHILE ($i <= $max_ikeys) $ikey=$ikeys[$i] $sub_ikey=$sub_ikeys[$i] IF (ExistKey($ikey) = 0) IF ($debug_mode = "yes") ENDIF $k=0 WHILE ($k <= 10) $ivalue=ReadValue($ikey, $sub_ikey+$k) $result=DelValue($ikey, $sub_ikey+$k) IF ($debug_mode = "yes") IF ($result = 0) ELSE ENDIF ENDIF $k=$k+1 LOOP ENDIF $i=$i+1 LOOP $info=$info+" cleanup.recent"
:end_script
IF ($debug_mode = "yes") ENDIF break on flushkb
:end
Other examples of the program you will find at the next part.
Greetings.
[This message has been edited by MCA (edited 29 July 2000).]
|
|
Top
|
|
|
|
Moderator: Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 611 anonymous users online.
|
|
|
