#51182 - 2000-08-31 05:05 PM
Re: I want to add a progress bar in my login script
|
Anonymous
Anonymous
Unregistered
|
Yo!!!Just to let you all know that I haven´t disappeared!! I was working on another project today, so that explaines why I wasn´t here You guys are awesome!! I Like it that you all experiment with all the possibilities with Kix! I´ll be trying some of the last posts this weekend, so I´ll be back tomorrow! I worked out something similar as Icatar, and it works perfectly, but I think it can be more advanced too, so keep up the good work! I have to go home now, because else I´ll be in a traffic jam Thanks! (I´ll be posting here some of the stuff we have in our loginscript next monday, maybe there´s some stuff you´ll find usefull) DFY
|
Top
|
|
|
|
#51183 - 2000-08-31 07:14 PM
Re: I want to add a progress bar in my login script
|
Anonymous
Anonymous
Unregistered
|
Check out yet another variation of the progress bar with a different bar thingy going across. code:
BREAK ONCLS COLOR w+/n AT(9,30) "Starting Windows..." COLOR b+/n BOX(10,10,12,65,"single") $COL = 12 WHILE $COL < 64 COLOR b+/n AT(11,$COL) CHR(45) CHR(62) $COL = $COL + 1 $Y = 100 * ($COL - 12) / 52 IF ($COL & RND() ) = 0 ; simulate activiity SLEEP 1 ENDIF COLOR w+/n AT(13,37) "$Y %" LOOP COLOR w/n AT(15,0) "Hit any key to continue..." get $k EXIT
|
Top
|
|
|
|
#51185 - 2000-09-01 03:25 AM
Re: I want to add a progress bar in my login script
|
Anonymous
Anonymous
Unregistered
|
Ask and you shall receive...code:
BREAK ONCLS COLOR w+/n AT(9,30) "Starting Windows..." COLOR b+/n BOX(10,10,12,65,"single") $COL = 12 WHILE $COL < 64 COLOR b+/n AT(11,$COL) CHR(45) CHR(62) SELECT CASE $COL <= 29 COLOR r+/n CASE $COL > 30 AND $COL <= 47 COLOR y+/n CASE $COL > 47 COLOR g+/n ENDSELECT CHR(2)
$COL = $COL + 1 $Y = 100 * ($COL - 12) / 52 IF ($COL & RND() ) = 0 ; simulate activiity SLEEP 1 ENDIF COLOR w+/n AT(13,37) "$Y %" LOOP COLOR r+/n AT(11,65) CHR(15) COLOR w/n AT(15,0) "Hit any key to continue..." get $k EXIT
(now we're just getting goofy! ) Roneil
|
Top
|
|
|
|
#51186 - 2000-09-01 03:55 AM
Re: I want to add a progress bar in my login script
|
Anonymous
Anonymous
Unregistered
|
;************************************************************ ;** Script: Login Splash Screen ;** Version: 2.1 ;** Created: June 04, 2000 - 09:14 PM ;** ;** Author: Ben Burnett ;** E-mail: BenBurnett@telusplanet.net ;** ;** Purpose / Comments: ;** ;** Show the user something nice while they are loged in. ;** ;** Original splash screen code - Ruud van Velsen ;** ;** Ben Burnett ;** - Oct/29/99 - Added Debug information ;** - Oct/29/99 - Added Company name banner ;** - Oct/31/99 - Added progress bar ;** - June/4/2000 - Minor enhancement to debug system ;** ;************************************************************;************************************************************ ;** Script Debuging ;** ;** On the command line define "$DEBUG=1" to get a ;** more detailed output. (Without quotes) ;** ;************************************************************ ;** Common defines ;** $TRUE = 1 $FALSE = 0 ;************************************************************ ;** Globals ;** ; Your institutions name goes here $Title = "Version Zero Software Network Login" ;************************************************************ ;** Script Start ;** ; Turn break on Break On ; Start of Script :MAIN ; Signal start of script If $DEBUG = $TRUE "*** Start of Script ***" ? ? EndIf ; Set output to ASCII Dim $PreviousASCIIState $PreviousASCIIState = SetASCII ("ON") ; Clear the screen Cls ; Show the splash screen Gosub SPLASH_SCREEN ; Progress meter init ; NOTE: A Full bar is 34 $Progress = 0 $AjustProgress = 0 ; ; Do something... ; Sleep 1 ; Update progress bar $AjustProgress = 10 ; add 10 blocks Gosub DRAW_PROGRESS ; ; Do something else... ; Sleep 1 ; Update progress bar $AjustProgress = 10 ; add 10 more blocks Gosub DRAW_PROGRESS ; ; Do something else, again... ; Sleep 1 ; Update progress bar $AjustProgress = 14 ; were done Gosub DRAW_PROGRESS ;******************************************** ; The next few lines is only there so that you can ; actualy see the demo screen, in an actual login ; script you probably would'nt have them there ; If $DEBUG = $TRUE Color W+/N At (16,28) "Press any key to continue." Get $X EndIf ;******************************************** ; Reset the output mode $X = SetASCII ($PreviousASCIIState) ; Clear the screen again Cls ; Signal end of script If $DEBUG = $TRUE ? ? "*** End of Script ***" EndIf Exit ; Quit ;************************************************************ ;** Script Subroutines ( GOSUBs ) ;** ; Draw screen information :SPLASH_SCREEN ; Background grid Color B+/N Box (0, 0, 24, 79, GRID) ; Title banner Color B/N Box (3, 3, 5, Len ($Title + 8) + 5, Å) ; shadow Color G+/N Box (2, 2, 4, Len ($Title + 8) + 4, FULL) ; box ; Information box Color B/N Box (8, 21, 18, 61, Å) ; shadow Color G+/N Box (7, 20, 17, 60, FULL) ; box ; Draw the progress bar Color B/N Box (20, 21, 22, 61, Å) ; shadow Color G+/N Box (19, 20, 21, 60, FULL) ; box ; Center the title on the screen Color Y+/N At ( 3, 4) $Title ; Display some text strings Color W+/N At ( 9, 25) "Userid : " At (10, 25) "Full name : " At (11, 25) "Privilege : " At (12, 25) "Workstation : " At (13, 25) "Domain : " At (14, 25) "Logon Server : " ; ...and some macro's Color Y+/N At ( 9, 40) @USERID At (10, 40) @FULLNAME At (11, 40) @PRIV At (12, 40) @WKSTA At (13, 40) @DOMAIN At (14, 40) @LSERVER Return ; Draw progress bar RAW_PROGRESS ; Setup progress bar ajustment $AjustProgress = $Progress + $AjustProgress ; Bump progress up While $Progress <= $AjustProgress ; Diplay curent progress Color Y+/N At (20, 22 + $Progress) Chr (219) $Progress = $Progress + 1 Loop Return
|
Top
|
|
|
|
#51187 - 2000-09-01 09:54 AM
Re: I want to add a progress bar in my login script
|
Anonymous
Anonymous
Unregistered
|
Hi Jochen,You ment this ? Code __________________________________________________________________________________________ BREAK ON CLS ;$kleur1 = Color c+/c AT(9,22) "Starting Windows in progress..." BOX(10,10,12,65,"single") $COL = 12 WHILE $COL < 64 Select Case $Y < 33 Color r+/r Case $y > 33 And $Y < 66 Color y+/y Case $y > 66 Color g+/g endselect ;Color c+/c AT(11,$COL) CHR(2) $COL = $COL + 1 $Y = 100 * ($COL - 12) / 52 IF ($COL & RND() ) = 0 ; simulate activiity SLEEP 1 ENDIF COLOR w/n AT(13,37) "$Y %" LOOP AT(15,0) "Hit any key to continue..." get $k EXIT __________________________________________________________________________________________
Jos
|
Top
|
|
|
|
#51189 - 2000-09-04 09:59 PM
Re: I want to add a progress bar in my login script
|
Anonymous
Anonymous
Unregistered
|
great topic ! excuse me for replying on a covered topic but I could not resist the temptation to post one more progress bar !The only thing you have to do is to write the total number of your kix / shell commands or the total lenght of a loop. here it is :
code:
; This is a progress bar code ; George Bouras ; root@novastar.dtdns.net
;--------------------------------------- ; write here the total length of the job $total_job=40
;----------------------------------------
setascii(on) cls break on color y+/n box(17,1,19,15,single) color g+/n at(18,2) "done : " color y+/n box(20,1,23,78,single) color c+/n at(18,13) "%" $done_job=1
do $percent_job=$done_job*100/$total_job $previus_job=$bar_job $bar_job=$percent_job*77/100 ;---------------------------------------- ; Place here your custom script commands. ; Be carefull so your total commands ; much the $total_job , or the loop you ; want to run end to $total_job number !!! ; ; command 1 ; command 2 ; . ; . ; . ; command n ;---------------------------------------- ; <><><><><><><><><><><><><><><><><><><><><><>< ><><><><><> ; <><><><><><><><><><><><><><><><><><><><><><>< ><><><><><> ; Here is the graphics machine (!)
if $bar_job = $previus_job goto skip_bar endif do at(18,9) $percent_job if $previus_job < 2 at(21,2) chr(219) at(22,2) chr(219) else at(21,$previus_job) chr(219) at(22,$previus_job) chr(219) endif $previus_job=$previus_job+1 until $previus_job=$bar_job+1 :skip_bar ; <><><><><><><><><><><><><><><><><><><><><><>< ><><><><><> ; <><><><><><><><><><><><><><><><><><><><><><>< ><><><><><>
$done_job=$done_job+1 until $done_job=$total_job+1 :end
|
Top
|
|
|
|
#51190 - 2000-09-05 01:00 PM
Re: I want to add a progress bar in my login script
|
Anonymous
Anonymous
Unregistered
|
I´m Back! I´ve seen some impressive and progressive scripts with those cool smiley´s, I liked all of them, but For now I stick with with the simple but effective bar I´ve now got in our logonscript : :PROGRESSBAR COLOR r+/r IF $PROGRESS = 60 $PROGRESS = 40 EndIF BOX(15,30,14,$PROGRESS,"full") $PROGRESS = $PROGRESS + 4 COLOR b/b Return and in various places I placed: GOSUB PROGRESSBAR I chose this, because all of the other scripts i´ve seen here, have 1 problem: you can´t use them in an actual script, because kix will display the bar, and then go on with the rest of the script, but I want the progressbar allways in sight, and progressing with my script, so I am rebuilding the last smiley script, because I liked that very much 1 last thing: I find it really cool of you guys that you participate this much! If you keep working on that progressbar, we get the most advanced bar the kixworld has ever seen!
So the last step is: a progressbar that is actualy PROGRESSING with the script.... (although i´ve seen some examples, but they were effectively the same as I´ve already got, so a smiley progressbar that is progressing with the script is what we want and need Hoping for even more cool scripts, MF
|
Top
|
|
|
|
#51192 - 2000-09-06 06:31 AM
Re: I want to add a progress bar in my login script
|
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.
|
Top
|
|
|
|
#51193 - 2000-09-06 02:02 PM
Re: I want to add a progress bar in my login script
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
MCA:VERY CLEVER ! Taking this one step further - is there any way you can think of to build a KiX performance analyzer. It could produce a detailed (by line or construct) listing showing elapsed time breakdown (breakout?). This would be an invaluable tool to analyze logon script performance issues. Shawn
[This message has been edited by Shawn (edited 06 September 2000).]
|
Top
|
|
|
|
#51196 - 2000-09-07 05:48 AM
Re: I want to add a progress bar in my login script
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
I will open a new item which will reference to this topic. An update of our program will be there. Greetings.
|
Top
|
|
|
|
#51197 - 2000-09-08 09:53 PM
Re: I want to add a progress bar in my login script
|
BoxKite
Da Box
Registered: 2000-05-17
Posts: 282
Loc: Vacaville,CA,USA
|
Jochen;Just for your kids from all the guys at the fourm: code:
BREAK ON CLS COLOR w+/n AT(9,30) "Starting Update..." COLOR b+/n BOX(10,10,12,65,"single") $COL = 12 SETASCII("on") WHILE $COL < 64 COLOR b+/n select case $col < 32 color r+/n $sign = chr(1) ; chr(176) for block bar "/" case $col < 48 color y+/n $sign = chr(2) ; chr(178) for block bar "\" case $col < 64 color g+/n $sign = chr(3) ; chr(177) for block bar "H" endselect AT(11,$COL) $sign $COL = $COL + 1 $Y = 100 * ($COL - 12) / 52 IF ($COL & RND() ) = 0 ; simulate activiity SLEEP 1 ENDIF COLOR w+/n AT(13,37) "$Y %"LOOP COLOR w/n AT(15,0) "Hit any key to continue..." get $k SETASCII("off") EXIT
This code will give you the complete ASCII table: code:
setascii("on") $a = 1 cls while $a < 6 ;Change this value to get more or less numbers $y = 1 while $y <= 80 $z = 1 while $z <= 20 at($z,$y) "$x " + chr($x) $z = $z + 1 $x = $x + 1 loop $y = $y + 10 loop ? shell "%comspec% /c pause" $a = $a + 1 loop exit
------------------ BoxKite FACTA NON VERBA
_________________________
Box FACTA NON VERBA
|
Top
|
|
|
|
#51198 - 2000-09-08 10:07 PM
Re: I want to add a progress bar in my login script
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
Box:I'm posting for four reasons: 1) Cool scripts, especially the ascii table ! 2) Jochen went on holidays for two weeks. I miss him already ! 3) I want to contribute to making this thread exceed 3 pages ! Think the Perl script will "blow up real good" ? 4) Question - where the hell is CJ ? I thought that he would've written a version of this progress bar that would "blow up" into itty pieces at the end (like in the intro to his battleship game). Shawn.
[This message has been edited by Shawn (edited 08 September 2000).]
|
Top
|
|
|
|
#51199 - 2000-09-12 10:31 PM
Re: I want to add a progress bar in my login script
|
cj
MM club member
Registered: 2000-04-06
Posts: 1102
Loc: Brisbane, Australia
|
Hiya!Did someone call? I have been out of work and not playing with KiX for some time now I have been playing with Delphi instead and you can see the results at my home page on the software page (click the 5 inch disk). I would recommend the Fish Counter. It shows you on a second by second basis how much money you have earned. Just enter your hourly rate and click the clock to start. As for the progress bar, I would prob just make a delphi program to do it and you just call it from KiX or something like [code] ? "Loading..." shell "blah blah.exe" "." shell "blah blah.exe" "." shell "blah blah.exe" "." shell "blah blah.exe" "." shell "blah blah.exe" "done!" [no code] Yeah, it's lame, but like I said - Delphi How have you guys been anyway? cj P.S. I am making a Delphi version of the battleships game too - it's only part done, but is work-in-progress - have a look on the software page. hmmm, I wonder... ubb.execute: print"[This message has been edited by cj (edited 12 September 2000).]"
[This message has been edited by cj (edited 12 September 2000).]
|
Top
|
|
|
|
#51200 - 2000-09-21 11:10 PM
Re: I want to add a progress bar in my login script
|
Paul_Berquam
Hey THIS is FUN
Registered: 2000-08-02
Posts: 310
Loc: Sacramento, CA USA
|
Morbid, I would be interesting in checking out the VB app that you wroteThanks
_________________________
He was a good little monkey and always very curious...
|
Top
|
|
|
|
#51201 - 2000-09-22 07:53 AM
Re: I want to add a progress bar in my login script
|
Jochen
KiX Supporter
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
|
Hey Shawn , thanx for missin' [*Yearn*]actually writing (still) on that script Bryce helped me twice 3 weeks ago .... Guess Why ! Yap , the progress bar !!! -> managed to implement it easily with a reference counter in the monster loop ... in the test phase i worked with 682 Workstations to loop so it was always 100 % done ... then came the phase i wanted bring the main and 'purge log' - script in to a single one and worked 'offline' only with 5 WSs ---- and faced 'the thing that should not be' [ ] *integer bloody integer* !!!! Reference count less than length of bar returns rounding errors, 3 Workstations blows up to 300 % .... So i have to go back to my math roots and do some counter measures ! Bryce : will post as promised soon ! J. [ ] won't c ya so often the next time .... THEM had cut off the Proxy while i was on holiday [raaah!!!] so i have to Dial in from now on [garrrgl] [/ ] [This message has been edited by jpols (edited 22 September 2000).] b.t.w. BOX: Very nice ASCII & bar -Scripts ! [This message has been edited by jpols (edited 22 September 2000).] Uuuups , and another typo [This message has been edited by jpols (edited 22 September 2000).]
_________________________
|
Top
|
|
|
|
Moderator: Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 557 anonymous users online.
|
|
|