Hi All..
I want to add a Progressbar to my Loginscript.
Can You explane it in this exemple:
Code:
Break On Cls ;- Remove CLS if using WKIX32
$nul=SetConsole("Hide") ;- Hide console when script is done
;------------------------Function
$FuncToExecute=Split("fnScrFunc1,fnScrFunc2,fnScrFunc3,fnScrFunc4,fnScrFunc5,fnScrFunc6",",")
;-------------------------Installing Kixform
$frmRoot = CreateObject("Kixtart.Form")
If @ERROR
$nul=SetConsole("Show")
"KiXforms.dll not installed/registered" ?
Exit(1)
EndIf
;-------------------------Making Form
$frmMain = CreateObject("Kixtart.Form")
$frmMain.Size = 560,410
$frmMain.SysMenu = 0
$frmMain.Text = "YooowWW"
$frmMain.BackColor = 114, 125, 157
$frmMain.Center
$picture = $frmMain.controls.Picturebox ("", 25, 25, 499, 340)
$picture.picture = "esj.bmp"
$picture.BorderStyle = 0
;----------------------------Tekst functie
$ProgressTextBox = $picture.Label
$ProgressTextBox.BackColor = 187, 192, 213
$ProgressTextBox.bounds = 10, 220, 480, 20
$ProgressTextBox.forecolor = 255, 255, 255
$ProgressTextBox.fontsize = 12
$ProgressTextBox.fontbold = true
$ProgressTextBox.FontName = Tahoma
$ProgressTextBox.TextAlign = MiddleCenter
;-------------------------Script functies uitvoeren
$frmMain.Show
;$prgStatus.Max = Ubound($FuncToExecute)+1
For Each $sFunction in $FuncToExecute
;$prgStatus.Value = $prgStatus.Value+1
$nul=Execute($sFunction)
Sleep 1
Next
Exit()
;-------------------------Functies
Function fnScrFunc1()
$ProgressTextBox.text = "Mapping Network Drives"
SLEEP 1
EndFunction
Function fnScrFunc2()
$ProgressTextBox.text = "Change This Computer Name"
SLEEP 1
EndFunction
Function fnScrFunc3()
$ProgressTextBox.text = "Change Network Drive Icons"
SLEEP 1
EndFunction
Function fnScrFunc4()
$ProgressTextBox.text = "Set the correct domain time"
SETTIME "\\SSC01"
EndFunction
Function fnScrFunc5()
$ProgressTextBox.text = "Set some internet favorites"
SLEEP 1
EndFunction
Function fnScrFunc6()
$ProgressTextBox.text = "Logonscript complete. Thank you."
Sleep 1
EndFunction
Can he skip When a Function is completed?
Greets JoosTy