copie d'ecran accidentelle

' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
' x                                                 x
' x  Copie d'ecran puis capture d'un partie d'ecran x
' x xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

 ' 1) On lance le programme
 ' 2) delimitation de la zone de capture
 '   a) click gauche de la souris
 '   b) click droit de la souris
 ' IMPORTANT:respecter l'ordre des clicks
 '          :le click droit se fait en decallage vers le bas
 '           et à droite par rapport  au click gauche
 '  3)On enfonce le touche "w "
 '   4) Le programme se termine ....on attend que ça se passe
dim a,b,c,d ,f$

  picture 1

  hide 1


WIDTH 0,0: HEIGHT 0,0: BORDER_HIDE 0
 HIDE 0

IMAGE 2:wait 200 :2D_IMAGE_COPY 2,0,0,SCREEN_X-1,SCREEN_Y-1
 wait 200
 show 0
 show 1

  WIDTH 0,SCREEN_X-1: HEIGHT 0,SCREEN_y-1
  WIDTH 1,SCREEN_X-1: HEIGHT 1,SCREEN_y-1
  2d_target_is 1
2D_IMAGE_paste 2,0,0
rem imprime les positions en X et Y de la souris quand on enfonce le bouton droit sur picture 1
' print_locate 20,20
repeat
if mouse_left_down(1)=1

print mouse_x_left_down(1)


  a= mouse_x_left_down(1)
  b= mouse_y_left_down(1)

end_if

if mouse_right_down(1)=1

  print mouse_y_right_down(1)
 c= mouse_x_right_down(1)
  d= mouse_y_right_down(1)

  end_if
  
until scancode =87
2d_target_is 1
        2D_IMAGE_COPY 2 ,a,b,c,d
 FILE_SAVE 2,"C:\temp\tutu.bmp"
 wait 200

   2d_target_is 1
  2D_IMAGE_paste 2 ,0,0
  wait 5000
'  la capture de la partie selectionnée s'affiche dans le lecteur
'  d'images par defaut
   execute "C:\temp\tutu.bmp"
  terminate

 '  TRANSFERT


  dim a,temp$ ,f$
   width 0,1600
   height 0,1000
 a=0.2

  Picture 2
  Top 2, 1
 ' Left 2, 1000
  Width 2, 800
  Height 2, 800

  ' Hint 2, " Picture 2"

  Picture 3
  Top 3, 1
  Left 3, 800
  Width 3, 800
  Height 3, 800

 ' Hint 3, " Picture 3"

 picture 6
 top 6,800
 width 6,250
 ' Hint 6, " Picture 6"
  
  open_dialog 100
  f$=file_name$(100)

 wait 200

 file_load 2,  f$

  open_dialog 200
  f$=file_name$(200)
  file_load 3,  f$
  
  wait 200

  stretch_on 6
 image 5

repeat

if scancode=96 then a =0.2  : ' touche 0
if scancode=97 then a =8    : ' touche 1
 if scancode=98 then a =16
 if scancode=99 then a =32
 if scancode=100 then a =64
  2d_target_is 2
2d_image_copy 5,mouse_x_position(2),mouse_y_position(2),mouse_x_position(2)+a,mouse_y_position(2)+ a


 2d_target_is 3
    2d_image_paste 5,mouse_x_position(2), mouse_y_position(2)
    wait 60
2d_target_is 6
   stretch_on 6
   2d_image_paste 5,mouse_x_position(2)/100, mouse_y_position(2)/100
   wait 60
until scancode =87
   file_save 3,"C:\temp\monimage.bmp"
   wait 200
execute "C:\temp\monimage.bmp" :terminate

LABEL Timeur
DIM t,x1,y1,x,y,xs,ys
BORDER_HIDE 0: HIDE 0: WAIT 100: WIDTH 0,SCREEN_X: HEIGHT 0,SCREEN_Y
IMAGE 2: 2D_IMAGE_COPY 2,0,0,SCREEN_X-1,SCREEN_Y-1: ' Copie écran dans Image 2
WAIT 100
PICTURE 1: FULL_SPACE 1: 2D_TARGET_IS 1: 2D_IMAGE_PASTE 2,0,0
SHOW 0
t = 0: TIMER 3: TIMER_INTERVAL 3,200: ON_TIMER 3,Timeur
END
' ==============================================================================
Timeur:
TIMER_OFF 3
x = MOUSE_X_POSITION(1): y = MOUSE_Y_POSITION(1): ' position courante
IF t = 0
    IF MOUSE_LEFT_DOWN(1) = 1
        t = 1: x1 = x: y1 = y: ' position de départ
        2D_LINE x-20,y,x+20,y: 2D_LINE x,y-20,x,y+20: ' repère coin haut/gauche
        2D_PEN_DOT
    END_IF
ELSE
    IF MOUSE_LEFT_UP(1) = 1
        IF x<x1 THEN xs = x1: x1 = x: x = xs
        IF y<y1 THEN ys = y1: y1 = y: y = ys
        2D_IMAGE_PASTE 2,0,0
        2D_IMAGE_COPY 2,x1,y1,x,y: CLIPBOARD_COPY 2: ' capture dans le presse-papier
        EXECUTE "C:\Progra~2\Irfanv~1\i_view32.exe /clippaste": ' pour voir
        TERMINATE
    END_IF
    IF MOUSE_LEFT_UP(1) = 0
        IF x<>xs OR y<>ys
            2D_IMAGE_PASTE 2,0,0: ' régénère l'image
            2D_LINE x1,y1,x,y1:2D_POLY_TO x,y:2D_POLY_TO x1,y:2D_POLY_TO x1,y1
        END_IF
    END_IF
END_IF
xs = x: ys = y
TIMER_ON 3
RETURN
' ==============================================================================

   dim a
    width 0,1000
    height 0,300
 form 3
    width 3,1000
    height 3,500
   left 3,1
   top 3, 400
 picture 1
' top 1,-300
      width 1,1200
      height 1,250

file_load 1,"C:\Users\babou\Desktop\caf\20140302_100148.jpg"
' top 1,10:left 1,10
image 2
rem capture d'image
repeat
if scancode=96 then a =4
if scancode=97 then a =8
 if scancode=98 then a =16
 if scancode=99 then a =32
  if scancode=100 then a =64
 stretch_on 1
2d_image_copy 2,mouse_x_position(1),mouse_y_position(1),mouse_x_position(1)+a,mouse_y_position(1)+ a
rem restitution d'image
 command_target_is 3
  2d_target_is 3
 2d_image_paste 2,mouse_x_position(1), mouse_y_position(1)
 2d_target_is 0
 ' 2d_image_paste 2,mouse_x_position(1), mouse_y_position(1)+300
until scancode =87
terminate