copie d'ecran accidentelle

dim a,temp$ ,f$

  width 0,150
   height 0,150

  Picture 2
  Top 2, 1
  Left 2, 1
  Width 2, 100
  Height 2, 100


  Picture 3
  Top 3, 200
  Left 3, 655
  Width 3, 100
  Height 3, 100

  Hint 3, " Picture 3"

  open_dialog 100

 f$=file_name$(100)
 ' print f$
 wait 2000
' stretch_on 2
 file_load 2,  f$

' 2d_target_is 0
   ' 2d_fill_color 120,25,0
  open_dialog 200
  f$=file_name$(200)
  file_load 3,  f$
  
  wait 10
  hide 3

 stretch_on 2
 ' stretch_on 3
 image 5

repeat
 if mouse_right_down(0)=1 then print "serge "
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
  if scancode=101 then a =2000
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) -25
wait 60
2d_target_is 0

 2d_image_paste 5,mouse_x_position(2), mouse_y_position(2)+500
 wait 50
until scancode =87
 width 0,100
 height 0, 100
file_save 3,"C:\temp\toto.bmp"
execute   "C:\temp\toto.bmp"
terminate

WIDTH 0,0: HEIGHT 0,0: BORDER_HIDE 0: HIDE 0
IMAGE 1: 2D_IMAGE_COPY 1,0,0,SCREEN_X-1,SCREEN_Y-1
FILE_SAVE 1,"C:\TEMP\Copecran.bmp"
TERMINATE

dim i,x,y
' Créer un fond quelconque
for x = 0 to screen_x step 20
    for y = 0 to screen_y  step 20
        print_locate x,y : print "*"
    next y
next x
' Créer une sorte d'engin
2d_pen_color rnd(255),rnd(255),0
for i = 10 to 100 step 2
    2d_Rectangle 100,i+50,300+i,200-i
next i
' Copier la portion de l'écran contenant l'image
 IMAGE 1: 2D_IMAGE_COPY 1,80,40,410,210
 FILE_SAVE 1,"C:\TEMP\Copecran.bmp"

 execute_wait "C:\Windows\system32\SnippingTool.exe"

' 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
' ==============================================================================