Jump to content

Buttons doesn't work at the first time


Recommended Posts

Hi...I'm newbie in this forum...and in Autoit Scripting to...but I apologize if I'm wrong. :blink:

Now I'm coding a script...it works nicely but there is a little problem...all the Buttons in the window doesn't work with one Click...I must click the same button many times (from 2 times to 4-5) if I want to use and activate it.

Any solutions?

Thanks in advance to everybody =)

DR2

Link to comment
Share on other sites

To help resolve your own problem try doing a search on this forum and see the results for =1"]GUICtrlCreateButton

Edited by jfcby

Determined -- Devoted -- Delivered Make your mind up -- to seriously apply yourself -- accomplishing the desired results. **** A soft answer turneth away wrath: but grievous words stir up anger. Proverbs 15:1 KJB ****

Link to comment
Share on other sites

Show some code. We can't magically guess what's wrong with just a general description of the problem.

I'm sorry

There is:

#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Messenger Skin Builder GUI section ###

$MSB = GUICreate("MSB", 739, 566)
$Tab1 = GUICtrlCreateTab(51, 81, 633, 420)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Accesso = GUICtrlCreateTabItem("Accesso")
$Label_SfondoAccesso = GUICtrlCreateLabel("Sfondo Accesso", 91, 118, 121, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0D55FF)
$Scegli_Accesso = GUICtrlCreateButton("Scegli", 92, 150, 121, 33, $WS_GROUP)
$Label_ImmaginePersonale = GUICtrlCreateLabel(" Immagine Personale", 78, 194, 153, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Scegli_Immagine = GUICtrlCreateButton("Scegli", 93, 227, 121, 33, $WS_GROUP)
$Label_ColoreTesto = GUICtrlCreateLabel("Colore Testo", 104, 281, 97, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Anteprima_LogOn = GUICtrlCreatePic( @ScriptDir & "Skin\Images\LogOn.jpg", 356, 125, 321, 369 )
$Anteprima_LogOn_Mask = GUICtrlCreatePic( @ScriptDir & "EzSkin\Preview\LogOn.gif", 356, 125, 321, 369 )
$Radio_Rosso = GUICtrlCreateRadio("Rosso", 120, 320, 73, 17)
$Radio_Blu = GUICtrlCreateRadio("Blu", 120, 345, 65, 17)
$Radio_Verde = GUICtrlCreateRadio("Verde", 120, 371, 57, 17)
$Radio_Arancione = GUICtrlCreateRadio("Arancione", 120, 395, 73, 17)
$Radio_Giallo = GUICtrlCreateRadio("Giallo", 120, 420, 65, 17)
$GeneraAnteprima1 = GUICtrlCreateButton("Anteprima", 456, 104, 121, 17, $WS_GROUP)
$Lista_Contatti = GUICtrlCreateTabItem("Lista Contatti")
$Scegli_ListaContatti = GUICtrlCreateButton("Scegli", 93, 152, 121, 33, $WS_GROUP)
$Label_SfondoListaContatti = GUICtrlCreateLabel("Sfondo Lista Contatti", 83, 120, 154, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label_SfumaturaListaContatti = GUICtrlCreateLabel("Inserire una sfumatura sotto il nick e il messaggio", 56, 235, 233, 17)
$Radio_Si = GUICtrlCreateRadio("Si", 126, 275, 73, 17)
$Radio_No = GUICtrlCreateRadio("No", 212, 275, 73, 17)
$Anteprima_ContactsList = GUICtrlCreatePic("", 356, 125, 321, 369, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Info1 = GUICtrlCreateButton("Cos'è?", 291, 236, 43, 17, $WS_GROUP)
$Label_SfumaturaListaContatti2 = GUICtrlCreateLabel("personale dei contatti per vederli meglio?", 56, 251, 196, 17)
$Conversazioni = GUICtrlCreateTabItem("Conversazioni")
$Radio_DisattivaScenaContatto = GUICtrlCreateRadio("Disattiva scena contatto", 83, 233, 137, 33)
$Radio_AggiungiTrasparenza = GUICtrlCreateRadio("Aggiungi trasparenza", 83, 273, 137, 25)
$Label_SfondoConversazioni = GUICtrlCreateLabel("Sfondo Conversazione", 82, 124, 165, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Scegli_Conversazione = GUICtrlCreateButton("Scegli", 98, 155, 121, 33, $WS_GROUP)
$Info2 = GUICtrlCreateButton("Cos'è?", 222, 243, 43, 17, $WS_GROUP)
$Info3 = GUICtrlCreateButton("Cos'è?", 222, 278, 43, 17, $WS_GROUP)
$Anteprima_Chat = GUICtrlCreatePic("", 284, 181, 393, 313, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Toast = GUICtrlCreateTabItem("Toast")
$Label_SfondoToast = GUICtrlCreateLabel("Sfondo Toast", 107, 116, 100, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Scegli_Toast = GUICtrlCreateButton("Scegli", 96, 147, 121, 33, $WS_GROUP)
$Anteprima_Toast = GUICtrlCreatePic("", 453, 358, 225, 137, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label_ColoreTesto2 = GUICtrlCreateLabel("Colore Testo", 107, 207, 97, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Radio_Rosso2 = GUICtrlCreateRadio("Rosso", 123, 246, 73, 17)
$Radio_Blu2 = GUICtrlCreateRadio("Blu", 123, 271, 65, 17)
$Radio_Verde2 = GUICtrlCreateRadio("Verde", 123, 297, 57, 17)
$Radio_Arancione2 = GUICtrlCreateRadio("Arancione", 123, 321, 73, 17)
$Radio_Giallo2 = GUICtrlCreateRadio("Giallo", 123, 346, 65, 17)
$Esporta = GUICtrlCreateTabItem("Esporta")
$Input_NomeSkin = GUICtrlCreateInput("Nome della Skin", 134, 122, 200, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input_DescrizioneSkin = GUICtrlCreateInput("Descrizione della Skin", 134, 161, 200, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input_URLSkin = GUICtrlCreateInput("URL della Skin", 134, 201, 200, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input_VersioneSkin = GUICtrlCreateInput("Versione della Skin", 134, 238, 200, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$E_Ora = GUICtrlCreateGroup("E ora?", 65, 321, 601, 121)
$SkinSalva = GUICtrlCreateButton("Salva Skin", 121, 361, 120, 57, $WS_GROUP)
$SkinApplica = GUICtrlCreateButton("Applica Skin", 261, 361, 120, 57, $WS_GROUP)
$SkinAnteprima = GUICtrlCreateButton("SkinAnteprima", 401, 361, 120, 57, $WS_GROUP)
$Credits = GUICtrlCreateButton("Credits", 593, 394, 57, 33, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
$Exit = GUICtrlCreateButton("Esci dal Programma", 552, 51, 115, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

#EndRegion ### END Messenger Skin Builder GUI Code section ###

#Region ### Messenger Skin Builder Action Code section ###

;Genera File .reg per gli Ads


;Genera Zipper.bat

If FileExists ( @ScriptDir & "\Zipper.bat" ) Then FileDelete ( @Scriptdir & "\Zipper.bat" )
Sleep (200)
FileWrite ( @Scriptdir & "\Zipper.bat", "7za a -tzip Skin.plsk " & @Scriptdir & "\Skin\Ads "  & @Scriptdir & "\Skin\Images " & @Scriptdir & "\Skin\UI " & @Scriptdir & "\Skin\Options " & @Scriptdir & "\Skin\Plus! " & @Scriptdir & "\Skin\SkinInfo.xml" )

;Funzioni e opzioni della GUI;

While 1
$nMsg = GUIGetMsg()
$msg = GuiGetMsg()

;Accesso

Select
Case $msg = $Scegli_Accesso 
    $var = FileOpenDialog("Scegli Immagine...", @DesktopDir,"Immagini(*.jpeg;*.jpg)")
    FileCopy ( $var , @ScriptDir & "\Skin\Images\LogOn.jpg" ,1 )
    Sleep (100)
    EndSelect

Select
Case $msg = $GeneraAnteprima1
    GUICtrlSetImage ( $Anteprima_LogOn , @ScriptDir & "\Skin\Images\LogOn.jpg")
    GUICtrlSetImage ( $Anteprima_LogOn_Mask , @ScriptDir & "\EzSkin\Preview\LogOn.gif")
    EndSelect
    
;ListaContatti

Select
Case $msg = $Scegli_ListaContatti
    $var = FileOpenDialog("Scegli Immagine...", @DesktopDir,"Immagini(*.jpeg;*.jpg)")
    FileCopy ( $var , @ScriptDir & "\Skin\Images\ContactsList.jpg" ,1 )
EndSelect

Select
Case $msg = $Info1
    MsgBox  ( 0, "Info" , "Questa funziona abilita una sfumatura sotto ogni contatto nella Lista dei Contatti...in modo da poter distinguere il nickname e il messaggio personale su ogni sfondo,che sia chiaro o scuro" ,50 )
    EndSelect

;Conversazione

Select
Case $msg = $Scegli_Conversazione 
    $var = FileOpenDialog("Scegli Immagine...", @DesktopDir,"Immagini(*.jpeg;*.jpg)")
    FileCopy ( $var , @ScriptDir & "\Skin\Images\Chat.jpg" ,1 )
EndSelect

Select
Case $msg = $Info2
    MsgBox  ( 0, "Info" , "Questa funziona nasconde la scena del contatto nelle chat con lui...lo spazio vuoto che si crea togliendo la scena viene riempito dallo Sfondo della Conversazione che hai scelto" ,50 )
EndSelect

Select
Case $msg = $Info3
    MsgBox  ( 0, "Info" , "Questa funzione aggiunge alla chat, sotto i messaggi inviati e ricevuti, un riquadro bianco che rende più facile la lettura, sia su uno sfondo chiaro sia su uno scuro" ,50 )
    EndSelect

;Toast

Select
Case $msg = $Scegli_Toast
    $var = FileOpenDialog("Scegli Immagine...", @DesktopDir,"Immagini(*.jpeg;*.jpg)")
    FileCopy ( $var , @ScriptDir & "\Skin\Images\Toast.jpg" ,1 )
EndSelect

;Esporta

Select
Case $msg = $SkinSalva
    If FileExists ( @ScriptDir & "\Skin\SkinInfo.xml" ) Then FileDelete ( @ScriptDir & "\Skin\SkinInfo.xml" )

    $NomeSkin = GUICtrlRead($Input_NomeSkin)
    $DescrizioneSkin = GUICtrlRead($Input_DescrizioneSkin)
    $URLSkin = GUICtrlRead($Input_URLSkin)
        
    
    $SkinInfo = FileWrite ( @ScriptDir & "\Skin\SkinInfo.xml",   "<!-- Tutti sono liberi di imparare, scaricare e modificare le skins e condividerle con altri, a patto che: 1- La skin non venga spacciata per propria*; 2- L'autore rimane fuori da ogni tipo di situazione legale e non;" & @CRLF & "*L'autore del pacchetto (struttura della skin) rimane Ryddyck, ma potete naturalmente firmare la skin con il vostro nome/nickname" & @CRLF & "IMPORTANTE: Non eliminate il commento! -->" & @CRLF & "<SkinInfo>" & @CRLF & "<Information>" & @CRLF & "<Name>" & @CRLF & $NomeSkin & @CRLF & "</Name>"& @CRLF  & "<Description>" & @CRLF & $DescrizioneSkin & @CRLF & "</Description>" & @CRLF & "<AboutUrl>" & @CRLF & $URLSkin & @CRLF & "</AboutUrl>" & @CRLF & "<Screenshot>" & @CRLF & "<File>Images/anteprima.jpg</File>" & @CRLF & "</Screenshot>" & @CRLF & "</Information>" & @CRLF &  "<Options>" & @CRLF & "<Skin>" & @CRLF & "<Properties>" & @CRLF & "<MultiVal Name=""DettagliAccount""><DispLabel>Seleziona colore per i dettagli account</DispLabel>" & @CRLF & "<Values>" & @CRLF & "<Value DispLabel=""Arancione"">Arancione</Value>" & @CRLF & "<Value DispLabel=""Bianco"">Bianco</Value>" & @CRLF & "<Value DispLabel=""Blu"">Blu</Value>" & @CRLF & "<Value DispLabel=""Giallo"">Giallo</Value>" & @CRLF & "<Value DispLabel=""Grigio"">Grigio</Value>" & @CRLF & "<Value DispLabel=""Marrone"">Marrone</Value>" & @CRLF & "<Value DispLabel=""Nero"">Nero</Value>" & @CRLF & "<Value DispLabel=""Rosa"">Rosa</Value>" & @CRLF & "<Value DispLabel=""Rosso"">Rosso</Value>" & @CRLF & "<Value DispLabel=""Verde"">Verde</Value>" & @CRLF & "<Value DispLabel=""Viola"">Viola</Value>" & @CRLF & "</Values>" & @CRLF & "<Default>Nero</Default>" & @CRLF & "</MultiVal>" & @CRLF & "<BoolVal Name=""NascondiOpzioni""><DispLabel>Nascondi pulsante opzioni nella Lista Contatti</DispLabel><Default>false</Default></BoolVal>" & @CRLF & "<BoolVal Name=""NascondiSfocaturaContatti""><DispLabel>Nascondi sfocatura sotto il nickname dei contatti</DispLabel><Default>true</Default></BoolVal>" & @CRLF & "<BoolVal Name=""NascondiScenaContatto""><DispLabel>Nascondi scena del contatto nella Conversazione</DispLabel><Default>true</Default></BoolVal>" & @CRLF & "<BoolVal Name=""AggiungiTrasparenza""><DispLabel>Aggiungi trasparenza all'area messaggi della Conversazione</DispLabel><Default>false</Default></BoolVal>" & @CRLF & "<MultiVal Name=""ColoreMessaggioToast""><DispLabel>Seleziona colore per il messaggio del toast</DispLabel>" & @CRLF & "<Values>" & @CRLF & "<Value DispLabel=""Arancione"">Arancione</Value>" & @CRLF & "<Value DispLabel=""Bianco"">Bianco</Value>" & @CRLF & "<Value DispLabel=""Blu"">Blu</Value>" & @CRLF & "<Value DispLabel=""Giallo"">Giallo</Value>" & @CRLF & "<Value DispLabel=""Grigio"">Grigio</Value>" & @CRLF & "<Value DispLabel=""Marrone"">Marrone</Value>" & @CRLF & "<Value DispLabel=""Nero"">Nero</Value>" & @CRLF & "<Value DispLabel=""Rosa"">Rosa</Value>" & @CRLF & "<Value DispLabel=""Rosso"">Rosso</Value>" & @CRLF & "<Value DispLabel=""Verde"">Verde</Value>" & @CRLF & "<Value DispLabel=""Viola"">Viola</Value>" & @CRLF & "</Values>" & @CRLF & "<Default>Nero</Default>" & @CRLF & "</MultiVal>" & @CRLF & "</Properties>" & @CRLF & "<OptionInterface>" & @CRLF & "<InterfaceDir>Options</InterfaceDir>" & @CRLF & "<InterfaceFile>OptInterfaces.xml</InterfaceFile>" & @CRLF & "<WindowIds>" & @CRLF & "<WindowId Language=""it-it"">SkinOpt it-it</WindowId>" & @CRLF & "</WindowIds>" & @CRLF & "</OptionInterface>" & @CRLF & "</Skin>" & @CRLF & "</Options>" & @CRLF & "<PlusSkin>" & @CRLF & "<ResGroup>" & @CRLF & "<PlusVersion Major=""4""/>" & @CRLF & "<InterfaceDir>Plus!</InterfaceDir>" & @CRLF & "</ResGroup>" & @CRLF & "</PlusSkin>" )  
    $SkinInfo = FileWrite ( @ScriptDir & "\Skin\SkinInfo.xml", "<MessengerSkin>" & @CRLF & "<ResGroup>" & @CRLF & "<Restrictions>" & @CRLF & "<MsgVersions>" & @CRLF & "<Version Major=""14"" Minor=""0""/>" & @CRLF & "</MsgVersions>" & @CRLF & "</Restrictions>" & @CRLF & "<Resources>" & @CRLF & "<New>" & @CRLF & "<Pictures>" & @CRLF & "<!-- Sfocatura sotto il testo - 1002 -->" & @CRLF & "<Picture Id=""59001"">" & @CRLF & "<File>Images/59001.png</File>" & @CRLF & "</Picture>" & @CRLF & "<!-- Bottone Opzioni - 923 -->" & @CRLF & "<Picture Id=""59002"">" & @CRLF & "<File>Images/59002.png</File><Metadata><Colorize>false</Colorize></Metadata>" & @CRLF & "</Picture>" & @CRLF & "</Pictures>" & @CRLF & "</New>" & @CRLF & "<Replace>" & @CRLF & "<Graphics><Pictures>" & @CRLF & "<!-- Avatar -->" & @CRLF & "<Picture Id=""48024"">" & @CRLF & "<File>Images/anteprima.jpg</File>" & @CRLF & "</Picture>" & @CRLF & "<!-- Sfondo conversazione - 920 -->" & @CRLF & "<Picture Id=""1751"">" & @CRLF & "<File>Images/Chat.jpg</File><Metadata><UMLeft>1</UMLeft><UMTop>1</UMTop><UMRight>1</UMRight><UMBottom>1</UMBottom></Metadata>" & @CRLF & "</Picture>" & @CRLF & "<!-- Sfondo Toast - 921-->" & @CRLF & "<Picture Id=""1473"">" & @CRLF & "<File>Images/Toast.png</File><Metadata><Colorize>false</Colorize><UMLeft>3</UMLeft><UMTop>3</UMTop><UMRight>3</UMRight><UMBottom>3</UMBottom></Metadata>" & @CRLF & "</Picture>" & @CRLF & "<!-- Sfondo Lista Contatti - 923 -->" & @CRLF & "<Picture Id=""21032"">" & @CRLF & "<File>Images/ContactsList.jpg</File><Metadata><UMLeft>1</UMLeft><UMTop>1</UMTop><UMRight>1</UMRight><UMBottom>1</UMBottom></Metadata>" & @CRLF & "</Picture>" & @CRLF & "<Picture Id=""1786"">" & @CRLF & "<File>Images/1786.png</File>" & @CRLF & "</Picture>" & @CRLF & "<!-- Sfondo LogOn - 947 -->" & @CRLF & "<Picture Id=""4300"">" & @CRLF & "<File>Images/LogOn.jpg</File><Metadata><UMLeft>1</UMLeft><UMTop>1</UMTop><UMRight>1</UMRight><UMBottom>1</UMBottom></Metadata>" & @CRLF & "</Picture>" & @CRLF & "<!-- Pulsante Aiuto modificato -->" & @CRLF & "<Picture Id=""1908"">" & @CRLF & "<File>Images/1908.png</File>" & @CRLF & "</Picture>" & @CRLF & "</Pictures></Graphics>" & @CRLF & "<Windows>" & @CRLF & "<Definitions>" & @CRLF & "<Definition Id=""920"">" & @CRLF & "<File>UI/920d.txt</File>" & @CRLF & "</Definition>" & @CRLF & "<Definition Id=""921"">" & @CRLF & "<File>UI/921d.txt</File>" & @CRLF & "</Definition>" & @CRLF & "<Definition Id=""923"">" & @CRLF & "<File>UI/923d.txt</File>" & @CRLF & "</Definition>" & @CRLF & "<Definition Id=""947"">" & @CRLF & "<File>UI/947d.txt</File>"  & @CRLF & "</Definition>" & @CRLF & "</Definitions>" & @CRLF & "<Styles>" & @CRLF & "<Style Id=""920"">" & @CRLF & "<File>UI/920s.txt</File>" & @CRLF & "</Style>" & @CRLF & "<Style Id=""921"">" & @CRLF & "<File>UI/921s.txt</File>" & @CRLF & "</Style>" & @CRLF & "<Style Id=""923"">" & @CRLF & "<File>UI/923s.txt</File>" & @CRLF & "</Style>" & @CRLF & "<Style Id=""947"">" & @CRLF & "<File>UI/947s.txt</File>" & @CRLF & "</Style>" & @CRLF & "<Style Id=""1002"">" & @CRLF & "<File>UI/1002s.txt</File>" & @CRLF & "</Style>" & @CRLF & "</Styles>" & @CRLF & "</Windows>" & @CRLF & "</Replace>" & @CRLF & "</Resources>" & @CRLF & "</ResGroup>" & @CRLF & "</MessengerSkin>" & @CRLF & "</SkinInfo>" ) 
    
    If FileExists ( @ScriptDir & "\Skin\Ads\Mostra Ads.reg" ) Then FileDelete ( @ScriptDir & "\Skin\Ads\Mostra Ads.reg" )
    If FileExists ( @ScriptDir & "\Skin\Ads\Nascondi Ads.reg" ) Then FileDelete ( @ScriptDir & "\Skin\Ads\Nascondi Ads.reg" )
    
    FileWrite ( @ScriptDir & "\Skin\Ads\Mostra Ads.reg" , "Windows Registry Editor Version 5.00" & @CRLF & "[HKEY_CURRENT_USER\Software\Patchou\Messenger Plus! Live\GlobalSettings\Skins\" & $NomeSkin & "\Settings]" & @CRLF &  """RimuoviAds""=dword:00000000" )
    FileWrite ( @ScriptDir & "\Skin\Ads\Nascondi Ads.reg" , "Windows Registry Editor Version 5.00" & @CRLF & "[HKEY_CURRENT_USER\Software\Patchou\Messenger Plus! Live\GlobalSettings\Skins\" & $NomeSkin & "\Settings]" & @CRLF &  """RimuoviAds""=dword:00000001" )
    
    Sleep (200) 
    Run ( @ScriptDir & "\Zipper.bat" )
    Sleep (200)
    
    $PercorsoSalvataggio = FileSaveDialog ("Scegli dove salvare la Skin..." , @Desktopdir , "Messenger Plus! Skin(*.plsk)", "" ,  $NomeSkin & ".plsk")
    FileMove ( @ScriptDir & "\Skin.plsk" , $PercorsoSalvataggio , 1)
    
    
    
EndSelect


;Tasto Esci Principale

Select
Case $msg = $Exit
    Exit
EndSelect


;Genera File .reg per gli Ads





Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

#EndRegion ### Messenger Skin Builder Action Code section ###
Link to comment
Share on other sites

  • Moderators

DarkRickid2,

You need to re-read the Help file on Select..Case - your syntax was completely wrong. ;)

Try this - the buttons seem to work properly for me now: :P

#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Messenger Skin Builder GUI section ###

$MSB = GUICreate("MSB", 739, 566)
$Tab1 = GUICtrlCreateTab(51, 81, 633, 420)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$Accesso = GUICtrlCreateTabItem("Accesso")
$Label_SfondoAccesso = GUICtrlCreateLabel("Sfondo Accesso", 91, 118, 121, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0D55FF)
$Scegli_Accesso = GUICtrlCreateButton("Scegli", 92, 150, 121, 33, $WS_GROUP)
$Label_ImmaginePersonale = GUICtrlCreateLabel(" Immagine Personale", 78, 194, 153, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Scegli_Immagine = GUICtrlCreateButton("Scegli", 93, 227, 121, 33, $WS_GROUP)
$Label_ColoreTesto = GUICtrlCreateLabel("Colore Testo", 104, 281, 97, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Anteprima_LogOn = GUICtrlCreatePic(@ScriptDir & "Skin\Images\LogOn.jpg", 356, 125, 321, 369)
$Anteprima_LogOn_Mask = GUICtrlCreatePic(@ScriptDir & "EzSkin\Preview\LogOn.gif", 356, 125, 321, 369)
$Radio_Rosso = GUICtrlCreateRadio("Rosso", 120, 320, 73, 17)
$Radio_Blu = GUICtrlCreateRadio("Blu", 120, 345, 65, 17)
$Radio_Verde = GUICtrlCreateRadio("Verde", 120, 371, 57, 17)
$Radio_Arancione = GUICtrlCreateRadio("Arancione", 120, 395, 73, 17)
$Radio_Giallo = GUICtrlCreateRadio("Giallo", 120, 420, 65, 17)
$GeneraAnteprima1 = GUICtrlCreateButton("Anteprima", 456, 104, 121, 17, $WS_GROUP)
$Lista_Contatti = GUICtrlCreateTabItem("Lista Contatti")
$Scegli_ListaContatti = GUICtrlCreateButton("Scegli", 93, 152, 121, 33, $WS_GROUP)
$Label_SfondoListaContatti = GUICtrlCreateLabel("Sfondo Lista Contatti", 83, 120, 154, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label_SfumaturaListaContatti = GUICtrlCreateLabel("Inserire una sfumatura sotto il nick e il messaggio", 56, 235, 233, 17)
$Radio_Si = GUICtrlCreateRadio("Si", 126, 275, 73, 17)
$Radio_No = GUICtrlCreateRadio("No", 212, 275, 73, 17)
$Anteprima_ContactsList = GUICtrlCreatePic("", 356, 125, 321, 369, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Info1 = GUICtrlCreateButton("Cos'è?", 291, 236, 43, 17, $WS_GROUP)
$Label_SfumaturaListaContatti2 = GUICtrlCreateLabel("personale dei contatti per vederli meglio?", 56, 251, 196, 17)
$Conversazioni = GUICtrlCreateTabItem("Conversazioni")
$Radio_DisattivaScenaContatto = GUICtrlCreateRadio("Disattiva scena contatto", 83, 233, 137, 33)
$Radio_AggiungiTrasparenza = GUICtrlCreateRadio("Aggiungi trasparenza", 83, 273, 137, 25)
$Label_SfondoConversazioni = GUICtrlCreateLabel("Sfondo Conversazione", 82, 124, 165, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Scegli_Conversazione = GUICtrlCreateButton("Scegli", 98, 155, 121, 33, $WS_GROUP)
$Info2 = GUICtrlCreateButton("Cos'è?", 222, 243, 43, 17, $WS_GROUP)
$Info3 = GUICtrlCreateButton("Cos'è?", 222, 278, 43, 17, $WS_GROUP)
$Anteprima_Chat = GUICtrlCreatePic("", 284, 181, 393, 313, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Toast = GUICtrlCreateTabItem("Toast")
$Label_SfondoToast = GUICtrlCreateLabel("Sfondo Toast", 107, 116, 100, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Scegli_Toast = GUICtrlCreateButton("Scegli", 96, 147, 121, 33, $WS_GROUP)
$Anteprima_Toast = GUICtrlCreatePic("", 453, 358, 225, 137, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Label_ColoreTesto2 = GUICtrlCreateLabel("Colore Testo", 107, 207, 97, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Radio_Rosso2 = GUICtrlCreateRadio("Rosso", 123, 246, 73, 17)
$Radio_Blu2 = GUICtrlCreateRadio("Blu", 123, 271, 65, 17)
$Radio_Verde2 = GUICtrlCreateRadio("Verde", 123, 297, 57, 17)
$Radio_Arancione2 = GUICtrlCreateRadio("Arancione", 123, 321, 73, 17)
$Radio_Giallo2 = GUICtrlCreateRadio("Giallo", 123, 346, 65, 17)
$Esporta = GUICtrlCreateTabItem("Esporta")
$Input_NomeSkin = GUICtrlCreateInput("Nome della Skin", 134, 122, 200, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input_DescrizioneSkin = GUICtrlCreateInput("Descrizione della Skin", 134, 161, 200, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input_URLSkin = GUICtrlCreateInput("URL della Skin", 134, 201, 200, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input_VersioneSkin = GUICtrlCreateInput("Versione della Skin", 134, 238, 200, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$E_Ora = GUICtrlCreateGroup("E ora?", 65, 321, 601, 121)
$SkinSalva = GUICtrlCreateButton("Salva Skin", 121, 361, 120, 57, $WS_GROUP)
$SkinApplica = GUICtrlCreateButton("Applica Skin", 261, 361, 120, 57, $WS_GROUP)
$SkinAnteprima = GUICtrlCreateButton("SkinAnteprima", 401, 361, 120, 57, $WS_GROUP)
$Credits = GUICtrlCreateButton("Credits", 593, 394, 57, 33, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
$Exit = GUICtrlCreateButton("Esci dal Programma", 552, 51, 115, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

#EndRegion ### START Messenger Skin Builder GUI section ###

#Region ### Messenger Skin Builder Action Code section ###

;Genera File .reg per gli Ads

;Genera Zipper.bat

If FileExists(@ScriptDir & "\Zipper.bat") Then FileDelete(@ScriptDir & "\Zipper.bat")
Sleep(200)
FileWrite(@ScriptDir & "\Zipper.bat", "7za a -tzip Skin.plsk " & @ScriptDir & "\Skin\Ads " & @ScriptDir & "\Skin\Images " & @ScriptDir & "\Skin\UI " & @ScriptDir & "\Skin\Options " & @ScriptDir & "\Skin\Plus! " & @ScriptDir & "\Skin\SkinInfo.xml")

;Funzioni e opzioni della GUI;

While 1
    $msg = GUIGetMsg()

    ;Accesso

    Select
        Case $msg = $Scegli_Accesso
            $var = FileOpenDialog("Scegli Immagine...", @DesktopDir, "Immagini(*.jpeg;*.jpg)")
            FileCopy($var, @ScriptDir & "\Skin\Images\LogOn.jpg", 1)
            Sleep(100)
        Case $msg = $GeneraAnteprima1
            GUICtrlSetImage($Anteprima_LogOn, @ScriptDir & "\Skin\Images\LogOn.jpg")
            GUICtrlSetImage($Anteprima_LogOn_Mask, @ScriptDir & "\EzSkin\Preview\LogOn.gif")
    ;ListaContatti
            Case $msg = $Scegli_ListaContatti
            $var = FileOpenDialog("Scegli Immagine...", @DesktopDir, "Immagini(*.jpeg;*.jpg)")
            FileCopy($var, @ScriptDir & "\Skin\Images\ContactsList.jpg", 1)
        Case $msg = $Info1
            MsgBox(0, "Info", "Questa funziona abilita una sfumatura sotto ogni contatto nella Lista dei Contatti...in modo da poter distinguere il nickname e il messaggio personale su ogni sfondo,che sia chiaro o scuro", 50)

    ;Conversazione

        Case $msg = $Scegli_Conversazione
            $var = FileOpenDialog("Scegli Immagine...", @DesktopDir, "Immagini(*.jpeg;*.jpg)")
            FileCopy($var, @ScriptDir & "\Skin\Images\Chat.jpg", 1)
        Case $msg = $Info2
            MsgBox(0, "Info", "Questa funziona nasconde la scena del contatto nelle chat con lui...lo spazio vuoto che si crea togliendo la scena viene riempito dallo Sfondo della Conversazione che hai scelto", 50)
        Case $msg = $Info3
            MsgBox(0, "Info", "Questa funzione aggiunge alla chat, sotto i messaggi inviati e ricevuti, un riquadro bianco che rende più facile la lettura, sia su uno sfondo chiaro sia su uno scuro", 50)

    ;Toast

        Case $msg = $Scegli_Toast
            $var = FileOpenDialog("Scegli Immagine...", @DesktopDir, "Immagini(*.jpeg;*.jpg)")
            FileCopy($var, @ScriptDir & "\Skin\Images\Toast.jpg", 1)
    ;Esporta

        Case $msg = $SkinSalva

            If FileExists(@ScriptDir & "\Skin\SkinInfo.xml") Then FileDelete(@ScriptDir & "\Skin\SkinInfo.xml")

            $NomeSkin = GUICtrlRead($Input_NomeSkin)
            $DescrizioneSkin = GUICtrlRead($Input_DescrizioneSkin)
            $URLSkin = GUICtrlRead($Input_URLSkin)

            $SkinInfo = FileWrite(@ScriptDir & "\Skin\SkinInfo.xml", "<!-- Tutti sono liberi di imparare, scaricare e modificare le skins e condividerle con altri, a patto che: 1- La skin non venga spacciata per propria*; 2- L'autore rimane fuori da ogni tipo di situazione legale e non;" & @CRLF & "*L'autore del pacchetto (struttura della skin) rimane Ryddyck, ma potete naturalmente firmare la skin con il vostro nome/nickname" & @CRLF & "IMPORTANTE: Non eliminate il commento! -->" & @CRLF & "<SkinInfo>" & @CRLF & "<Information>" & @CRLF & "<Name>" & @CRLF & $NomeSkin & @CRLF & "</Name>" & @CRLF & "<Description>" & @CRLF & $DescrizioneSkin & @CRLF & "</Description>" & @CRLF & "<AboutUrl>" & @CRLF & $URLSkin & @CRLF & "</AboutUrl>" & @CRLF & "<Screenshot>" & @CRLF & "<File>Images/anteprima.jpg</File>" & @CRLF & "</Screenshot>" & @CRLF & "</Information>" & @CRLF & "<Options>" & @CRLF & "<Skin>" & @CRLF & "<Properties>" & @CRLF & "<MultiVal Name=""DettagliAccount""><DispLabel>Seleziona colore per i dettagli account</DispLabel>" & @CRLF & "<Values>" & @CRLF & "<Value DispLabel=""Arancione"">Arancione</Value>" & @CRLF & "<Value DispLabel=""Bianco"">Bianco</Value>" & @CRLF & "<Value DispLabel=""Blu"">Blu</Value>" & @CRLF & "<Value DispLabel=""Giallo"">Giallo</Value>" & @CRLF & "<Value DispLabel=""Grigio"">Grigio</Value>" & @CRLF & "<Value DispLabel=""Marrone"">Marrone</Value>" & @CRLF & "<Value DispLabel=""Nero"">Nero</Value>" & @CRLF & "<Value DispLabel=""Rosa"">Rosa</Value>" & @CRLF & "<Value DispLabel=""Rosso"">Rosso</Value>" & @CRLF & "<Value DispLabel=""Verde"">Verde</Value>" & @CRLF & "<Value DispLabel=""Viola"">Viola</Value>" & @CRLF & "</Values>" & @CRLF & "<Default>Nero</Default>" & @CRLF & "</MultiVal>" & @CRLF & "<BoolVal Name=""NascondiOpzioni""><DispLabel>Nascondi pulsante opzioni nella Lista Contatti</DispLabel><Default>false</Default></BoolVal>" & @CRLF & "<BoolVal Name=""NascondiSfocaturaContatti""><DispLabel>Nascondi sfocatura sotto il nickname dei contatti</DispLabel><Default>true</Default></BoolVal>" & @CRLF & "<BoolVal Name=""NascondiScenaContatto""><DispLabel>Nascondi scena del contatto nella Conversazione</DispLabel><Default>true</Default></BoolVal>" & @CRLF & "<BoolVal Name=""AggiungiTrasparenza""><DispLabel>Aggiungi trasparenza all'area messaggi della Conversazione</DispLabel><Default>false</Default></BoolVal>" & @CRLF & "<MultiVal Name=""ColoreMessaggioToast""><DispLabel>Seleziona colore per il messaggio del toast</DispLabel>" & @CRLF & "<Values>" & @CRLF & "<Value DispLabel=""Arancione"">Arancione</Value>" & @CRLF & "<Value DispLabel=""Bianco"">Bianco</Value>" & @CRLF & "<Value DispLabel=""Blu"">Blu</Value>" & @CRLF & "<Value DispLabel=""Giallo"">Giallo</Value>" & @CRLF & "<Value DispLabel=""Grigio"">Grigio</Value>" & @CRLF & "<Value DispLabel=""Marrone"">Marrone</Value>" & @CRLF & "<Value DispLabel=""Nero"">Nero</Value>" & @CRLF & "<Value DispLabel=""Rosa"">Rosa</Value>" & @CRLF & "<Value DispLabel=""Rosso"">Rosso</Value>" & @CRLF & "<Value DispLabel=""Verde"">Verde</Value>" & @CRLF & "<Value DispLabel=""Viola"">Viola</Value>" & @CRLF & "</Values>" & @CRLF & "<Default>Nero</Default>" & @CRLF & "</MultiVal>" & @CRLF & "</Properties>" & @CRLF & "<OptionInterface>" & @CRLF & "<InterfaceDir>Options</InterfaceDir>" & @CRLF & "<InterfaceFile>OptInterfaces.xml</InterfaceFile>" & @CRLF & "<WindowIds>" & @CRLF & "<WindowId Language=""it-it"">SkinOpt it-it</WindowId>" & @CRLF & "</WindowIds>" & @CRLF & "</OptionInterface>" & @CRLF & "</Skin>" & @CRLF & "</Options>" & @CRLF & "<PlusSkin>" & @CRLF & "<ResGroup>" & @CRLF & "<PlusVersion Major=""4""/>" & @CRLF & "<InterfaceDir>Plus!</InterfaceDir>" & @CRLF & "</ResGroup>" & @CRLF & "</PlusSkin>")
            $SkinInfo = FileWrite(@ScriptDir & "\Skin\SkinInfo.xml", "<MessengerSkin>" & @CRLF & "<ResGroup>" & @CRLF & "<Restrictions>" & @CRLF & "<MsgVersions>" & @CRLF & "<Version Major=""14"" Minor=""0""/>" & @CRLF & "</MsgVersions>" & @CRLF & "</Restrictions>" & @CRLF & "<Resources>" & @CRLF & "<New>" & @CRLF & "<Pictures>" & @CRLF & "<!-- Sfocatura sotto il testo - 1002 -->" & @CRLF & "<Picture Id=""59001"">" & @CRLF & "<File>Images/59001.png</File>" & @CRLF & "</Picture>" & @CRLF & "<!-- Bottone Opzioni - 923 -->" & @CRLF & "<Picture Id=""59002"">" & @CRLF & "<File>Images/59002.png</File><Metadata><Colorize>false</Colorize></Metadata>" & @CRLF & "</Picture>" & @CRLF & "</Pictures>" & @CRLF & "</New>" & @CRLF & "<Replace>" & @CRLF & "<Graphics><Pictures>" & @CRLF & "<!-- Avatar -->" & @CRLF & "<Picture Id=""48024"">" & @CRLF & "<File>Images/anteprima.jpg</File>" & @CRLF & "</Picture>" & @CRLF & "<!-- Sfondo conversazione - 920 -->" & @CRLF & "<Picture Id=""1751"">" & @CRLF & "<File>Images/Chat.jpg</File><Metadata><UMLeft>1</UMLeft><UMTop>1</UMTop><UMRight>1</UMRight><UMBottom>1</UMBottom></Metadata>" & @CRLF & "</Picture>" & @CRLF & "<!-- Sfondo Toast - 921-->" & @CRLF & "<Picture Id=""1473"">" & @CRLF & "<File>Images/Toast.png</File><Metadata><Colorize>false</Colorize><UMLeft>3</UMLeft><UMTop>3</UMTop><UMRight>3</UMRight><UMBottom>3</UMBottom></Metadata>" & @CRLF & "</Picture>" & @CRLF & "<!-- Sfondo Lista Contatti - 923 -->" & @CRLF & "<Picture Id=""21032"">" & @CRLF & "<File>Images/ContactsList.jpg</File><Metadata><UMLeft>1</UMLeft><UMTop>1</UMTop><UMRight>1</UMRight><UMBottom>1</UMBottom></Metadata>" & @CRLF & "</Picture>" & @CRLF & "<Picture Id=""1786"">" & @CRLF & "<File>Images/1786.png</File>" & @CRLF & "</Picture>" & @CRLF & "<!-- Sfondo LogOn - 947 -->" & @CRLF & "<Picture Id=""4300"">" & @CRLF & "<File>Images/LogOn.jpg</File><Metadata><UMLeft>1</UMLeft><UMTop>1</UMTop><UMRight>1</UMRight><UMBottom>1</UMBottom></Metadata>" & @CRLF & "</Picture>" & @CRLF & "<!-- Pulsante Aiuto modificato -->" & @CRLF & "<Picture Id=""1908"">" & @CRLF & "<File>Images/1908.png</File>" & @CRLF & "</Picture>" & @CRLF & "</Pictures></Graphics>" & @CRLF & "<Windows>" & @CRLF & "<Definitions>" & @CRLF & "<Definition Id=""920"">" & @CRLF & "<File>UI/920d.txt</File>" & @CRLF & "</Definition>" & @CRLF & "<Definition Id=""921"">" & @CRLF & "<File>UI/921d.txt</File>" & @CRLF & "</Definition>" & @CRLF & "<Definition Id=""923"">" & @CRLF & "<File>UI/923d.txt</File>" & @CRLF & "</Definition>" & @CRLF & "<Definition Id=""947"">" & @CRLF & "<File>UI/947d.txt</File>" & @CRLF & "</Definition>" & @CRLF & "</Definitions>" & @CRLF & "<Styles>" & @CRLF & "<Style Id=""920"">" & @CRLF & "<File>UI/920s.txt</File>" & @CRLF & "</Style>" & @CRLF & "<Style Id=""921"">" & @CRLF & "<File>UI/921s.txt</File>" & @CRLF & "</Style>" & @CRLF & "<Style Id=""923"">" & @CRLF & "<File>UI/923s.txt</File>" & @CRLF & "</Style>" & @CRLF & "<Style Id=""947"">" & @CRLF & "<File>UI/947s.txt</File>" & @CRLF & "</Style>" & @CRLF & "<Style Id=""1002"">" & @CRLF & "<File>UI/1002s.txt</File>" & @CRLF & "</Style>" & @CRLF & "</Styles>" & @CRLF & "</Windows>" & @CRLF & "</Replace>" & @CRLF & "</Resources>" & @CRLF & "</ResGroup>" & @CRLF & "</MessengerSkin>" & @CRLF & "</SkinInfo>")

            If FileExists(@ScriptDir & "\Skin\Ads\Mostra Ads.reg") Then FileDelete(@ScriptDir & "\Skin\Ads\Mostra Ads.reg")
            If FileExists(@ScriptDir & "\Skin\Ads\Nascondi Ads.reg") Then FileDelete(@ScriptDir & "\Skin\Ads\Nascondi Ads.reg")

            FileWrite(@ScriptDir & "\Skin\Ads\Mostra Ads.reg", "Windows Registry Editor Version 5.00" & @CRLF & "[HKEY_CURRENT_USER\Software\Patchou\Messenger Plus! Live\GlobalSettings\Skins\" & $NomeSkin & "\Settings]" & @CRLF & """RimuoviAds""=dword:00000000")
            FileWrite(@ScriptDir & "\Skin\Ads\Nascondi Ads.reg", "Windows Registry Editor Version 5.00" & @CRLF & "[HKEY_CURRENT_USER\Software\Patchou\Messenger Plus! Live\GlobalSettings\Skins\" & $NomeSkin & "\Settings]" & @CRLF & """RimuoviAds""=dword:00000001")

            Sleep(200)
            Run(@ScriptDir & "\Zipper.bat")
            Sleep(200)

            $PercorsoSalvataggio = FileSaveDialog("Scegli dove salvare la Skin...", @DesktopDir, "Messenger Plus! Skin(*.plsk)", "", $NomeSkin & ".plsk")
            FileMove(@ScriptDir & "\Skin.plsk", $PercorsoSalvataggio, 1)
            
    ;Tasto Esci Principale

        Case $msg = $Exit
            Exit
    EndSelect

    ;Genera File .reg per gli Ads
WEnd

#EndRegion ### Messenger Skin Builder Action Code section ###

I hope that helps. Ask if anything is unclear. :blink:

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to comment
Share on other sites

First of all, i think you dont need 2 GUIGetMsg() operations, also there is too much Select...EndSelect.

Here is abit edited code:

#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Messenger Skin Builder GUI section ###

$MSB = GUICreate("MSB", 739, 566)
$Tab1 = GUICtrlCreateTab(51, 81, 633, 420)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Accesso = GUICtrlCreateTabItem("Accesso")
$Label_SfondoAccesso = GUICtrlCreateLabel("Sfondo Accesso", 91, 118, 121, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0D55FF)
$Scegli_Accesso = GUICtrlCreateButton("Scegli", 92, 150, 121, 33, $WS_GROUP)
$Label_ImmaginePersonale = GUICtrlCreateLabel(" Immagine Personale", 78, 194, 153, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Scegli_Immagine = GUICtrlCreateButton("Scegli", 93, 227, 121, 33, $WS_GROUP)
$Label_ColoreTesto = GUICtrlCreateLabel("Colore Testo", 104, 281, 97, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Anteprima_LogOn = GUICtrlCreatePic( @ScriptDir & "Skin\Images\LogOn.jpg", 356, 125, 321, 369 )
$Anteprima_LogOn_Mask = GUICtrlCreatePic( @ScriptDir & "EzSkin\Preview\LogOn.gif", 356, 125, 321, 369 )
$Radio_Rosso = GUICtrlCreateRadio("Rosso", 120, 320, 73, 17)
$Radio_Blu = GUICtrlCreateRadio("Blu", 120, 345, 65, 17)
$Radio_Verde = GUICtrlCreateRadio("Verde", 120, 371, 57, 17)
$Radio_Arancione = GUICtrlCreateRadio("Arancione", 120, 395, 73, 17)
$Radio_Giallo = GUICtrlCreateRadio("Giallo", 120, 420, 65, 17)
$GeneraAnteprima1 = GUICtrlCreateButton("Anteprima", 456, 104, 121, 17, $WS_GROUP)
$Lista_Contatti = GUICtrlCreateTabItem("Lista Contatti")
$Scegli_ListaContatti = GUICtrlCreateButton("Scegli", 93, 152, 121, 33, $WS_GROUP)
$Label_SfondoListaContatti = GUICtrlCreateLabel("Sfondo Lista Contatti", 83, 120, 154, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label_SfumaturaListaContatti = GUICtrlCreateLabel("Inserire una sfumatura sotto il nick e il messaggio", 56, 235, 233, 17)
$Radio_Si = GUICtrlCreateRadio("Si", 126, 275, 73, 17)
$Radio_No = GUICtrlCreateRadio("No", 212, 275, 73, 17)
$Anteprima_ContactsList = GUICtrlCreatePic("", 356, 125, 321, 369, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Info1 = GUICtrlCreateButton("Cos'??", 291, 236, 43, 17, $WS_GROUP)
$Label_SfumaturaListaContatti2 = GUICtrlCreateLabel("personale dei contatti per vederli meglio?", 56, 251, 196, 17)
$Conversazioni = GUICtrlCreateTabItem("Conversazioni")
$Radio_DisattivaScenaContatto = GUICtrlCreateRadio("Disattiva scena contatto", 83, 233, 137, 33)
$Radio_AggiungiTrasparenza = GUICtrlCreateRadio("Aggiungi trasparenza", 83, 273, 137, 25)
$Label_SfondoConversazioni = GUICtrlCreateLabel("Sfondo Conversazione", 82, 124, 165, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Scegli_Conversazione = GUICtrlCreateButton("Scegli", 98, 155, 121, 33, $WS_GROUP)
$Info2 = GUICtrlCreateButton("Cos'??", 222, 243, 43, 17, $WS_GROUP)
$Info3 = GUICtrlCreateButton("Cos'??", 222, 278, 43, 17, $WS_GROUP)
$Anteprima_Chat = GUICtrlCreatePic("", 284, 181, 393, 313, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Toast = GUICtrlCreateTabItem("Toast")
$Label_SfondoToast = GUICtrlCreateLabel("Sfondo Toast", 107, 116, 100, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Scegli_Toast = GUICtrlCreateButton("Scegli", 96, 147, 121, 33, $WS_GROUP)
$Anteprima_Toast = GUICtrlCreatePic("", 453, 358, 225, 137, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label_ColoreTesto2 = GUICtrlCreateLabel("Colore Testo", 107, 207, 97, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Radio_Rosso2 = GUICtrlCreateRadio("Rosso", 123, 246, 73, 17)
$Radio_Blu2 = GUICtrlCreateRadio("Blu", 123, 271, 65, 17)
$Radio_Verde2 = GUICtrlCreateRadio("Verde", 123, 297, 57, 17)
$Radio_Arancione2 = GUICtrlCreateRadio("Arancione", 123, 321, 73, 17)
$Radio_Giallo2 = GUICtrlCreateRadio("Giallo", 123, 346, 65, 17)
$Esporta = GUICtrlCreateTabItem("Esporta")
$Input_NomeSkin = GUICtrlCreateInput("Nome della Skin", 134, 122, 200, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input_DescrizioneSkin = GUICtrlCreateInput("Descrizione della Skin", 134, 161, 200, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input_URLSkin = GUICtrlCreateInput("URL della Skin", 134, 201, 200, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input_VersioneSkin = GUICtrlCreateInput("Versione della Skin", 134, 238, 200, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$E_Ora = GUICtrlCreateGroup("E ora?", 65, 321, 601, 121)
$SkinSalva = GUICtrlCreateButton("Salva Skin", 121, 361, 120, 57, $WS_GROUP)
$SkinApplica = GUICtrlCreateButton("Applica Skin", 261, 361, 120, 57, $WS_GROUP)
$SkinAnteprima = GUICtrlCreateButton("SkinAnteprima", 401, 361, 120, 57, $WS_GROUP)
$Credits = GUICtrlCreateButton("Credits", 593, 394, 57, 33, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
$Exit = GUICtrlCreateButton("Esci dal Programma", 552, 51, 115, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

#EndRegion ### END Messenger Skin Builder GUI Code section ###

#Region ### Messenger Skin Builder Action Code section ###

;Genera File .reg per gli Ads


;Genera Zipper.bat

If FileExists ( @ScriptDir & "\Zipper.bat" ) Then FileDelete ( @Scriptdir & "\Zipper.bat" )
Sleep (200)
FileWrite ( @Scriptdir & "\Zipper.bat", "7za a -tzip Skin.plsk " & @Scriptdir & "\Skin\Ads "  & @Scriptdir & "\Skin\Images " & @Scriptdir & "\Skin\UI " & @Scriptdir & "\Skin\Options " & @Scriptdir & "\Skin\Plus! " & @Scriptdir & "\Skin\SkinInfo.xml" )

;Funzioni e opzioni della GUI;

While 1
    $msg = GuiGetMsg()
;Accesso
    Select
        Case $msg = $GUI_EVENT_CLOSE or $msg = $Exit
            Exit
        Case $msg = $Scegli_Accesso
            $var = FileOpenDialog("Scegli Immagine...", @DesktopDir,"Immagini(*.jpeg;*.jpg)")
            FileCopy ( $var , @ScriptDir & "\Skin\Images\LogOn.jpg" ,1 )
            Sleep (100)
        Case $msg = $GeneraAnteprima1
            GUICtrlSetImage ( $Anteprima_LogOn , @ScriptDir & "\Skin\Images\LogOn.jpg")
            GUICtrlSetImage ( $Anteprima_LogOn_Mask , @ScriptDir & "\EzSkin\Preview\LogOn.gif")
        Case $msg = $Scegli_ListaContatti
            $var = FileOpenDialog("Scegli Immagine...", @DesktopDir,"Immagini(*.jpeg;*.jpg)")
            FileCopy ( $var , @ScriptDir & "\Skin\Images\ContactsList.jpg" ,1 )
        Case $msg = $Info1
            MsgBox  ( 0, "Info" , "Questa funziona abilita una sfumatura sotto ogni contatto nella Lista dei Contatti...in modo da poter distinguere il nickname e il messaggio personale su ogni sfondo,che sia chiaro o scuro" ,50 )
        Case $msg = $Scegli_Conversazione
            $var = FileOpenDialog("Scegli Immagine...", @DesktopDir,"Immagini(*.jpeg;*.jpg)")
            FileCopy ( $var , @ScriptDir & "\Skin\Images\Chat.jpg" ,1 )
        Case $msg = $Info2
            MsgBox  ( 0, "Info" , "Questa funziona nasconde la scena del contatto nelle chat con lui...lo spazio vuoto che si crea togliendo la scena viene riempito dallo Sfondo della Conversazione che hai scelto" ,50 )
        Case $msg = $Info3
            MsgBox  ( 0, "Info" , "Questa funzione aggiunge alla chat, sotto i messaggi inviati e ricevuti, un riquadro bianco che rende pi? facile la lettura, sia su uno sfondo chiaro sia su uno scuro" ,50 )
        Case $msg = $Scegli_Toast
            $var = FileOpenDialog("Scegli Immagine...", @DesktopDir,"Immagini(*.jpeg;*.jpg)")
            FileCopy ( $var , @ScriptDir & "\Skin\Images\Toast.jpg" ,1 )
        Case $msg = $SkinSalva
            If FileExists ( @ScriptDir & "\Skin\SkinInfo.xml" ) Then FileDelete ( @ScriptDir & "\Skin\SkinInfo.xml" )

            $NomeSkin = GUICtrlRead($Input_NomeSkin)
            $DescrizioneSkin = GUICtrlRead($Input_DescrizioneSkin)
            $URLSkin = GUICtrlRead($Input_URLSkin)


            $SkinInfo = FileWrite ( @ScriptDir & "\Skin\SkinInfo.xml",   "<!-- Tutti sono liberi di imparare, scaricare e modificare le skins e condividerle con altri, a patto che: 1- La skin non venga spacciata per propria*; 2- L'autore rimane fuori da ogni tipo di situazione legale e non;" & @CRLF & "*L'autore del pacchetto (struttura della skin) rimane Ryddyck, ma potete naturalmente firmare la skin con il vostro nome/nickname" & @CRLF & "IMPORTANTE: Non eliminate il commento! -->" & @CRLF & "<SkinInfo>" & @CRLF & "<Information>" & @CRLF & "<Name>" & @CRLF & $NomeSkin & @CRLF & "</Name>"& @CRLF  & "<Description>" & @CRLF & $DescrizioneSkin & @CRLF & "</Description>" & @CRLF & "<AboutUrl>" & @CRLF & $URLSkin & @CRLF & "</AboutUrl>" & @CRLF & "<Screenshot>" & @CRLF & "<File>Images/anteprima.jpg</File>" & @CRLF & "</Screenshot>" & @CRLF & "</Information>" & @CRLF &  "<Options>" & @CRLF & "<Skin>" & @CRLF & "<Properties>" & @CRLF & "<MultiVal Name=""DettagliAccount""><DispLabel>Seleziona colore per i dettagli account</DispLabel>" & @CRLF & "<Values>" & @CRLF & "<Value DispLabel=""Arancione"">Arancione</Value>" & @CRLF & "<Value DispLabel=""Bianco"">Bianco</Value>" & @CRLF & "<Value DispLabel=""Blu"">Blu</Value>" & @CRLF & "<Value DispLabel=""Giallo"">Giallo</Value>" & @CRLF & "<Value DispLabel=""Grigio"">Grigio</Value>" & @CRLF & "<Value DispLabel=""Marrone"">Marrone</Value>" & @CRLF & "<Value DispLabel=""Nero"">Nero</Value>" & @CRLF & "<Value DispLabel=""Rosa"">Rosa</Value>" & @CRLF & "<Value DispLabel=""Rosso"">Rosso</Value>" & @CRLF & "<Value DispLabel=""Verde"">Verde</Value>" & @CRLF & "<Value DispLabel=""Viola"">Viola</Value>" & @CRLF & "</Values>" & @CRLF & "<Default>Nero</Default>" & @CRLF & "</MultiVal>" & @CRLF & "<BoolVal Name=""NascondiOpzioni""><DispLabel>Nascondi pulsante opzioni nella Lista Contatti</DispLabel><Default>false</Default></BoolVal>" & @CRLF & "<BoolVal Name=""NascondiSfocaturaContatti""><DispLabel>Nascondi sfocatura sotto il nickname dei contatti</DispLabel><Default>true</Default></BoolVal>" & @CRLF & "<BoolVal Name=""NascondiScenaContatto""><DispLabel>Nascondi scena del contatto nella Conversazione</DispLabel><Default>true</Default></BoolVal>" & @CRLF & "<BoolVal Name=""AggiungiTrasparenza""><DispLabel>Aggiungi trasparenza all'area messaggi della Conversazione</DispLabel><Default>false</Default></BoolVal>" & @CRLF & "<MultiVal Name=""ColoreMessaggioToast""><DispLabel>Seleziona colore per il messaggio del toast</DispLabel>" & @CRLF & "<Values>" & @CRLF & "<Value DispLabel=""Arancione"">Arancione</Value>" & @CRLF & "<Value DispLabel=""Bianco"">Bianco</Value>" & @CRLF & "<Value DispLabel=""Blu"">Blu</Value>" & @CRLF & "<Value DispLabel=""Giallo"">Giallo</Value>" & @CRLF & "<Value DispLabel=""Grigio"">Grigio</Value>" & @CRLF & "<Value DispLabel=""Marrone"">Marrone</Value>" & @CRLF & "<Value DispLabel=""Nero"">Nero</Value>" & @CRLF & "<Value DispLabel=""Rosa"">Rosa</Value>" & @CRLF & "<Value DispLabel=""Rosso"">Rosso</Value>" & @CRLF & "<Value DispLabel=""Verde"">Verde</Value>" & @CRLF & "<Value DispLabel=""Viola"">Viola</Value>" & @CRLF & "</Values>" & @CRLF & "<Default>Nero</Default>" & @CRLF & "</MultiVal>" & @CRLF & "</Properties>" & @CRLF & "<OptionInterface>" & @CRLF & "<InterfaceDir>Options</InterfaceDir>" & @CRLF & "<InterfaceFile>OptInterfaces.xml</InterfaceFile>" & @CRLF & "<WindowIds>" & @CRLF & "<WindowId Language=""it-it"">SkinOpt it-it</WindowId>" & @CRLF & "</WindowIds>" & @CRLF & "</OptionInterface>" & @CRLF & "</Skin>" & @CRLF & "</Options>" & @CRLF & "<PlusSkin>" & @CRLF & "<ResGroup>" & @CRLF & "<PlusVersion Major=""4""/>" & @CRLF & "<InterfaceDir>Plus!</InterfaceDir>" & @CRLF & "</ResGroup>" & @CRLF & "</PlusSkin>" )
            $SkinInfo = FileWrite ( @ScriptDir & "\Skin\SkinInfo.xml", "<MessengerSkin>" & @CRLF & "<ResGroup>" & @CRLF & "<Restrictions>" & @CRLF & "<MsgVersions>" & @CRLF & "<Version Major=""14"" Minor=""0""/>" & @CRLF & "</MsgVersions>" & @CRLF & "</Restrictions>" & @CRLF & "<Resources>" & @CRLF & "<New>" & @CRLF & "<Pictures>" & @CRLF & "<!-- Sfocatura sotto il testo - 1002 -->" & @CRLF & "<Picture Id=""59001"">" & @CRLF & "<File>Images/59001.png</File>" & @CRLF & "</Picture>" & @CRLF & "<!-- Bottone Opzioni - 923 -->" & @CRLF & "<Picture Id=""59002"">" & @CRLF & "<File>Images/59002.png</File><Metadata><Colorize>false</Colorize></Metadata>" & @CRLF & "</Picture>" & @CRLF & "</Pictures>" & @CRLF & "</New>" & @CRLF & "<Replace>" & @CRLF & "<Graphics><Pictures>" & @CRLF & "<!-- Avatar -->" & @CRLF & "<Picture Id=""48024"">" & @CRLF & "<File>Images/anteprima.jpg</File>" & @CRLF & "</Picture>" & @CRLF & "<!-- Sfondo conversazione - 920 -->" & @CRLF & "<Picture Id=""1751"">" & @CRLF & "<File>Images/Chat.jpg</File><Metadata><UMLeft>1</UMLeft><UMTop>1</UMTop><UMRight>1</UMRight><UMBottom>1</UMBottom></Metadata>" & @CRLF & "</Picture>" & @CRLF & "<!-- Sfondo Toast - 921-->" & @CRLF & "<Picture Id=""1473"">" & @CRLF & "<File>Images/Toast.png</File><Metadata><Colorize>false</Colorize><UMLeft>3</UMLeft><UMTop>3</UMTop><UMRight>3</UMRight><UMBottom>3</UMBottom></Metadata>" & @CRLF & "</Picture>" & @CRLF & "<!-- Sfondo Lista Contatti - 923 -->" & @CRLF & "<Picture Id=""21032"">" & @CRLF & "<File>Images/ContactsList.jpg</File><Metadata><UMLeft>1</UMLeft><UMTop>1</UMTop><UMRight>1</UMRight><UMBottom>1</UMBottom></Metadata>" & @CRLF & "</Picture>" & @CRLF & "<Picture Id=""1786"">" & @CRLF & "<File>Images/1786.png</File>" & @CRLF & "</Picture>" & @CRLF & "<!-- Sfondo LogOn - 947 -->" & @CRLF & "<Picture Id=""4300"">" & @CRLF & "<File>Images/LogOn.jpg</File><Metadata><UMLeft>1</UMLeft><UMTop>1</UMTop><UMRight>1</UMRight><UMBottom>1</UMBottom></Metadata>" & @CRLF & "</Picture>" & @CRLF & "<!-- Pulsante Aiuto modificato -->" & @CRLF & "<Picture Id=""1908"">" & @CRLF & "<File>Images/1908.png</File>" & @CRLF & "</Picture>" & @CRLF & "</Pictures></Graphics>" & @CRLF & "<Windows>" & @CRLF & "<Definitions>" & @CRLF & "<Definition Id=""920"">" & @CRLF & "<File>UI/920d.txt</File>" & @CRLF & "</Definition>" & @CRLF & "<Definition Id=""921"">" & @CRLF & "<File>UI/921d.txt</File>" & @CRLF & "</Definition>" & @CRLF & "<Definition Id=""923"">" & @CRLF & "<File>UI/923d.txt</File>" & @CRLF & "</Definition>" & @CRLF & "<Definition Id=""947"">" & @CRLF & "<File>UI/947d.txt</File>"  & @CRLF & "</Definition>" & @CRLF & "</Definitions>" & @CRLF & "<Styles>" & @CRLF & "<Style Id=""920"">" & @CRLF & "<File>UI/920s.txt</File>" & @CRLF & "</Style>" & @CRLF & "<Style Id=""921"">" & @CRLF & "<File>UI/921s.txt</File>" & @CRLF & "</Style>" & @CRLF & "<Style Id=""923"">" & @CRLF & "<File>UI/923s.txt</File>" & @CRLF & "</Style>" & @CRLF & "<Style Id=""947"">" & @CRLF & "<File>UI/947s.txt</File>" & @CRLF & "</Style>" & @CRLF & "<Style Id=""1002"">" & @CRLF & "<File>UI/1002s.txt</File>" & @CRLF & "</Style>" & @CRLF & "</Styles>" & @CRLF & "</Windows>" & @CRLF & "</Replace>" & @CRLF & "</Resources>" & @CRLF & "</ResGroup>" & @CRLF & "</MessengerSkin>" & @CRLF & "</SkinInfo>" )

            If FileExists ( @ScriptDir & "\Skin\Ads\Mostra Ads.reg" ) Then FileDelete ( @ScriptDir & "\Skin\Ads\Mostra Ads.reg" )
            If FileExists ( @ScriptDir & "\Skin\Ads\Nascondi Ads.reg" ) Then FileDelete ( @ScriptDir & "\Skin\Ads\Nascondi Ads.reg" )

            FileWrite ( @ScriptDir & "\Skin\Ads\Mostra Ads.reg" , "Windows Registry Editor Version 5.00" & @CRLF & "[HKEY_CURRENT_USER\Software\Patchou\Messenger Plus! Live\GlobalSettings\Skins\" & $NomeSkin & "\Settings]" & @CRLF &  """RimuoviAds""=dword:00000000" )
            FileWrite ( @ScriptDir & "\Skin\Ads\Nascondi Ads.reg" , "Windows Registry Editor Version 5.00" & @CRLF & "[HKEY_CURRENT_USER\Software\Patchou\Messenger Plus! Live\GlobalSettings\Skins\" & $NomeSkin & "\Settings]" & @CRLF &  """RimuoviAds""=dword:00000001" )

            Sleep (200)
            Run ( @ScriptDir & "\Zipper.bat" )
            Sleep (200)

            $PercorsoSalvataggio = FileSaveDialog ("Scegli dove salvare la Skin..." , @Desktopdir , "Messenger Plus! Skin(*.plsk)", "" ,  $NomeSkin & ".plsk")
            FileMove ( @ScriptDir & "\Skin.plsk" , $PercorsoSalvataggio , 1)
    EndSelect
WEnd

#EndRegion ### Messenger Skin Builder Action Code section ###

P.S. Melba was faster, so you could look at his code :blink:

Edited by Makaule
Link to comment
Share on other sites

Thank you M23...now I understand...and I can't believe...thanks again :blink:

And thank you Makaule...your code works too but I prefer the original code...longer then yours because the script is not finished yet...may be when the script is complete I get the easiest version of the code. ;)

Edited by DarkRickid2
Link to comment
Share on other sites

I have another problem...if I select different tabs...for example the tab "Accesso" when I click on "Salva Skin" the script doesn't run the file Zipper.bat in the script directory...but if i run manualy the zipper.bat (with the double-click in explorer.exe)...it works!

Any solutions?....thanks.

Here is the code:

; AutoIt Version: 3.0
; Language:       Italian
; Platform:       Windows XP, Windows Vista, Windows Server/Loghorn, Windows Seven (Build 7600) - Testati
; Author:         Di95 - (http://di95.altervista.org/) esclusivo per (http://fedemarkez.forumcommunity.net) e (http://www.fedemarkez.com)

;Se stai leggendo questo messaggio vuol dire che hai avuto accesso al sorgente del Programma in modo illecito e senza il permesso dell'autore (In quanto dispongo di una versione del sorgente priva di questo messaggio);
;Ti ricordo che questo Software è FREE ma non OpenSource e non sono responsabile di qualsiasi cosa andrai a fare procedendo nella lettura/modifica di questo codice.;

;Se hai decompilato il software per motivo di studio e/o curiosità...Sei il benvenuto ^^ - Ognuno ha diritto di imparare.;

#include <EzSkin.au3>
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$MSB = EzSkinGUICreate("MSB", 739, 566)
$Tab1 = GUICtrlCreateTab(51, 81, 633, 420)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$Accesso = GUICtrlCreateTabItem("Accesso")
$Label_SfondoAccesso = GUICtrlCreateLabel("Sfondo Accesso", 91, 118, 121, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Scegli_Accesso = GUICtrlCreateButton("Scegli", 92, 150, 121, 33, $WS_GROUP)
$Label_ColoreTesto = GUICtrlCreateLabel("Colore Testo", 104, 297, 97, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Anteprima_LogOn = GUICtrlCreatePic( "", 356, 125, 321, 369)
$ComboAccesso = GUICtrlCreateCombo("Nero", 80, 328, 145, 25)
GUICtrlSetData(-1, "Arancione|Bianco|Blu|Giallo|Grigio|Marrone|Rosa|Rosso|Verde|Viola")
$Label_infoNero1 = GUICtrlCreateLabel("Info: il Nero è il colore predefinito", 72, 353, 166, 17)
$Lista_Contatti = GUICtrlCreateTabItem("Lista Contatti")
$Scegli_ListaContatti = GUICtrlCreateButton("Scegli", 93, 152, 121, 33, $WS_GROUP)
$Label_SfondoListaContatti = GUICtrlCreateLabel("Sfondo Lista Contatti", 83, 120, 154, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Anteprima_ContactsList = GUICtrlCreatePic("", 356, 125, 321, 369 )
$Info1 = GUICtrlCreateButton("Cos'è?", 291, 236, 43, 17, $WS_GROUP)
$Check_Sfocatura = GUICtrlCreateCheckbox("Nascondi sfocatura nella lista contatti", 80, 236, 201, 17)
$Conversazioni = GUICtrlCreateTabItem("Conversazioni")
$Label_SfondoConversazioni = GUICtrlCreateLabel("Sfondo Conversazione", 82, 124, 165, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Scegli_Conversazione = GUICtrlCreateButton("Scegli", 98, 155, 121, 33, $WS_GROUP)
$Info2 = GUICtrlCreateButton("Cos'è?", 222, 243, 43, 17, $WS_GROUP)
$Info3 = GUICtrlCreateButton("Cos'è?", 222, 278, 43, 17, $WS_GROUP)
$Anteprima_Chat = GUICtrlCreatePic("", 284, 181, 393, 313 )
$Check_ScenaContatto = GUICtrlCreateCheckbox("Disattiva Scena Contatto", 64, 240, 145, 25)
$Check_Trasparenza = GUICtrlCreateCheckbox("Aggiungi Trasparenza Chat", 64, 272, 153, 25)
$Toast = GUICtrlCreateTabItem("Toast")
$Label_SfondoToast = GUICtrlCreateLabel("Sfondo Toast", 107, 116, 100, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Scegli_Toast = GUICtrlCreateButton("Scegli", 96, 147, 121, 33, $WS_GROUP)
$Anteprima_Toast = GUICtrlCreatePic("", 381, 294, 225, 137 )
$Label_ColoreTesto2 = GUICtrlCreateLabel("Colore Testo", 108, 299, 97, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$ComboToast = GUICtrlCreateCombo("Nero", 84, 330, 145, 25)
GUICtrlSetData(-1, "Arancione|Bianco|Blu|Giallo|Grigio|Marrone|Rosa|Rosso|Verde|Viola")
$Label_infoNero2 = GUICtrlCreateLabel("Info: il Nero è il colore predefinito", 79, 355, 166, 17)
$Esporta = GUICtrlCreateTabItem("Esporta")
GUICtrlSetState(-1,$GUI_SHOW)
$Input_NomeSkin = GUICtrlCreateInput("Nome della Skin", 134, 122, 200, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input_DescrizioneSkin = GUICtrlCreateInput("Descrizione della Skin", 134, 161, 200, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input_URLSkin = GUICtrlCreateInput("URL della Skin", 134, 201, 200, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input_VersioneSkin = GUICtrlCreateInput("Versione della Skin", 134, 238, 200, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$E_Ora = GUICtrlCreateGroup("E ora?", 65, 321, 601, 121)
$SkinSalva = GUICtrlCreateButton("Salva Skin", 177, 361, 120, 57, $WS_GROUP)
$SkinApplica = GUICtrlCreateButton("Applica Skin", 317, 361, 120, 57, $WS_GROUP)
$SkinAnteprima = GUICtrlCreateButton("Anteprima Skin", 457, 361, 120, 57, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label_IconSkin = GUICtrlCreateLabel("Icona per la Skin", 454, 243, 121, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Scegli_Icona = GUICtrlCreateButton("Scegli", 455, 278, 121, 33, $WS_GROUP)
$Anteprima_Icona = GUICtrlCreatePic("", 456, 120, 113, 113 )
$Credits = GUICtrlCreateButton("Info Programma", 572, 457, 97, 33, $WS_GROUP)
GUICtrlCreateTabItem("")
$Exit = GUICtrlCreateButton("Esci dal Programma", 552, 51, 115, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

#Region ### Messenger Skin Builder Action Code section ###

;Pulizia Directory

If FileExists(@ScriptDir & "\Zipper.bat") Then FileDelete(@ScriptDir & "\Zipper.bat")
If FileExists(@ScriptDir & "\Skin\SkinInfo.xml") Then FileDelete(@ScriptDir & "\Skin\SkinInfo.xml")
If FileExists(@ScriptDir & "\Skin\Ads\Mostra Ads.reg") Then FileDelete(@ScriptDir & "\Skin\Ads\Mostra Ads.reg")
If FileExists(@ScriptDir & "\Skin\Ads\Nascondi Ads.reg") Then FileDelete(@ScriptDir & "\Skin\Ads\Nascondi Ads.reg")
FileWrite(@ScriptDir & "\Zipper.bat", "7za a -tzip Skin.plsk " & @ScriptDir & "\Skin\Ads " & @ScriptDir & "\Skin\Images " & @ScriptDir & "\Skin\UI " & @ScriptDir & "\Skin\Options " & @ScriptDir & "\Skin\Plus! " & @ScriptDir & "\Skin\SkinInfo.xml")

;Funzioni e opzioni della GUI;

While 1
    $msg = GUIGetMsg()

    ;Accesso

    Select
        Case $msg = $Scegli_Accesso
            $var = FileOpenDialog("Scegli Immagine...", @DesktopDir, "Immagini(*.jpeg;*.jpg)")
            FileCopy($var, @ScriptDir & "\Skin\Images\LogOn.jpg", 1)
            Sleep(100)
            GUICtrlSetImage ($Anteprima_LogOn, @ScriptDir & "\Skin\Images\LogOn.jpg" )
        
    ;ListaContatti
            Case $msg = $Scegli_ListaContatti
            $var = FileOpenDialog("Scegli Immagine...", @DesktopDir, "Immagini(*.jpeg;*.jpg)")
            FileCopy($var, @ScriptDir & "\Skin\Images\ContactsList.jpg", 1)
            GUICtrlSetImage ($Anteprima_ContactsList, @ScriptDir & "\Skin\Images\ContactsList.jpg" )
        Case $msg = $Info1
            MsgBox(0, "Info", "Questa funziona Abilita e Disabilita una sfocatura sotto ogni contatto nella Lista dei Contatti...in modo da poter distinguere il nickname e il messaggio personale su ogni sfondo,che sia chiaro o scuro", 50)
            
    ;Conversazione

        Case $msg = $Scegli_Conversazione
            $var = FileOpenDialog("Scegli Immagine...", @DesktopDir, "Immagini(*.jpeg;*.jpg)")
            FileCopy($var, @ScriptDir & "\Skin\Images\Chat.jpg", 1)
            GUICtrlSetImage ($Anteprima_Chat, @ScriptDir & "\Skin\Images\Chat.jpg" )
        Case $msg = $Info2
            MsgBox(0, "Info", "Questa funziona nasconde la scena del contatto nelle chat con lui...lo spazio vuoto che si crea togliendo la scena viene riempito dallo Sfondo della Conversazione che hai scelto", 50)
        Case $msg = $Info3
            MsgBox(0, "Info", "Questa funzione aggiunge alla chat, sotto i messaggi inviati e ricevuti, un riquadro trasparente che rende più facile la lettura, sia su uno sfondo chiaro sia su uno scuro", 50)
            
    ;Toast

        Case $msg = $Scegli_Toast
            $var = FileOpenDialog("Scegli Immagine...", @DesktopDir, "Immagini(*.jpeg;*.jpg)")
            FileCopy($var, @ScriptDir & "\Skin\Images\Toast.jpg", 1)
            GUICtrlSetImage ($Anteprima_Toast, @ScriptDir & "\Skin\Images\Toast.jpg" )
            
    ;Esporta

        Case $msg = $Scegli_Icona
            $var = FileOpenDialog("Scegli Immagine...", @DesktopDir, "Immagini(*.jpeg;*.jpg)")
            FileCopy($var, @ScriptDir & "\Skin\Images\anteprima.jpg", 1)            
            GUICtrlSetImage ($Anteprima_Icona, @ScriptDir & "\Skin\Images\anteprima.jpg" )

        Case $msg = $SkinSalva
            $NomeSkin = GUICtrlRead($Input_NomeSkin)
            $DescrizioneSkin = GUICtrlRead($Input_DescrizioneSkin)
            $URLSkin = GUICtrlRead($Input_URLSkin)
            $VersioneSkin = GUICtrlRead($Input_VersioneSkin)
            $ColoreComboAccesso = GUICtrlRead($ComboAccesso)
            $ColoreComboToast = GUICtrlRead($ComboToast)
            If $Check_Sfocatura = True then $check1 = true 
            If $Check_Sfocatura = False then $check1 = false
            If $Check_Sfocatura = True then $check2 = true 
            If $Check_Sfocatura = False then $check2 = false
            If $Check_Sfocatura = True then $check3 = true 
            If $Check_Sfocatura = False then $check3 = false
            $SkinInfo = FileWrite(@ScriptDir & "\Skin\SkinInfo.xml", "<!-- Tutti sono liberi di imparare, scaricare e modificare le skins e condividerle con altri, a patto che: 1- La skin non venga spacciata per propria*; 2- L'autore rimane fuori da ogni tipo di situazione legale e non;" & @CRLF & "*L'autore del pacchetto (struttura della skin) rimane Ryddyck, ma potete naturalmente firmare la skin con il vostro nome/nickname" & @CRLF & "IMPORTANTE: Non eliminate il commento! -->" & @CRLF & "<SkinInfo>" & @CRLF & "<Information>" & @CRLF & "<Name>" & @CRLF & $NomeSkin & @CRLF & "</Name>" & @CRLF & "<Description>" & @CRLF & $DescrizioneSkin & @CRLF & "</Description>" & @CRLF & "<AboutUrl>" & @CRLF & $URLSkin & @CRLF & "</AboutUrl>" & @CRLF & "<Version>" & @CRLF & $VersioneSkin & @CRLF & "</Version>" & @CRLF & "<Screenshot>" & @CRLF & "<File>Images/anteprima.jpg</File>" & @CRLF & "</Screenshot>" & @CRLF & "</Information>" & @CRLF & "<Options>" & @CRLF & "<Skin>" & @CRLF & "<Properties>" & @CRLF & "<MultiVal Name=""DettagliAccount""><DispLabel>Seleziona colore per i dettagli account</DispLabel>" & @CRLF & "<Values>" & @CRLF & "<Value DispLabel=""Arancione"">Arancione</Value>" & @CRLF & "<Value DispLabel=""Bianco"">Bianco</Value>" & @CRLF & "<Value DispLabel=""Blu"">Blu</Value>" & @CRLF & "<Value DispLabel=""Giallo"">Giallo</Value>" & @CRLF & "<Value DispLabel=""Grigio"">Grigio</Value>" & @CRLF & "<Value DispLabel=""Marrone"">Marrone</Value>" & @CRLF & "<Value DispLabel=""Nero"">Nero</Value>" & @CRLF & "<Value DispLabel=""Rosa"">Rosa</Value>" & @CRLF & "<Value DispLabel=""Rosso"">Rosso</Value>" & @CRLF & "<Value DispLabel=""Verde"">Verde</Value>" & @CRLF & "<Value DispLabel=""Viola"">Viola</Value>" & @CRLF & "</Values>" & @CRLF & "<Default>" & $ColoreComboAccesso & "</Default>" & @CRLF & "</MultiVal>" & @CRLF & "<BoolVal Name=""NascondiOpzioni""><DispLabel>Nascondi pulsante opzioni nella Lista Contatti</DispLabel><Default>false</Default></BoolVal>" & @CRLF & "<BoolVal Name=""NascondiSfocaturaContatti""><DispLabel>Nascondi sfocatura sotto il nickname dei contatti</DispLabel><Default>" & $check1 & "</Default></BoolVal>" & @CRLF & "<BoolVal Name=""NascondiScenaContatto""><DispLabel>Nascondi scena del contatto nella Conversazione</DispLabel><Default>" & $check2 & "</Default></BoolVal>" & @CRLF & "<BoolVal Name=""AggiungiTrasparenza""><DispLabel>Aggiungi trasparenza all'area messaggi della Conversazione</DispLabel><Default>" & $check3 & "</Default></BoolVal>" & @CRLF & "<MultiVal Name=""ColoreMessaggioToast""><DispLabel>Seleziona colore per il messaggio del toast</DispLabel>" & @CRLF & "<Values>" & @CRLF & "<Value DispLabel=""Arancione"">Arancione</Value>" & @CRLF & "<Value DispLabel=""Bianco"">Bianco</Value>" & @CRLF & "<Value DispLabel=""Blu"">Blu</Value>" & @CRLF & "<Value DispLabel=""Giallo"">Giallo</Value>" & @CRLF & "<Value DispLabel=""Grigio"">Grigio</Value>" & @CRLF & "<Value DispLabel=""Marrone"">Marrone</Value>" & @CRLF & "<Value DispLabel=""Nero"">Nero</Value>" & @CRLF & "<Value DispLabel=""Rosa"">Rosa</Value>" & @CRLF & "<Value DispLabel=""Rosso"">Rosso</Value>" & @CRLF & "<Value DispLabel=""Verde"">Verde</Value>" & @CRLF & "<Value DispLabel=""Viola"">Viola</Value>" & @CRLF & "</Values>" & @CRLF & "<Default>" & $ColoreComboToast & "</Default>" & @CRLF & "</MultiVal>" & @CRLF & "</Properties>" & @CRLF & "<OptionInterface>" & @CRLF & "<InterfaceDir>Options</InterfaceDir>" & @CRLF & "<InterfaceFile>OptInterfaces.xml</InterfaceFile>" & @CRLF & "<WindowIds>" & @CRLF & "<WindowId Language=""it-it"">SkinOpt it-it</WindowId>" & @CRLF & "</WindowIds>" & @CRLF & "</OptionInterface>" & @CRLF & "</Skin>" & @CRLF & "</Options>" & @CRLF & "<PlusSkin>" & @CRLF & "<ResGroup>" & @CRLF & "<PlusVersion Major=""4""/>" & @CRLF & "<InterfaceDir>Plus!</InterfaceDir>" & @CRLF & "</ResGroup>" & @CRLF & "</PlusSkin>")
            $SkinInfo = FileWrite(@ScriptDir & "\Skin\SkinInfo.xml", "<MessengerSkin>" & @CRLF & "<ResGroup>" & @CRLF & "<Restrictions>" & @CRLF & "<MsgVersions>" & @CRLF & "<Version Major=""14"" Minor=""0""/>" & @CRLF & "</MsgVersions>" & @CRLF & "</Restrictions>" & @CRLF & "<Resources>" & @CRLF & "<New>" & @CRLF & "<Pictures>" & @CRLF & "<!-- Sfocatura sotto il testo - 1002 -->" & @CRLF & "<Picture Id=""59001"">" & @CRLF & "<File>Images/59001.png</File>" & @CRLF & "</Picture>" & @CRLF & "<!-- Bottone Opzioni - 923 -->" & @CRLF & "<Picture Id=""59002"">" & @CRLF & "<File>Images/59002.png</File><Metadata><Colorize>false</Colorize></Metadata>" & @CRLF & "</Picture>" & @CRLF & "</Pictures>" & @CRLF & "</New>" & @CRLF & "<Replace>" & @CRLF & "<Graphics><Pictures>" & @CRLF & "<!-- Avatar -->" & @CRLF & "<Picture Id=""48024"">" & @CRLF & "<File>Images/anteprima.jpg</File>" & @CRLF & "</Picture>" & @CRLF & "<!-- Sfondo conversazione - 920 -->" & @CRLF & "<Picture Id=""1751"">" & @CRLF & "<File>Images/Chat.jpg</File><Metadata><UMLeft>1</UMLeft><UMTop>1</UMTop><UMRight>1</UMRight><UMBottom>1</UMBottom></Metadata>" & @CRLF & "</Picture>" & @CRLF & "<!-- Sfondo Toast - 921-->" & @CRLF & "<Picture Id=""1473"">" & @CRLF & "<File>Images/Toast.png</File><Metadata><Colorize>false</Colorize><UMLeft>3</UMLeft><UMTop>3</UMTop><UMRight>3</UMRight><UMBottom>3</UMBottom></Metadata>" & @CRLF & "</Picture>" & @CRLF & "<!-- Sfondo Lista Contatti - 923 -->" & @CRLF & "<Picture Id=""21032"">" & @CRLF & "<File>Images/ContactsList.jpg</File><Metadata><UMLeft>1</UMLeft><UMTop>1</UMTop><UMRight>1</UMRight><UMBottom>1</UMBottom></Metadata>" & @CRLF & "</Picture>" & @CRLF & "<Picture Id=""1786"">" & @CRLF & "<File>Images/1786.png</File>" & @CRLF & "</Picture>" & @CRLF & "<!-- Sfondo LogOn - 947 -->" & @CRLF & "<Picture Id=""4300"">" & @CRLF & "<File>Images/LogOn.jpg</File><Metadata><UMLeft>1</UMLeft><UMTop>1</UMTop><UMRight>1</UMRight><UMBottom>1</UMBottom></Metadata>" & @CRLF & "</Picture>" & @CRLF & "<!-- Pulsante Aiuto modificato -->" & @CRLF & "<Picture Id=""1908"">" & @CRLF & "<File>Images/1908.png</File>" & @CRLF & "</Picture>" & @CRLF & "</Pictures></Graphics>" & @CRLF & "<Windows>" & @CRLF & "<Definitions>" & @CRLF & "<Definition Id=""920"">" & @CRLF & "<File>UI/920d.txt</File>" & @CRLF & "</Definition>" & @CRLF & "<Definition Id=""921"">" & @CRLF & "<File>UI/921d.txt</File>" & @CRLF & "</Definition>" & @CRLF & "<Definition Id=""923"">" & @CRLF & "<File>UI/923d.txt</File>" & @CRLF & "</Definition>" & @CRLF & "<Definition Id=""947"">" & @CRLF & "<File>UI/947d.txt</File>" & @CRLF & "</Definition>" & @CRLF & "</Definitions>" & @CRLF & "<Styles>" & @CRLF & "<Style Id=""920"">" & @CRLF & "<File>UI/920s.txt</File>" & @CRLF & "</Style>" & @CRLF & "<Style Id=""921"">" & @CRLF & "<File>UI/921s.txt</File>" & @CRLF & "</Style>" & @CRLF & "<Style Id=""923"">" & @CRLF & "<File>UI/923s.txt</File>" & @CRLF & "</Style>" & @CRLF & "<Style Id=""947"">" & @CRLF & "<File>UI/947s.txt</File>" & @CRLF & "</Style>" & @CRLF & "<Style Id=""1002"">" & @CRLF & "<File>UI/1002s.txt</File>" & @CRLF & "</Style>" & @CRLF & "</Styles>" & @CRLF & "</Windows>" & @CRLF & "</Replace>" & @CRLF & "</Resources>" & @CRLF & "</ResGroup>" & @CRLF & "</MessengerSkin>" & @CRLF & "</SkinInfo>")
            FileWrite(@ScriptDir & "\Skin\Ads\Mostra Ads.reg", "Windows Registry Editor Version 5.00" & @CRLF & "[HKEY_CURRENT_USER\Software\Patchou\Messenger Plus! Live\GlobalSettings\Skins\" & $NomeSkin & "\Settings]" & @CRLF & """RimuoviAds""=dword:00000000")
            FileWrite(@ScriptDir & "\Skin\Ads\Nascondi Ads.reg", "Windows Registry Editor Version 5.00" & @CRLF & "[HKEY_CURRENT_USER\Software\Patchou\Messenger Plus! Live\GlobalSettings\Skins\" & $NomeSkin & "\Settings]" & @CRLF & """RimuoviAds""=dword:00000001")
           
            Sleep(500)
            Run ( @ScriptDir & "\Zipper.bat")
            $PercorsoSalvataggio = FileSaveDialog("Scegli dove salvare la Skin...", @DesktopDir, "Messenger Plus! Skin(*.plsk)", "", $NomeSkin & ".plsk")
            FileMove(@ScriptDir & "\Skin.plsk", $PercorsoSalvataggio, 1)
            
    ;Tasto Esci Principale

        Case $msg = $Exit
        Exit
    ;Tasto Info Programma
        
        Case $msg = $Credits
        MsgBox ( 0, "Info Programma & Credits" , "Messenger Skin Builder consente di creare skin, con molte opzioni personalizzabili, compatibili con l'ultima versone di Messenger Plus! Live.   Si ricorda che questa è un'applicazione FREE ma NON Opensource!" & @CRLF & @CRLF & "Codice e Grafica by Di95 - Struttura Skin, opzioni Skin ,sostegno morale e un grandissimo Aiuto by Ryddyck" & @CRLF & @CRLF & "www.fedemarkez.com" & @CRLF & "http://fedemarkez.forumcommunity.net" & @CRLF & "www.di95.altervista.org" )    
        
    EndSelect

    
WEnd

#EndRegion ### Messenger Skin Builder Action Code section ###
Link to comment
Share on other sites

  • Moderators

DarkRickid2,

Have you tried using RunWait?

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to comment
Share on other sites

  • Moderators

DarkRickid2,

OK, try this: :blink:

RunWait(@ComSpec & ' /c ' & '"' & @ScriptDir & '\Zipper.bat"', @ScriptDir, @SW_HIDE)

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...