Découpage à la souris d'un rectangle dans une image

WIDTH 0,660: HEIGHT 0,550
PICTURE 1: WIDTH 1,640: HEIGHT 1,480
FILE_LOAD 1,"C:\GRAPH\JPG\goldgate.jpg": ' une image quelconque...
Crop_R(1,"")
CLIPBOARD_PASTE 1
END

SUB Crop_R(p,fr$)
  ' Découpe à la souris d'un rectangle dans le Picture p (image)
  ' Ajustage découpe: position: 4 flèches, dimensions: PgUp/PgDn
  ' Puis sortie (validation) par touche Esc
  ' Résultat dans fr$ (bmp), ou clipboard si fr$ = ""
  DIM_LOCAL x1,y1,x2,y2,sc,pa
  pa = 1: ' déplacement pour ajustage (pixels) ...
  x1 = MOUSE_LEFT_DOWN(p): x1 = MOUSE_LEFT_UP(p): ' Réinit  
  WHILE MOUSE_LEFT_DOWN(p) = 0: PAUSE 100: END_WHILE: ' attente clic de départ
  x1 = MOUSE_X_POSITION(p): y1 = MOUSE_Y_POSITION(p)
  CLIPBOARD_COPY p: 2D_TARGET_IS p: 2D_FILL_OFF
  WHILE MOUSE_LEFT_UP(p) = 0
      x2 = MOUSE_X_POSITION(p): y2 = MOUSE_Y_POSITION(p)
      CLIPBOARD_PASTE p: 2D_RECTANGLE x1,y1,x2,y2
      sc = SCANCODE: SCANCODE = 0: IF sc > 32 THEN EXIT_WHILE
      PAUSE 50
  END_WHILE
  WHILE sc <> 27
      SELECT sc
          CASE 33: x2 = x2+pa: y2 = y2+pa: ' PgUp, agrandir
          CASE 34: x2 = x2-pa: y2 = y2-pa: ' PgDn, rétrécir
          CASE 37: x1 = x1-pa: x2 = x2-pa: ' flèche gauche
          CASE 38: y1 = y1-pa: y2 = y2-pa: ' flèche droite
          CASE 39: x1 = x1+pa: x2 = x2+pa: ' flèche haut
          CASE 40: y1 = y1+pa: y2 = y2+pa: ' flèche bas
      END_SELECT
      CLIPBOARD_PASTE p: 2D_RECTANGLE x1,y1,x2,y2: PAUSE 50
      sc = SCANCODE: SCANCODE = 0
  END_WHILE
  IMAGE 900: CLIPBOARD_PASTE p: 2D_IMAGE_COPY 900,x1,y1,x2,y2
  IF fr$ <> ""
      FILE_SAVE 900,fr$
  ELSE
      CLIPBOARD_COPY 900
  END_IF
  DELETE 900
END_SUB

LABEL Fin, Dbl, Histor, Suph, Supcook
DIM fh$,fb$,fm$,rc$,nf%,nt%,nr%,i%,k%,a$,n$,t$,d$,l$,s$,e$
DIM rtmp$
' Historique des connexions internet DNS
' Affichage:  ipconfig /displaydns
' Suppression: ipconfig /flushdns (avec confirmation)
'
' Cas particulier: la suppression est confirmée, mais non effective:
'  - lancer Notepad en mode administrateur
'  - lire le fichier C:\Windows\System32\drivers\etc\hosts
'  - supprimer toutes les lignes après 127.0.0.1 local host
'  - réécrire le fichier (bien hosts, et non pas hosts.txt)
'  - relancer le ipconfig /flushdns
'
rtmp$ = "Z:\": ' répertoire des fichiers de manoeuvre: ***  A AJUSTER ***
fh$ = rtmp$+"ipcfg.txt": ' fichier de manoeuvre
fb$ = rtmp$+"Supcook.bat": ' fichier de manoeuvre
rc$ = "C:\Users\%USERNAME%\AppData\Local\Mozilla\Firefox\Profiles": ' répertoire cookies
fm$ = rtmp$+"Liscook.txt": ' temporaire
' Liste des cookies: nb de fichiers, taille totale, nb de répertoires
EXECUTE_WAIT "cmd.exe|/c dir /s "+rc$+"\*.* >"+fm$
DLIST 1: FILE_LOAD 1,fm$: FILE_DELETE fm$
IF COUNT(1) > 2
  FOR i% = COUNT(1)-5 TO COUNT(1)
    IF INSTR(ITEM_READ$(1,i%),"Total des fichiers") > 0
        a$ = LTRIM$(ITEM_READ$(1,i%+1)): k% = INSTR(a$," fichier(s)")
        nf% = VAL(LEFT$(a$,k%-1)): a$ = LTRIM$(RIGHT_POS$(a$,k%+11))
        k% = INSTR(a$," octets"): a$ = LEFT$(a$,k%-1)
        k% = INSTR(a$," "): IF k% = 0 THEN k% = INSTR(a$,CHR$(255))
        WHILE k%>0
            a$ = LEFT$(a$,k%-1)+RIGHT_POS$(a$,k%+1)
            k% = INSTR(a$," "): IF k% = 0 THEN k% = INSTR(a$,CHR$(255))
        END_WHILE
        nt% = VAL(a$): ' taille totale des fichiers cookies
        a$ = LTRIM$(ITEM_READ$(1,i%+2)): k% = INSTR(a$," R")
        IF k% > 0 THEN nr% = VAL(LEFT$(a$,k%-1)): ' nombre de répertoires
        EXIT_FOR
    END_IF
  NEXT i%
END_IF
DELETE 1

' Suppression des cookies sur différents navigateurs, voir:
'      http://www.catonmat.net/blog/clear-privacy-ie-firefox-opera-chrome-safari/
DATA "@echo off"
DATA "set DataDir=C:\Users\%USERNAME%\AppData\Local\Mozilla\Firefox\Profiles"
DATA "del /q /s /f "+CHR$(34)+"%DataDir%"+CHR$(34)+"
DATA "rd /s /q "+CHR$(34)+"%DataDir%"+CHR$(34)+"
DATA "for /d %%x in (C:\Users\%USERNAME%\AppData\Roaming\Mozilla\Firefox\Profiles\*) do del /q /s /f %%x\*sqlite"
DATA "F"
IF FILE_EXISTS(fb$) = 1 THEN FILE_DELETE fb$
FILE_OPEN_WRITE 1,fb$
    READ a$: WHILE a$<>"F": FILE_WRITELN 1,a$: READ a$: END_WHILE
FILE_CLOSE 1

WIDTH 0,700: HEIGHT 0,500: BORDER_SMALL 0
CAPTION 0," -  IPCONFIG :  HISTORIQUE  DES  CONNEXIONS  INTERNET  -"
COLOR 0,180,255,255: ON_CLOSE 0,Fin
ALPHA 5: LEFT 5,10
ALPHA 6: LEFT 6,WIDTH(0)-420
FOR i% = 5 TO 6: FONT_SIZE i%,11: FONT_BOLD i%: COLOR i%,255,255,0: NEXT i%
MEMO 10: WIDTH 10,600: HIDE 10
LIST 20: TOP 20,20: WIDTH 20,WIDTH(0)-16: HEIGHT 20,HEIGHT(0)-90
COLOR 20,255,255,200: FONT_NAME 20,"Lucida Console": FONT_SIZE 20,10
BUTTON 30: TOP 30,HEIGHT(0)-65: LEFT 30,100: WIDTH 30,200: FONT_BOLD 30
CAPTION 30,"Supprimer tout l'historique": ON_CLICK 30,Suph
BUTTON 40: TOP 40,TOP(30): LEFT 40,350: WIDTH 40,200: FONT_BOLD 40
CAPTION 40,"Supprimer tous les cookies": ON_CLICK 40,Supcook
CAPTION 6," Cookies: "+STR$(nf%)+" fichiers, "+STR$(nt%)+" octets, "+STR$(nr%)+" répertoires. "

GOSUB Histor
CAPTION 5," "+STR$(COUNT(20)-2)+" connexions archivées. "
End
' ==============================================================================
Fin:
IF FILE_EXISTS(fh$) = 1 THEN FILE_DELETE fh$
IF FILE_EXISTS(fb$) = 1 THEN FILE_DELETE fb$
IF FILE_EXISTS(fm$) = 1 THEN FILE_DELETE fm$
TERMINATE
' ==============================================================================
Histor:
' Affichage des connexions archivées
EXECUTE_WAIT "cmd.exe|/c C:\Windows\System32\ipconfig.exe /displaydns >"+fh$
CLEAR 10: FILE_LOAD 10,fh$
CLEAR 20
a$ = "NOM D'ENREGISTREMENT"+STRING$(20," ")+" TYPE  DURÉE  LGR  SECTION  ENREG."
ITEM_ADD 20,a$
a$ = "===================="+STRING$(20," ")+" ====  =====  ===  =======  ========="
ITEM_ADD 20,a$
i% = 1
Dbl:
a$ = ITEM_READ$(10,i%)
WHILE LEFT$(a$,10)<>"    Nom d'"
    i% = i%+1: IF i%>=COUNT(10) THEN RETURN
    a$ = ITEM_READ$(10,i%)
END_WHILE
n$ = RIGHT_POS$(a$,29)
i%=i%+1: a$ = ITEM_READ$(10,i%): t$ = RIGHT_POS$(a$,29)
i%=i%+1: a$ = ITEM_READ$(10,i%): d$ = RIGHT_POS$(a$,29)
i%=i%+1: a$ = ITEM_READ$(10,i%): l$ = RIGHT_POS$(a$,29)
i%=i%+1: a$ = ITEM_READ$(10,i%): s$ = RIGHT_POS$(a$,29)
i%=i%+1: a$ = ITEM_READ$(10,i%): e$ = RIGHT_POS$(a$,29)
IF s$ = "R‚ponse" THEN s$ = "Réponse"
IF LEN(n$)>39 THEN n$ = LEFT$(n$,39)
a$ = n$+STRING$(40-LEN(n$)," ")
a$ = a$+STRING$(4-LEN(t$)," ")+t$
a$ = a$+STRING$(8-LEN(d$)," ")+d$
a$ = a$+STRING$(4-LEN(l$)," ")+l$
a$ = a$+STRING$(10-LEN(s$)," ")+s$
a$ = a$+"  "+e$
ITEM_ADD 20,a$
i%=i%+1
GOTO Dbl
RETURN
' ==============================================================================
Suph:
' Suppression de l'historique
EXECUTE_WAIT "cmd.exe|/c C:\Windows\System32\ipconfig.exe /flushdns >"+fh$
GOSUB Histor: ' voir le résultat
RETURN
' ==============================================================================
Supcook:
' Suppression des cookies
EXECUTE_WAIT "cmd.exe|/c " + fb$
RETURN
' ==============================================================================