Crea nick di msn [by me]

« Older   Newer »
  Share  
*Kuja*
view post Posted on 12/2/2009, 23:17




Ebbene ragazzi ecco il mio crea nick personali di msn

righe di codice 579(skinnato...non skinnato 548 XD)

sorcio non skinnato per evitare problemi


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


$Form1 = GUICreate("Crea nick name personali by *Kuja*", 757, 631, 291, 54)
$Group1 = GUICtrlCreateGroup("Nome", 8, 8, 281, 49)
$Inpu1 = GUICtrlCreateInput("Inserisci nome", 40, 24, 217, 21)
GUICtrlSetBkColor(-1, 0x9DB9EB)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("NickName generato", 432, 8, 313, 49)
$Inpu2 = GUICtrlCreateInput("Nick generato", 448, 24, 265, 21)
GUICtrlSetBkColor(-1, 0x9DB9EB)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Stili", 8, 64, 337, 377)
$Label1 = GUICtrlCreateLabel("(―`·._.·[]·._.·΄―)", 16, 88, 88, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Genera", 224, 88, 113, 17, 0)
$Label2 = GUICtrlCreateLabel("°o.OO.o°", 16, 120, 54, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Genera", 224, 120, 113, 17, 0)
$Label3 = GUICtrlCreateLabel("Χχ·.·΄―`·)»«(·΄―`·.·χΧ", 16, 152, 116, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("Genera", 224, 152, 113, 17, 0)
$Label4 = GUICtrlCreateLabel("· ··^v΄―`Χ)(Χ΄―`v^· ··", 16, 184, 116, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button4 = GUICtrlCreateButton("Genera", 224, 184, 113, 17, 0)
$Label5 = GUICtrlCreateLabel(",.-~*΄¨―¨`*·~-.Έ-(__)-,.-~*΄¨―¨`*·~-.Έ", 16, 216, 188, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("Genera", 224, 216, 113, 17, 0)
$Label6 = GUICtrlCreateLabel("- - --^[]^-- - -", 16, 248, 74, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button6 = GUICtrlCreateButton("Genera", 224, 248, 113, 17, 0)
$Label7 = GUICtrlCreateLabel("•·.·΄―`·.·••·.·΄―`·.·•", 16, 280, 98, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button7 = GUICtrlCreateButton("Genera", 224, 280, 113, 17, 0)
$Label8 = GUICtrlCreateLabel("`·.ΈΈ.·΄΄―`··._.·`·.ΈΈ.·΄΄―`··._.·", 16, 312, 152, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button8 = GUICtrlCreateButton("Genera", 224, 312, 113, 17, 0)
$Label9 = GUICtrlCreateLabel("(―`·._)(―`·._)", 16, 344, 72, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button9 = GUICtrlCreateButton("Genera", 224, 344, 113, 17, 0)
$Label10 = GUICtrlCreateLabel("―¨΄*·~-.ΈΈ,.-~*΄¨―¨΄*·~-.ΈΈ,.-~*΄¨", 16, 376, 166, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button10 = GUICtrlCreateButton("Genera", 224, 376, 113, 17, 0)
$Label11 = GUICtrlCreateLabel("OΊ°‘¨¨‘°ΊO", 16, 408, 58, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button11 = GUICtrlCreateButton("Genera", 224, 408, 113, 17, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Altri stili", 360, 64, 393, 377)
$Label12 = GUICtrlCreateLabel("ΧΊ°°ΊΧΧΊ°°ΊΧ", 368, 80, 84, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label13 = GUICtrlCreateLabel(".·΄―`·-><-·΄―`·.", 368, 112, 80, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label14 = GUICtrlCreateLabel("<Ί))))><.·΄―`·.Έ.·΄―`·.Έ><((((Ί>", 368, 144, 158, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label15 = GUICtrlCreateLabel("- -€--^][^--€- -", 368, 176, 80, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label16 = GUICtrlCreateLabel("~²ΊΊ²~~²ΊΊ³~", 368, 208, 72, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button12 = GUICtrlCreateButton("Genera", 616, 80, 129, 17, 0)
$Button13 = GUICtrlCreateButton("Genera", 616, 112, 129, 17, 0)
$Button14 = GUICtrlCreateButton("Genera", 616, 144, 129, 17, 0)
$Button15 = GUICtrlCreateButton("Genera", 616, 176, 129, 17, 0)
$Button16 = GUICtrlCreateButton("Genera", 616, 208, 129, 17, 0)
$Label17 = GUICtrlCreateLabel(".|.<(+_+)>.|/..|.<(+_+)>.|/.", 368, 240, 158, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button17 = GUICtrlCreateButton("Genera", 616, 240, 129, 17, 0)
$Label18 = GUICtrlCreateLabel("..|..<(+__+)>..|..", 368, 272, 92, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button18 = GUICtrlCreateButton("Genera", 616, 272, 129, 17, 0)
$Label19 = GUICtrlCreateLabel("-·=»‡«=·--·=»‡«=·-", 368, 304, 100, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button19 = GUICtrlCreateButton("Genera", 616, 304, 129, 17, 0)
$Label20 = GUICtrlCreateLabel("•°o.OO.o°•", 368, 336, 62, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button20 = GUICtrlCreateButton("Genera", 616, 336, 129, 17, 0)
$Label21 = GUICtrlCreateLabel("––––•(-••-)•––––", 368, 368, 68, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button21 = GUICtrlCreateButton("Genera", 616, 368, 129, 17, 0)
$Label22 = GUICtrlCreateLabel("··€(`Χ[€€]Χ΄)€··", 368, 400, 86, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button22 = GUICtrlCreateButton("Genera", 616, 400, 129, 17, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("Stili aggiuntivi", 8, 448, 745, 177)
$Label23 = GUICtrlCreateLabel("°Ί€ψ,ΈΈ,ψ€Ί°`°Ί€ψ,Έ°Ί€ψ,ΈΈ,ψ€Ί°`°Ί€ψ,Έ ", 16, 472, 208, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button23 = GUICtrlCreateButton("Genera", 224, 472, 113, 17, 0)
$Label24 = GUICtrlCreateLabel("»-(―`v΄―)-»»-(―`v΄―)-»", 16, 504, 122, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button24 = GUICtrlCreateButton("Genera", 224, 504, 113, 17, 0)
$Label25 = GUICtrlCreateLabel("+*¨^¨*+ +*¨^¨*+ ", 16, 536, 90, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button25 = GUICtrlCreateButton("Genera", 224, 536, 113, 17, 0)
$Label26 = GUICtrlCreateLabel("·χ±‡±±‡±χ", 16, 568, 58, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button26 = GUICtrlCreateButton("Genera", 224, 568, 113, 17, 0)
$Label27 = GUICtrlCreateLabel("Έ.΄)(`·[]·΄)(` .Έ", 16, 600, 72, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button27 = GUICtrlCreateButton("Genera", 224, 600, 113, 17, 0)
$Label28 = GUICtrlCreateLabel("—€χ(`[€**€]΄)χ€—", 368, 472, 88, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button28 = GUICtrlCreateButton("Genera", 616, 472, 129, 17, 0)
$Label29 = GUICtrlCreateLabel("•°€*(―`°(F)()(F)°΄―)*€°•", 368, 504, 124, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button29 = GUICtrlCreateButton("Genera", 616, 504, 129, 17, 0)
$Label30 = GUICtrlCreateLabel("·!¦[··]¦!·", 368, 536, 42, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button30 = GUICtrlCreateButton("Genera", 616, 536, 129, 17, 0)
$Label31 = GUICtrlCreateLabel("—(•·χ[]χ·•)—", 368, 568, 58, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button31 = GUICtrlCreateButton("Genera", 616, 568, 129, 17, 0)
$Label32 = GUICtrlCreateLabel("ΧΊ°”˜`”°ΊΧΧΊ°”˜`”°ΊΧ", 368, 600, 104, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button32 = GUICtrlCreateButton("Genera", 616, 600, 129, 17, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label33 = GUICtrlCreateLabel("Creato by *Kuja*", 312, 24, 97, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

While 1
                       
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $Button1
                       ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
                               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
                       GUICtrlSetData($Inpu2,"(―`·._.·["& GUICtrlRead($Inpu1) &"]·._.·΄―)")
               Case $Button2
                       ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
                       If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
                       GUICtrlSetData($Inpu2,"°o.O"& GUICtrlRead($Inpu1) &"O.o°")
               Case $Button3
                       ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
                       If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUIctrlsetdata($Inpu2,"Χχ·.·΄―`·)»" & GUICtrlRead($Inpu1) &"«(·΄―`·.·χΧ")
       Case $Button4
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"· ··^v΄―`Χ)" & GUICtrlRead($Inpu1) &"(Χ΄―`v^· ··")
       Case $Button5
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,",.-~*΄¨―¨`*·~-.Έ-(_" & GUICtrlRead($Inpu1) &"_)-,.-~*΄¨―¨`*·~-.Έ")
       Case $Button6
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"- - --^["& GUICtrlRead($Inpu1) &"]^-- - -")
       Case $Button7
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"•·.·΄―`·.·•"& GUICtrlRead($Inpu1) &"•·.·΄―`·.·•")
       Case $Button8
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"`·.ΈΈ.·΄΄―`··._"& GUICtrlRead($Inpu1) &".·`·.ΈΈ.·΄΄―`··._.·")
       Case $Button9
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"(―`·._)"& GUICtrlRead($Inpu1) &"(―`·._)(―`·._)")
       Case $Button10
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"―¨΄*·~-.ΈΈ,.-~*΄¨―"& GUICtrlRead($Inpu1) &"¨΄*·~-.ΈΈ,.-~*΄¨")
       Case $Button11
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"OΊ°‘¨"& GUICtrlRead($Inpu1) &"¨‘°ΊO")
       Case $Button12
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"ΧΊ°°ΊΧ"& GUICtrlRead($Inpu1) &"ΧΊ°°ΊΧΧΊ°°ΊΧ")
       Case $Button13
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf                
               GUICtrlSetData($Inpu2,".·΄―`·->"& GUICtrlRead($Inpu1) &"<-·΄―`·.")
       Case $Button14
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"<Ί))))><.·΄―`·."& GUICtrlRead($Inpu1) &".·΄―`·.Έ><((((Ί>")
       Case $Button15
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"- -€--^]"& GUICtrlRead($Inpu1) &"[^--€- -")
       Case $Button16
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"~²ΊΊ²~"& GUICtrlRead($Inpu1) &"~²ΊΊ³~")
       Case $Button17
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,".|.<(+_+)>.|/."& GUICtrlRead($Inpu1) &".|.<(+_+)>.|/.")
       Case $Button18
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"..|..<(+_"& GUICtrlRead($Inpu1) &"_+)>..|..")
       Case $Button19
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"-·=»‡«=·-"& GUICtrlRead($Inpu1) &"-·=»‡«=·-")
       Case $Button20
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"•°o.O"& GUICtrlRead($Inpu1) &"O.o°•")
       Case $Button21
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"––––•(-•"& GUICtrlRead($Inpu1) &"•-)•––––")
       Case $Button22
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"··€(`Χ[€"& GUICtrlRead($Inpu1) &"€]Χ΄)€··")
       Case $Button23
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"°Ί€ψ,ΈΈ,ψ€Ί°`°Ί€ψ,"& GUICtrlRead($Inpu1) &"Έ°Ί€ψ,ΈΈ,ψ€Ί°`°Ί€ψ,Έ")
       Case $Button24
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"»-(―`v΄―)-»"& GUICtrlRead($Inpu1) &"»-(―`v΄―)-»")
       Case $Button25
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"+*¨^¨*+"& GUICtrlRead($Inpu1) &"+*¨^¨*+ ")
       Case $Button26
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"·χ±‡±"& GUICtrlRead($Inpu1) &"±‡±χ")
       Case $Button27
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"Έ.΄)(`·["& GUICtrlRead($Inpu1) &"]·΄)(` .Έ")
       Case $Button28
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"—€χ(`[€*"& GUICtrlRead($Inpu1) &"*€]΄)χ€—")
       Case $Button29
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"•°€*(―`°(F)("& GUICtrlRead($Inpu1) &")(F)°΄―)*€°•")
       Case $Button30
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"·!¦[·"& GUICtrlRead($Inpu1) &"·]¦!·")
       Case $Button31
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"—(•·χ["& GUICtrlRead($Inpu1) &"]χ·•)—")
       Case $Button32
               ProgressOn("Progress", "Generazione in corso" )
                      For $i = 40 to 100 step 40
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
               If GUICtrlRead($Inpu1) = "" then
                               MsgBox(64,"Attenzione","Inserire il nome")
                               EndIf
               GUICtrlSetData($Inpu2,"ΧΊ°”˜`”°ΊΧ"& GUICtrlRead($Inpu1) &"ΧΊ°”˜`”°ΊΧ")
               Case $GUI_EVENT_CLOSE
                       Exit

       EndSwitch
WEnd


per scaricare... quaa


p.s. nell'archivio c'θ sia quello skinnato che quello semplice ;)
 
Top
greywolf92
view post Posted on 13/2/2009, 12:34




Ottimo :D
 
Top
*Kuja*
view post Posted on 13/2/2009, 15:44




;)
 
Top
2 replies since 12/2/2009, 23:17   136 views
  Share  
 

• Autoit •
 

Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumCommunity