Sign in to follow this  
Followers 0
latoonne

How to call a function and continue script

2 posts in this topic

hello everybody,

My script call a function for message waiting with a permanent loop, how to continue my script.

I join my script.

AutoItSetOption("TrayIconHide", 1)

$x=1

$FileMsi = @Windowsdir & "\Temp\VPN\"

$FileActiv= @Windowsdir & "\Temp\VPN\Setup\"

_Cleanup("Installation VPN en cours.. Merci de Patienter.")

_waiting()

RunWait("msiexec /i " & chr(34) & $FileMsi & "vpnclient_setup.msi" & chr(34) & " /qn /norestart","",@SW_HIDE)

_Cleanup("Fin de l'installation VPN.")

Sleep(2000)

_Cleanup("Installation d'ActivCard Gold.")

RunWait("msiexec /i " & chr(34) & $FileActiv & "isscript.msi" & chr(34) & " /qn /norestart","",@SW_HIDE)

RunWait("msiexec /qn /i " & chr(34) & $FileActiv & "ActivCard Gold.msi" & chr(34) & " ARUSBREQ=-1 ACTIVKEYREQ=1 GUILREQ=-1 ","",@SW_HIDE)

RunWait("Regedit /s " & chr(34) & $FileMsi & "\OCE_Gold_registry_setup.reg" & chr(34),"",@SW_HIDE)

RunWait("Regedit /s " & chr(34) & $FileMsi & "\QuickFill_predefinition.reg" & chr(34),"",@SW_HIDE)

_Cleanup("Fin de l'installation d'ActivCard Gold.. Merci de Patienter.")

_Cleanup("Reboot du Pc dans 5 Secondes")

Sleep(5000)

msgbox(16,"Reboot désactivé pour test","")

;~ Shutdown(2)

Func _Cleanup($message)

If $message <> '' Then

If WinExists("Installation du Client VPN.") Then

ControlSetText("Installation du Client VPN.", "", "Static1", $message & @TAB & "")

Else

SplashTextOn("Installation du Client VPN.", $message & @TAB & "", 400, 50, (@DesktopWidth-400)/2, (@DesktopHeight-@DesktopHeight)/2, 4, "")

EndIf

Else

SplashOff()

EndIf

Sleep(2000)

$x = $x + 1

EndFunc

Func _Waiting ()

;~ AutoItSetOption('trayIconDebug', 0)

AutoItWinSetTitle('BulletBar')

Dim $ProgressArray[24]

; empty box = c, filled box = g

$ProgressArray[0] = 'g g g g g c c c c c c c c c c c c c c c c c c c'

$ProgressArray[1] = 'c g g g g g c c c c c c c c c c c c c c c c c c'

$ProgressArray[2] = 'c c g g g g g c c c c c c c c c c c c c c c c c'

$ProgressArray[3] = 'c c c g g g g g c c c c c c c c c c c c c c c c'

$ProgressArray[4] = 'c c c c g g g g g c c c c c c c c c c c c c c c'

$ProgressArray[5] = 'c c c c c g g g g g c c c c c c c c c c c c c c'

$ProgressArray[6] = 'c c c c c c g g g g g c c c c c c c c c c c c c'

$ProgressArray[7] = 'c c c c c c c g g g g g c c c c c c c c c c c c'

$ProgressArray[8] = 'c c c c c c c c g g g g g c c c c c c c c c c c'

$ProgressArray[9] = 'c c c c c c c c c g g g g g c c c c c c c c c c'

$ProgressArray[10] = 'c c c c c c c c c c g g g g g c c c c c c c c c'

$ProgressArray[11] = 'c c c c c c c c c c c g g g g g c c c c c c c c'

$ProgressArray[12] = 'c c c c c c c c c c c c g g g g g c c c c c c c'

$ProgressArray[13] = 'c c c c c c c c c c c c c g g g g g c c c c c c'

$ProgressArray[14] = 'c c c c c c c c c c c c c c g g g g g c c c c c'

$ProgressArray[15] = 'c c c c c c c c c c c c c c c g g g g g c c c c'

$ProgressArray[16] = 'c c c c c c c c c c c c c c c c g g g g g c c c'

$ProgressArray[17] = 'c c c c c c c c c c c c c c c c c g g g g g c c'

$ProgressArray[18] = 'c c c c c c c c c c c c c c c c c c g g g g g c'

$ProgressArray[19] = 'c c c c c c c c c c c c c c c c c c c g g g g g'

$ProgressArray[20] = 'g c c c c c c c c c c c c c c c c c c c g g g g'

$ProgressArray[21] = 'g g c c c c c c c c c c c c c c c c c c c g g g'

$ProgressArray[22] = 'g g g c c c c c c c c c c c c c c c c c c c g g'

$ProgressArray[23] = 'g g g g c c c c c c c c c c c c c c c c c c c g'

SplashTextOn ('Please Wait, Process in Progress.', '-',300,60,-1,-1,0,'Webdings', '6')

$i=0

While 1

ControlSetText('Please Wait, Process in Progress.', '','Static1', @LF & $ProgressArray[$i])

$i=$i+1

if $i = 24 then $i = 0

sleep(100)

Wend

EndFunc

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0