CleanerZ

« Older   Newer »
  Share  
Kira95
CAT_IMG Posted on 20/5/2010, 09:19     +1   -1




Ciao a tutti, questa è la mia prima utility ( quindi andateci piano coi commenti)... si chiama CleanerZ e tutto ciò che vedete dentro è fatto da me tranne x il blocco note che è quello di windows... valutatelo e ditemi com'è...

Versione Normale
Versione skinnata
SPOILER (click to view)
#include <buttonconstants.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#include <skincrafter.au3>

SkinStartLibrary()
$menu = GUICreate("CleanerZ v.1.0",400,450)
$pic1 = GUiCtrlCreatePic(@ScriptDir & "/g.jpg",0,0,400,400)
GuiCtrlSetState(-1,$GUI_DISABLE)
$menu1 = GUICtrlCreateMenu("File")
$menu2 = GUICtrlCreateMenu("?")
$Item1 = GUICtrlCreateMenuItem("Exit",$menu1)
$Item2 = GUICtrlCreateMenuItem("About",$menu2)
$Item3 = GUICtrlCreateMenuItem("Contatti",$menu2)
$var4 = @IPAddress1
$var5 = @ComputerName
$But1 = GUICtrlCreateLabel($var5,5,0,90,25,0)
$But2 = GUICtrlCreatelabel("Il tuo ip :" &$var4,5,13,50,25,0)
$Group1 = GUICtrlCreateGroup("Operazioni",130,130,130,280)
$But3 = GUICtrlCreateButton("Blocco Note",150,200,90,50,0)
$But4 = GUICtrlCreateButton("Calcolatrice",150,250,90,50,0)
$var1 = @HOUR
$var2 = @MIN
$var3 = @SEC
$var6 = @MDAY
$var7 = @MON
$var8 = @YEAR

$But5 = GUICtrlCreateLabel($var1& ":" &$var2& ":" &$var3,350,0,90,25,0)
$But6 = GUICtrlCreateLabel($var6& "/" &$var7& "/" &$var8,280,0,60,25,0)
$But7 = GUICtrlCreateButton("Pulisci Pc",150,150,90,50,0)
$But8 = GuiCtrlCreateButton("Ram",150,300,90,50,0)
$But9 = GUICtrlCreateButton("ChatX",150,350,90,50,0)
GUISetState(@SW_SHOW)
AddSkin($menu,"B-style.skf")

while 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $But1
MsgBox(0, "Nome del Pc", @ComputerName)
Case $But2
MsgBox(0,"Ip", @IPAddress1)
Case $But3
Run("notepad.exe")
Case $But4
#include <guiconstants.au3>




$menu = GUICreate("Calcolatrice",300,300)
$output = ""
$out = GUICtrlCreateInput ( "", 15, 25 , 270 , 50 )
$but11 = GUICtrlCreateButton("-",250,100,30,30,0)
$but12 = GUICtrlCreateButton("+",250,130,30,60,0)
$but13 = GUICtrlCreateButton("x",220,100,30,30,0)
$but14 = GUICtrlCreateButton("/",190,100,30,30,0)
$but1 = GUICtrlCreateButton("1",160,190,30,30,0)
$but2 = GUICtrlCreateButton("2",190,190,30,30,0)
$but3 = GUICtrlCreateButton("3",220,190,30,30,0)
$but4 = GUICtrlCreateButton("4",160,160,30,30,0)
$but5 = GUICtrlCreateButton("5",190,160,30,30,0)
$but6 = GUICtrlCreateButton("6",220,160,30,30,0)
$but7 = GUICtrlCreateButton("7",160,130,30,30,0)
$but8 = GUICtrlCreateButton("8",190,130,30,30,0)
$but9 = GUICtrlCreateButton("9",220,130,30,30,0)
$but0 = GUICtrlCreateButton("0",160,220,60,30,0)
$Gino = GUICtrlCreateButton("Num",160,100,30,30,0)
$but16 = GUICtrlCreateButton("=",250,190,30,60,0)
$but17 = GUICtrlCreateButton(".",220,220,30,30,0)
$but18 = GUICtrlCreateButton("Canc",25,220,130,30,0)
$Menu1 = GUICtrlCreateMenu("File")
$Item1 = GUICtrlCreateMenuItem("Exit",$Menu1)
$Menu2 = GUICtrlCreateMenu("Crediti")
$Item2 = GUICtrlCreateMenuItem("About",$Menu2)
$Item3 = GUICtrlCreateMenuItem("Contatti",$Menu2)
$operator1 = 0
$operator2 = 0
$result = 0
$piu = 0
$meno = 0
$per = 0
$diviso = 0


GUISetState( )

$msg = GUIGetMsg()

While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
Select
case $msg = $but1
$output = $output & "1"
GUICtrlSetData( $out, $output )
case $msg = $but2
$output = $output & "2"
GUICtrlSetData( $out, $output )
case $msg = $but3
$output = $output & "3"
GUICtrlSetData( $out, $output )
case $msg = $but4
$output = $output & "4"
GUICtrlSetData( $out, $output )
case $msg = $but5
$output = $output & "5"
GUICtrlSetData( $out, $output )
case $msg = $but6
$output = $output & "6"
GUICtrlSetData( $out, $output )
case $msg = $but7
$output = $output & "7"
GUICtrlSetData( $out, $output )
case $msg = $but8
$output = $output & "8"
GUICtrlSetData( $out, $output )
case $msg = $but9
$output = $output & "9"
GUICtrlSetData( $out, $output )
Case $msg=$but0
If $output <> "" Then
$output = $output & "0"
GUICtrlSetData( $out, $output )
EndIf
Case $msg = $but17
$output = $output & "."
GUICtrlSetData( $out, $output )
case $msg = $but12
$piu = 1
read()
GUICtrlSetData( $out, "" )
$output = ""
case $msg = $but11
$meno = 1
read()
GUICtrlSetData( $out, "" )
$output = ""
case $msg = $but13
$per = 1
read()
GUICtrlSetData( $out, "" )
$output = ""
case $msg = $but14
$diviso = 1
read()
GUICtrlSetData( $out, "" )
$output = ""
case $msg = $but16
read()
If $piu = 1 Then
$result = $operator1 + $operator2
GUICtrlSetData( $out, $result )
$piu = 0
$operator1 = 0
$operator2 = 0
$result = 0
ElseIf $meno = 1 Then
$result = $operator1 - $operator2
GUICtrlSetData( $out, $result )
$meno = 0
$operator1 = 0
$operator2 = 0
$result = 0
ElseIf $per = 1 Then
$result = $operator1 * $operator2
GUICtrlSetData( $out, $result )
$per = 0
$operator1 = 0
$operator2 = 0
$result = 0
ElseIf $diviso = 1 Then
$result = $operator1 / $operator2
GUICtrlSetData( $out, $result )
$diviso = 0
$operator1 = 0
$operator2 = 0
$result = 0
EndIf
case $msg = $but18
clear()
case $msg = $Gino
$1 = MsgBox(4,"Domanda","Vuoi Attivare?")
Select
case $1 = 6
Send ("{NUMLOCK ON}")

Case $1 = 7
Send ("{NUMLOCK OFF}")
EndSelect
case $msg = $Item1
Exit
case $msg = $Item2
MsgBox(0,"About","Calcolatrice create da KillerZ")
case $msg = $Item3
MsgBox(0,"Contatti","E-mail = [email protected]" &@CRLF& "Msn = [email protected]")
EndSelect
Wend
Func read()
If $operator1 = 0 Then
$operator1 = Number(GUICtrlRead($out))
Else
$operator2 = Number(GUICtrlRead($out))
EndIf
EndFunc

Func clear()
$piu = 0
$meno = 0
$per = 0
$diviso = 0
$operator1 = 0
$operator2 = 0
$result = 0
$output = ""
GUICtrlSetData( $out, "" )
EndFunc

Case $Item1
Exit
Case $Item2
MsgBox(0,"About","Utility creata da KillerZ" & @CRLF & "Software protetto da Copyright" & @CRLF & "Vietata la riproduzione anche parziale o totale.")
Case $Item3
MsgBox(0,"Contatti","E-mail = [email protected]" &@CRLF& "Msn = [email protected]")

Case $But5
$var1 = @HOUR
$var2 = @MIN
$var3 = @SEC
MsgBox(0,"Sono le ore",$var1& ":" &$var2& ":" &$var3)
Case $But6
MsgBox(0,"Data",$var6& "/" &$var7& "/" &$var8)
Case $But7
ProgressOn("Pulizia ", "Pulizia in corso", "0%")
For $i = 0 to 100 step 1
Sleep(50)
ProgressSet( $i, $i & "%")
Next
ProgressSet(100 , "Fatto", "Operazione effettuata")
sleep(500)
ProgressOff()
MsgBox(0,"Pulizia Pc","Pulizia effettuata con successo!!")
FileDelete("C:\Windows\Temp\*.*")
FileDelete("C:\Users\Luciano\AppData\Roaming\Microsoft\Windows\Recent\*.*")
FileDelete("")
Case $But8
Ram ()
case $But9
#include <buttonconstants.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>


$Gino1 = GuiCreate("ChatX",250,150)
$ChatX1 = GUICtrlCreateButton("ChatX Client",25,40,90,60,0)
$ChatX2 = GUICtrlCreateButton("ChatX Server",125,40,90,60,0)
GUISetState(@SW_SHOW)
While 1
$Msg = GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
Exit
Case $ChatX1

TCPStartup()
#include <guiconstants.au3>
#include <guiedit.au3>

$ip=InputBox("ChatX","Inserisci l'ip:",@IPAddress1,"",50,130)
If $ip="" Then Exit
$porta=1234

$socket=TCPConnect($ip,$porta)
If $socket=-1 Then
MsgBox(16,"errore","errore nella connessione",5)
Exit
EndIf


GUICreate("ChatX",500,300)
$menu1 = GUICtrlCreateMenu("File")
$menu2 = GUICtrlCreateMenu("?")
$Item1 = GUICtrlCreateMenuItem("Exit",$menu1)
$Item2 = GUICtrlCreateMenuItem("About",$menu2)
$Item3 = GUICtrlCreateMenuItem("Contatti",$menu2)
$edit=GUICtrlCreateEdit("",0,0,500,230)
$msg=GUICtrlCreateInput("",10,240,350,30)
$send=GUICtrlCreateButton("Invia",415,240,80,30)

GUISetState()

While 1

Switch GUIGetMsg()
Case $gui_event_close
Exit
Case $send
$msg1=GUICtrlRead($msg)
TCPSend($socket,$msg1)
GUICtrlSetData($msg,"")
Case $Item1
Exit
Case $Item2
MsgBox(0,"About","Software creato da KillerZ" & @CRLF & "Software protetto da Copyright" & @CRLF & "Vietata la riproduzione anche parziale o totale.")
Case $Item3
MsgBox(0,"Contatti","E-mail = [email protected]" &@CRLF& "Msn = [email protected]")
EndSwitch

$recv=TCPRecv($socket,2048)
If $recv <> "" Then
_GUICtrlEdit_AppendText($edit,$recv & @CRLF)
EndIf
WEnd

Case $ChatX2

TCPStartup()
#include <guiconstants.au3>
#include <guiedit.au3>

$listen=TCPListen(@IPAddress1,1234)
While 1
$socket=TCPAccept($listen)
If $socket <> -1 Then ExitLoop
WEnd

GUICreate("ChatX",500,300)
$menu1 = GUICtrlCreateMenu("File")
$menu2 = GUICtrlCreateMenu("?")
$Item1 = GUICtrlCreateMenuItem("Exit",$menu1)
$Item2 = GUICtrlCreateMenuItem("About",$menu2)
$Item3 = GUICtrlCreateMenuItem("Contatti",$menu2)
$edit=GUICtrlCreateEdit("",0,0,500,230)
$msg=GUICtrlCreateInput("",10,240,350,30)
$send=GUICtrlCreateButton("Invia",415,240,80,30)

GUISetState()

While 1

Switch GUIGetMsg()
Case $gui_event_close
Exit
Case $send
$msg1=GUICtrlRead($msg)
TCPSend($socket,$msg1)
GUICtrlSetData($msg,"")
Case $Item1
Exit
Case $Item2
MsgBox(0,"About","Software creato da KillerZ" & @CRLF & "Software protetto da Copyright" & @CRLF & "Vietata la riproduzione anche parziale o totale.")
Case $Item3
MsgBox(0,"Contatti","E-mail = [email protected]" &@CRLF& "Msn = [email protected]")
EndSwitch

$recv=TCPRecv($socket,2048)
If $recv <> "" Then
_GUICtrlEdit_AppendText($edit,$recv & @CRLF)
EndIf
WEnd
EndSwitch
WEnd
EndSwitch
WEnd
Func Ram ()
$RamMenu = GuiCreate("Stato Ram",300,200)
$Progress1 = GUICtrlCreateProgress(25, 25, 250, 17)
$Progress2 = GUICtrlCreateProgress(25, 65, 250, 17)
$Group2 = GuiCtrlCreateGroup("Memoria In Uso",15,10,275,40)
$Group3 = GuiCtrlCreateGroup("Filepaging In uso",15,50,275,40)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
$mem=MemGetStats()
GUICtrlSetData($Progress1,$mem[0])
GUICtrlSetData($Progress2,Round((($mem[3]-$mem[4])/$mem[3])*100,0))
wend
EndFunc


Edited by Kira95 - 20/5/2010, 10:53
 
Top
ACIDBURN16
CAT_IMG Posted on 20/5/2010, 09:34     +1   -1




Pensavo che avevi capito che si devono postare i source , se non posti i source i tuoi post verranno chiusi mi spiace è la regola, posta anche il sorgente prima che questo post verrà chiuso ;).
 
Top
Th3_F0x
CAT_IMG Posted on 20/5/2010, 09:40     +1   -1




Non per essere offensivo o pignolo anzi ^^
Cosa fa il programma?
e a cosa servono i tcp listen che vi hai inserito?
è un utility che funziona in locale o è un programma ad uso server / client ?
 
Top
Kira95
CAT_IMG Posted on 20/5/2010, 09:54     +1   -1




scusate ma non sapevo che si dovesse postare il source (è obbligatorio?), cmq l'utility è ancora in fase di sviluppo non è ultimata, ma stamattina ho letto la vostra guida sul tcp e ho pensato di metterci la chat ma che funziona in locale (ma dovrò toglierla), + o - ci ho messo la funzione di svuotare la cartella di file temporanei e ci ho messo una calcolatrice fatta da me, il blocco note di win e la memoria in uso... ma in seguito ci metterò + funzioni, e da questa settimana che ho iniziato con l'autoit :lol: :lol: .... cmq lo devo postare x forza il source?

Ecco ho messo il source..
 
Top
Th3_F0x
CAT_IMG Posted on 20/5/2010, 09:57     +1   -1




si il source è obbligatorio ^^ postalo pure ( io l'ho già decompilato xD ) così gli altri possono valutarne il contenuto. dal mio punto di vista non è male il programma ( siccome sei agli inizi ). c'è un enorme quantità di variabili e strutture superflue xD vedi se riesci a snellirlo un pochino =D
 
Top
Kira95
CAT_IMG Posted on 20/5/2010, 10:03     +1   -1




Ci provo xD...
 
Top
Gianlu-thebest
CAT_IMG Posted on 20/5/2010, 22:09     +1   -1




Bravo, (ho guardato il source, non l'ho nemmeno avviato :lol: asd) però indenta il codice!
 
Top
Kurt_Black_hat 2.0
CAT_IMG Posted on 20/5/2010, 22:18     +1   -1




In mia onesta e umile opinione non sei abbastanza esperto per creare questo tipo di utility. Impara a programmare graduatamente, inizia con programmi "sciocchi", e sali fino a utility migliori. È l'unico modo per conoscere bene un linguaggio.
 
Top
Gianlu-thebest
CAT_IMG Posted on 20/5/2010, 22:25     +1   -1




Anzi, ci sono molti bug, ascolta kurt...
 
Top
8 replies since 20/5/2010, 09:19   121 views
  Share  
 

Programmi
 

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