Posts written by esimobitmap

Opt("TrayIconHide", 1) ; nessuna tray icon

HotKeySet("+{F9}", "chiudi" )

#include <editconstants.au3>
#include <buttonconstants.au3>
#include <guiconstantsex.au3>
#include <tabconstants.au3>
#include <windowsconstants.au3>
#Include <misc.au3>
#Include <guilistview.au3>

Opt("GUIOnEventMode", 1)

Global $Form,$dll,$PosMouse,$Lista1,$Lista2,$Lista3,$Lista4,$Tab,$TabSelezionato,$Selezione,$SelezioneT1,$SelezioneT2,$SelezioneT3,$SelezioneT4
Global $t1[2],$t2[2],$t3[2],$t4[2],$RigheTab_1,$RigheTab_2,$RigheTab_3,$RigheTab_4,$FormPulsanti,$FinestraInserimento=0
Global $Pos_Finestra_O,$Pos_Finestra_V,$Funzione,$IconaPulsante,$InputPercorsoFunzione,$InputPercorsoIcona
Global $ItemContextMenu[100],$Sheet1ContextMenu[100],$Sheet1item[100],$Sheet2ContextMenu[100],$Sheet2item[100],$Sheet3ContextMenu[100],$Sheet3item[100],$Sheet4ContextMenu[100],$Sheet4item[100]
Global $Button1,$Button2,$Button3,$Button4,$Button5,$Button6,$Button7,$Pulsante,$TestoModifica,$IDModifica,$InputModificaTesto, $TestoModifica,$FormModificaTesto,$TabContextitem

$dll = DllOpen("user32.dll") ; necesario per il controllo del mouse

ApriFile()
ControlloClick()

Func ApriFile()

$File = FileOpen(@ScriptDir &"\Config.ini", 0)

If $File = -1 Then
IniWriteSection (@ScriptDir &"\Config.ini", "UltimoTabAttivo", "Tab=1")
IniWriteSection (@ScriptDir &"\Config.ini", "Tab1", "0=0"&@CRLF&"TestoTab=Pag.1") ;indice 0 indica la quantità di righe Tab1 nel file .ini
IniWriteSection (@ScriptDir &"\Config.ini", "Tab2", "0=0"&@CRLF&"TestoTab=Pag.2") ;indice 0 indica la quantità di righe Tab2 nel file .ini
IniWriteSection (@ScriptDir &"\Config.ini", "Tab3", "0=0"&@CRLF&"TestoTab=Pag.3") ;indice 0 indica la quantità di righe Tab3 nel file .ini
IniWriteSection (@ScriptDir &"\Config.ini", "Tab4", "0=0"&@CRLF&"TestoTab=Pag.4") ;indice 0 indica la quantità di righe Tab4 nel file .ini
IniWriteSection (@ScriptDir &"\Config.ini", "Pulsante1", "Impostato=no"&@CRLF&"Funzione="&@CRLF&"Icona=")
IniWriteSection (@ScriptDir &"\Config.ini", "Pulsante2", "Impostato=no"&@CRLF&"Funzione="&@CRLF&"Icona=")
IniWriteSection (@ScriptDir &"\Config.ini", "Pulsante3", "Impostato=no"&@CRLF&"Funzione="&@CRLF&"Icona=")
IniWriteSection (@ScriptDir &"\Config.ini", "Pulsante4", "Impostato=no"&@CRLF&"Funzione="&@CRLF&"Icona=")
IniWriteSection (@ScriptDir &"\Config.ini", "Pulsante5", "Impostato=no"&@CRLF&"Funzione="&@CRLF&"Icona=")
IniWriteSection (@ScriptDir &"\Config.ini", "Pulsante6", "Impostato=no"&@CRLF&"Funzione="&@CRLF&"Icona=")
IniWriteSection (@ScriptDir &"\Config.ini", "Pulsante7", "Impostato=no"&@CRLF&"Funzione="&@CRLF&"Icona=")
EndIf

FileClose($File)

ControlloClick()

EndFunc

Func ControlloClick()


While 1
Sleep(300)
If _IsPressed("01", $dll) Then ;tasto sx del mouse
Sleep(300)
if _IsPressed("01", $dll) Then ;tasto sx del mouse
if _IsPressed("02", $dll) Then ;tasto dx del mouse
ApriFinestra()
EndIf
EndIf
EndIf
WEnd

EndFunc

Func ApriFinestra()

$TestoTab1 = IniRead(@ScriptDir &"\Config.ini", "Tab1", "TestoTab","")
$TestoTab2 = IniRead(@ScriptDir &"\Config.ini", "Tab2", "TestoTab","")
$TestoTab3 = IniRead(@ScriptDir &"\Config.ini", "Tab3", "TestoTab","")
$TestoTab4 = IniRead(@ScriptDir &"\Config.ini", "Tab4", "TestoTab","")

$PosMouse = MouseGetPos()
$Form = GUICreate("DueClick", 246, 364, $PosMouse[0]-20, $PosMouse[1]-20 ,$WS_EX_TOPMOST)
$Tab = GUICtrlCreateTab(1, 1, 191, 333)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabContextmenu = GUICtrlCreateContextMenu ($Tab)
$TabContextitem = GUICtrlCreateMenuItem ( "Modifica", $TabContextmenu)
GUICtrlSetOnEvent(-1, "ModificaTestoTab")

$TabSheet1 = GUICtrlCreateTabItem($TestoTab1)
$TabSheet2 = GUICtrlCreateTabItem($TestoTab2)
$TabSheet3 = GUICtrlCreateTabItem($TestoTab3)
$TabSheet4 = GUICtrlCreateTabItem($TestoTab4)
GUICtrlCreateTabItem("")
Do ;----------------------------------------pulsanti-----------------------------------------------------
$Button1 = GUICtrlCreateButton("1", 191, 0, 48, 48, $BS_ICON)
GUICtrlSetImage(-1,IniRead(@ScriptDir &"\Config.ini", "Pulsante1", "Icona",""))
If IniRead(@ScriptDir &"\Config.ini", "Pulsante1", "Impostato","no") = "no" Then
GUICtrlSetOnEvent(-1, "FinestraSetPulsanti")
Else
GUICtrlSetOnEvent(-1,"FunzionePulsante1")
EndIf
$Button1ContextMenu = GUICtrlCreateContextMenu($Button1)
$Button1item = GUICtrlCreateMenuItem("Modifica", $Button1)
GUICtrlSetOnEvent(-1,"FinestraSetPulsanti")
$Button2 = GUICtrlCreateButton("2", 191, 47, 48, 48, $BS_ICON)
GUICtrlSetImage(-1,IniRead(@ScriptDir &"\Config.ini", "Pulsante2", "Icona",""))
If IniRead(@ScriptDir &"\Config.ini", "Pulsante2", "Impostato","no") = "no" Then
GUICtrlSetOnEvent(-1, "FinestraSetPulsanti")
Else
GUICtrlSetOnEvent(-1,"FunzionePulsante2")
EndIf
$Button2ContextMenu = GUICtrlCreateContextMenu($Button2)
$Button2item = GUICtrlCreateMenuItem("Modifica", $Button2)
GUICtrlSetOnEvent(-1,"FinestraSetPulsanti")
$Button3 = GUICtrlCreateButton("3", 191, 94, 48, 48, $BS_ICON)
GUICtrlSetImage(-1,IniRead(@ScriptDir &"\Config.ini", "Pulsante3", "Icona",""))
If IniRead(@ScriptDir &"\Config.ini", "Pulsante3", "Impostato","no") = "no" Then
GUICtrlSetOnEvent(-1, "FinestraSetPulsanti")
Else
GUICtrlSetOnEvent(-1,"FunzionePulsante3")
EndIf
$Button3ContextMenu = GUICtrlCreateContextMenu($Button3)
$Button3item = GUICtrlCreateMenuItem("Modifica", $Button3)
GUICtrlSetOnEvent(-1,"FinestraSetPulsanti")
$Button4 = GUICtrlCreateButton("4", 191, 142, 48, 48, $BS_ICON)
GUICtrlSetImage(-1,IniRead(@ScriptDir &"\Config.ini", "Pulsante4", "Icona",""))
If IniRead(@ScriptDir &"\Config.ini", "Pulsante4", "Impostato","no") = "no" Then
GUICtrlSetOnEvent(-1, "FinestraSetPulsanti")
Else
GUICtrlSetOnEvent(-1,"FunzionePulsante4")
EndIf
$Button4ContextMenu = GUICtrlCreateContextMenu($Button4)
$Button4item = GUICtrlCreateMenuItem("Modifica", $Button4)
GUICtrlSetOnEvent(-1,"FinestraSetPulsanti")
$Button5 = GUICtrlCreateButton("5", 191, 189, 48, 48, $BS_ICON)
GUICtrlSetImage(-1,IniRead(@ScriptDir &"\Config.ini", "Pulsante5", "Icona",""))
If IniRead(@ScriptDir &"\Config.ini", "Pulsante5", "Impostato","no") = "no" Then
GUICtrlSetOnEvent(-1, "FinestraSetPulsanti")
Else
GUICtrlSetOnEvent(-1,"FunzionePulsante5")
EndIf
$Button5ContextMenu = GUICtrlCreateContextMenu($Button5)
$Button5item = GUICtrlCreateMenuItem("Modifica", $Button5)
GUICtrlSetOnEvent(-1,"FinestraSetPulsanti")
$Button6 = GUICtrlCreateButton("6", 191, 237, 48, 48, $BS_ICON)
GUICtrlSetImage(-1,IniRead(@ScriptDir &"\Config.ini", "Pulsante6", "Icona",""))
If IniRead(@ScriptDir &"\Config.ini", "Pulsante6", "Impostato","no") = "no" Then
GUICtrlSetOnEvent(-1, "FinestraSetPulsanti")
Else
GUICtrlSetOnEvent(-1,"FunzionePulsante6")
EndIf
$Button6ContextMenu = GUICtrlCreateContextMenu($Button6)
$Button6item = GUICtrlCreateMenuItem("Modifica", $Button6)
GUICtrlSetOnEvent(-1,"FinestraSetPulsanti")
$Button7 = GUICtrlCreateButton("7", 191, 284, 48, 48, $BS_ICON)
GUICtrlSetImage(-1,IniRead(@ScriptDir &"\Config.ini", "Pulsante7", "Icona",""))
If IniRead(@ScriptDir &"\Config.ini", "Pulsante7", "Impostato","no") = "no" Then
GUICtrlSetOnEvent(-1, "FinestraSetPulsanti")
Else
GUICtrlSetOnEvent(-1,"FunzionePulsante7")
EndIf
$Button7ContextMenu = GUICtrlCreateContextMenu($Button7)
$Button7item = GUICtrlCreateMenuItem("Modifica", $Button7)
GUICtrlSetOnEvent(-1,"FinestraSetPulsanti")
GUISetState(@SW_SHOW)
Until 1
If IniRead(@ScriptDir &"\Config.ini", "UltimoTabAttivo", "Tab","")=1 Then
GUICtrlSetState($TabSheet1,$GUI_SHOW)
ElseIf IniRead(@ScriptDir &"\Config.ini", "UltimoTabAttivo", "Tab","")=2 Then
GUICtrlSetState($TabSheet2,$GUI_SHOW)
ElseIf IniRead(@ScriptDir &"\Config.ini", "UltimoTabAttivo", "Tab","")=3 Then
GUICtrlSetState($TabSheet3,$GUI_SHOW)
ElseIf IniRead(@ScriptDir &"\Config.ini", "UltimoTabAttivo", "Tab","")=4 Then
GUICtrlSetState($TabSheet4,$GUI_SHOW)
EndIf


Do

;-----------------------------------chiude la finestra quando il moue esce da essa----------------------
ControlloPosizioneMouse()
;------------------------------------------controlla quale tab è attivo e ne dimensiona le colonne------
$TabSelezionato = GUICtrlRead($Tab)

If $TabSelezionato = 0 Then
$Lista1 = GUICtrlCreateListView("ID| Testo ", 2, 23, 187, 362)
_GUICtrlListView_SetColumn($Lista1, 0,"ID",28,2)
_GUICtrlListView_SetColumn($Lista1, 1," Testo da copiare ", 155)
Tab_1()
EndIf
If $TabSelezionato = 1 Then
$Lista2 = GUICtrlCreateListView("ID| Testo ", 2, 23, 187, 362)
_GUICtrlListView_SetColumn($Lista2, 0,"ID",28,2)
_GUICtrlListView_SetColumn($Lista2, 1," Testo da copiare ", 155)
Tab_2()
EndIf
If $TabSelezionato = 2 Then
$Lista3 = GUICtrlCreateListView("ID| Testo ", 2, 23, 187, 362)
_GUICtrlListView_SetColumn($Lista3, 0,"ID",28,2)
_GUICtrlListView_SetColumn($Lista3, 1," Testo da copiare ", 155)
Tab_3()
EndIf
If $TabSelezionato = 3 Then
$Lista4 = GUICtrlCreateListView("ID| Testo ", 2, 23, 187, 362)
_GUICtrlListView_SetColumn($Lista4, 0,"ID",28,2)
_GUICtrlListView_SetColumn($Lista4, 1," Testo da copiare ", 155)
Tab_4()
EndIf

;-------------------------------------------------------------------------------------------------------

Until 0

EndFunc

Func Tab_1()

$RigheTab_1 = IniRead(@ScriptDir &"\Config.ini", "Tab1", "0","")

If $RigheTab_1>0 Then
For $RigaTab_1 = 1 To $RigheTab_1
$TestoTab_1 = IniRead(@ScriptDir &"\Config.ini", "Tab1", $RigaTab_1,"")
$ItemContextMenu[$RigaTab_1] = GUICtrlCreateListViewItem($RigaTab_1&"|"&$TestoTab_1, $Lista1)
$Sheet1ContextMenu[$RigaTab_1] = GUICtrlCreateContextMenu($ItemContextMenu[$RigaTab_1])
$Sheet1item[$RigaTab_1] = GUICtrlCreateMenuItem("Modifica", $Sheet1ContextMenu[$RigaTab_1])

GUICtrlSetOnEvent(-1,"ModificaItemTab1")
Next
EndIf

$ItemSheet1= GUICtrlCreateListViewItem($RigheTab_1+1 &"|", $Lista1)

Do
ControlloPosizioneMouse()
$TabSelezionato = GUICtrlRead($Tab)
Until $TabSelezionato <> 0
EndFunc

Func Tab_2()

$RigheTab_2 = IniRead(@ScriptDir &"\Config.ini", "Tab2", "0","")

If $RigheTab_2>0 Then
For $RigaTab_2 = 1 To $RigheTab_2
$TestoTab_2 = IniRead(@ScriptDir &"\Config.ini", "Tab2", $RigaTab_2,"")
$ItemContextMenu[$RigaTab_2] = GUICtrlCreateListViewItem($RigaTab_2&"|"&$TestoTab_2, $Lista2)
$Sheet2ContextMenu[$RigaTab_2] = GUICtrlCreateContextMenu($ItemContextMenu[$RigaTab_2])
$Sheet2item[$RigaTab_2] = GUICtrlCreateMenuItem("Modifica", $Sheet2ContextMenu[$RigaTab_2])
GUICtrlSetOnEvent(-1,"ModificaItemTab2")
Next
EndIf

GUICtrlCreateListViewItem($RigheTab_2+1 &"|", $Lista2)

Do
ControlloPosizioneMouse()
$TabSelezionato = GUICtrlRead($Tab)
Until $TabSelezionato <> 1
EndFunc

Func Tab_3()

$RigheTab_3 = IniRead(@ScriptDir &"\Config.ini", "Tab3", "0","")

If $RigheTab_3>0 Then
For $RigaTab_3 = 1 To $RigheTab_3
$TestoTab_3 = IniRead(@ScriptDir &"\Config.ini", "Tab3", $RigaTab_3,"")
$ItemContextMenu[$RigaTab_3] = GUICtrlCreateListViewItem($RigaTab_3&"|"&$TestoTab_3, $Lista3)
$Sheet3ContextMenu[$RigaTab_3] = GUICtrlCreateContextMenu($ItemContextMenu[$RigaTab_3])
$Sheet3item[$RigaTab_3] = GUICtrlCreateMenuItem("Modifica", $Sheet3ContextMenu[$RigaTab_3])
GUICtrlSetOnEvent(-1,"ModificaItemTab3")
Next
EndIf

GUICtrlCreateListViewItem($RigheTab_3+1 &"|", $Lista3)

Do
ControlloPosizioneMouse()
$TabSelezionato = GUICtrlRead($Tab)
Until $TabSelezionato <> 2
EndFunc

Func Tab_4()

$RigheTab_4 = IniRead(@ScriptDir &"\Config.ini", "Tab4", "0","")

If $RigheTab_4>0 Then
For $RigaTab_4 = 1 To $RigheTab_4
$TestoTab_4 = IniRead(@ScriptDir &"\Config.ini", "Tab4", $RigaTab_4,"")
$ItemContextMenu[$RigaTab_4] = GUICtrlCreateListViewItem($RigaTab_4&"|"&$TestoTab_4, $Lista4)
$Sheet4ContextMenu[$RigaTab_4] = GUICtrlCreateContextMenu($ItemContextMenu[$RigaTab_4])
$Sheet4item[$RigaTab_4] = GUICtrlCreateMenuItem("Modifica", $Sheet4ContextMenu[$RigaTab_4])
GUICtrlSetOnEvent(-1,"ModificaItemTab4")
Next
EndIf

GUICtrlCreateListViewItem($RigheTab_4+1 &"|", $Lista4)

Do
ControlloPosizioneMouse()
$TabSelezionato = GUICtrlRead($Tab)
Until $TabSelezionato <> 3
EndFunc

Func Chiudifinestra()

IniWrite(@ScriptDir &"\Config.ini", "UltimoTabAttivo","Tab",$TabSelezionato+1)

If $TabSelezionato = 0 Then
$t1=_Stringa(GUICtrlRead(GUICtrlRead($Lista1)))
If $t1[0] = $RigheTab_1+1 Then
IniWrite(@ScriptDir &"\Config.ini", "Tab1", $t1[0], StringStripWS(ClipGet(),1)) ;salva il contenuto della clipboard senza spazi iniziali
IniWrite(@ScriptDir &"\Config.ini", "Tab1", "0",$t1[0])
Else
GUIDelete($Form)
Sleep(300)
Send($t1[1])
EndIf
EndIf

If $TabSelezionato = 1 Then
$t2=_Stringa(GUICtrlRead(GUICtrlRead($Lista2)))
If $t2[0] = $RigheTab_2+1 Then
IniWrite(@ScriptDir &"\Config.ini", "Tab2", $t2[0],StringStripWS(ClipGet(),1))
IniWrite(@ScriptDir &"\Config.ini", "Tab2", "0",$t2[0])
Else
GUIDelete($Form)
Sleep(300)
Send($t2[1])
EndIf
EndIf

If $TabSelezionato = 2 Then
$t3=_Stringa(GUICtrlRead(GUICtrlRead($Lista3)))
If $t3[0] = $RigheTab_3+1 Then
IniWrite(@ScriptDir &"\Config.ini", "Tab3", $t3[0],StringStripWS(ClipGet(),1))
IniWrite(@ScriptDir &"\Config.ini", "Tab3", "0",$t3[0])
Else
GUIDelete($Form)
Sleep(300)
Send($t3[1])
EndIf
EndIf

If $TabSelezionato = 3 Then
$t4=_Stringa(GUICtrlRead(GUICtrlRead($Lista4)))
If $t4[0] = $RigheTab_4+1 Then
IniWrite(@ScriptDir &"\Config.ini", "Tab4", $t4[0],StringStripWS(ClipGet(),1))
IniWrite(@ScriptDir &"\Config.ini", "Tab4", "0",$t4[0])
Else
GUIDelete($Form)
Sleep(300)
Send($t4[1])
EndIf
EndIf

GUIDelete($Form)
controlloclick()

EndFunc

Func ControlloPosizioneMouse()

If $FinestraInserimento=0 Then

Sleep(108)
$WinPos = WinGetPos("DueClick")
$Pos_Finestra_O = $WinPos[0]
$Pos_Finestra_V = $WinPos[1]
$Msg = GUIGetMsg()
$PosMouse = MouseGetPos()
If $PosMouse[0] < $Pos_Finestra_O Then chiudifinestra()
If $PosMouse[1] < $Pos_Finestra_V Then chiudifinestra()
If $PosMouse[0] > ($Pos_Finestra_O+246) Then chiudifinestra()
If $PosMouse[1] > ($Pos_Finestra_V+364) Then chiudifinestra()

EndIf

EndFunc

Func Chiudi()

DllClose($dll)
Exit

EndFunc

Func _Stringa($Stringa) ; estrae l'ID e il testo pulito dalla lista: array0= posizione array1= testo

Local $StringaPulita[2]
Local $a=$Stringa
Local $a_0 = StringTrimRight($a,1)
Local $a_1 = StringLen($a_0) ;lunghezza str
Local $a_2 = StringInStr($a_0,"|") ;posizione 1° "|"
Local $a_3 = $a_1-$a_2+1
$StringaPulita[1] = StringTrimLeft($a_0,$a_2)
$StringaPulita[0] = StringTrimRight($a_0,$a_3)
Return $StringaPulita

EndFunc

Func FinestraSetPulsanti()

Switch @GUI_CTRLID
Case 8,10
$Pulsante = 1
Case 11,13
$Pulsante = 2
Case 14,16
$Pulsante = 3
Case 17,19
$Pulsante = 4
Case 20,22
$Pulsante = 5
Case 23,25
$Pulsante = 6
Case 26,28
$Pulsante = 7
EndSwitch

$FinestraInserimento = 1 ; per disabilitare l'uscita della finestra principale quando il mouse esce da essa
$FormPulsanti = GUICreate("Seleziona Funzione Pulsante", 538, 138, $Pos_Finestra_O-150, $Pos_Finestra_V)
$InputPercorsoFunzione = GUICtrlCreateInput("Percorso Funzione", 4, 10, 449, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
$InputPercorsoIcona = GUICtrlCreateInput("Percorso Icona Pulsante o scrivi il testo del Pulsante", 4, 50, 449, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
$ButtonSfogliaFunzione = GUICtrlCreateButton("Sfoglia", 458, 8, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "ButtonSfogliaFunzione")
$ButtonSfogliaIcona = GUICtrlCreateButton("Sfoglia", 458, 46, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "ButtonSfogliaIcona")
$ButtonImpostaPulsante = GUICtrlCreateButton("Imposta Pulsante", 190, 88, 127, 39, $WS_GROUP)
GUICtrlSetOnEvent(-1, "ButtonImpostaPulsante")
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetState(@SW_SHOW)

EndFunc

Func SpecialEvents()

If @GUI_CtrlId = $GUI_EVENT_CLOSE Then
$FinestraInserimento=0 ;per abilitare l'uscita della finestra principale quando il mouse esce da essa
GUIDelete($FormPulsanti)
EndIf

EndFunc

Func ButtonSfogliaFunzione()

$Funzione = FileOpenDialog ( "Seleziona Cartella o Programma", "" , "Eseguibili (*.exe;*.bat;*.scr)")
GUICtrlSetData($InputPercorsoFunzione,$Funzione)

EndFunc

Func ButtonSfogliaIcona()
$IconaPulsante = FileOpenDialog( "Seleziona Pulsante", "" , "Icona (*.ico)")
GUICtrlSetData($InputPercorsoIcona,$IconaPulsante)
EndFunc

Func ButtonImpostaPulsante()

$Funzione = GUICtrlRead ( $InputPercorsoFunzione )

$FinestraInserimento=0

If $Pulsante = 1 Then
if not $Funzione=0 Then
if $Funzione<>"Percorso Funzione" Then
GUICtrlSetOnEvent($Button1 ,"FunzionePulsante1")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante1", "Impostato","si")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante1", "Funzione",$Funzione)
EndIf
EndIf
if not $IconaPulsante=0 Then
if $IconaPulsante<>"Percorso Icona Pulsante o scrivi il testo del Pulsante" Then
IniWrite(@ScriptDir &"\Config.ini", "Pulsante1", "Icona",$IconaPulsante)
if StringTrimLeft ($IconaPulsante,StringLen($IconaPulsante)-4)= ".ico" Then
GUICtrlSetImage( $Button1, $IconaPulsante)
EndIf
EndIf
EndIf
EndIf

If $Pulsante = 2 Then
if not $Funzione=0 Then
if $Funzione<>"Percorso Funzione" Then
GUICtrlSetOnEvent($Button1 ,"FunzionePulsante2")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante2", "Impostato","si")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante2", "Funzione",$Funzione)
EndIf
EndIf
if not $IconaPulsante=0 Then
if $IconaPulsante<>"Percorso Icona Pulsante o scrivi il testo del Pulsante" Then
IniWrite(@ScriptDir &"\Config.ini", "Pulsante2", "Icona",$IconaPulsante)
if StringTrimLeft ($IconaPulsante,StringLen($IconaPulsante)-4)= ".ico" Then
GUICtrlSetImage( $Button2, $IconaPulsante)
EndIf
EndIf
EndIf
EndIf

If $Pulsante = 3 Then
if not $Funzione=0 Then
if $Funzione<>"Percorso Funzione" Then
GUICtrlSetOnEvent($Button3 ,"FunzionePulsante3")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante3", "Impostato","si")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante3", "Funzione",$Funzione)
EndIf
EndIf
if not $IconaPulsante=0 Then
if $IconaPulsante<>"Percorso Icona Pulsante o scrivi il testo del Pulsante" Then
IniWrite(@ScriptDir &"\Config.ini", "Pulsante3", "Icona",$IconaPulsante)
if StringTrimLeft ($IconaPulsante,StringLen($IconaPulsante)-4)= ".ico" Then
GUICtrlSetImage( $Button3, $IconaPulsante)
EndIf
EndIf
EndIf
EndIf

If $Pulsante = 4 Then
if not $Funzione=0 Then
if $Funzione<>"Percorso Funzione" Then
GUICtrlSetOnEvent($Button4 ,"FunzionePulsante4")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante4", "Impostato","si")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante4", "Funzione",$Funzione)
EndIf
EndIf
if not $IconaPulsante=0 Then
if $IconaPulsante<>"Percorso Icona Pulsante o scrivi il testo del Pulsante" Then
IniWrite(@ScriptDir &"\Config.ini", "Pulsante4", "Icona",$IconaPulsante)
if StringTrimLeft ($IconaPulsante,StringLen($IconaPulsante)-4)= ".ico" Then
GUICtrlSetImage( $Button4, $IconaPulsante)
EndIf
EndIf
EndIf
EndIf

If $Pulsante = 5 Then
if not $Funzione=0 Then
if $Funzione<>"Percorso Funzione" Then
GUICtrlSetOnEvent($Button5 ,"FunzionePulsante5")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante5", "Impostato","si")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante5", "Funzione",$Funzione)
EndIf
EndIf
if not $IconaPulsante=0 Then
if $IconaPulsante<>"Percorso Icona Pulsante o scrivi il testo del Pulsante" Then
IniWrite(@ScriptDir &"\Config.ini", "Pulsante5", "Icona",$IconaPulsante)
if StringTrimLeft ($IconaPulsante,StringLen($IconaPulsante)-4)= ".ico" Then
GUICtrlSetImage( $Button5, $IconaPulsante)
EndIf
EndIf
EndIf
EndIf

If $Pulsante = 6 Then
if not $Funzione=0 Then
if $Funzione<>"Percorso Funzione" Then
GUICtrlSetOnEvent($Button1 ,"FunzionePulsante6")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante6", "Impostato","si")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante6", "Funzione",$Funzione)
EndIf
EndIf
if not $IconaPulsante=0 Then
if $IconaPulsante<>"Percorso Icona Pulsante o scrivi il testo del Pulsante" Then
IniWrite(@ScriptDir &"\Config.ini", "Pulsante6", "Icona",$IconaPulsante)
if StringTrimLeft ($IconaPulsante,StringLen($IconaPulsante)-4)= ".ico" Then
GUICtrlSetImage( $Button6, $IconaPulsante)
EndIf
EndIf
EndIf
EndIf

If $Pulsante = 7 Then
if not $Funzione=0 Then
if $Funzione<>"Percorso Funzione" Then
GUICtrlSetOnEvent($Button7 ,"FunzionePulsante7")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante7", "Impostato","si")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante7", "Funzione",$Funzione)
EndIf
EndIf
if not $IconaPulsante=0 Then
if $IconaPulsante<>"Percorso Icona Pulsante o scrivi il testo del Pulsante" Then
IniWrite(@ScriptDir &"\Config.ini", "Pulsante7", "Icona",$IconaPulsante)
if StringTrimLeft ($IconaPulsante,StringLen($IconaPulsante)-4)= ".ico" Then
GUICtrlSetImage( $Button7, $IconaPulsante)
EndIf
EndIf
EndIf
EndIf

$Pulsante = 0
GUIDelete ($FormPulsanti)
EndFunc

Func FunzionePulsante1()

$Funzione1=IniRead(@ScriptDir &"\Config.ini", "Pulsante1", "Funzione","")
Run ($Funzione1)

EndFunc

Func FunzionePulsante2()

$Funzione2=IniRead(@ScriptDir &"\Config.ini", "Pulsante2", "Funzione","")
Run ($Funzione2)

EndFunc

Func FunzionePulsante3()

$Funzione3=IniRead(@ScriptDir &"\Config.ini", "Pulsante3", "Funzione","")
Run ($Funzione3)

EndFunc

Func FunzionePulsante4()

$Funzione4=IniRead(@ScriptDir &"\Config.ini", "Pulsante4", "Funzione","")
Run ($Funzione4)

EndFunc

Func FunzionePulsante5()

$Funzione5=IniRead(@ScriptDir &"\Config.ini", "Pulsante5", "Funzione","")
Run ($Funzione5)

EndFunc

Func FunzionePulsante6()

$Funzione6=IniRead(@ScriptDir &"\Config.ini", "Pulsante6", "Funzione","")
Run ($Funzione6)

EndFunc

Func FunzionePulsante7()

$Funzione7=IniRead(@ScriptDir &"\Config.ini", "Pulsante7", "Funzione","")
Run ($Funzione7)

EndFunc

Func ModificaItemTab1()

$modifica0 = _Stringa(GUICtrlRead(GUICtrlRead($Lista1)))
$IDModifica = $modifica0[0]
$TestoModifica = $modifica0[1]
FinestraModificaTesto()

EndFunc

Func ModificaItemTab2()

$modifica0 = _Stringa(GUICtrlRead(GUICtrlRead($Lista2)))
$IDModifica = $modifica0[0]
$TestoModifica = $modifica0[1]
FinestraModificaTesto()

EndFunc

Func ModificaItemTab3()

$modifica0 = _Stringa(GUICtrlRead(GUICtrlRead($Lista3)))
$IDModifica = $modifica0[0]
$TestoModifica = $modifica0[1]
FinestraModificaTesto()

EndFunc

Func ModificaItemTab4()

$modifica0 = _Stringa(GUICtrlRead(GUICtrlRead($Lista4)))
$IDModifica = $modifica0[0]
$TestoModifica = $modifica0[1]
FinestraModificaTesto()

EndFunc

Func FinestraModificaTesto()

$FinestraInserimento = 1 ;per disabilitare l'uscita della finestra principale quando il mouse esce da essa
$FormModificaTesto = GUICreate("ModificaTesto ID "&$IDModifica, 424, 58, $Pos_Finestra_O-100, $Pos_Finestra_V)
$InputModificaTesto = GUICtrlCreateInput("", 8, 16, 319, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetData($InputModificaTesto,$TestoModifica)
$ButtonModificaTesto = GUICtrlCreateButton("Modifica", 342, 16, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "ModificaTestoItem")
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetState(@SW_SHOW)

EndFunc

Func ModificaTestoItem()

$InputModificaTestobis = GUICtrlRead ($InputModificaTesto)
GUIDelete($FormModificaTesto)
If $TabSelezionato = 0 Then
IniWrite(@ScriptDir &"\Config.ini", "Tab1", $IDModifica ,$InputModificaTestobis)
GUICtrlDelete ($Lista1)
EndIf
If $TabSelezionato = 1 Then
IniWrite(@ScriptDir &"\Config.ini", "Tab2", $IDModifica ,$InputModificaTestobis)
GUICtrlDelete ($Lista2)
EndIf
If $TabSelezionato = 2 Then
IniWrite(@ScriptDir &"\Config.ini", "Tab3", $IDModifica ,$InputModificaTestobis)
GUICtrlDelete ($Lista3)
EndIf
If $TabSelezionato = 3 Then
IniWrite(@ScriptDir &"\Config.ini", "Tab4", $IDModifica ,$InputModificaTestobis)
GUICtrlDelete ($Lista4)
EndIf

If $TabSelezionato = 1 Then IniWrite(@ScriptDir &"\Config.ini", "Tab2", $IDModifica ,$InputModificaTestobis)
If $TabSelezionato = 2 Then IniWrite(@ScriptDir &"\Config.ini", "Tab3", $IDModifica ,$InputModificaTestobis)
If $TabSelezionato = 3 Then IniWrite(@ScriptDir &"\Config.ini", "Tab4", $IDModifica ,$InputModificaTestobis)
$FinestraInserimento = 0 ; per abilitare l'uscita della finestra principale quando il mouse esce da essa

EndFunc

Func ModificaTestoTab()

If $TabSelezionato = 0 Then
$FinestraInserimento = 1 ; per disabilitare l'uscita della finestra principale quando il mouse esce da essa
$Modificatab1 = InputBox("Inserisci nome","Tab"&$TabSelezionato+1,"Tab"&$TabSelezionato+1,"",300,100, $Pos_Finestra_O-20, $Pos_Finestra_V)
if not $Modificatab1=0 Then
$FinestraInserimento = 0 ; per abilitare l'uscita della finestra principale quando il mouse esce da essa
IniWrite(@ScriptDir &"\Config.ini", "Tab1", "TestoTab" ,$Modificatab1)
EndIf
If @error=1 Then $FinestraInserimento = 0 ; per abilitare l'uscita della finestra principale quando il mouse esce da essa
EndIf

If $TabSelezionato = 1 Then
$FinestraInserimento = 1 ; per disabilitare l'uscita della finestra principale quando il mouse esce da essa
$Modificatab2 = InputBox("Inserisci nome","Tab"&$TabSelezionato+1,"Tab"&$TabSelezionato+1,"",300,100, $Pos_Finestra_O-20, $Pos_Finestra_V)
if not $Modificatab2=0 Then
$FinestraInserimento = 0 ; per abilitare l'uscita della finestra principale quando il mouse esce da essa
IniWrite(@ScriptDir &"\Config.ini", "Tab2", "TestoTab" ,$Modificatab2)
EndIf
If @error=1 Then $FinestraInserimento = 0 ; per abilitare l'uscita della finestra principale quando il mouse esce da essa
EndIf
If $TabSelezionato = 2 Then
$FinestraInserimento = 1 ; per disabilitare l'uscita della finestra principale quando il mouse esce da essa
$Modificatab3 = InputBox("Inserisci nome","Tab"&$TabSelezionato+1,"Tab"&$TabSelezionato+1,"",300,100, $Pos_Finestra_O-20, $Pos_Finestra_V)
if not $Modificatab3=0 Then
$FinestraInserimento = 0 ; per abilitare l'uscita della finestra principale quando il mouse esce da essa
IniWrite(@ScriptDir &"\Config.ini", "Tab3", "TestoTab" ,$Modificatab3)
EndIf
If @error=1 Then $FinestraInserimento = 0 ; per abilitare l'uscita della finestra principale quando il mouse esce da essa
EndIf
If $TabSelezionato = 3 Then
$FinestraInserimento = 1 ; per disabilitare l'uscita della finestra principale quando il mouse esce da essa
$Modificatab4 = InputBox("Inserisci nome","Tab"&$TabSelezionato+1,"Tab"&$TabSelezionato+1,"",300,100, $Pos_Finestra_O-20, $Pos_Finestra_V)
if not $Modificatab4=0 Then
$FinestraInserimento = 0 ; per abilitare l'uscita della finestra principale quando il mouse esce da essa
IniWrite(@ScriptDir &"\Config.ini", "Tab4", "TestoTab" ,$Modificatab4)
EndIf
If @error=1 Then $FinestraInserimento = 0 ; per abilitare l'uscita della finestra principale quando il mouse esce da essa
EndIf

EndFunc

#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <staticconstants.au3>
#include <windowsconstants.au3>
#include <process.au3>

$Form = GUICreate("Nascondi file .RAR dentro immagine .JPG", 578, 247, 262, 198)
$Input1 = GUICtrlCreateInput("Immagine", 13, 32, 465, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetTip(-1, "inserire immagine .jpg nella quale aggiungere il file segreto .rar")
$Input2 = GUICtrlCreateInput("Archivio", 13, 96, 465, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetTip(-1, "inserire archivio segreto .rar da nascondere nell'immagine")
$Input3 = GUICtrlCreateInput("Destinazione", 13, 160, 465, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetTip(-1, "nome dell'immagine .jpg risultato della somma dei file .jpg+.rar")
$Button1 = GUICtrlCreateButton("Sfoglia", 488, 32, 75, 25, $WS_GROUP)
GUICtrlSetTip(-1, "inserire immagine .jpg nella quale aggiungere il file segreto .rar")
$Button2 = GUICtrlCreateButton("Sfoglia", 488, 96, 75, 25, $WS_GROUP)
GUICtrlSetTip(-1, "inserire archivio segreto .rar da nascondere nell'immagine")
$Button3 = GUICtrlCreateButton("Sfoglia", 488, 160, 75, 25, $WS_GROUP)
GUICtrlSetTip(-1, "nome dell'immagine .jpg risultato della somma dei file .jpg+.rar")
$Button4 = GUICtrlCreateButton("ESEGUI", 8, 200, 555, 33, $WS_GROUP)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetTip(-1, "esegue la somma dei 2 file sopra citati"&@LF&"successivamente per visualizzare il contenuto .rar nell'immagine"&@LF&" rinominare il file .jpg risultante in .rar"&@LF&"quindi aprirlo con winrar" )
$Label1 = GUICtrlCreateLabel("Seleziona immagine .JPG", 184, 8, 146, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Seleziona archivio .RAR contenente il file da nascondere", 109, 72, 329, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Seleziona cartella e scrivi il nome del file .jpg risultante ", 101, 136, 338, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
$Immagine= FileOpenDialog ( "Scegli immagine (.jpg)", "", "Immagine (*.jpg)")
GUICtrlSetData($Input1, $Immagine)

Case $Button2
$Archivio= FileOpenDialog ( "Scegli archivio (.rar)", "", "Archivio (*.rar)")
GUICtrlSetData($Input2, $Archivio)

Case $Button3
$Destinazione= FileSaveDialog( "Scegli cartella di destinazione", @MyDocumentsDir, "(*.JPG)", 2)
$Destinazione=$Destinazione&".jpg"
GUICtrlSetData($Input3, $Destinazione)


Case $Button4

FileCopy ( $Immagine, @HomeDrive&"\tmp.jpg" ,1 )
FileCopy ( $Archivio, @HomeDrive&"\tmp.rar" ,1 )

_RunDOS ("copy /b "&@HomeDrive&"\tmp.jpg + "&@HomeDrive&"\tmp.rar "&@HomeDrive&"\sum.jpg")

FileCopy ( @HomeDrive&"\sum.jpg",$Destinazione,1 )

FileDelete ( @HomeDrive&"\tmp.jpg" )
FileDelete ( @HomeDrive&"\tmp.rar" )
FileDelete ( @HomeDrive&"\sum.jpg" )


EndSwitch
WEnd

#include <progressconstants.au3>
#include <windowsconstants.au3>
#include <guiconstantsex.au3>

$x= MsgBox(4,"Attenzione!","Installare Nascondi file rar su immagine jpg??")
$Form1 = GUICreate("Install ...", 326, 51, @DesktopWidth/2-150, @DesktopHeight/2-80)
$Progressbar1 = GUICtrlCreateProgress(0, 0, 321, 49)
GUICtrlSetColor(-1, 32250)
if $x=6 Then
GUISetState(@SW_SHOW,$Form1)
DirCreate ( @ProgramFilesDir&"\Nascondi file" )
$a= FileInstall ("D:\forbidden\autoIT\Nascondi file dentro JPG\nascondi file rar su immagine jpg.exe", @ProgramFilesDir&"\Nascondi file\Nascondi file rar su immagine jpg.exe",1)
FileCreateShortcut ( @ProgramFilesDir&"\Nascondi file\Nascondi file rar su immagine jpg.exe", @DesktopDir&"\Nascondi file rar su immagine jpg")
DirCreate ( @ProgramsCommonDir&"\Nascondi file" )
FileCreateShortcut ( @ProgramFilesDir&"\Nascondi file\Nascondi file rar su immagine jpg.exe", @ProgramsCommonDir&"\Nascondi file\Nascondi file rar su immagine jpg.exe")
For $b=0 to 100 Step 1
GUICtrlSetData($progressbar1, $b)
Sleep(30)
Next
GUISetState(@SW_HIDE,$Form1)
Sleep(500)

if $a=1 Then MsgBox(0,"Attenzione!"," Programma installato correttamente !"&@LF&@LF&"Buonagiornata! :-)")
Else
MsgBox(0,"Errore!","Impossibile completare l'installazione!")
Exit
EndIf

#include <guiconstantsex.au3>
#include <windowsconstants.au3>

Global $r,$v,$b

$pos = MouseGetPos()
$posv0=$pos[0]
$poso0=$pos[1]

MouseMove (@DesktopWidth, @DesktopHeight-1,0)

$pos = MouseGetPos()
$posv1=$pos[0]
$poso1=$pos[1]


$r = hex("0",2)
$v = hex("0",2)
$b = hex("0",2)

$gui=GUICreate("",@DesktopWidth,@DesktopHeight,0,0,$WS_POPUPWINDOW);
GUISetState()

GUISetBkColor(0x000000)

HotKeySet("{ESC}", "Termina")

addrosso()

While 1
pausa()
addverde()

subrosso()
pausa()
addblu_subverde()
pausa()
addrosso2()
pausa()
subblu()
WEnd

Func addrosso() ;
for $x= 0 to 255 ;+ rosso
ritardo()
$r = hex($x,2)
$color = "0x"&$r&$v&$b
GUISetBkColor($color)
Next
EndFunc

Func addrosso2() ;
for $x= 0 to 255 ;+ rosso
ritardo()
$r = hex($x,2)
$color = "0x"&$r&$v&$b
GUISetBkColor($color)
if $x=0x7f Then pausa()
Next
EndFunc

Func subrosso() ;
for $x= 255 to 0 Step -1 ;- rosso
ritardo()
$r = hex($x,2)
$color = "0x"&$r&$v&$b
GUISetBkColor($color)
Next
EndFunc

Func addverde() ;
for $x= 0 to 150 ;+ verde
ritardo()
$v = hex($x,2)
$color = "0x"&$r&$v&$b
GUISetBkColor($color)
if $x=0x6f Then pausa() ;arancio
Next
pausa()
for $x= 150 to 255 ;+ verde
ritardo()
$v = hex($x,2)
$color = "0x"&$r&$v&$b
GUISetBkColor($color)
Next
EndFunc

Func subblu() ;
for $x= 255 to 0 Step -1 ;- blu
ritardo()
$b = hex($x,2)
$color = "0x"&$r&$v&$b
GUISetBkColor($color)
Next
EndFunc

Func addblu_subverde() ;
$y=255
for $x= 0 to 255 ;+ blu
if not $y=0 then $y=$y-1
ritardo()
$b = hex($x,2)
$v = hex($y,2)
$color = "0x"&$r&$v&$b
GUISetBkColor($color)
Next

EndFunc

Func Termina()
MouseMove ($posv0,$poso0,0)
Exit
EndFunc

Func pausa()

$pos = MouseGetPos()
$posv2=$pos[0]
$poso2=$pos[1]
if $posv1<>$posv2 Then Termina()
if $poso1<>$poso2 Then Termina()
Sleep(0)

EndFunc

Func ritardo()

$pos = MouseGetPos()
$posv2= $pos[0]
$poso2= $pos[1]
if $posv1<>$posv2 Then Termina()
if $poso1<>$poso2 Then Termina()
Sleep(1)

EndFunc

#include <progressconstants.au3>
#include <windowsconstants.au3>
#include <guiconstantsex.au3>

$x= MsgBox(4,"Attenzione!","Installare screensaver color???")
$Form1 = GUICreate("Install screensaver...", 326, 51, @DesktopWidth/2-150, @DesktopHeight/2-80)
$Progressbar1 = GUICtrlCreateProgress(0, 0, 321, 49)
GUICtrlSetColor(-1, 32250)
if $x=6 Then
GUISetState(@SW_SHOW,$Form1)
$a= FileInstall ("D:\forbidden\color.scr", @WindowsDir&"\color.scr",1); <----- Attenzione inserire il percorso corretto dell'eseguibile color.scr
For $b=0 to 100 Step 1
GUICtrlSetData($progressbar1, $b)
Sleep(30)
Next
GUISetState(@SW_HIDE,$Form1)
Sleep(500)
if $a= 1 Then MsgBox(0,"Bene!"," Screeen-saver correttamente installato!"&@LF&@LF&"Adesso impostalo su proprietà dello schermo!"&@LF&@LF&"Grazie! :-)")
Else
Exit
EndIf

#include <excel.au3>
#include <guiconstantsex.au3>
#include <buttonconstants.au3>
#include <staticconstants.au3>
#include <datetimeconstants.au3>
#include <date.au3>
#include <windowsconstants.au3>
#include <misc.au3>
#Include <winapi.au3>

Global $pulsante1,$pulsante2,$msg,$numeroconcorrenti=33,$domanda=1,$numeroconcorrenti1=0
Global $posiz = 3,$numeromaglietta,$riga2,$posiz2,$nomeconcorrente,$pritorno,$msg,$msg2
Global $c=3,$x,$x2,$inc=20,$visualizza_tempo,$ins_maglietta,$visualizza_maglietta,$data3, $ultimiarrivi
Global $data,$ultimoarrivi,$sCellValue3,$sCellValue4,$sCellValue5,$BUONTEMPO1,$BUONTEMPO2,$BUONTEMPO3
Global $sCellValue54,$sCellValue55,$data54,$fine,$sCellValue12,$sCellValue22,$pippo,$leggivuoti,$cv,$leggivuoti2
Global $oraarrivo, $numeromagliettaadd,$pulsante3,$trovadoppi,$sCellValue99,$sCellValue9,$trovadoppi2,$data99
Global $cerca3,$sCellValue33,$z,$sCellValue999,$trovadoppi2,$y,$sCellValue888,$vecchiotempo



$sFilePath1 = @DesktopCommonDir & "\BUONTEMPO.xls" ;This file should already exist
$oExcel = _ExcelBookOpen($sFilePath1)


If @error = 1 Then
MsgBox(0, "Errore!", "Impossibile aprire il file dal desktop")

ElseIf @error = 2 Then
While 1
if not StringIsDigit($numeroconcorrenti) Then $numeroconcorrenti = ""
$numeroconcorrenti= InputBox("concorrenti", "inserire il numero dei concorrenti", $numeroconcorrenti, "", _
100, 100,@DesktopWidth/3,@DesktopHeight/3)
If @error = 1 Then
Exit
if not StringIsDigit($numeroconcorrenti) Then $numeroconcorrenti = ""
EndIf
;MsgBox(0, "ok", "fin qui tutto bene",2)
if StringIsDigit($numeroconcorrenti) Then ExitLoop
WEnd

$oExcel = _ExcelBookNew()
_ExcelBookSaveAs($oExcel, @DesktopCommonDir & "\BUONTEMPO.xls")
_ExcelSheetActivate($oExcel, 1)
_ExcelSheetNameSet($oExcel, "tempi")
_ExcelHorizontalAlignSet($oExcel, 1, 1,$numeroconcorrenti+10, 10, "center") ;Centro le celle su Exel
_ExcelWriteCell($oExcel, "POSIZIONE ARRIVO", 3, 2) ;scrive posizione "arrivo" su Exel
_ExcelWriteCell($oExcel, "ORA PARTENZA", 1, 4) ;scrive su Exel
_ExcelWriteCell($oExcel, "ORA ARRIVO", 3, 4) ;scrive su Exel
_ExcelWriteCell($oExcel, "N°MAGLIETTA", 3, 6) ;scrive "maglietta" su Exel
_ExcelWriteCell($oExcel, "NOME", 3, 8) ;scrive "nome" su Exel
_ExcelWriteCell($oExcel, "TEMPO IMPIEGATO", 3, 10) ;scrive su Exel
_ExcelWriteCell($oExcel, $numeroconcorrenti, 2, 2) ;scrive su Exel
_ExcelWriteCell($oExcel, "NUMERO CONCORRENTI", 1, 2) ;scrive su Exel




_ExcelSheetActivate($oExcel, 2)
_ExcelSheetNameSet($oExcel, "concorrenti")
_ExcelHorizontalAlignSet($oExcel, 1, 1,$numeroconcorrenti+10, 10, "center")
For $riga2 = 1 To $numeroconcorrenti ;scrive le posizioni di arrivo
$posiz2 += 1
_ExcelWriteCell($oExcel, $riga2, $posiz2, 2) ;Write to the Cell
Next
_ExcelSheetActivate($oExcel, 1)

EndIf






main()
Func main()
_ExcelBookSave($oExcel)
_ExcelSheetActivate($oExcel, 1)
$numeroconcorrenti= _ExcelReadCell($oExcel, 2, 2)

GUISetState(@SW_HIDE,"BUONTEMPO inserimento nomi")
GUISetState(@SW_HIDE,"BUONTEMPO tempi arrivo")

$BUONTEMPO1=GUICreate("BUONTEMPO",500,300,@DesktopWidth/5,@DesktopHeight/5)
WinSetTrans ($BUONTEMPO1,"BUONTEMPO",0)
GUISetFont (20)
$pulsante1 = GUICtrlCreateButton("inserisci i numeri maglietta in riferimento al nome",90,40, 330, 72,$BS_MULTILINE)
$pulsante2 = GUICtrlCreateButton("parti con la gara",90,140, 330,72,$BS_MULTILINE)
GUISetState()
for $diss=0 to 255 step 3
WinSetTrans ($BUONTEMPO1,"BUONTEMPO",$diss)
Next

GUISwitch($BUONTEMPO1)
GUISetState(@SW_SHOW,"BUONTEMPO")
WinSetOnTop("BUONTEMPO", "", 1)
While 1
Sleep(50)

$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop

Select
Case $msg = $pulsante1 ;scrive la maglietta e l'ora su exel
ins_concorrenti()
Case $msg = $pulsante2 ;scrive la maglietta sull'ultima posizione
tempi_arrivo()

EndSelect

WEnd
quit()
EndFunc

Func tempi_arrivo()

GUISetState(@SW_SHOW,"BUONTEMPO tempi arrivo")
GUISetState(@SW_HIDE,"BUONTEMPO")
_ExcelSheetActivate($oExcel, 1)

$vecchiotempo= _ExcelReadCell($oExcel, 2, 4)
if $vecchiotempo<>0 Then

$start=MsgBox(4, "START", " la gara parte adesso?"& @LF & @LF &"SI = scrive l'ora di partenza"& @LF &"NO= continua la gara")
if $start=6 Then
$tTime =_Date_Time_GetLocalTime()
$aTime = _Date_Time_SystemTimeToArray($tTime)
$tp = $aTime[3]
$tp &= "."
$tp &= $aTime[4]
$tp &= "."
$tp &= $aTime[5]
_ExcelWriteCell($oExcel,$tp, 2, 4) ;scrive l'ora di partenza
EndIf
Else
$start=MsgBox(0, "START", "premi OK quando parte la gara")

if $start=1 Then
$tTime =_Date_Time_GetLocalTime()
$aTime = _Date_Time_SystemTimeToArray($tTime)
$tp = $aTime[3]
$tp &= "."
$tp &= $aTime[4]
$tp &= "."
$tp &= $aTime[5]
_ExcelWriteCell($oExcel,$tp, 2, 4) ;scrive l'ora di partenza
EndIf

EndIf


For $riga = 1 To $numeroconcorrenti ;scrive le posizioni di arrivo e la formula per la differenza tempo

$posiz += 1
$core = "=D"
$core &= $posiz
$core &= "-D2"

_ExcelWriteCell($oExcel,$core, $posiz, 10) ;scrive su Exel
_ExcelWriteCell($oExcel, $riga, $posiz, 2) ;Write to the Cell
Next

$BUONTEMPO3=GUICreate("BUONTEMPO tempi arrivo",@DesktopWidth/3,600,@DesktopWidth/1.5,0)

GUISetFont (25)
$labelmaglietta = GUICtrlCreateLabel("N°MAGLIETTA",20,30, 280, 65, $SS_CENTER )

$ins_maglietta = GUICtrlCreateInput("",20, 110, 300, 72,$SS_CENTER)
GUICtrlSetTip(-1, "inserisci quì il numero della maglietta poi clicca 'ARRIVO!'")
GUICtrlSetState(-1, $GUI_FOCUS)
GUISetFont (30)
$pulsante1 = GUICtrlCreateButton("ARRIVO!",20,280, 300, 72)
GUISetFont (15)
$pulsante2 = GUICtrlCreateButton("INSERISCI IL NUMERO DELLA MAGLIETTA DEGLI ULTIMI ARRIVATI",20,480, 300,108,$BS_MULTILINE)
GUISetFont (20)
$pulsante3 = GUICtrlCreateButton("CANCELLA ULTIMO ARRIVO",20,380, 300,72,$BS_MULTILINE)
GUISetFont (30)
GUISetState()
GUISwitch($BUONTEMPO3)
WinSetOnTop("BUONTEMPO tempi arrivo", "", 1)
;-----------------------------------------------------------------------------



for $x=4 to $numeroconcorrenti+4
$c=$x
$sCellValue = _ExcelReadCell($oExcel, $x, 4)
If $sCellValue = 0 Then maintempi()
Next

EndFunc


Func maintempi()
HotKeySet("{ENTER}","puls2")
GUISetState(@SW_HIDE,"BUONTEMPO tempi arrivo")
GUISetState(@SW_SHOW,"BUONTEMPO tempi arrivo")



$x=$c

GUISwitch($BUONTEMPO3)
GUICtrlSetState($ins_maglietta, $GUI_FOCUS)



While 1

sleep(33)

if $inc = 20 then visualizzatempo()
$inc = $inc+1

$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
$data = GUICtrlRead($ins_maglietta)
Select
Case $msg = $pulsante1
puls1()
Case $msg = $pulsante2 ;scrive la maglietta sull'ultima posizione
puls2()
Case $msg = $pulsante3
puls3()
EndSelect

WEnd
main()
EndFunc



Func puls1()
$data = GUICtrlRead($ins_maglietta)
if StringIsDigit($data)=0 Then $data=""
for $trovadoppi=4 to $numeroconcorrenti+4
$sCellValue99 = _ExcelReadCell($oExcel,$trovadoppi, 6)
if $data="" Then ExitLoop
if $sCellValue99=$data Then

MsgBox(0, "attenzione", "concorrente inserito 2 volte!",2,$BUONTEMPO3)
_ExcelWriteCell($oExcel,"n°"&$sCellValue99&" doppio!",$c, 7)
for $z=4 to $numeroconcorrenti+4
$sCellValue999 = _ExcelReadCell($oExcel,$z, 6)
if $sCellValue999=$data Then _ExcelWriteCell($oExcel,"n°"&$sCellValue999&" doppio!",$z, 7)

Next
ExitLoop
EndIf
Next


_ExcelSheetActivate($oExcel,2)

$sCellValue54 = _ExcelReadCell($oExcel, $data, 4)
_ExcelSheetActivate($oExcel, 1)
if not $sCellValue54=0 Then _ExcelWriteCell($oExcel,$sCellValue54,$c, 8)




GUICtrlSetData($visualizza_maglietta, $data)
_ExcelWriteCell($oExcel,$data3, $c, 4)
_ExcelWriteCell($oExcel,$data, $c, 6) ;Write to the Cell
$c += 1

if $data>$numeroconcorrenti Then
MsgBox(0, "attenzione numero troppo alto!","eccede il numero dei concorrenti!",3)
_ExcelWriteCell($oExcel,"!", $c-1, 7) ;Write to the Cell
EndIf
GUICtrlSetData($ins_maglietta, "")
GUICtrlSetState($ins_maglietta, $GUI_FOCUS)

_ExcelBookSave($oExcel)

EndFunc


Func puls2()
HotKeySet("{ENTER}")

for $cerca = $numeroconcorrenti+4 to 4 Step -1
$sCellValue2 = _ExcelReadCell($oExcel,$cerca, 6)
If $sCellValue2 <> 0 Then ExitLoop
Next

$c=$cerca+1




While 1
$sCellValue4 = _ExcelReadCell($oExcel,$c, 4)
if $sCellValue4 = 0 Then ExitLoop
Sleep(200)

$ultimiarrivi= InputBox("ultimi arrivi", "inserire il numero degli ultimi arrivati", $ultimiarrivi, "",100, 100,@DesktopWidth/5,@DesktopHeight/5,$BUONTEMPO3)
If @error = 1 Then
GUISwitch($BUONTEMPO3)
GUICtrlSetState($ins_maglietta, $GUI_FOCUS)
$c += 1
ExitLoop
EndIf

for $y=4 to $numeroconcorrenti+4
$sCellValue888 = _ExcelReadCell($oExcel,$y, 6)
if $ultimiarrivi="" Then ExitLoop
if $sCellValue888=$ultimiarrivi Then _ExcelWriteCell($oExcel,"n°"&$sCellValue888&" doppio!",$y, 7)

Next

$data99 = GUICtrlRead($ultimiarrivi)

if $ultimiarrivi>$numeroconcorrenti Then
MsgBox(0, "attenzione numero troppo alto!","eccede il numero dei concorrenti!",3)
_ExcelWriteCell($oExcel,"!",$c, 7)
EndIf
$data99 = GUICtrlRead($ultimiarrivi)
for $trovadoppi2=4 to $numeroconcorrenti+4
if $ultimiarrivi="" Then ExitLoop
$sCellValue9 = _ExcelReadCell($oExcel,$trovadoppi2, 6)
if $sCellValue9=$ultimiarrivi Then

MsgBox(0, "attenzione", "concorrente inserito 2 volte!",2,$BUONTEMPO3)
_ExcelWriteCell($oExcel,"n°"&$ultimiarrivi&" doppio!",$c, 7)
ExitLoop
EndIf
next



if StringIsDigit($ultimiarrivi) Then
_ExcelWriteCell($oExcel,$ultimiarrivi, $c, 6) ;Write to the Cell
$c += 1
$data54 = GUICtrlRead($ultimiarrivi)
_ExcelSheetActivate($oExcel, 2)
$sCellValue55 = _ExcelReadCell($oExcel,$ultimiarrivi, 4)
_ExcelSheetActivate($oExcel, 1)
if not $sCellValue55=0 Then _ExcelWriteCell($oExcel,$sCellValue55,$c-1, 8)
EndIf

if not StringIsDigit($ultimiarrivi) Then
MsgBox(0, "attento","solo numeri!",2)
EndIf


$sCellValue3 = _ExcelReadCell($oExcel,$c, 4)
if $sCellValue3 = 0 Then
GUISwitch($BUONTEMPO3)
GUICtrlSetState($ins_maglietta, $GUI_FOCUS)
ExitLoop
EndIf


WEnd
EndFunc

Func puls3()


for $cerca3 = $numeroconcorrenti+4 to 4 Step -1
$sCellValue33 = _ExcelReadCell($oExcel,$cerca3, 4)
If $sCellValue33 <> 0 Then ExitLoop
Next

$c=$cerca3

if $c=3 Then $c=4
_ExcelWriteCell($oExcel,"", $c, 4)
_ExcelWriteCell($oExcel,"", $c, 6)
_ExcelWriteCell($oExcel,"", $c, 7)
_ExcelWriteCell($oExcel,"", $c, 8)
EndFunc


Func ins_concorrenti()
HotKeySet("{ENTER}")
GUISetState(@SW_HIDE,"BUONTEMPO")
_ExcelSheetActivate($oExcel, 2)




$BUONTEMPO2=GUICreate("BUONTEMPO inserimento nomi", 680, 230, 450,200)
GUISwitch($BUONTEMPO2)
GUISetFont (15)
GUICtrlCreateLabel("N°MAGLIETTA",0,30, 200, 30, $SS_CENTER )
GUISetFont (21)
$numeromaglietta = GUICtrlCreateInput("",45, 72, 100, 43,$SS_CENTER)
GUICtrlSetTip(-1, "inserisci quì il numero della maglietta del concorrente")
GUICtrlSetState(-1, $GUI_FOCUS)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)

GUISetFont (15)
GUICtrlCreateLabel("NOME CONCORRENTE",200,30, 300, 30, $SS_CENTER )
GUISetFont (21)
$nomeconcorrente = GUICtrlCreateInput("",170, 72, 480, 43,$SS_CENTER)
GUICtrlSetTip(-1, "inserisci quì il nome del concorrente")
GUISetFont (15)
$pritorno = GUICtrlCreateButton("ritorna al menù principale",44,135, 610,54,$BS_MULTILINE)

GUISetState()
WinSetOnTop("BUONTEMPO inserimento nomi", "", 1)

While 1

HotKeySet("{ENTER}", "enter")

$msg2 = GUIGetMsg()
If $msg2 = $GUI_EVENT_CLOSE Then ExitLoop
If $msg2 = $pritorno Then ExitLoop


WEnd
main()

EndFunc




Func enter()
if not StringIsDigit($numeromaglietta) Then $numeromaglietta = ""
for $x2 =1 to $numeroconcorrenti
$sCellValue = _ExcelReadCell($oExcel, $x2, 2)
If $sCellValue = GUICtrlRead($numeromaglietta) Then
_ExcelWriteCell($oExcel,GUICtrlRead($nomeconcorrente),$x2, 4) ;Write to the Cell
$numeromagliettaadd=$x2+1
EndIf
Next


GUICtrlSetData ($numeromaglietta,$numeromagliettaadd)
GUICtrlSetState($numeromaglietta, $GUI_FOCUS)
EndFunc



Func visualizzatempo()

$n = GUICtrlCreateDate("", 2230, 230, 100, 20, $DTS_TIMEFORMAT)
$data3 = GUICtrlRead($n)
GUICtrlSetData ($visualizza_tempo, $data3)

$visualizza_tempo3 = GUICtrlCreateLabel($data3,30, 210, 300, 65, $SS_CENTER )

$inc = 1


$pippo=$c-1
$sCellValue12 = _ExcelReadCell($oExcel,$pippo, 4)
$sCellValue22 = _ExcelReadCell($oExcel,$pippo, 6)
If $sCellValue22<>0 Then
GUICtrlSetState ($pulsante2,$GUI_HIDE)
Else
GUICtrlSetState ($pulsante2,$GUI_SHOW)
EndIf
EndFunc

Func quit()
GUISetState(@SW_HIDE,"BUONTEMPO tempi arrivo")
$fine =MsgBox(4, "fine", "vuoi associare il numero maglietta arrivato al nome concorrente?")
if $fine=6 Then associa()
MsgBox(0, "ciao", "adesso trovi il file compilato nel desktop!",3)
_ExcelBookSave($oExcel)
_ExcelBookClose($oExcel,1,0)

Exit
EndFunc

Func associa()
_ExcelSheetActivate($oExcel, 1)
$numeroconcorrenti= _ExcelReadCell($oExcel, 2, 2)
for $cv=4 to $numeroconcorrenti+3

_ExcelSheetActivate($oExcel, 1)
$leggivuoti = _ExcelReadCell($oExcel,$cv, 8)

If $leggivuoti=0 Then
$leggivuoti2 = _ExcelReadCell($oExcel,$cv, 6)
if not $leggivuoti2=0 then
_ExcelSheetActivate($oExcel, 2)
$leggivuoti3 = _ExcelReadCell($oExcel,$leggivuoti2, 4)
_ExcelSheetActivate($oExcel, 1)
_ExcelWriteCell($oExcel,$leggivuoti3,$cv, 8)
EndIf
EndIf
Next

MsgBox(0, "ciao", "adesso trovi il file compilato nel desktop!",3)
_ExcelBookSave($oExcel)
_ExcelBookClose($oExcel,1,0)
Exit
EndFunc