Run("D:\Access non Installato\SETUP.EXE") WinWaitActive("Installazione di Cinema e follia", "Installazione guidata di Cinema e follia") Send("{ENTER}") WinWaitActive("Installazione di Cinema e follia", "Informazioni utente") Send("{ENTER}") WinWaitActive("Installazione di Cinema e follia", "Selezione tipo di installazione") Send("{ENTER}") WinWaitActive("Installazione di Cinema e follia", "Inizio installazione") Send("{ENTER}") WinWaitActive("Installazione di Cinema e follia", "Per uscire dall'Installazione guidata, scegliere Fine.") Send("{ENTER}") Sleep(1000) ShellExecute("C:\Documents and Settings\" & @UserName & "\Desktop\Cinema e follia-2000")