ScreenShot Maker 1.0

« Older   Newer »
  Share  
*Sym98*
CAT_IMG Posted on 8/2/2011, 11:50     +1   -1




Ciao a tutti, ecco il mio 2° programma :D
In poche parole serve a creare ScreenShot (foto del proprio schermo), al click su Scatta Foto
oppure dopo un tempo preestabilito in millisecondi. Durante l'attesa il file dovrà restare aperto e visto che sarà in pausa si chiuderà solo con la Tray Icon. La tabella dei millisecondi è presente all'interno del programma stesso.

Source setup:
SPOILER (clicca per visualizzare)
#RequireAdmin
#include <guiconstants.au3>

$Form1 = GUICreate("Setup - ScreenShot Maker 1.0 By Sym98", 625, 445, 193, 125)
GUISetIcon(@ScriptDir&"\Pic\Icon.ico")
GUISetBkColor(0x000000)
$Label1 = GUICtrlCreateLabel("Setup ScreenShot Maker 1.0", 72, 8, 423, 44)
GUICtrlSetFont(-1, 22, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x008000)
$Group1 = GUICtrlCreateGroup("Help", 8, 56, 601, 337)
$Pic1 = GUICtrlCreatePic("C:\Users\Sym98\Pictures\glitterfy0153943T712D32.gif", 8, 256, 601, 137)
$Label2 = GUICtrlCreateLabel(FileRead("Setup.txt"), 16, 72)
GUICtrlSetBkColor(-1, 0xFFFBF0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Avanti1 = GUICtrlCreateButton("Avanti", 392, 400, 121, 41, 0)
$Annulla1 = GUICtrlCreateButton("Annulla", 136, 400, 121, 41, 0)
GUISetState(@SW_SHOW)


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Annulla1
Exit
Case $Avanti1
GUIDelete($Form1)

$Form2 = GUICreate("Setup - ScreenShotMaker 1.0 By Sym98", 377, 129, 193, 125)
GUISetBkColor(0x000000)
GUISetIcon(@ScriptDir&"\Pic\Icon.ico")
$AvviaSetup = GUICtrlCreateButton("Avvia Setup", 8, 16, 113, 41, 0)
$Dir = GUICtrlCreateInput(@ProgramFilesDir&"\ScreenShot Maker 1.0", 160, 40, 169, 27)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x008000)
$Indietro = GUICtrlCreateButton("Indietro", 8, 72, 113, 41, 0)
$Label1 = GUICtrlCreateLabel("Created By Sym98", 160, 80, 180, 31)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("Directory di installazione", 160, 8, 164, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x0000FF)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Indietro
$file= @ScriptName
ShellExecute($file) ;Elimina questa stringa se compili il file
Run($file)
Exit
Case $AvviaSetup
$Directory= GUICtrlRead($Dir)
GUIDelete($Form2)
ProgressOn("Setup - ScreenShot Maker 1.0", "Installazione in corso...Attendere", "0%")
For $i = 10 to 100 step 10
sleep(1000)
DirCreate($Directory)
FileCopy("*.*", $Directory)
DirCreate($Directory&"\Pic")
DirCreate($Directory&"\ScreenShot")
FileCopy(@ScriptDir&"\Pic\*.*", $Directory&"\Pic\")
$Desk=@DesktopDir
FileCreateShortcut ($Directory&"\ScreenShot Maker 1.0.exe", $Desk&"\ScreenShot Maker.lnk")


ProgressSet( $i, $i & "%")
If $i = 100 Then
ExitLoop
EndIf
Next
ProgressSet(100 , "Setup - ScreenShot Maker 1.0 By Sym98", "Installazione completata")
sleep(5000)
ProgressOff()
Run ($Directory&"\ScreenShot Maker 1.0.exe")
Exit
EndSwitch
WEnd

EndSwitch
WEnd


Source ScreenShot Maker 1.0
SPOILER (clicca per visualizzare)
#RequireAdmin
#include <guiconstants.au3>
#Include <screencapture.au3>
$var1 = @TempDir
$var2 = FileRead($var1&"\count.txt")
$Dir = @ScriptDir
$Form1 = GUICreate("ScreenShot Maker 1.0 - By Sym98", 625, 445, 189, 128)
GUISetFont(12, 800, 0, "Comic Sans MS")
GUISetBkColor(0x000000)
GUISetIcon($Dir&"\Pic\Icon.ico")
$Label1 = GUICtrlCreateLabel("ScreenShot Maker 1.0 By Sym98 ", 160, 16, 275, 27)
GUICtrlSetColor(-1, 0xFF0000)
$Button1 = GUICtrlCreateButton("Scatta foto", 8, 104, 185, 49, 0)
GUICtrlSetCursor (-1, 0)
$Input1 = GUICtrlCreateInput("0", 280, 96, 257, 31)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Label2 = GUICtrlCreateLabel("Millisecondi di attesa", 328, 136, 174, 27)
GUICtrlSetColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("Tabella Millisecondi", 216, 184, 151, 27)
GUICtrlSetColor(-1, 0x00FF00)
$Label4 = GUICtrlCreateLabel("1000 Millisecondi = 1 Secondo ", 0, 232, 236, 27)
GUICtrlSetColor(-1, 0x3399FF)
$Label5 = GUICtrlCreateLabel("10000 Mil. = 10 Sec.", 256, 232, 176, 27)
GUICtrlSetColor(-1, 0x800080)
$Label6 = GUICtrlCreateLabel("3600000 M. = 1 Ora", 448, 232, 173, 27)
GUICtrlSetColor(-1, 0xA0A0A0)
$Label7 = GUICtrlCreateLabel("60000 Mil. = 1 Minuto ", 0, 272, 188, 27)
GUICtrlSetColor(-1, 0x800000)
$Label8 = GUICtrlCreateLabel("1800000 Mil = 30 Min", 216, 272, 180, 27)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label9 = GUICtrlCreateLabel("1 Mil. = 0,001", 432, 272, 121, 27)
GUICtrlSetColor(-1, 0x808000)
$Pic1 = GUICtrlCreatePic($Dir&"\Pic\IMG.jpg", 0, 290, 625, 137)
$Opzioni = GUICtrlCreateMenu("Opzioni")
$Pic=GUICtrlCreateMenu("ScreenShot", $Opzioni)
$Start=GUICtrlCreateMenuItem("Apri Cartella ScreenShot", $Pic)
$Screen=GUICtrlCreateMenuItem("Apri l'ultimo Screen", $Pic)
$EliminaScreen=GUICtrlCreateMenuItem("Elimina tutti gli ScreenShot", $Pic)
$Count=GUICtrlCreateMenu("Contatore", $Opzioni)
$Azzera=GUICtrlCreateMenuItem("Azzera", $Count)
$Esci=GUICtrlCreateMenuItem("Esci", $Opzioni)
$Help=GUICtrlCreateMenuItem("Help", $Opzioni)
$Credits=GUICtrlCreateMenu("?")
$About=GUICtrlCreateMenuItem("About", $Credits)
GUISetState(@SW_SHOW)
GUICtrlRead($Input1)


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Help
ShellExecute("About.txt")
Case $Esci
Exit
Case $Start
ShellExecute(@ScriptDir&"\ScreenShot")
Case $Screen
ShellExecute(@ScriptDir&"\ScreenShot\Screen_"&$var2&".jpg")
If @error Then MsgBox(16, "Error", "Non sono presenti ScreenShot")
Case $EliminaScreen
FileDelete(@ScriptDir&"\ScreenShot\*.jpg")
$X = MsgBox(4, "ScreenShot Maker 1.0", "ScreenShot eliminati."&@CRLF&"Azzerare il contatore?")
If $X = 6 Then
$var2 = 0
FileDelete($var1&"\count.txt")
FileWrite($var1&"\count.txt", $var2)
Else
MsgBox(0,"Countatore", "Contatore non azzerato")
EndIf
Case $Azzera
$X2=MsgBox(4, "Contatore", "Azzerando il contatore i prossimi ScreenShot si chiameranno nuovamente Screen_1, Screen_2 ecc.."&@CRLF&"Di conseguenza se esistono già file con quel nome verranno sostituiti. Continuare?")
If $X2 = 6 Then
$var2 = 0
FileDelete($var1&"\count.txt")
FileWrite($var1&"\count.txt", $var2)
Else
MsgBox(0,"Countatore", "Contatore non azzerato")
EndIf
Case $About
$FormAbout = GUICreate("About", 395, 289, 303, 219)
GUISetIcon("D:\006.ico")
$GroupBox1 = GUICtrlCreateGroup("", 0, 8, 385, 241)
$ImageAbout = GUICtrlCreatePic(@ScriptDir&"\Pic\Logo Sym98.gif", 8, 24, 105, 204)
$LabelAbout = GUICtrlCreateLabel("Product Name", 144, 24, 72, 17)
$LabeAbout = GUICtrlCreateLabel("Version", 144, 48, 39, 17)
$LabeAbout = GUICtrlCreateLabel("Copyright", 120, 104, 48, 17)
$LabeAbout = GUICtrlCreateLabel("Sym98", 232, 24, 36, 17)
$LabeAbout = GUICtrlCreateLabel("1.0", 216, 48, 19, 17)
$LabeAbout = GUICtrlCreateLabel("ScreenShot Maker 1.0 Created By Sym98 ", 176, 104, 204, 17)
$PicAbout = GUICtrlCreatePic(@ScriptDir&"\Pic\Sym98.gif", 136, 128, 201, 100)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ButtonAbout = GUICtrlCreateButton("&OK", 168, 256, 75, 25)
GUISetState(@SW_SHOW)

While 1
$File = @ScriptName
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($FormAbout)
GUIDelete($Form1)
;ShellExecute($File) ;Elimina questa riga se lo compili
Run($File)
Exit
Case $ButtonAbout
GUIDelete($FormAbout)
GUIDelete($Form1)
;ShellExecute($File) ;Elimina questa riga se lo compili
Run($File)
Exit
EndSwitch
WEnd

Case $Button1
Sleep(GUICtrlRead($Input1))
$var2 = $var2 + 1
If FileExists ($var1&"\count.txt") Then FileDelete ($var1&"\count.txt")
FileWrite($var1&"\count.txt", $var2)
_ScreenCapture_Capture($Dir & "\ScreenShot\Screen_" & $var2 & ".jpg")
EndSwitch
WEnd



Cale92 - Security Decompiler Team

SecureFile: QUI


Edited by FrontBack - 24/1/2013, 18:00
 
Top
ACIDBURN16
CAT_IMG Posted on 8/2/2011, 12:02     +1   -1




Hostalo da qualche parte e metti il link qui, 2 cosa il source va postato siamo in una community che è favorevole per l' open source, 3 cosa come ribadito molte volte qui dentro sta solo gente seria, non penso che spacci il tuo source per suo, con questo ho finito.
 
Top
*Sym98*
CAT_IMG Posted on 8/2/2011, 12:23     +1   -1




CITAZIONE (ACIDBURN16 @ 8/2/2011, 12:02) 
Hostalo da qualche parte e metti il link qui

Si hai ragione ora lo posto su altervista xD
CITAZIONE (ACIDBURN16 @ 8/2/2011, 12:02) 
3 cosa come ribadito molte volte qui dentro sta solo gente seria, non penso che spacci il tuo source per suo, con questo ho finito.

Io non dico che non mi fido di voi, non mi fido di internet O.o chiunque in questo momento potrebbe visitare questo sito, non ti pare? O.o
Mi dispiace che tu abbia frainteso...

CITAZIONE (ACIDBURN16 @ 8/2/2011, 12:02) 
con questo ho finito.

Mi fa pensare che tu te la sia presa un pò troppo...E visto che non voglio litigare con nessuno adesso posto il Source, cosa che non volevo fare non per voi ma per i lamer della rete.
 
Top
ACIDBURN16
CAT_IMG Posted on 8/2/2011, 12:45     +1   -1




Non è questo il punto, se uno ruba il tuo source non imparera mai nulla non saprà nemmeno modificare il source, poi la mia non era una cosa contro di te ma era in generale, anche con altri utenti ho detto le stesse parole, no non me la sono presa minimamente ti posso assicurare, poi fai come vuoi se ritieni che mettere il source sia sbagliato, non postarlo, ma secondo la mia opinione è molto meglio postare il source, comuque ora provo il programma e do un parere, ciao..
 
Top
*Sym98*
CAT_IMG Posted on 8/2/2011, 12:53     +1   -1




CITAZIONE (ACIDBURN16 @ 8/2/2011, 12:45) 
Non è questo il punto, se uno ruba il tuo source non imparera mai nulla non saprà nemmeno modificare il source

Ovvio che chi ruba i source non imparerà mai ma purtroppo c'è chi lo fa...

CITAZIONE (ACIDBURN16 @ 8/2/2011, 12:45) 
la mia non era una cosa contro di te ma era in generale, anche con altri utenti ho detto le stesse parole, no non me la sono presa minimamente ti posso assicurare

Bhe, allora scusami ma quando si scrive è difficile dare l'intonazione giusta :D

CITAZIONE (ACIDBURN16 @ 8/2/2011, 12:45) 
poi fai come vuoi se ritieni che mettere il source sia sbagliato, non postarlo, ma secondo la mia opinione è molto meglio postare il source, comuque ora provo il programma e do un parere, ciao..

No, dai infondo avevi ragione tu, il source lo lascio :D

Edited by *Sym98* - 2/6/2011, 11:48
 
Top
ACIDBURN16
CAT_IMG Posted on 8/2/2011, 13:02     +1   -1




Bel programma utile, Bravo ;)
 
Top
*Sym98*
CAT_IMG Posted on 8/2/2011, 14:19     +1   -1




CITAZIONE (ACIDBURN16 @ 8/2/2011, 13:02) 
Bel programma utile, Bravo ;)

Grazie :D
 
Top
Cale92
CAT_IMG Posted on 8/2/2011, 14:26     +1   -1




per essere agli inizi è buono... bravo..
 
Top
*Sym98*
CAT_IMG Posted on 8/2/2011, 14:32     +1   -1




Grazie :)
 
Top
/dev/random
CAT_IMG Posted on 8/2/2011, 15:25     +1   -1




Buono.
Per la storia dei source, diciamocelo: cosa ti interessa se te lo rubano? Tu sai che l'hai fatto da solo e ci sei riuscito, lo sappiamo anche noi... Ok, ti rubano il source, ma a te non viene tolto niente.

Linus Torvalds doveva rilasciare il suo Kernel con una licenza Closed Source per paura di essere "derubato"?
 
Top
3ad
CAT_IMG Posted on 8/2/2011, 15:46     +1   -1




Ok, questo come 2° programma va più che bene, ma ora pensa a fare qualcosa che può essere utile a qualcuno :)
 
Top
/dev/random
CAT_IMG Posted on 8/2/2011, 15:56     +1   -1




lol sempre delicato eh Bad xDxD comunque vieni su MSN...
 
Top
*Sym98*
CAT_IMG Posted on 8/2/2011, 15:59     +1   -1




CITAZIONE (/dev/random @ 8/2/2011, 15:25) 
Buono.
Per la storia dei source, diciamocelo: cosa ti interessa se te lo rubano? Tu sai che l'hai fatto da solo e ci sei riuscito, lo sappiamo anche noi... Ok, ti rubano il source, ma a te non viene tolto niente.

Linus Torvalds doveva rilasciare il suo Kernel con una licenza Closed Source per paura di essere "derubato"?

A dire il vero pensavo di venderlo a 50 centesimi ahahah xD

CITAZIONE (3ad @ 8/2/2011, 15:46) 
Ok, questo come 2° programma va più che bene, ma ora pensa a fare qualcosa che può essere utile a qualcuno :)

tipo? :wacko:
 
Top
3ad
CAT_IMG Posted on 8/2/2011, 16:06     +1   -1




E che ne so io -.-
 
Top
xMasteRx
CAT_IMG Posted on 8/2/2011, 16:20     +1   -1




CITAZIONE (Cale92 @ 8/2/2011, 14:26)
per essere agli inizi è buono... bravo..

quoto

CITAZIONE (/dev/random @ 8/2/2011, 15:25)
Buono.
Per la storia dei source, diciamocelo: cosa ti interessa se te lo rubano? Tu sai che l'hai fatto da solo e ci sei riuscito, lo sappiamo anche noi... Ok, ti rubano il source, ma a te non viene tolto niente.

Linus Torvalds doveva rilasciare il suo Kernel con una licenza Closed Source per paura di essere "derubato"?

quoto²

CITAZIONE (*Sym98* @ 8/2/2011, 15:59)
A dire il vero pensavo di venderlo a 50 centesimi ahahah xD

XD allora mi vendo i miei programmi a 20euro XD

CITAZIONE (*Sym98* @ 8/2/2011, 15:59)
CITAZIONE (3ad @ 8/2/2011, 15:46) 
Ok, questo come 2° programma va più che bene, ma ora pensa a fare qualcosa che può essere utile a qualcuno :)

tipo? :wacko:

beh, mi auto-quoto:

CITAZIONE (xMasteRx @ 19/1/2011, 05:52) 
ma veramente il problema non è fare il programma, il problema è saper che programa fare XD

xD
 
Top
18 replies since 8/2/2011, 11:50   465 views
  Share  
 

Programmi
 

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