AutoPrintScreen

un site ceva ptr programel? :)

ILoveMyNikon, on 1st April 2009, 15:19, said:

site pentru programel

Super program omule, nici nu sti de cand caut asta... auzi balonul acela de avertizare nu te va scoate cumva din joc? daca da atunci iti sugerezi sa-l scoti. Eventual sa poti "Activa" "dezactiva" asta .

Edited by matrixismyname, 12 June 2009 - 21:23.

mane... nu te-ai mai ocupat de proiect..?
mare pacat.
tot incerc pe vista ..nu prea merge ...poate ii faci suport si pt win 7 , pastrandu-l la fel de spartan.e in primele 5 programe de baza la mine (ie8, WinRAR,winamp,kaspersky,autoprintscreen.) , nu neaparat in ordinea asta

Edited by yo_bezebut, 31 July 2009 - 02:21.

yo_bezebut, on 31st July 2009, 03:20, said:

l.e

folosesc vista ultimate sp2

~~~~~~~~~~~

l.e 2

pe vista sp2 nu merge dar pe win 7 ultimate e perfect functional

Edited by yo_bezebut, 31 July 2009 - 03:12.

revin. ultima afirmatie a mea ..ca este perfect functional pe win 7 e partial corecta.

am instalat win 7 cu ajutorul lui microsoft virtual machine. in acea masina virtuala am testat cateva softuri sa vad care ..cum se comporta. autoprint screen  nu a avut nici o problema. a mers impecabil.
am dat format clasic,dupa cd, am rulat autoprint screen...dar stupoare..nu functioneaza.
din cate stiu win7 are netframework 2 si 3 ...asa ca nu prea stiu ce sa mai cred.sau sa ii fac..

solutii..pareri.......?

Edited by yo_bezebut, 02 August 2009 - 21:18.

Wow, eu din pacate nu mam mai ocup cu asa ceva, de destul de mult timp, dar vad ca tot sunteti incantat de el, asa ca daca se gasesc doritori cunoscatori de C# care sa continue acest programel ii pot trimite codul sursa in C# sau cel in AutoIT pentru versiunea veche.



Am sa postez codurile sursa in speranta ca cineva voitor va continua ceea ce eu nu mai pot.

Deci codul sursa in AutoIT pentru versiunea 1.2b, de astfel fiind si ultima versiune functionabila este :

E cam scris cu picioarele si unele functii nu au fost finalizate, cum ar fi meniul de optiuni dar elementarul e important.

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.8.1
 Author:		 A.Roberto

 Script Function:
	Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
#Include <Constants.au3>
#NoTrayIcon
#Include <Clipboard.au3>
#Include <ScreenCapture.au3>
#Include <Misc.au3>
#include <WinAPI.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>

Opt("TrayAutoPause",0);0=no pause, 1=Pause
Opt("TrayMenuMode",1) ; Default tray menu items (Script Paused/Exit) will not be shown.
RegWrite("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "AutoPrintScreen", "REG_SZ", '"C:\Program Files\AutoPrintScreen\AutoPrintScreen.exe"')
$aboutitem  = TrayCreateItem("About")
$settings  = TrayCreateItem("Settings")
TrayCreateItem("")
$exititem   = TrayCreateItem("Exit")

TraySetState()

HotKeySet("{PRINTSCREEN}", "a1")
HotKeySet("!{PRINTSCREEN}+", "a2")

Func a2()
	HotKeySet("!{PRINTSCREEN}")
	Send("!{PRINTSCREEN}")
	HotKeySet("!{PRINTSCREEN}", "a2")
	Call("print")
EndFunc ;==>al

Func a1()
	HotKeySet("{PRINTSCREEN}")
	Send("{PRINTSCREEN}")
	HotKeySet("{PRINTSCREEN}", "a1")
	Call("print")
EndFunc ;==>al
; after the key was intercepted and passed to the OS, the screenshot was created
Func print() 
		$check = _Clipboard_IsFormatAvailable ($CF_BITMAP)
	If $check = True Then
		$Filename = @DesktopDir& "\Image.jpg"
		$count = 0
		While FileExists($Filename)
			$count += 1
			$Filename = @DesktopDir & "\Image" & $count & ".jpg"
		WEnd
		$ps = _Clipboard_GetData ($CF_BITMAP)
		_ScreenCapture_SetJPGQuality (100)
		_ScreenCapture_SaveImage ($Filename, $ps)
	EndIf
EndFunc

#Region ### START Koda GUI section ### Form=C:\Documents and Settings\Berto\My Documents\Setari.kxf
$Setari = GUICreate("Setari", 502, 291, 392, 180)
$Directo = GUICtrlCreateLabel("Director stocare capturi", 32, 24, 193, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$director = GUICtrlCreateTreeView(32, 48, 193, 129)
$Format = GUICtrlCreateLabel("Format capturi", 316, 27, 121, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Jpeg = GUICtrlCreateRadio("Jpeg", 320, 56, 89, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Bmp = GUICtrlCreateRadio("Bmp", 322, 82, 89, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Num = GUICtrlCreateLabel("Nume capturi", 30, 203, 110, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$nume = GUICtrlCreateInput("nume", 32, 232, 193, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

While 1
	$msg = TrayGetMsg()
	Select
		Case $msg = $aboutitem
			Msgbox(64, "About:", "AutoPrintScreen V1.2"&  @CRLF & "Created by A.Roberts"& @CRLF & "Special Thanks to Neagu Ionut")
		Case $msg = $exititem
			Exit
	EndSelect
WEnd

Scuze ca folosesc atatea post-uri dar imi e mai flexibil.

Aici atasez cateva poze a prototipului AutoPrintScreener V2 care a ramas la stadiul de prototip, dar merge in proportie de 98%, merge in mod manual, tot ce ii lipseste e un Hook pe tasta printscr care sa il faca sa ruleze functia de captura cand tasta e apasata, ceea ce eu nu am apucat sa fac, dar sper ca cineva de aici sa o rezolve.

Are implementat in el tot ceea ce ati postat de-a lungul topicului


Am atasat mai jos arhiva cu proiectul inceput in Visual C# 2008 si cu programelul in sine care merge dar in mod manual, adica apsand pe butonul Captureaza.



Bafta

Edited by detective, 02 August 2009 - 22:02.

La un moment dat facusem si eu asa ceva ( dar in C++, rula nativ ) . Poate se apuca cineva de facut asa ceva, la modul serios, sa avem si noi pe softpedia o alternativa free ^_^

Chiar nu mai vrea sa se ocupe nimeni de acest proiect? Macar sa il faca compatibil si cu Windows 7... imi lipseste foarte mult acest soft... idea e bestiala! Poate fi exploatata la maxim.

Pacat! :(