MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
Dear,Based on ICATAR's and SHAWN's scripts we have make an extension to
the KIXSTRIP.EXE program, which automatically do three things:
- insert variable with actual line number.
- insert a call of subroutine.
- insert subroutine which calculates the progress and will showing it.
code:
$pcur= 1 gosub "pinfo" ; - code -
.....
$pcur= 341 gosub "pinfo" ; - code -
code:
at (9,25) "Starting Windows...completed"
at (20,1) " "
exit
:pinfo
$pstop=341
IF ($pcur <= 1)
cls
at (9,30) "Starting Windows..."
box (10,5,12,75,"single")
box (14,5,16,75,"single")
$pcolumn=6
ENDIF
$ppercentage=(100*$pcur)/$pstop
IF ($pcolumn > 74)
$pcolumn=6
ENDIF
$pcolumn=6+((74-6)*$ppercentage)/100
at (11,$pcolumn) CHR(166)
at (13,37) $ppercentage " %"
at (15,37) $pcur " .. " $pstop
return
Remarks: by using the option "/progress"
- reserved label: pinfo
- reserved variables: $pcur, $pstop, $ppercentage, $pcolumn
(using them will not influence our values, but it influences your values)
- progress indicator which let you see:
- how much is your script completed.
- which parts of your script were skipped.
- at which line your are leaving your script.
- how long a "LOOP" will run is difficult to calculate. each work-
station hasn't the same structure.
so we are using the progress-bar as an indicator which shows the
current position of the script.
- how long a "XCOPY" or other (external) command will run is difficult
to calculate. an external program can ask the user for input.
code:
IF setconsole("hide")
ENDIF
can influence your screen output.
site: http://home.wanadoo.nl/scripting
program: kixstrip.exe 1.71 Example of running "cleanup.kix" by "kixstrip /block_check /progress":
code:
$pcur= 1 gosub "pinfo" IF setconsole("hide")
$pcur= 2 gosub "pinfo" ENDIF
$pcur= 3 gosub "pinfo" ;
$pcur= 4 gosub "pinfo" ; NT/95 cleanup - Kixtart 3.62
$pcur= 5 gosub "pinfo" ;
$pcur= 6 gosub "pinfo" ; (c) scripting@wanadoo.nl - 2000
$pcur= 7 gosub "pinfo" ;
$pcur= 8 gosub "pinfo" ; vs 1.00 - program (cleanup recent list, set HKCR keys, set BOOT.INI, set TaskMgr)
$pcur= 9 gosub "pinfo" ;
$pcur= 10 gosub "pinfo" ; 1.00 (20000715) original version
$pcur= 11 gosub "pinfo" ;
$pcur= 12 gosub "pinfo" $prgrm_version="1.00"
$pcur= 13 gosub "pinfo" ;
$pcur= 14 gosub "pinfo" $debug_mode="no" ; - yes/no -
$pcur= 15 gosub "pinfo" IF (@inwin = 1)
$pcur= 16 gosub "pinfo" $nt_mode="yes"
$pcur= 17 gosub "pinfo" ELSE
$pcur= 18 gosub "pinfo" $nt_mode="no"
$pcur= 19 gosub "pinfo" ENDIF
$pcur= 20 gosub "pinfo" ;
$pcur= 21 gosub "pinfo" BREAK off
$pcur= 22 gosub "pinfo" FLUSHKB
$pcur= 23 gosub "pinfo"
$pcur= 24 gosub "pinfo" $info=""
$pcur= 25 gosub "pinfo"
$pcur= 26 gosub "pinfo" ; --------------------------------------------------------------------------
$pcur= 27 gosub "pinfo" ; - taskmgr settings. all counters -
$pcur= 28 gosub "pinfo" ; --------------------------------------------------------------------------
$pcur= 29 gosub "pinfo"
$pcur= 30 gosub "pinfo" $ikey="HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\TaskManager"
$pcur= 31 gosub "pinfo" IF (ExistKey($ikey) = 0)
$pcur= 32 gosub "pinfo" $ikey_ex="preferences"
$pcur= 33 gosub "pinfo" $taskmgr_prefs= "ac000000a00f00000200000001000000020000000000000020"
$pcur= 34 gosub "pinfo" $taskmgr_prefs=$taskmgr_prefs+"000000de030000d70200000200000000000000010000000200"
$pcur= 35 gosub "pinfo" $taskmgr_prefs=$taskmgr_prefs+"00000300000004000000050000000600000007000000080000"
$pcur= 36 gosub "pinfo" $taskmgr_prefs=$taskmgr_prefs+"00090000000a0000000b0000000c0000000d000000ffffffff"
$pcur= 37 gosub "pinfo" $taskmgr_prefs=$taskmgr_prefs+"6b000000320000002300000046000000460000004600000046"
$pcur= 38 gosub "pinfo" $taskmgr_prefs=$taskmgr_prefs+"000000460000004600000046000000460000003c0000003c00"
$pcur= 39 gosub "pinfo" $taskmgr_prefs=$taskmgr_prefs+"00003c000000460000004b0000000000000000000000"
$pcur= 40 gosub "pinfo" IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
$pcur= 41 gosub "pinfo" $result_data_type=ReadType($ikey, $ikey_ex)
$pcur= 42 gosub "pinfo" ELSE
$pcur= 43 gosub "pinfo" $result_data_type="REG_BINARY"
$pcur= 44 gosub "pinfo" ENDIF
$pcur= 45 gosub "pinfo" IF (ReadValue($ikey, $ikey_ex) <> $taskmgr_prefs)
$pcur= 46 gosub "pinfo" IF (writevalue($ikey, $ikey_ex, $taskmgr_prefs, $result_data_type) <> 0)
$pcur= 47 gosub "pinfo" IF (writevalue($ikey, $ikey_ex, $taskmgr_prefs, "REG_BINARY") <> 0)
$pcur= 48 gosub "pinfo" ENDIF
$pcur= 49 gosub "pinfo" ENDIF
$pcur= 50 gosub "pinfo" $info=$info+" taskmgr."+$ikey_ex
$pcur= 51 gosub "pinfo" IF ($debug_mode = "yes")
$pcur= 52 gosub "pinfo" ? " taskmgr.["+$ikey_ex+"]="+$ivalue
$pcur= 53 gosub "pinfo" ENDIF
$pcur= 54 gosub "pinfo" ENDIF
$pcur= 55 gosub "pinfo" ENDIF
$pcur= 56 gosub "pinfo"
$pcur= 57 gosub "pinfo" ; --------------------------------------------------------------------------
$pcur= 58 gosub "pinfo" ; - update BOOT.INI timer -
$pcur= 59 gosub "pinfo" ; --------------------------------------------------------------------------
$pcur= 60 gosub "pinfo"
$pcur= 61 gosub "pinfo" IF ($nt_mode = "yes")
$pcur= 62 gosub "pinfo" $filename="c:\boot.ini" ; - NT boot menu -
$pcur= 63 gosub "pinfo" $file_attr=getfileattr($filename)
$pcur= 64 gosub "pinfo" IF setfileattr($filename, 128)
$pcur= 65 gosub "pinfo" ENDIF
$pcur= 66 gosub "pinfo" IF (readprofilestring($filename, "boot loader", "timeout") <> "1")
$pcur= 67 gosub "pinfo" IF (writeprofilestring($filename, "boot loader", "timeout", "1") = 0)
$pcur= 68 gosub "pinfo" $info=$info+" boot.timeout=1"
$pcur= 69 gosub "pinfo" IF ($debug_mode = "yes")
$pcur= 70 gosub "pinfo" ? " "+$filename+" (attr: "+$file_attr+") -> [boot loader] timeout=1"
$pcur= 71 gosub "pinfo" ENDIF
$pcur= 72 gosub "pinfo" ENDIF
$pcur= 73 gosub "pinfo" ENDIF
$pcur= 74 gosub "pinfo" IF setfileattr($filename, $file_attr)
$pcur= 75 gosub "pinfo" ENDIF
$pcur= 76 gosub "pinfo" ENDIF
$pcur= 77 gosub "pinfo"
$pcur= 78 gosub "pinfo" ; --------------------------------------------------------------------------
$pcur= 79 gosub "pinfo" ; - add "Quickview with Notepad" to menu, when no file association exist -
$pcur= 80 gosub "pinfo" ; --------------------------------------------------------------------------
$pcur= 81 gosub "pinfo"
$pcur= 82 gosub "pinfo" ; - enabling 'quickview with notepad' -
$pcur= 83 gosub "pinfo" IF (ExistKey("HKEY_CLASSES_ROOT\unknown") = 0)
$pcur= 84 gosub "pinfo" $result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell")
$pcur= 85 gosub "pinfo" $result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell\open")
$pcur= 86 gosub "pinfo" $result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell\open\command")
$pcur= 87 gosub "pinfo" ENDIF
$pcur= 88 gosub "pinfo" ;
$pcur= 89 gosub "pinfo" $ikey="HKEY_CLASSES_ROOT\unknown\Shell\open"
$pcur= 90 gosub "pinfo" $ikey_ex=ENUMVALUE($ikey, 0)
$pcur= 91 gosub "pinfo" $default_notepad="Quickview with Notepad"
$pcur= 92 gosub "pinfo" IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
$pcur= 93 gosub "pinfo" $result_data_type=ReadType($ikey, $ikey_ex)
$pcur= 94 gosub "pinfo" ELSE
$pcur= 95 gosub "pinfo" $result_data_type="REG_SZ"
$pcur= 96 gosub "pinfo" ENDIF
$pcur= 97 gosub "pinfo" IF (writevalue($ikey, $ikey_ex, $default_notepad, $result_data_type) = 0)
$pcur= 98 gosub "pinfo" IF (writevalue($ikey, $ikey_ex, $default_notepad, "REG_SZ") = 0)
$pcur= 99 gosub "pinfo" ENDIF
$pcur= 100 gosub "pinfo" ENDIF
$pcur= 101 gosub "pinfo" ;
$pcur= 102 gosub "pinfo" $ikey="HKEY_CLASSES_ROOT\unknown\Shell\open\command"
$pcur= 103 gosub "pinfo" $ikey_ex=ENUMVALUE($ikey, 0)
$pcur= 104 gosub "pinfo" $default_notepad_exe="notepad.exe %1"
$pcur= 105 gosub "pinfo" IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
$pcur= 106 gosub "pinfo" $result_data_type=ReadType($ikey, $ikey_ex)
$pcur= 107 gosub "pinfo" ELSE
$pcur= 108 gosub "pinfo" $result_data_type="REG_SZ"
$pcur= 109 gosub "pinfo" ENDIF
$pcur= 110 gosub "pinfo" IF (writevalue($ikey, $ikey_ex, $default_notepad_exe, $result_data_type) = 0)
$pcur= 111 gosub "pinfo" IF (writevalue($ikey, $ikey_ex, $default_notepad_exe, "REG_SZ") = 0)
$pcur= 112 gosub "pinfo" ENDIF
$pcur= 113 gosub "pinfo" ENDIF
$pcur= 114 gosub "pinfo"
$pcur= 115 gosub "pinfo" ; --------------------------------------------------------------------------
$pcur= 116 gosub "pinfo" ; - change "regfile" + "vbsfile" to edit mode -
$pcur= 117 gosub "pinfo" ; --------------------------------------------------------------------------
$pcur= 118 gosub "pinfo"
$pcur= 119 gosub "pinfo" $ikey="HKEY_CLASSES_ROOT\regfile\shell"
$pcur= 120 gosub "pinfo" $ikey_ex=ENUMVALUE($ikey, 0)
$pcur= 121 gosub "pinfo" $default_key="edit"
$pcur= 122 gosub "pinfo" IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
$pcur= 123 gosub "pinfo" $result_data_type=ReadType($ikey, $ikey_ex)
$pcur= 124 gosub "pinfo" ELSE
$pcur= 125 gosub "pinfo" $result_data_type="REG_SZ"
$pcur= 126 gosub "pinfo" ENDIF
$pcur= 127 gosub "pinfo" IF (ReadValue($ikey, $ikey_ex) <> $default_key)
$pcur= 128 gosub "pinfo" IF (writevalue($ikey, $ikey_ex, $default_key, $result_data_type) = 0)
$pcur= 129 gosub "pinfo" IF (writevalue($ikey, $ikey_ex, $default_key, "REG_SZ") = 0)
$pcur= 130 gosub "pinfo" ENDIF
$pcur= 131 gosub "pinfo" ENDIF
$pcur= 132 gosub "pinfo" $info=$info+" "+$ikey+"="+$default_key
$pcur= 133 gosub "pinfo" ENDIF
$pcur= 134 gosub "pinfo" ;
$pcur= 135 gosub "pinfo" $ikey="HKEY_CLASSES_ROOT\vbsfile\shell"
$pcur= 136 gosub "pinfo" $ikey_ex=ENUMVALUE($ikey, 0)
$pcur= 137 gosub "pinfo" $default_key="edit"
$pcur= 138 gosub "pinfo" IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
$pcur= 139 gosub "pinfo" $result_data_type=ReadType($ikey, $ikey_ex)
$pcur= 140 gosub "pinfo" ELSE
$pcur= 141 gosub "pinfo" $result_data_type="REG_SZ"
$pcur= 142 gosub "pinfo" ENDIF
$pcur= 143 gosub "pinfo" IF (ReadValue($ikey, $ikey_ex) <> $default_key)
$pcur= 144 gosub "pinfo" IF (writevalue($ikey, $ikey_ex, $default_key, $result_data_type) = 0)
$pcur= 145 gosub "pinfo" IF (writevalue($ikey, $ikey_ex, $default_key, "REG_SZ") = 0)
$pcur= 146 gosub "pinfo" ENDIF
$pcur= 147 gosub "pinfo" ENDIF
$pcur= 148 gosub "pinfo" $info=$info+" "+$ikey+"="+$default_key
$pcur= 149 gosub "pinfo" ENDIF
$pcur= 150 gosub "pinfo"
$pcur= 151 gosub "pinfo" ; --------------------------------------------------------------------------
$pcur= 152 gosub "pinfo" ; - cleanup 'recent list' -
$pcur= 153 gosub "pinfo" ; --------------------------------------------------------------------------
$pcur= 154 gosub "pinfo"
$pcur= 155 gosub "pinfo" $max_ikeys=23
$pcur= 156 gosub "pinfo" DIM $ikeys[$max_ikeys+1]
$pcur= 157 gosub "pinfo" $ikeys[01]="HKEY_CURRENT_USER\Software\Binary Research Ltd\Ghost Explorer\Recent File List"
$pcur= 158 gosub "pinfo" $ikeys[02]="HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs"
$pcur= 159 gosub "pinfo" $ikeys[03]="HKEY_CURRENT_USER\Software\Microsoft\Microsoft Management Console\Recent File List"
$pcur= 160 gosub "pinfo" $ikeys[04]="HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Excel\Recent File List"
$pcur= 161 gosub "pinfo" $ikeys[05]="HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\MS Project\Recent File List"
$pcur= 162 gosub "pinfo" $ikeys[06]="HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\PowerPoint\Recent File List"
$pcur= 163 gosub "pinfo" $ikeys[07]="HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Excel\Recent File List"
$pcur= 164 gosub "pinfo" $ikeys[08]="HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\MS Project\Recent File List"
$pcur= 165 gosub "pinfo" $ikeys[09]="HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\PowerPoint\Recent File List"
$pcur= 166 gosub "pinfo" $ikeys[10]="HKEY_CURRENT_USER\Software\Microsoft\Outlook Express\Recent Stationery List"
$pcur= 167 gosub "pinfo" $ikeys[11]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Paint\Recent File List"
$pcur= 168 gosub "pinfo" $ikeys[12]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\WordPad\Recent File List"
$pcur= 169 gosub "pinfo" $ikeys[13]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\DesktopStreamMRU"
$pcur= 170 gosub "pinfo" $ikeys[14]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Doc Find Spec MRU"
$pcur= 171 gosub "pinfo" $ikeys[15]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FindComputerMRU"
$pcur= 172 gosub "pinfo" $ikeys[16]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\PrnPortsMRU"
$pcur= 173 gosub "pinfo" $ikeys[17]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RecentDocs"
$pcur= 174 gosub "pinfo" $ikeys[18]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU"
$pcur= 175 gosub "pinfo" $ikeys[19]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\StreamMRU"
$pcur= 176 gosub "pinfo" $ikeys[20]="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\Preload"
$pcur= 177 gosub "pinfo" $ikeys[21]="HKEY_CURRENT_USER\Software\Netscape\Netscape Navigator\URL History"
$pcur= 178 gosub "pinfo" $ikeys[22]="HKEY_CURRENT_USER\Software\Nico Mak Computing\Winzip\extract"
$pcur= 179 gosub "pinfo" $ikeys[23]="HKEY_CURRENT_USER\Software\Nico Mak Computing\Winzip\filemenu"
$pcur= 180 gosub "pinfo" ;
$pcur= 181 gosub "pinfo" $i=1
$pcur= 182 gosub "pinfo" WHILE ($i <= $max_ikeys)
$pcur= 183 gosub "pinfo" $ikey=$ikeys[$i]
$pcur= 184 gosub "pinfo" $i=$i+1
$pcur= 185 gosub "pinfo" IF (ExistKey($ikey) = 0)
$pcur= 186 gosub "pinfo" IF ($debug_mode = "yes")
$pcur= 187 gosub "pinfo" ? "input -> ["+$ikey+"]"
$pcur= 188 gosub "pinfo" ENDIF
$pcur= 189 gosub "pinfo" $index=0
$pcur= 190 gosub "pinfo" DO
$pcur= 191 gosub "pinfo" $icode=ENUMVALUE($ikey, $index)
$pcur= 192 gosub "pinfo" IF (len($icode) <> 0)
$pcur= 193 gosub "pinfo" $ivalue=ReadValue($ikey, $icode)
$pcur= 194 gosub "pinfo" $result=DelValue($ikey, $icode)
$pcur= 195 gosub "pinfo" IF ($debug_mode = "yes")
$pcur= 196 gosub "pinfo" IF ($result = 0)
$pcur= 197 gosub "pinfo" ? " "+$icode+"="+$ivalue
$pcur= 198 gosub "pinfo" ELSE
$pcur= 199 gosub "pinfo" ? " error "+$icode+"="+$ivalue+" -> "+$result
$pcur= 200 gosub "pinfo" ENDIF
$pcur= 201 gosub "pinfo" ENDIF
$pcur= 202 gosub "pinfo" IF ($result <> 0)
$pcur= 203 gosub "pinfo" $index=$index+1
$pcur= 204 gosub "pinfo" ENDIF
$pcur= 205 gosub "pinfo" ENDIF
$pcur= 206 gosub "pinfo" UNTIL (len($icode) = 0)
$pcur= 207 gosub "pinfo" $index=$index+1
$pcur= 208 gosub "pinfo" DO
$pcur= 209 gosub "pinfo" $icode=ENUMVALUE($ikey, $index)
$pcur= 210 gosub "pinfo" IF (len($icode) <> 0)
$pcur= 211 gosub "pinfo" $ivalue=ReadValue($ikey, $icode)
$pcur= 212 gosub "pinfo" $result=DelValue($ikey, $icode)
$pcur= 213 gosub "pinfo" IF ($debug_mode = "yes")
$pcur= 214 gosub "pinfo" IF ($result = 0)
$pcur= 215 gosub "pinfo" ? " "+$icode+"="+$ivalue
$pcur= 216 gosub "pinfo" ELSE
$pcur= 217 gosub "pinfo" ? " error "+$icode+"="+$ivalue+" -> "+$result
$pcur= 218 gosub "pinfo" ENDIF
$pcur= 219 gosub "pinfo" ENDIF
$pcur= 220 gosub "pinfo" IF ($result <> 0)
$pcur= 221 gosub "pinfo" $index=$index+1
$pcur= 222 gosub "pinfo" ENDIF
$pcur= 223 gosub "pinfo" ENDIF
$pcur= 224 gosub "pinfo" UNTIL (len($icode) = 0)
$pcur= 225 gosub "pinfo" ENDIF
$pcur= 226 gosub "pinfo" LOOP
$pcur= 227 gosub "pinfo" ;
$pcur= 228 gosub "pinfo" $ikey="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders"
$pcur= 229 gosub "pinfo" IF (Exist($ikey) = 0)
$pcur= 230 gosub "pinfo" $ivalue=ReadValue($ikey, "Recent")
$pcur= 231 gosub "pinfo" IF ($debug_mode = "yes")
$pcur= 232 gosub "pinfo" ? "recent.user_shell_folders -> "+$ivalue+"="+ExpandEnvironmentVars($ivalue)
$pcur= 233 gosub "pinfo" ENDIF
$pcur= 234 gosub "pinfo" IF (len($ivalue) <> 0)
$pcur= 235 gosub "pinfo" DEL ExpandEnvironmentVars($ivalue)+"\*.lnk"
$pcur= 236 gosub "pinfo" ENDIF
$pcur= 237 gosub "pinfo" ENDIF
$pcur= 238 gosub "pinfo" ;
$pcur= 239 gosub "pinfo" $ikey="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
$pcur= 240 gosub "pinfo" IF (Exist($ikey) = 0)
$pcur= 241 gosub "pinfo" $ivalue=ReadValue($ikey, "Recent")
$pcur= 242 gosub "pinfo" IF ($debug_mode = "yes")
$pcur= 243 gosub "pinfo" ? "recent.shell_folders -> "+$ivalue+"="+ExpandEnvironmentVars($ivalue)
$pcur= 244 gosub "pinfo" ENDIF
$pcur= 245 gosub "pinfo" IF (len($ivalue) <> 0)
$pcur= 246 gosub "pinfo" DEL ExpandEnvironmentVars($ivalue)+"\*.lnk"
$pcur= 247 gosub "pinfo" ENDIF
$pcur= 248 gosub "pinfo" ENDIF
$pcur= 249 gosub "pinfo" ;
$pcur= 250 gosub "pinfo" DEL "c:\ffastun*.*"
$pcur= 251 gosub "pinfo" DEL "c:\file*.chk"
$pcur= 252 gosub "pinfo" DEL "c:\temp\~*.*"
$pcur= 253 gosub "pinfo" DEL "c:\temp\*.~*"
$pcur= 254 gosub "pinfo" DEL "c:\temp\*.??~"
$pcur= 255 gosub "pinfo" DEL "c:\temp\*.tmp"
$pcur= 256 gosub "pinfo" DEL "c:\temp\mscreate.dir"
$pcur= 257 gosub "pinfo" DEL "c:\temp\*.---"
$pcur= 258 gosub "pinfo" IF ($nt_mode = "yes")
$pcur= 259 gosub "pinfo" DEL "c:\winnt\~*.*"
$pcur= 260 gosub "pinfo" DEL "c:\winnt\*.~*"
$pcur= 261 gosub "pinfo" DEL "c:\winnt\*.??~"
$pcur= 262 gosub "pinfo" DEL "c:\winnt\*.tmp"
$pcur= 263 gosub "pinfo" DEL "c:\winnt\mscreate.dir"
$pcur= 264 gosub "pinfo" DEL "c:\winnt\*.---"
$pcur= 265 gosub "pinfo" DEL "c:\winnt\temp\~*.*"
$pcur= 266 gosub "pinfo" DEL "c:\winnt\temp\*.~*"
$pcur= 267 gosub "pinfo" DEL "c:\winnt\temp\*.??~"
$pcur= 268 gosub "pinfo" DEL "c:\winnt\temp\*.tmp"
$pcur= 269 gosub "pinfo" DEL "c:\winnt\temp\mscreate.dir"
$pcur= 270 gosub "pinfo" DEL "c:\winnt\temp\*.---"
$pcur= 271 gosub "pinfo" ELSE
$pcur= 272 gosub "pinfo" DEL "c:\windows\~*.*"
$pcur= 273 gosub "pinfo" DEL "c:\windows\*.~*"
$pcur= 274 gosub "pinfo" DEL "c:\windows\*.??~"
$pcur= 275 gosub "pinfo" DEL "c:\windows\*.tmp"
$pcur= 276 gosub "pinfo" DEL "c:\windows\mscreate.dir"
$pcur= 277 gosub "pinfo" DEL "c:\windows\*.---"
$pcur= 278 gosub "pinfo" DEL "c:\windows\temp\~*.*"
$pcur= 279 gosub "pinfo" DEL "c:\windows\temp\*.~*"
$pcur= 280 gosub "pinfo" DEL "c:\windows\temp\*.??~"
$pcur= 281 gosub "pinfo" DEL "c:\windows\temp\*.tmp"
$pcur= 282 gosub "pinfo" DEL "c:\windows\temp\mscreate.dir"
$pcur= 283 gosub "pinfo" DEL "c:\windows\temp\*.---"
$pcur= 284 gosub "pinfo" ENDIF
$pcur= 285 gosub "pinfo" ;
$pcur= 286 gosub "pinfo" $max_ikeys=8
$pcur= 287 gosub "pinfo" DIM $ikeys[$max_ikeys+1]
$pcur= 288 gosub "pinfo" DIM $sub_ikeys[$max_ikeys+1]
$pcur= 289 gosub "pinfo" $ikeys [01]="HKEY_CURRENT_USER\Software\Adobe\Acrobat Reader\4.0\AdobeViewer"
$pcur= 290 gosub "pinfo" $sub_ikeys[01]="AVPrecentFile" ; <nr>
$pcur= 291 gosub "pinfo" $ikeys [02]="HKEY_CURRENT_USER\Software\Adobe\Adobe Acrobat\4.0\AdobeViewer"
$pcur= 292 gosub "pinfo" $sub_ikeys[02]="AVPrecentFile" ; <nr>
$pcur= 293 gosub "pinfo" $ikeys [03]="HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Access\Settings"
$pcur= 294 gosub "pinfo" $sub_ikeys[03]="MRU" ; <nr>
$pcur= 295 gosub "pinfo" $ikeys [04]="HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Access\Settings"
$pcur= 296 gosub "pinfo" $sub_ikeys[04]="MRUFlags" ; <nr>
$pcur= 297 gosub "pinfo" $ikeys [05]="HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Access\Settings"
$pcur= 298 gosub "pinfo" $sub_ikeys[05]="MRU" ; <nr>
$pcur= 299 gosub "pinfo" $ikeys [06]="HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Access\Settings"
$pcur= 300 gosub "pinfo" $sub_ikeys[06]="MRUFlags" ; <nr>
$pcur= 301 gosub "pinfo" $ikeys [07]="HKEY_CURRENT_USER\Software\Microsoft\Photo Editor\3.0\Microsoft Photo Editor"
$pcur= 302 gosub "pinfo" $sub_ikeys[07]="LastFile" ; <nr>
$pcur= 303 gosub "pinfo" $ikeys [08]="HKEY_CURRENT_USER\Software\Microsoft\Photo Editor\3.0\Microsoft Photo Editor"
$pcur= 304 gosub "pinfo" $sub_ikeys[08]="LastType" ; <nr>
$pcur= 305 gosub "pinfo" ;
$pcur= 306 gosub "pinfo" $i=1
$pcur= 307 gosub "pinfo" WHILE ($i <= $max_ikeys)
$pcur= 308 gosub "pinfo" $ikey=$ikeys[$i]
$pcur= 309 gosub "pinfo" $sub_ikey=$sub_ikeys[$i]
$pcur= 310 gosub "pinfo" IF (ExistKey($ikey) = 0)
$pcur= 311 gosub "pinfo" IF ($debug_mode = "yes")
$pcur= 312 gosub "pinfo" ? "input -> ["+$ikey+"]+["+$sub_ikey+"??]"
$pcur= 313 gosub "pinfo" ENDIF
$pcur= 314 gosub "pinfo" $k=0
$pcur= 315 gosub "pinfo" WHILE ($k <= 10)
$pcur= 316 gosub "pinfo" $ivalue=ReadValue($ikey, $sub_ikey+$k)
$pcur= 317 gosub "pinfo" $result=DelValue($ikey, $sub_ikey+$k)
$pcur= 318 gosub "pinfo" IF ($debug_mode = "yes")
$pcur= 319 gosub "pinfo" IF ($result = 0)
$pcur= 320 gosub "pinfo" ? " "+$sub_ikey+$k+"="+$ivalue
$pcur= 321 gosub "pinfo" ELSE
$pcur= 322 gosub "pinfo" ; ? " error "+$sub_ikey+$k+"="+$ivalue+" -> "+$result
$pcur= 323 gosub "pinfo" ENDIF
$pcur= 324 gosub "pinfo" ENDIF
$pcur= 325 gosub "pinfo" $k=$k+1
$pcur= 326 gosub "pinfo" LOOP
$pcur= 327 gosub "pinfo" ENDIF
$pcur= 328 gosub "pinfo" $i=$i+1
$pcur= 329 gosub "pinfo" LOOP
$pcur= 330 gosub "pinfo" ;
$pcur= 331 gosub "pinfo" $info=$info+" cleanup.recent"
$pcur= 332 gosub "pinfo"
$pcur= 333 gosub "pinfo" ; --------------------------------------------------------------------------
$pcur= 334 gosub "pinfo"
$pcur= 335 gosub "pinfo" :end_script
$pcur= 336 gosub "pinfo" IF ($debug_mode = "yes")
$pcur= 337 gosub "pinfo" ? $info
$pcur= 338 gosub "pinfo" ENDIF
$pcur= 339 gosub "pinfo" BREAK on
$pcur= 340 gosub "pinfo" FLUSHKB
$pcur= 341 gosub "pinfo" :end;($begin)
;
; wed 06-sep-2000 05:32:10
;
;Informative KIXSTRIP: no errors found.
;
;Informative KIXSTRIP: 56 block_structures found.
;Informative KIXSTRIP: 2 labels found.
;Summary KIXSTRIP: CALL EXIT GOSUB GOTO QUIT RETURN RUN SHELL USE
;
;($end) at (9,25) "Starting Windows...completed"
at (20,1) " "
exit
:pinfo
$pstop=341
IF ($pcur <= 1)
cls
at (9,30) "Starting Windows..."
box (10,5,12,75,"single")
box (14,5,16,75,"single")
$pcolumn=6
ENDIF
$ppercentage=(100*$pcur)/$pstop
IF ($pcolumn > 74)
$pcolumn=6
ENDIF
$pcolumn=6+((74-6)*$ppercentage)/100
at (11,$pcolumn) CHR(166)
at (13,37) $ppercentage " %"
at (15,37) $pcur " .. " $pstop
return
Greetings.
|
