in cerca di aiuto

[Serpico 90]

Salve, per gli esperti di script.PER FAVORE, potete elaborare questo script del Sig.Veccchione?
Grazie e abuon rendere


CIAO!!! PENSO DI FARE REGALO GRADITO PER LEI E PER TUTTI GLI AMICI DEL FORUM CIAO!!!




Ricerca automatica ambate - La Macchina Del Tempo " by Antonio Vecchione"


Ricerca della spia effettuata sul 2° estratto della ruota di CAGLIARI


Numero di colpi :18 Indice di estrazione mensile: Ultima del mese
Data di inizio ricerca : 07/01/1871 (1) Data di fine ricerca: 20/04/2013 (8681)
Ruote di gioco: BARI CAGLIARI FIRENZE GENOVA MILANO NAPOLI PALERMO ROMA TORINO VENEZIA NAZIONALE


Spia 1 Indice: 3° di TORINO + 86 Ruota di gioco: VENEZIA Copertura: 18/18
Spia 2 Indice: 2° di NAPOLI + 80 Ruota di gioco: BARI Copertura: 6/6
Spia 3 Indice: 1° di BARI + 22 Ruota di gioco: TORINO Copertura: 14/14
Spia 4 Indice: 3° di ROMA + 88 Ruota di gioco: NAPOLI Copertura: 11/11
Spia 5 Indice: 3° di PALERMO + 85 Ruota di gioco: GENOVA Copertura: 11/11
Spia 6 Indice: 3° di BARI + 70 Ruota di gioco: ROMA Copertura: 13/13
Spia 7 Indice: 3° di FIRENZE + 86 Ruota di gioco: FIRENZE Copertura: 9/9
Spia 8 Indice: 3° di GENOVA + 88 Ruota di gioco: MILANO Copertura: 9/9
Spia 9 Indice: 5° di TORINO + 89 Ruota di gioco: ROMA Copertura: 9/9
Spia 10 Indice: 5° di FIRENZE + 79 Ruota di gioco: NAPOLI Copertura: 13/13
Spia 11 Indice: 4° di VENEZIA + 87 Ruota di gioco: CAGLIARI Copertura: 12/12
Spia 12 Indice: 4° di MILANO + 89 Ruota di gioco: PALERMO Copertura: 6/6
Spia 13 Indice: 2° di PALERMO + 88 Ruota di gioco: PALERMO Copertura: 7/7
Spia 14 Indice: 2° di ROMA + 77 Ruota di gioco: MILANO Copertura: 8/8
Spia 15 Indice: 3° di VENEZIA + 88 Ruota di gioco: BARI Copertura: 12/12
Spia 16 Indice: 1° di MILANO + 83 Ruota di gioco: BARI Copertura: 12/12
Spia 17 Indice: 2° di ROMA + 84 Ruota di gioco: CAGLIARI Copertura: 10/10
Spia 18 Indice: 2° di BARI + 10 Ruota di gioco: PALERMO Copertura: 5/5
Spia 19 Indice: 2° di CAGLIARI + 79 Ruota di gioco: BARI Copertura: 7/7
Spia 20 Indice: 5° di FIRENZE + 82 Ruota di gioco: VENEZIA Copertura: 10/10
Spia 21 Indice: 4° di MILANO + 85 Ruota di gioco: VENEZIA Copertura: 8/8
Spia 22 Indice: 2° di CAGLIARI + 85 Ruota di gioco: BARI Copertura: 7/7
Spia 23 Indice: 1° di BARI + 14 Ruota di gioco: CAGLIARI Copertura: 3/3
Spia 24 Indice: 5° di PALERMO + 60 Ruota di gioco: PALERMO Copertura: 4/4
Spia 25 Indice: 4° di NAPOLI + 87 Ruota di gioco: GENOVA Copertura: 8/8
Spia 26 Indice: 5° di MILANO + 87 Ruota di gioco: VENEZIA Copertura: 9/9
Spia 27 Indice: 2° di CAGLIARI + 87 Ruota di gioco: VENEZIA Copertura: 10/10
Spia 28 Indice: 3° di VENEZIA + 80 Ruota di gioco: MILANO Copertura: 12/12
Spia 29 Indice: 4° di BARI + 82 Ruota di gioco: FIRENZE Copertura: 10/10
Spia 30 Indice: 1° di BARI + 72 Ruota di gioco: TORINO Copertura: 6/6
Spia 31 Indice: 4° di TORINO + 82 Ruota di gioco: MILANO Copertura: 13/13
Spia 32 Indice: 4° di VENEZIA + 84 Ruota di gioco: TORINO Copertura: 8/8
Spia 33 Indice: 5° di PALERMO + 49 Ruota di gioco: GENOVA Copertura: 3/3
Spia 34 Indice: 4° di VENEZIA + 83 Ruota di gioco: BARI Copertura: 13/13
Spia 35 Indice: 2° di MILANO + 84 Ruota di gioco: GENOVA Copertura: 6/6
Spia 36 Indice: 4° di NAPOLI + 78 Ruota di gioco: MILANO Copertura: 7/7
Spia 37 Indice: 5° di ROMA + 75 Ruota di gioco: NAPOLI Copertura: 12/12
Spia 38 Indice: 2° di CAGLIARI + 53 Ruota di gioco: PALERMO Copertura: 12/12
Spia 39 Indice: 3° di MILANO + 82 Ruota di gioco: FIRENZE Copertura: 8/8
Spia 40 Indice: 2° di PALERMO + 84 Ruota di gioco: TORINO Copertura: 11/11
Spia 41 Indice: 2° di BARI + 65 Ruota di gioco: FIRENZE Copertura: 8/8
Spia 42 Indice: 5° di GENOVA + 75 Ruota di gioco: TORINO Copertura: 12/12
Spia 43 Indice: 2° di MILANO + 89 Ruota di gioco: TORINO Copertura: 8/8
Spia 44 Indice: 3° di BARI + 73 Ruota di gioco: MILANO Copertura: 12/12
Spia 45 Indice: 3° di BARI + 38 Ruota di gioco: GENOVA Copertura: 13/13
Spia 46 Indice: 3° di CAGLIARI + 83 Ruota di gioco: ROMA Copertura: 10/10
Spia 47 Indice: 5° di BARI + 74 Ruota di gioco: NAPOLI Copertura: 8/8
Spia 48 Indice: 2° di FIRENZE + 50 Ruota di gioco: PALERMO Copertura: 7/7
Spia 49 Indice: 3° di MILANO + 81 Ruota di gioco: PALERMO Copertura: 9/9
Spia 50 Indice: 3° di TORINO + 74 Ruota di gioco: MILANO Copertura: 10/10
Spia 51 Indice: 3° di BARI + 86 Ruota di gioco: FIRENZE Copertura: 9/9
Spia 52 Indice: 1° di CAGLIARI + 55 Ruota di gioco: MILANO Copertura: 8/8
Spia 53 Indice: 2° di BARI + 87 Ruota di gioco: TORINO Copertura: 10/10
Spia 54 Indice: 2° di NAPOLI + 76 Ruota di gioco: BARI Copertura: 8/8
Spia 55 Indice: 1° di BARI + 85 Ruota di gioco: MILANO Copertura: 12/12
Spia 56 Indice: 4° di BARI + 76 Ruota di gioco: ROMA Copertura: 15/15
Spia 57 Indice: 4° di PALERMO + 50 Ruota di gioco: CAGLIARI Copertura: 3/3
Spia 58 Indice: 2° di BARI + 69 Ruota di gioco: BARI Copertura: 9/9
Spia 59 Indice: 5° di GENOVA + 74 Ruota di gioco: FIRENZE Copertura: 8/8
Spia 60 Indice: 4° di CAGLIARI + 89 Ruota di gioco: NAPOLI Copertura: 10/10
Spia 61 Indice: 2° di CAGLIARI + 46 Ruota di gioco: ROMA Copertura: 6/6
Spia 62 Indice: 4° di BARI + 60 Ruota di gioco: TORINO Copertura: 11/11
Spia 63 Indice: 2° di BARI + 29 Ruota di gioco: BARI Copertura: 10/10
Spia 64 Indice: 2° di FIRENZE + 84 Ruota di gioco: PALERMO Copertura: 12/12
Spia 65 Indice: 3° di CAGLIARI + 80 Ruota di gioco: VENEZIA Copertura: 9/9
Spia 66 Indice: 5° di PALERMO + 87 Ruota di gioco: CAGLIARI Copertura: 9/9
Spia 67 Indice: 1° di BARI + 62 Ruota di gioco: FIRENZE Copertura: 11/11
Spia 68 Indice: 2° di CAGLIARI + 47 Ruota di gioco: BARI Copertura: 6/6
Spia 69 Indice: 5° di GENOVA + 82 Ruota di gioco: PALERMO Copertura: 11/11
Spia 70 Indice: 1° di NAPOLI + 86 Ruota di gioco: VENEZIA Copertura: 16/16
Spia 71 Indice: 4° di TORINO + 79 Ruota di gioco: NAPOLI Copertura: 12/12
Spia 72 Indice: 2° di NAPOLI + 86 Ruota di gioco: PALERMO Copertura: 13/13
Spia 73 Indice: 2° di CAGLIARI + 46 Ruota di gioco: GENOVA Copertura: 13/13
Spia 74 Indice: 1° di BARI + 73 Ruota di gioco: GENOVA Copertura: 11/11
Spia 75 Indice: 2° di CAGLIARI + 80 Ruota di gioco: VENEZIA Copertura: 8/8
Spia 76 Indice: 1° di PALERMO + 82 Ruota di gioco: BARI Copertura: 12/12
Spia 77 Indice: 5° di CAGLIARI + 77 Ruota di gioco: ROMA Copertura: 10/10
Spia 78 Indice: 3° di VENEZIA + 79 Ruota di gioco: TORINO Copertura: 12/12
Spia 79 Indice: 5° di CAGLIARI + 83 Ruota di gioco: MILANO Copertura: 10/10
Spia 80 Indice: 5° di BARI + 76 Ruota di gioco: GENOVA Copertura: 4/4
Spia 81 Indice: 2° di MILANO + 82 Ruota di gioco: FIRENZE Copertura: 13/13
Spia 82 Indice: 5° di BARI + 81 Ruota di gioco: ROMA Copertura: 8/8
Spia 83 Indice: 2° di CAGLIARI + 23 Ruota di gioco: FIRENZE Copertura: 9/9
Spia 84 Indice: 3° di PALERMO + 81 Ruota di gioco: CAGLIARI Copertura: 9/9
Spia 85 Indice: 3° di VENEZIA + 76 Ruota di gioco: NAPOLI Copertura: 10/10
Spia 86 Indice: 5° di PALERMO + 89 Ruota di gioco: FIRENZE Copertura: 9/9
Spia 87 Indice: 4° di ROMA + 78 Ruota di gioco: FIRENZE Copertura: 9/9
Spia 88 Indice: 2° di PALERMO + 77 Ruota di gioco: ROMA Copertura: 8/8
Spia 89 Indice: 4° di BARI + 79 Ruota di gioco: PALERMO Copertura: 14/14
Spia 90 Indice: 1° di BARI + 53 Ruota di gioco: BARI Coperturae

 

[Roby]

Ciao serpico
Dovrebbe essere corretto... controlla
Se non gira togliete la solita virgola e l'1 dopo Gioca es
Ora pausa script per un po'....

Sub Main()
Scrivi:Scrivi "La Macchina Del Tempo di Antonio Vecchione ... Script By Blackmore",1
Scrivi 
Dim ruota(10)
Dim ambata(1)
Dim n(1)
Dim posta(1)
posta(1) = 1
k = InputBox("COLPI DI GIOCO",,18)
ini = InputBox("ESTRAZIONE DI PARTENZA",,3850)
fin = InputBox("ESTRAZIONE FINALE",,EstrazioneFin) 
For es = ini To fin 

Call AvanzamentoElab(ini,fin,es) 
If IndiceMensile(es+1)= 1 Then
a = Estratto(es,CA_,2)
If a > 0 Then
  
co=co+1

Scrivi String(105,"*")&" Caso n°"& Format2(co),1
Scrivi DataEstrazione(es)&"  "& SiglaRuota(CA_)&"  "& StringaEstratti(es,CA_)&"  Spia  "& Format2(a)&" In 2°Posizione",1  
If a = 1 Then n(1)= Fuori90(Estratto(es,TO_,3)+ 86):r=10
If a = 2 Then n(1)= Fuori90(Estratto(es,NA_,2)+ 80):r=1
If a = 3 Then n(1)= Fuori90(Estratto(es,BA_,1)+ 22):r=9
If a = 4 Then n(1)= Fuori90(Estratto(es,RO_,3)+ 88):r=6
If a = 5 Then n(1)= Fuori90(Estratto(es,PA_,3)+ 85):r=4
If a = 6 Then n(1)= Fuori90(Estratto(es,BA_,3)+ 70):r=8
If a = 7 Then n(1)= Fuori90(Estratto(es,FI_,3)+ 86):r=3
If a = 8 Then n(1)= Fuori90(Estratto(es,GE_,3)+ 88):r=5
If a = 9 Then n(1)= Fuori90(Estratto(es,TO_,5)+ 89):r=8
If a = 10 Then n(1)= Fuori90(Estratto(es,FI_,5)+ 79):r=6
If a = 11 Then n(1)= Fuori90(Estratto(es,VE_,4)+ 87):r=2
If a = 12 Then n(1)= Fuori90(Estratto(es,MI_,4)+ 89):r=7
If a = 13 Then n(1)= Fuori90(Estratto(es,PA_,2)+ 88):r=7
If a = 14 Then n(1)= Fuori90(Estratto(es,RO_,2)+ 77):r=5
If a = 15 Then n(1)= Fuori90(Estratto(es,VE_,3)+ 88):r=1
If a = 16 Then n(1)= Fuori90(Estratto(es,MI_,1)+ 83):r=1
If a = 17 Then n(1)= Fuori90(Estratto(es,RO_,2)+ 84):r=2
If a = 18 Then n(1)= Fuori90(Estratto(es,BA_,2)+ 10):r=7
If a = 19 Then n(1)= Fuori90(Estratto(es,CA_,2)+ 79):r=1
If a = 20 Then n(1)= Fuori90(Estratto(es,FI_,5)+ 82):r=10
If a = 21 Then n(1)= Fuori90(Estratto(es,MI_,4)+ 85):r=10
If a = 22 Then n(1)= Fuori90(Estratto(es,CA_,2)+ 85):r=1
If a = 23 Then n(1)= Fuori90(Estratto(es,BA_,1)+ 14):r=2
If a = 24 Then n(1)= Fuori90(Estratto(es,PA_,5)+ 60):r=7
If a = 25 Then n(1)= Fuori90(Estratto(es,NA_,4)+ 87):r=4
If a = 26 Then n(1)= Fuori90(Estratto(es,MI_,5)+ 87):r=10
If a = 27 Then n(1)= Fuori90(Estratto(es,CA_,2)+ 87):r=10
If a = 28 Then n(1)= Fuori90(Estratto(es,VE_,3)+ 80):r=5
If a = 29 Then n(1)= Fuori90(Estratto(es,BA_,4)+ 82):r=3
If a = 30 Then n(1)= Fuori90(Estratto(es,BA_,1)+ 72):r=9
If a = 31 Then n(1)= Fuori90(Estratto(es,TO_,4)+ 82):r=5
If a = 32 Then n(1)= Fuori90(Estratto(es,VE_,4)+ 84):r=9
If a = 33 Then n(1)= Fuori90(Estratto(es,PA_,5)+ 49):r=4
If a = 34 Then n(1)= Fuori90(Estratto(es,VE_,4)+ 83):r=1
If a = 35 Then n(1)= Fuori90(Estratto(es,MI_,2)+ 84):r=4
If a = 36 Then n(1)= Fuori90(Estratto(es,NA_,4)+ 78):r=5
If a = 37 Then n(1)= Fuori90(Estratto(es,RO_,5)+ 75):r=6
If a = 38 Then n(1)= Fuori90(Estratto(es,CA_,2)+ 53):r=7
If a = 39 Then n(1)= Fuori90(Estratto(es,MI_,3)+ 82):r=3
If a = 40 Then n(1)= Fuori90(Estratto(es,PA_,2)+ 84):r=9
If a = 41 Then n(1)= Fuori90(Estratto(es,BA_,2)+ 65):r=3
If a = 42 Then n(1)= Fuori90(Estratto(es,GE_,5)+ 75):r=9
If a = 43 Then n(1)= Fuori90(Estratto(es,MI_,2)+ 89):r=9
If a = 44 Then n(1)= Fuori90(Estratto(es,BA_,3)+ 73):r=5
If a = 45 Then n(1)= Fuori90(Estratto(es,BA_,3)+ 38):r=4
If a = 46 Then n(1)= Fuori90(Estratto(es,CA_,3)+ 83):r=8
If a = 47 Then n(1)= Fuori90(Estratto(es,BA_,5)+ 74):r=6
If a = 48 Then n(1)= Fuori90(Estratto(es,FI_,2)+ 50):r=7
If a = 49 Then n(1)= Fuori90(Estratto(es,MI_,3)+ 81):r=7
If a = 50 Then n(1)= Fuori90(Estratto(es,TO_,3)+ 74):r=5
If a = 51 Then n(1)= Fuori90(Estratto(es,BA_,3)+ 86):r=3
If a = 52 Then n(1)= Fuori90(Estratto(es,CA_,1)+ 55):r=5
If a = 53 Then n(1)= Fuori90(Estratto(es,BA_,2)+ 87):r=9
If a = 54 Then n(1)= Fuori90(Estratto(es,NA_,2)+ 76):r=1
If a = 55 Then n(1)= Fuori90(Estratto(es,BA_,1)+ 85):r=5
If a = 56 Then n(1)= Fuori90(Estratto(es,BA_,4)+ 76):r=8
If a = 57 Then n(1)= Fuori90(Estratto(es,PA_,4)+ 50):r=2
If a = 58 Then n(1)= Fuori90(Estratto(es,BA_,2)+ 69):r=1
If a = 59 Then n(1)= Fuori90(Estratto(es,GE_,5)+ 74):r=3
If a = 60 Then n(1)= Fuori90(Estratto(es,CA_,4)+ 89):r=6
If a = 61 Then n(1)= Fuori90(Estratto(es,CA_,2)+ 46):r=8
If a = 62 Then n(1)= Fuori90(Estratto(es,BA_,4)+ 60):r=9
If a = 63 Then n(1)= Fuori90(Estratto(es,BA_,2)+ 29):r=1
If a = 64 Then n(1)= Fuori90(Estratto(es,FI_,2)+ 84):r=7
If a = 65 Then n(1)= Fuori90(Estratto(es,CA_,3)+ 80):r=10
If a = 66 Then n(1)= Fuori90(Estratto(es,PA_,5)+ 87):r=2
If a = 67 Then n(1)= Fuori90(Estratto(es,BA_,1)+ 62):r=3
If a = 68 Then n(1)= Fuori90(Estratto(es,CA_,2)+ 47):r=1
If a = 69 Then n(1)= Fuori90(Estratto(es,GE_,5)+ 82):r=7
If a = 70 Then n(1)= Fuori90(Estratto(es,NA_,1)+ 86):r=10
If a = 71 Then n(1)= Fuori90(Estratto(es,TO_,4)+ 79):r=6
If a = 72 Then n(1)= Fuori90(Estratto(es,NA_,2)+ 86):r=7
If a = 73 Then n(1)= Fuori90(Estratto(es,CA_,2)+ 46):r=4
If a = 74 Then n(1)= Fuori90(Estratto(es,BA_,1)+ 73):r=4
If a = 75 Then n(1)= Fuori90(Estratto(es,CA_,2)+ 80):r=10
If a = 76 Then n(1)= Fuori90(Estratto(es,PA_,1)+ 82):r=1
If a = 77 Then n(1)= Fuori90(Estratto(es,CA_,5)+ 77):r=8
If a = 78 Then n(1)= Fuori90(Estratto(es,VE_,3)+ 79):r=9
If a = 79 Then n(1)= Fuori90(Estratto(es,CA_,5)+ 83):r=5
If a = 80 Then n(1)= Fuori90(Estratto(es,BA_,5)+ 76):r=4
If a = 81 Then n(1)= Fuori90(Estratto(es,MI_,2)+ 82):r=3
If a = 82 Then n(1)= Fuori90(Estratto(es,BA_,5)+ 81):r=8
If a = 83 Then n(1)= Fuori90(Estratto(es,CA_,2)+ 23):r=3
If a = 84 Then n(1)= Fuori90(Estratto(es,PA_,3)+ 81):r=2
If a = 85 Then n(1)= Fuori90(Estratto(es,VE_,3)+ 76):r=6
If a = 86 Then n(1)= Fuori90(Estratto(es,PA_,5)+ 89):r=3
If a = 87 Then n(1)= Fuori90(Estratto(es,RO_,4)+ 78):r=3
If a = 88 Then n(1)= Fuori90(Estratto(es,PA_,2)+ 77):r=8
If a = 89 Then n(1)= Fuori90(Estratto(es,BA_,4)+ 79):r=7
If a = 90 Then n(1)= Fuori90(Estratto(es,BA_,1)+ 53):r=1

ruota(1)= r
ambata(1)= n(1)
ImpostaGiocata 1,ambata,ruota,posta,k,1 
Gioca es,1  ' Se usate L8 o Lottodesk togliete la virgola e l'1 dopo gioca es   
End If
End If
If ScriptInterrotto Then Exit For 
Next 
ScriviResoconto 
End Sub

 

[Serpico 90]

Grazie, funziona correttamente,non ci potevano essre dubbi.....conosco già la Tua bravura e anche la Tua grande disponibilità ad aiutare tutti .
Certamente PAUSA PER UN PO NELLE RICHIESTE MA SE HAI DEI LAVORI CHE VANNO BENE e Gentilmente li vuoi postare siamo qui ad aspettare.
Grazie
Un cordiale saluto
Serpico