VisualBasicScript 1

VB Script

Questa pagina avrà un taglio nettamente pratico; gli esempi presentati saranno in qualche caso volutamente non ottimizzati per favorire la comprensione del lettore.
Se ancora non lo avete fatto, potete leggere l' introduzione, altrimenti passate agli esempi.
Nota: La pagina sarà aggiornata settimanalmente (se possibile) con nuovi esempi.

**VBS ci dà l'ora (il primo script):**

Tradizionalmente il primo programma è il classico "Hello World", il quale scrive queste parole sullo schermo. Questo senz'altro poteva provocare la felicità di un aspirante a programmatore nei tempi delle applicazioni a "console" (per esempio Dos), ma difficilmente la gioia delle nuove leve. Cosi che già che siamo nel mondo Windows
cominceremo con un bottone che chiamerà una finestra la quale ci dirà l'ora e il giorno corrente.
Create una pagina HTML e aggiungetele un bottone nel Body usando i tags: Input Type = "Button", Name = "btnOrologio", Valore = "Prova qui...".
Nel Head dopo il titolo della pagina aggiungete <SCRIPT LANGUAGE=VBScript> il quale indicherà al browser che linguaggio userete.
Dopo scrivete il seguente Sub che sarà eseguito quando premerete il bottone:
Sub btnOrologio_OnClick
MsgBox "Sono le " & time & " del " & DateValue(date) ,0, "Benvenuto!!"
End Sub
Finite lo script con:
</SCRIPT>
Dovresti ottenere il seguente risultato (solo Internet Explorer):

Cosa abbiamo fatto? - Abbiamo creato un bottone che abbiamo chiamato btnOrologio per il quale nella procedura OnClick (che viene chiamata indovinate quando...) chiama la funzione VBS MsgBox che crea una tipica finestra dei messagi di Windows, la quale è modale, ossia fin che non la chiuderete non potrete usare un'altra finestra. Alla funzione MsgBox passiamo i seguenti parametri:

messaggio , tipo finestra , titolo Come vedete nel messaggio sono state incluse altre 2 funzioni: time e DateValue(date), la prima ci restituisce l'ora e la seconda la data.
Il simbolo & serve a concatenare le stringhe di testo.
Allora provate basandovi in questo esempio a creare una MsgBox con un altro messaggio e titolo, passando alla funzione MsgBox come tipo finestra il valore vbOk. Cosa è cambiato nella finestra?
Sperimentate fino all' esempio della prossima settimana, ciao!

Tecnica dell' "esecuzione immediata":

Quando parliamo di "esecuzione immediata" ci riferiamo allo script, non al visitatore della nostra pagina!! Faremo in modo che il nostro script sia esecutato all' apertura della pagina nella quale è inserito; la tecnica consiste nello scrivere il codice in questione senza che questo faccia parte d'una funzione, sfruttando cosi una caratteristica di vbs.
Create una nuova pagina e inserite dove volete il seguente:

Dopodiche è una buona opportunità mostrarvi come si scrive un commento, ossia una nota che vi potrebbe risultare utile ma che non affetta il funzionamento dello script (la script engine lo ignora) e non è visibile nel browser:

'Questo è un commento

Vbs considera un commento quello che scrivete dopo l' apice ( ' ), ma attenzione!, dovete cominciare ogni nuova linea di commenti con un nuovo apice cosi che:

'Questo è un altro commento

Document.WriteLn("Prima riga" & "<BR>" & "questa è la seconda" & "<BR>")
Document.Write("Questa è una riga scritta ")
Document.Write("usando Document.Write ")

Per finire lo script:

</SCRIPT>

Prima di vedere il risultato vediamo qualcosa in più:
La nostra intenzione è visualizzare diverse righe di testo che sono create dinamicamente all' apertura della pagina, e per farlo usiamo le funzioni WriteLn e Write le cui sintassi sono:

oggetto.WriteLn(testo) oggetto.Write(testo) La differenza tra la prima funzione e la seconda è che quest' ultima scrive strings una a continuazione dell'altra.Notate anche che il <BR> non lo vedrete scritto nel Browser cosi come altri tags che potete inserire (sempre all' interno d'una string), giacchè dove scrivete è in realtà nel sorgente della pagina.
Per ultimo come oggetto abbiamo usato Document che si referisce alla pagina sulla quale si trova lo script.
Questo è il risultato: mostra esempio

Arrivederci fino al prossimo script!!

Un mini browser nella nostra pagina:

Ma proprio mini, anzi minimale; l' idea consiste nel dare la possibilità al visitatore della nostra pagina di visitare un sito web su sua scelta, (magari suggerendogliene uno), conservando la nostra pagina aperta. Come? la soluzione è solo una: aprire un' altra finestra del browser con la pagina richiesta caricata.
Per primo creiamo come sempre nell' Head il nostro script scrivendo:

<SCRIPT LANGUAGE=VBScript>

Dopo scrivete il seguente Sub (simile al primo script):

Sub btnBrowser_OnClick

Quando il visitatore farà click sul bottone (che definiremo dopo chiamandolo btnBrowser) visualizzerà una finestra d'input chiedendole di digitare l'url della pagina
che vuole visitare:

        SitoWeb = InputBox( "Digita una Url valida e premi Ok", "Visit  Web" ,

                                              "http://users.iol.it/hmartinez/js1.html")

La funzione InputBox apre la finestra d'input e se si preme Ok ci ritorna una stringa (che chiameremo SitoWeb) col testo digitato nella textbox, altrimenti la stringa sarà vuota ("").
Cosi che dobbiamo considerare la possibilità che l'usuario faccia click su cancella, o chiuda la finestra d'input col pulsante "x", o semplicemente faccia Ok ma non scriva niente nella textbox:

If (SitoWeb <> "") then

Una volta sicuri (la stringa non è uguale a ""), apriamo una seconda finestra del Browser passandole come parametro l'url SitoWeb, il titolo della finestra (nell' esempio
"Visita da Applets & Altro") e una serie d' attributi:

                open SitoWeb,"Visita da Applets & Altro","toolbars = no,location=no,directories=no,

                                        status = no, menubar = yes,scrollbars = yes, resizable = no" ,top = 100

                    left = 0, width = 400, height =200

        End If

End Sub

</SCRIPT>

Per ultimo dobbiamo inserire un bottone nella pagina, cosi che nel Body scriviamo:

Vediamo un pò : abbiamo usato la funzione InputBox usando la sintassi :

Stringa = InputBox(testo,titolo,input suggerito)

Anche Open con:

Open url,titolo finestra,attributi finestra

E la clausola If Then -> End If per valutare se la stringa era vuota, If serve a controllare il flusso dello script già che valuta l' espressione tra parentesi e se è vera esegue il codice tra Then e End If, altrimenti la salta.
Il risultato è questo :

notate che se tra i parametri d'Open non includete top,left,height è width, la finestra occuperà tutto lo schermo.

Grazie per l' attenzione (spero...), e alla prossima!!