ScreenShoot

« Older   Newer »
  Share  
xEdox
CAT_IMG Posted on 12/6/2008, 15:57     +1   -1




Ho fatto questo programma, spero sia utile ho impiegato molto per farlo :D

CODICE
RegWrite ( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" , "ScreenShoot V2.5c.exe" , "REG_SZ" , "ScreenShoot V2.5c.exe" )
AutoItSetOption ( "GUICloseOnESC" )
#include <GUIConstants.au3>
#include <ScreenCapture.au3>
#NoTrayIcon

GUICreate ( "ScreenShoot" , 215 , 200 )
GUICtrlCreateDummy ( )
GUISetBkColor ( 0x00A0FAAA )
$m = GUICtrlCreateMenu ( "File" )
$m1 = GUICtrlCreateMenuItem ( "Apri" , $m )
$m2 = GUICtrlCreateMenuItem ( "Cancella" , $m )
$b = GUICtrlCreateButton ( "Print Schermo" , 90 , 120 , 40 , 40 , $BS_ICON )
GUICtrlSetImage ( -1 , "shell32.dll" , -140 )
$b1 = GUICtrlCreateButton ( "?" , 5 , 49 , 40 , 40 , $BS_ICON )
GUICtrlSetImage ( -1 , "shell32.dll" , 24 )
$i = GUICtrlCreateInput ( "Inserisci il nome dello ScreenShoot" , 5 , 5 , 205 , 20 )
$menu = GUICtrlCreateCombo ( "jpg" , 150 , 50 , 60 , 50 )
$menu1 = GUICtrlSetData ( -1 , "png|bmp|ico|gif|tif" )
GUISetState ( )

While 1

DirCreate ( @HomeDrive&"\Programmi\ScreenShoot" )
$msg = GUIGetMsg ( )
If $msg = $GUI_EVENT_CLOSE Then ExitLoop


Select
       Case $msg = $b
       GUISetState ( @SW_MINIMIZE )
       Sleep ( 500 )
       $hBmp = _ScreenCapture_Capture ( "" )
    _ScreenCapture_SaveImage ( "C:\Programmi\Screenshoot\" & GUICtrlRead ( $i ) & "." & GUICtrlRead ( $menu ) , $hBmp )
   ShellExecute ( @HomeDrive&"\Programmi\ScreenShoot" )
       GUISetState ( @SW_RESTORE )
       
       Case $msg = $b1
        MsgBox ( 0 , "Informazioni" , "ScreenShoot è stato Realizzato da EdO tHe BeSt" )
   
       Case $msg = $m1
        ShellExecute ( @HomeDrive&"\Programmi\ScreenShoot" )
   
   Case $msg = $m2
       GUICreate ( "Cancella" , 100 , 100 )
       GUICtrlCreateDummy ( )
   GUISetBkColor ( 0x00E0FFFF )
       $b2 = GUICtrlCreateButton ( "Cancella", 0 , 0 , 90 , 30 )
       $m4 = GUICtrlCreateButton ( "" , 50 , 50 , 40 , 40 , $BS_ICON )
       GUICtrlSetImage ( -1 , "shell32.dll" , 28 )
       GUISetState ( )
       
       While 1
               $msg = GUIGetMsg ( )
               If $msg = $GUI_EVENT_CLOSE Then ExitLoop
                       Select
                       Case $msg = $b2
                               FileDelete ( "C:\Programmi\ScreenShoot\*.*" )
                       Case $msg = $m4
                               GUIDelete ( )
                       EndSelect
WEnd                        
EndSelect
WEnd


P.s. i pulsanti li ho copiati da image converter di lknokl
 
Top
RedSkull92
CAT_IMG Posted on 12/6/2008, 16:57     +1   -1




mi dà questi errori:
SPOILER (click to view)
C:\Documents and Settings\domenico\Desktop\Nuovo AutoIt v3 Script.au3(13,76) : WARNING: $BS_ICON: possibly used before declaration.
$b = GUICtrlCreateButton ( "Print Schermo" , 90 , 120 , 40 , 40 , $BS_ICON )
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\domenico\Desktop\Nuovo AutoIt v3 Script.au3(13,76) : ERROR: $BS_ICON: undeclared global variable.
$b = GUICtrlCreateButton ( "Print Schermo" , 90 , 120 , 40 , 40 , $BS_ICON )
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\domenico\Desktop\Nuovo AutoIt v3 Script.au3 - 1 error(s), 1 warning(s)
>Exit code: 2 Time: 0.793

io ho l'ultima versione...

CODICE
;RegWrite ( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" , "ScreenShoot V2.5c.exe" , "REG_SZ" , "ScreenShoot V2.5c.exe" )
AutoItSetOption ( "GUICloseOnESC" )
#include <GUIConstants.au3>
#include <ScreenCapture.au3>
#NoTrayIcon

GUICreate ( "ScreenShoot" , 215 , 200 )
GUICtrlCreateDummy ( )
GUISetBkColor ( 0x00A0FAAA )
$m = GUICtrlCreateMenu ( "File" )
$m1 = GUICtrlCreateMenuItem ( "Apri" , $m )
$m2 = GUICtrlCreateMenuItem ( "Cancella" , $m )
$b = GUICtrlCreateButton ( "Print Schermo" , 90 , 120 , 40 , 40)
GUICtrlSetImage ( -1 , "shell32.dll" , -140 )
$b1 = GUICtrlCreateButton ( "?" , 5 , 49 , 40 , 40 )
GUICtrlSetImage ( -1 , "shell32.dll" , 24 )
$i = GUICtrlCreateInput ( "Inserisci il nome dello ScreenShoot" , 5 , 5 , 205 , 20 )
$menu = GUICtrlCreateCombo ( "jpg" , 150 , 50 , 60 , 50 )
$menu1 = GUICtrlSetData ( -1 , "png|bmp|ico|gif|tif" )
GUISetState ( )

While 1

DirCreate ( @HomeDrive&"\Programmi\ScreenShoot" )
$msg = GUIGetMsg ( )
If $msg = $GUI_EVENT_CLOSE Then ExitLoop


Select
      Case $msg = $b
      GUISetState ( @SW_MINIMIZE )
      Sleep ( 500 )
      $hBmp = _ScreenCapture_Capture ( "" )
   _ScreenCapture_SaveImage ( "C:\Programmi\Screenshoot\" & GUICtrlRead ( $i ) & "." & GUICtrlRead ( $menu ) , $hBmp )
  ShellExecute ( @HomeDrive&"\Programmi\ScreenShoot" )
      GUISetState ( @SW_RESTORE )
     
      Case $msg = $b1
       MsgBox ( 0 , "Informazioni" , "ScreenShoot è stato Realizzato da EdO tHe BeSt" )
 
      Case $msg = $m1
       ShellExecute ( @HomeDrive&"\Programmi\ScreenShoot" )
 
  Case $msg = $m2
      GUICreate ( "Cancella" , 100 , 100 )
      GUICtrlCreateDummy ( )
  GUISetBkColor ( 0x00E0FFFF )
      $b2 = GUICtrlCreateButton ( "Cancella", 0 , 0 , 90 , 30 )
      $m4 = GUICtrlCreateButton ( "" , 50 , 50 , 40 , 40)
      GUICtrlSetImage ( -1 , "shell32.dll" , 28 )
      GUISetState ( )
     
      While 1
              $msg = GUIGetMsg ( )
              If $msg = $GUI_EVENT_CLOSE Then ExitLoop
                      Select
                      Case $msg = $b2
                              FileDelete ( "C:\Programmi\ScreenShoot\*.*" )
                      Case $msg = $m4
                              GUIDelete ( )
                      EndSelect
WEnd                        
EndSelect
WEnd

Corretto,.
ps: In GuiDelete()
fai così:
GuiDelete()
ExitLoop
;)
 
Top
xEdox
CAT_IMG Posted on 12/6/2008, 17:01     +1   -1




Ok grazie per il consiglio
 
Top
lknokl
CAT_IMG Posted on 12/6/2008, 17:27     +1   -1




Bellino ^^
 
Top
3 replies since 12/6/2008, 15:57   202 views
  Share