DarkRickid2 Posted July 17, 2010 Share Posted July 17, 2010 Hi...I'm newbie in this forum...and in Autoit Scripting to...but I apologize if I'm wrong. 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 More sharing options...
omikron48 Posted July 17, 2010 Share Posted July 17, 2010 Show some code. We can't magically guess what's wrong with just a general description of the problem. Link to comment Share on other sites More sharing options...
jfcby Posted July 17, 2010 Share Posted July 17, 2010 (edited) To help resolve your own problem try doing a search on this forum and see the results for =1"]GUICtrlCreateButton Edited July 17, 2010 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 More sharing options...
DarkRickid2 Posted July 18, 2010 Author Share Posted July 18, 2010 Show some code. We can't magically guess what's wrong with just a general description of the problem. I'm sorry There is: expandcollapse popup#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 More sharing options...
Moderators Melba23 Posted July 18, 2010 Moderators Share Posted July 18, 2010 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: expandcollapse popup#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. M23  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 columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area  Link to comment Share on other sites More sharing options...
Makaule Posted July 18, 2010 Share Posted July 18, 2010 (edited) First of all, i think you dont need 2 GUIGetMsg() operations, also there is too much Select...EndSelect.Here is abit edited code:expandcollapse popup#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 Edited July 18, 2010 by Makaule Link to comment Share on other sites More sharing options...
DarkRickid2 Posted July 18, 2010 Author Share Posted July 18, 2010 (edited) Thank you M23...now I understand...and I can't believe...thanks again 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 July 18, 2010 by DarkRickid2 Link to comment Share on other sites More sharing options...
DarkRickid2 Posted July 19, 2010 Author Share Posted July 19, 2010 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: expandcollapse popup; 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 More sharing options...
Moderators Melba23 Posted July 19, 2010 Moderators Share Posted July 19, 2010 DarkRickid2,Have you tried using RunWait?M23  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 columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area  Link to comment Share on other sites More sharing options...
DarkRickid2 Posted July 19, 2010 Author Share Posted July 19, 2010 Yes...but it doesn't work too Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted July 19, 2010 Moderators Share Posted July 19, 2010 DarkRickid2,OK, try this: RunWait(@ComSpec & ' /c ' & '"' & @ScriptDir & '\Zipper.bat"', @ScriptDir, @SW_HIDE)M23  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 columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area  Link to comment Share on other sites More sharing options...
DarkRickid2 Posted July 19, 2010 Author Share Posted July 19, 2010 I love you! LoL It works...for the second time...thank you Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now