Code: Select all
/*
Apostador
Copyright 2023 Benedito Carneiro
Save the script as UTF-8 with BOM
*/
#SingleInstance Force
SendMode Input
SetWorkingDir %A_ScriptDir%
bc := Chr(0169) " 2023 Benedito Carneiro"
Gui, Default
Gui, Font, s13 cWhite, Segoe UI
Gui, Color, 003366
Gui, Add, Text,, Clique nos botões brancos para ver os palpites
Gui, Add, Text,, Mega-sena:
Gui, Add, Button, h30 w330 vms gC
Gui, Add, Text,, Lotofácil:
Gui, Add, Button, h30 w330 vlf gA
Gui, Add, Text,, Quina:
Gui, Add, Button, h30 w330 vqu gE
Gui, Add, Text,, +Milionária:
Gui, Add, Button, h30 w330 vmi gD
Gui, Add, Text,, Dia de Sorte:
Gui, Add, Button, h30 w330 vds gB
Gui, Add, Text,, Jogo do Bicho:
Gui, Add, Button, h30 w330 vbi gF
Gui, Add, Text,, Loteria Federal:
Gui, Add, Button, h30 w330 vnu gG
Gui, Add, Text,,
Gui, Add, Button, h30 w80 gSair, Sair
Gui, Add, Text,, %bc%
Gui, Show
return
; Mega-sena
C:
Random, p1, 1, 10
Random, p2, 11, 20
Random, p3, 21, 30
Random, p4, 31, 40
Random, p5, 41, 50
Random, p6, 51, 60
palpite := p1 . " " . p2 . " " . p3 . " " . p4 . " " . p5 . " " . p6
GuiControl,,ms,%palpite%
return
; Dia de Sorte
B:
Random, p1, 1, 5
Random, p2, 6, 9
Random, p3, 10, 13
Random, p4, 14, 18
Random, p5, 19, 23
Random, p6, 24, 27
Random, p7, 28, 31
palpite := p1 . " " . p2 . " " . p3 . " " . p4 . " " . p5 . " " . p6 . " " . p7 . " - Mês: "
Random, p1, 1, 12
Switch p1{
Case 1: palpite := palpite . "janeiro"
Case 2: palpite := palpite . "fevereiro"
Case 3: palpite := palpite . "março"
Case 4: palpite := palpite . "abril"
Case 5: palpite := palpite . "maio"
Case 6: palpite := palpite . "junho"
Case 7: palpite := palpite . "julho"
Case 8: palpite := palpite . "agosto"
Case 9: palpite := palpite . "setembro"
Case 10: palpite := palpite . "outubro"
Case 11: palpite := palpite . "novembro"
Case 12: palpite := palpite . "dezembro"
}
GuiControl,,ds,%palpite%
return
; Quina
E:
Random, p1, 1, 16
Random, p2, 17, 32
Random, p3, 33, 48
Random, p4, 49, 64
Random, p5, 65, 80
palpite := p1 . " " . p2 . " " . p3 . " " . p4 . " " . p5
GuiControl,,qu,%palpite%
return
; Lotofácil
A:
Random, p1, 1, 5
Random, p2, 1, 5
Random, p3, 1, 5
while (p2 = p1){
Random, p2, 1, 5
}
while (p3 = p1 || p3 = p2){
Random, p3, 1, 5
}
Random, p4, 6, 10
Random, p5, 6, 10
Random, p6, 6, 10
while (p5 = p4){
Random, p5, 6, 10
}
while (p6 = p4 || p6 = p5){
Random, p6, 6, 10
}
Random, p7, 11, 15
Random, p8, 11, 15
Random, p9, 11, 15
while (p8 = p7){
Random, p8, 11, 15
}
while (p9 = p7 || p9 = p8){
Random, p9, 11, 15
}
Random, p10, 16, 20
Random, p11, 16, 20
Random, p12, 16, 20
while (p11 = p10){
Random, p11, 16, 20
}
while (p12 = p10 || p12 = p11){
Random, p12, 16, 20
}
Random, p13, 21, 25
Random, p14, 21, 25
Random, p15, 21, 25
while (p14 = p13){
Random, p14, 21, 25
}
while (p15 = p13 || p15 = p14){
Random, p15, 21, 25
}
cinco := p1 . " " . p2 . " " . p3 . " " . p4 . " " . p5
Sort, cinco, "N D "
palpite := cinco . " "
cinco := p6 . " " . p7 . " " . p8 . " " . p9 . " " . p10
Sort, cinco, "N D "
palpite := palpite . cinco . " "
cinco := p11 . " " . p12 . " " . p13 . " " . p14 . " " . p15
Sort, cinco, "N D "
palpite := palpite . cinco
GuiControl,,lf,%palpite%
return
; +Milionária
D:
Random, p1, 1, 8
Random, p2, 9, 16
Random, p3, 17, 24
Random, p4, 25, 32
Random, p5, 33, 40
Random, p6, 41, 50
palpite := p1 . " " . p2 . " " . p3 . " " . p4 . " " . p5 . " " . p6
Random, p1, 1, 3
Random, p2, 4, 6
palpite := palpite . " - Trevos: " . p1 . " e " . p2
GuiControl,,mi,%palpite%
return
; Jogo do Bicho
F:
Random, p, 1, 25
Switch p{
Case 1: palpite := "Avestruz (01, 02, 03 e 04)"
Case 2: palpite := "Águia (05, 06, 07 e 08)"
Case 3: palpite := "Burro (09, 10, 11 e 12)"
Case 4: palpite := "Borboleta (13, 14, 15 e 16)"
Case 5: palpite := "Cachorro (17, 18, 19 e 20)"
Case 6: palpite := "Cabra (21, 22, 23 e 24)"
Case 7: palpite := "Carneiro (25, 26, 27 e 28)"
Case 8: palpite := "Camelo (29, 30, 31 e 32)"
Case 9: palpite := "Cobra (33, 34, 35 e 36)"
Case 10: palpite := "Coelho (37, 38, 39 e 40)"
Case 11: palpite := "Cavalo (41, 42, 43 e 44)"
Case 12: palpite := "Elefante (45, 46, 47 e 48)"
Case 13: palpite := "Galo (49, 50, 51 e 52)"
Case 14: palpite := "Gato (53, 54, 55 e 56)"
Case 15: palpite := "Jacaré 57, 58, 59 e 60)"
Case 16: palpite := "Leão (61, 62, 63 e 64)"
Case 17: palpite := "Macaco (65, 66, 67 e 68)"
Case 18: palpite := "Porco (69, 70, 71 e 72)"
Case 19: palpite := "Pavão (73, 74, 75 e 76)"
Case 20: palpite := "Peru (77, 78, 79 e 80)"
Case 21: palpite := "Touro (81, 82, 83 e 84)"
Case 22: palpite := "Tigre (85, 86, 87 e 88)"
Case 23: palpite := "Urso (89, 90, 91 e 92)"
Case 24: palpite := "Veado (93, 94, 95 e 96)"
Case 25: palpite := "Vaca (97, 98, 99 e 00)"
}
GuiControl,,bi,%palpite%
Return
; Loteria Federal
G:
Random, p1, 0, 19999
Random, p2, 20000, 39999
Random, p3, 40000, 59999
Random, p4, 60000, 79999
Random, p5, 80000, 99999
palpite := p1 . " " . p2 . " " . p3 . " " . p4 . " " . p5
GuiControl,,nu,%palpite%
Return
GuiEscape:
GuiClose:
Sair:
Gui, Destroy
ExitApp