PDA

View Full Version : Javascript multiple msgbox con intervallo di tempo??


brubaker
04-04-2014, 11:37
Nuovo rompicapo anche per oggi...:D :) ho una chiamata tramite un onclick button con un susseguirsi di messaggi tutto funziona alla perfezione tramite esempio:
<script type="text/javascript">

function welcome() {
{

var r = confirm("prova1");

if (r==true)
{
Avviso_1.Stop();
Avviso_2.Play();
}
else
{
window.close();
}
{
var r = confirm("prova2");
if (r==true)
{
Avviso_2.Stop();
Extract_1.Play();
}
else
{
window.close();
}
{
var r = confirm("prova3");
if (r==true)
{
Extract_1.Stop();
Extract_2.Play();
}
else
{
window.close();
}
var r = confirm("prova4");
if (r==true)
{
Extract_2.Stop();
PleaseWait.Play();
}
else
{
window.close();
}
var r = confirm("prova5");
if (r==true)
{
PleaseWait.Stop();
}
else
{
var shell = new ActiveXObject("WScript.shell");
shell.run("BKP\\End_Closing.exe");
window.close();
}
}

}

}

}
</script>
Ora cio' che mi servirebbe e' un periodo di tempo tra un mess e l'altro...:confused: Queste funzioni:

setTimeout ( "welcome()", 2000 );
window.setTimeout(Welcome, 2000);
var r=setTimeout(function() {
confirm ("WELCOME");
},2000);
setTimeout("document.getElementById('welcome')", 1000)
window.setTimeout(Welcome, 1000);
var
setTimeout = window.setTimeout,
setInterval = window.setInterval
;

Le ho provate in tutti i modi ma non so "come" "dove" è perchè non funziona....all ok dei MSGBOX continuano a susseguirsi l'uno dietro l'altro senza il tempo impostato.:rolleyes: :rolleyes: :rolleyes: :mbe: :confused:

CIOE' IN POCHE PAROLE CREARE UNA COSA DEL GENERE IN JAVASCRIPT:

wscript.sleep 3000

Set Player = createobject("Wmplayer.OCX.7")
Player.url = "Resources\Voices\Welcome.mp3"

Set WSHShell = WScript.CreateObject("WScript.Shell")
intReturn = wshshell.Popup("uno", ,"AVVISO",1+64)

If (intReturn = vbOK) Then

End If

If (intReturn = vbCANCEL) Then


End If

wscript.sleep 3000

Set Player = createobject("Wmplayer.OCX.7")
Player.url = "Resources\Voices\Continua.mp3"

Set WSHShell = WScript.CreateObject("WScript.Shell")
intReturn = wshshell.Popup("due", ,"AVVISO",1+64)

If (intReturn = vbOK) Then

End If

If (intReturn = vbCANCEL) Then


End If

wscript.sleep 3000

Set Player = createobject("Wmplayer.OCX.7")
Player.url = "Resources\Voices\Avviso 1.mp3"

Set WSHShell = WScript.CreateObject("WScript.Shell")
intReturn = wshshell.Popup("tre", ,"AVVISO",1+64)

If (intReturn = vbOK) Then

End If

If (intReturn = vbCANCEL) Then

End If

wscript.sleep 3000

Set Player = createobject("Wmplayer.OCX.7")
Player.url = "Resources\Voices\Avviso 2.mp3"

Set WSHShell = WScript.CreateObject("WScript.Shell")
intReturn = wshshell.Popup("quattro", ,"WARNING!!!",1+64)

If (intReturn = vbOK) Then

End If

If (intReturn = vbCANCEL) Then


End If

wscript.sleep 3000

Set Player = createobject("Wmplayer.OCX.7")
Player.url = "Resources\Voices\Extract 1.mp3"

Set WSHShell = WScript.CreateObject("WScript.Shell")
intReturn = wshshell.Popup("cinque", ,"AVVISO!!!",1+32)

If (intReturn = vbOK) Then

End If

If (intReturn = vbCANCEL) Then


End If

wscript.sleep 3000

Set Player = createobject("Wmplayer.OCX.7")
Player.url = "Resources\Voices\Extract 2.mp3"

Set WSHShell = WScript.CreateObject("WScript.Shell")
intReturn = wshshell.Popup("sei", ,"AVVISO!!!",1+64)

If (intReturn = vbOK) Then

End If

If (intReturn = vbCANCEL) Then


End If