Page 3 of 4 <1234>
Topic Options
#51182 - 2000-08-31 05:05 PM Re: I want to add a progress bar in my login script
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
Unregistered


Check out yet another variation of the progress bar with a different bar thingy going across.

code:

BREAK ON

CLS

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
#51184 - 2000-08-31 07:32 PM Re: I want to add a progress bar in my login script
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Hey,
a blue arrow heading to 100 % !!
ok, the next challenge would be a multicolor
smiley that changes mood from [red] over
[Yellow] to [Green]

if anyone can do this ?
I bet my kids would like that

J.

_________________________



Top
#51185 - 2000-09-01 03:25 AM Re: I want to add a progress bar in my login script
Anonymous
Unregistered


Ask and you shall receive...

code:

BREAK ON

CLS

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
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
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
#51188 - 2000-09-01 11:36 AM Re: I want to add a progress bar in my login script
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
lol,

Jos , thats the thing ! unfortunately there
is only a smiling smiley ....

i'll try the look with a BIG one that is always on the same cordinates changing his color like a rainbow til he reaches 100%;
... and then explodes !

What ?
No i won't post this one

Jochen

p.s.: I'll miss the board for the Next two weeks [Yes, lads and lassies : He made it , he has got 2 weeks of holiday !!!]
Bryce : hopefully i'll make the end-polish of the script i promised last week until todays evening ...[my beloved wife would never allow me to take my Notebook with me ]

[This message has been edited by jpols (edited 01 September 2000).]

_________________________



Top
#51189 - 2000-09-04 09:59 PM Re: I want to add a progress bar in my login script
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
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
#51191 - 2000-09-06 06:26 AM Re: I want to add a progress bar in my login script
MCA Offline
KiX Supporter
*****

Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
see next reaction. currently a submit of information isn't directly available.
topic are separated on different pages.

[This message has been edited by MCA (edited 06 September 2000).]

_________________________
email scripting@wanadoo.nl homepage scripting@wanadoo.nl | Links | Summary of Site Site KiXforms FAQ kixtart.org library collection mirror MCA | FAQ & UDF help file UDF kixtart.org library collection mirror MCA | mirror USA | mirror europe UDF scriptlogic library collection UDFs | mirror MCA

Top
#51192 - 2000-09-06 06:31 AM Re: I want to add a progress bar in my login script
MCA Offline
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.

_________________________
email scripting@wanadoo.nl homepage scripting@wanadoo.nl | Links | Summary of Site Site KiXforms FAQ kixtart.org library collection mirror MCA | FAQ & UDF help file UDF kixtart.org library collection mirror MCA | mirror USA | mirror europe UDF scriptlogic library collection UDFs | mirror MCA

Top
#51193 - 2000-09-06 02:02 PM Re: I want to add a progress bar in my login script
Shawn Administrator Offline
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
#51194 - 2000-09-06 10:08 PM Re: I want to add a progress bar in my login script
MCA Offline
KiX Supporter
*****

Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
Shawn,

We are already thinking about the creation of performance analyze tool for Kixtart scripts.
Currently we are using ideas of it. Reason: everybody thinks the script is slow, but mostly the usage of roaming profiles slowdown the performance of logon-process.

Our ideas are:


  • current construction will be used for creation of a detail report. not only the current position of script will be logged, but also the amount of lines executed will be logged. the impact of "LOOP" can influence the progress of a script enormously.
  • additional code can be added without influencing the script code. example of such command can be: ";($analyze)".
  • making subroutine an external script. so anyone can modify it easily.

All ideas for implementation of it are welcome.
Greetings.

_________________________
email scripting@wanadoo.nl homepage scripting@wanadoo.nl | Links | Summary of Site Site KiXforms FAQ kixtart.org library collection mirror MCA | FAQ & UDF help file UDF kixtart.org library collection mirror MCA | mirror USA | mirror europe UDF scriptlogic library collection UDFs | mirror MCA

Top
#51195 - 2000-09-07 01:42 AM Re: I want to add a progress bar in my login script
BoxKite Offline
Da Box
*****

Registered: 2000-05-17
Posts: 282
Loc: Vacaville,CA,USA
I can't see the forrest for the trees"

I have a request. When all is said and done. Will someone post the final results of subject in a new post.

After reading 3 pages it's all a blurr. I'm an old man and my memory retention just can't handle 3 pages.

Thanks ahead of time.

_________________________
Box
FACTA NON VERBA

Top
#51196 - 2000-09-07 05:48 AM Re: I want to add a progress bar in my login script
MCA Offline
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.
_________________________
email scripting@wanadoo.nl homepage scripting@wanadoo.nl | Links | Summary of Site Site KiXforms FAQ kixtart.org library collection mirror MCA | FAQ & UDF help file UDF kixtart.org library collection mirror MCA | mirror USA | mirror europe UDF scriptlogic library collection UDFs | mirror MCA

Top
#51197 - 2000-09-08 09:53 PM Re: I want to add a progress bar in my login script
BoxKite Offline
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 Offline
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 Offline
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 Offline
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 wrote

Thanks

_________________________
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 Administrator Offline
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
Page 3 of 4 <1234>


Moderator:  Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 248 anonymous users online.
Newest Members
gespanntleuchten, DaveatAdvanced, Paulo_Alves, UsTaaa, xxJJxx
17864 Registered Users

Generated in 0.109 seconds in which 0.04 seconds were spent on a total of 13 queries. Zlib compression enabled.

Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org