PureBasic

Il faut peut etre essayer d'envoyer un #WM_PRINT au bureau, donc on devrait recuperer l'image complete du bureau sans les fenetres du dessus (si c'est ce qui est voulu).

Fred a écrit :Il faut peut etre essayer d'envoyer un #WM_PRINT au bureau, donc on devrait recuperer l'image complete du bureau sans les fenetres du dessus (si c'est ce qui est voulu).

le problème c'est qu'on a aussi besoin des fenêtres... il faudrait qu'on puisse prendre l'image qui doit s'afficher normalement a l'ecran la zoomer et l'afficher ensuite...car ce programme doit être transparent et permettre d'utiliser d'autre programme...

/ pas aussi simple que je le pensais au depart...
Le mieux que je réussise a faire j'affiche le zoom sur le bureau mais l'image d'apres il zoom le zoom etc... bref inutilisable...

Bon, voilà je suis parti dans une autre voie, vers les bureaux virtuels : ils permettent d'avoir le système dans une fenêtre (donc pas d'images), ensuite il suffit juste de modifier la résolution du bureau en cours (bon je ne sais pas trop dans quoi je m'engage mais bon

) (j'espère que je ne suis pas en train de me planter, dites moi ce que vous en pensez

)

ex : le bureau

Code : Tout sélectionner

Procedure GetDesktop_Height() ; Retourne la hauteur du bureau
SystemParametersInfo_(#SPI_GETWORKAREA, 0, @desktop.RECT, 0) 
ProcedureReturn desktop\bottom-desktop\top
EndProcedure

Procedure GetDesktop_Width() ; Retourne la largeur du bureau
SystemParametersInfo_(#SPI_GETWORKAREA, 0, @desktop.RECT, 0) 
ProcedureReturn desktop\right-desktop\left
EndProcedure

hwnd=OpenWindow(0,0,0,GetDesktop_Width(),GetDesktop_Height(),#PB_Window_SystemMenu|#PB_Window_MinimizeGadget,"Le bureau est dans la fenêtre :)")
a = FindWindow_("progman", NullString) ; on recherche le handle du bureau
b = GetParent_(a) ; on regarde qui la mère  de notre bureau
SetParent_( b, hwnd) ; On arrache le bureau à sa maman :)
Repeat
Until WaitWindowEvent()=#PB_Event_CloseWindow
SetParent_(a, b) ; On le lui rend ;)

End

en fait tu veux zoomer sur tout, sauf ta fenetre ?
si c'est bien ca, fait une recherche sur l'opacité des fenêtre. Y'en a un qui avait pondu une solution pour avoir une fenetre opaque avec windows 98 en regardant ce qu'il y avait sous la fenetre "translucide"

Dri

Non, si j'ai bien compris Thyphoon il veut faire un programme qui affiche tout ce que tu vois sur l'écran en plus gros, même la fenêtre. Et avoir une sorte scrollbar sur les cotés de la fenêtre pour naviguer sue l'écran

Gillou a écrit :Non, si j'ai bien compris Tryphoon il veut faire un programme qui affiche tout ce que tu vois sur l'écran en plus gros, même la fenêtre. Et avoir une sorte scrollbar sur les cotés de la fenêtre pour naviguer sue l'écran

tu as presque tout compris !!

Donc oui ça permet d'afficher al'ecran tout en plus gros normalement en faisant Alt- tout est Normal et Alt+ le zoom est actif. Mais Il n'y a pas de scrollbar en vérité ça reste centré sur la souris ....
Moi mon dernier teste a tellement bien planté que j'ai du debranché la prise de mon pc pour l'eteindre....même resté appuyer 10 sec sur power ça ne marchait plus lolllll

)

Gillou a écrit :Non, si j'ai bien compris Tryphoon il veut faire un programme qui affiche...

Tryphon, c'est le prénom du professeur Tournesol, ça

OUPS désolé

THYPHOON, tu pense quoi des bureaux virtuels

Voila toutes les fenêtres dans notre fenêtre (pour le rafraichissement, c'est pas encore ça mais ça avance)

Bon y a plus qu'a augmenté la résolution et résoudre le problème de l'affichage et puis ça devrait être bon

Code : Tout sélectionner

Procedure GetDesktop_Height() ; Retourne la hauteur du bureau
SystemParametersInfo_(#SPI_GETWORKAREA, 0, @desktop.RECT, 0) 
ProcedureReturn desktop\bottom-desktop\top
EndProcedure

Procedure GetDesktop_Width() ; Retourne la largeur du bureau
SystemParametersInfo_(#SPI_GETWORKAREA, 0, @desktop.RECT, 0) 
ProcedureReturn desktop\right-desktop\left
EndProcedure

Procedure List_Windows() ; Retourne le nombre de fenêtres actuellement active
Global listwins
If listwins=0 : NewList wind.s() : listwins=1 : Else : ClearList(wind()) : EndIf
hWnd.l = FindWindow_( 0, 0 )
  While hWnd <> 0
    If GetWindowLong_(Hwnd, #GWL_STYLE) & #WS_VISIBLE = #WS_VISIBLE ; pour lister que les fenêtres visibles
      If GetWindowLong_(Hwnd, #GWL_EXSTYLE) & #WS_EX_TOOLWINDOW <> #WS_EX_TOOLWINDOW ; pour lister que les fenêtres qui ne sont pas des ToolWindow ou barre d'outils
        txt.s = Space(256)
        GetWindowText_(hwnd, txt, 256)
        If txt <> ""
          AddElement(wind()) : wind()=txt
        EndIf
      EndIf
    EndIf
    hWnd = GetWindow_(hWnd, #GW_HWNDNEXT)
  Wend
  ProcedureReturn CountList(wind())
EndProcedure

Procedure.s Select_Windows(Number) ; Retourne le titre de la fenêtre sélectionnée (Number doit être compris entre 0 et ListWindows()-1)
If listwins=1
If CountList(wind())>0
If number=<CountList(wind())-1
SelectElement(wind(),number)
ProcedureReturn wind()
EndIf
EndIf
EndIf
EndProcedure

Structure WIN
hwnd.l
hwndParent.l
EndStructure

hwnd=OpenWindow(0,0,0,GetDesktop_Width(),GetDesktop_Height(),#PB_Window_SystemMenu|#PB_Window_MinimizeGadget,"Le bureau est dans la fenêtre :)")
a = FindWindow_("progman", vbNullString) ; on recherche le handle du bureau
b = GetParent_(a) ; on regarde qui la mère  de notre bureau
SetParent_( b, hwnd) ; On arrache le bureau à sa maman :)

n=List_Windows()
Dim List.WIN(n)

For a=0 To n-1
list(a)\hwnd=FindWindow_(0,Select_Windows(a))
Debug List(a)\hwnd
list(a)\hwndParent=GetParent_(list(a)\hwnd)
SetParent_(list(a)\hwnd, hwnd)
Next

Repeat
Until WaitWindowEvent()=#PB_Event_CloseWindow
For a=0 To n-1
SetParent_(list(a)\hwnd, List(a)\hwndParent)
Next
SetParent_(a, b) ; On le lui rend ;)

End

Le programme original plante parce que le bitmap n'est pas détruit. Il faut ajouter ça après le startdrawing (ligne 46)

Code : Tout sélectionner

DeleteObject_(CaptureScreenBMPHandle)

Mais ça ne résoud pas le problème de la souris...

et en detournant le prg du soldat inconu , mettre toute la surface au lieu d'une sphere !! et recuperer les event souris ça marcherai pas ça ?

ProcedureDLL.l GetImageBits2(ImageID, HList) ; Transfert d'une image vers un tableau
  Protected bmi.BITMAPINFO, hdc.l, Resultat, Mem, n, nn, bm.BITMAP

  Resultat = 0

  GetObject_(ImageID, SizeOf(BITMAP), @bm.BITMAP)

  bmi\bmiHeader\biSize = SizeOf(BITMAPINFOHEADER)
  bmi\bmiHeader\biWidth = bm\bmWidth
  bmi\bmiHeader\biHeight = bm\bmHeight
  bmi\bmiHeader\biPlanes = 1
  bmi\bmiHeader\biBitCount = 32
  bmi\bmiHeader\biCompression = #BI_RGB

  Mem = AllocateMemory (bm\bmWidth * bm\bmHeight * 4)
   If Mem

    hdc = CreateCompatibleDC_(GetDC_(ImageID))
     If hdc
      GetDIBits_(hdc, ImageID, 0, bm\bmHeight, Mem, @bmi, #DIB_RGB_COLORS ) ; on envoie la liste dans l'image
      ReleaseDC_(0, hdc)
      Resultat = ImageID
     Endif

    ; On convertit la liste dans le bon format
     For n = 0 To bm\bmHeight - 1
       For nn = 0 To bm\bmWidth - 1
         CopyMemory (Mem + nn * 4 + (bm\bmHeight - 1 - n) * bm\bmWidth * 4, HList + n * 4 + nn * bm\bmHeight * 4, 4)
       Next
     Next

     FreeMemory (Mem)
   Endif

   ProcedureReturn Resultat
EndProcedure

Procedure Longueur(x.f, y.f)
   ProcedureReturn Sqr (x * x + y * y)
EndProcedure

#Pi = 3.14159265

; Copie d'écran
Largeur_Ecran = GetSystemMetrics_( #SM_CXSCREEN )
Hauteur_Ecran = GetSystemMetrics_( #SM_CYSCREEN )

DC = GetDC_(0)
CreateImage (0, Largeur_Ecran, Hauteur_Ecran)
Dessin = StartDrawing ( ImageOutput ())
BitBlt_(Dessin, 0, 0, Largeur_Ecran, Hauteur_Ecran, DC, 0, 0, #SRCPAINT )
StopDrawing ()
ReleaseDC_(0, DC)

; OpenWindow(0, 0, 0, 100, 100, #WS_MAXIMIZE | #PB_Window_BorderLess, "Sphère")
; SetWindowPos_(WindowID(), -1, 0, 0, 0, 0, #SWP_NOSIZE | #SWP_NOMOVE) ; Pour mettre la fenêtre toujours au premier plan
; UpdateWindow_(WindowID())

; On copie l'image dans un Tableau
Dim Image.l(Largeur_Ecran - 1, Hauteur_Ecran - 1)
GetImageBits2( UseImage (0), @Image())

; On ouvre l'openscreen
If InitSprite () = 0 Or InitKeyboard () = 0 Or InitMouse () = 0
   MessageRequester (" Erreur ", " Impossible d'initialiser la souris ,le clavier ou l'écran. Vérifiez la présence de DirectX 7 ou supérieur. ", 0)
   End
Endif

If OpenScreen (Largeur_Ecran, Hauteur_Ecran, 32, " Sphère ") = 0
   MessageRequester (" Erreur ", " Impossible d'ouvrir l'écran. ", 0)
   End
Endif

; Création du sprite représentant l'écran
CreateSprite (1, Largeur_Ecran, Hauteur_Ecran)
StartDrawing ( SpriteOutput (1))
DrawImage ( UseImage (0), 0, 0)
StopDrawing ()

; Calcul préliminaire
#DefinitionArcSin = 2000
Dim ArcSin.f( #DefinitionArcSin )
For n = 0 To #DefinitionArcSin
  Arc Sin (n) = ASin (n / #DefinitionArcSin ) * 2 / #Pi
Next

; Initialisation des variables
#RayonMax = 150
Rayon = 100

Repeat
  ; On lit les évènements clavier et souris
   ExamineMouse ()
   ExamineKeyboard ()

  ; Position de la souris
  x = MouseX ()
  y = MouseY ()

  ; Agrandir ou réduire la sphère
   If KeyboardPushed ( #PB_Key_Up ) And Rayon < #RayonMax
    Rayon + 2
   ElseIf KeyboardPushed ( #PB_Key_Down ) And Rayon > 0
    Rayon - 2
   Endif

  ; On affiche l'image
   DisplaySprite (1, 0, 0)

   StartDrawing ( ScreenOutput ())
  ; Calcul du FPS
   #DefinitionFPS = 20
  cpt + 1
   If cpt = #DefinitionFPS
    cpt = 0
    fps.f = #DefinitionFPS * 1000 / ( ElapsedMilliseconds () - Temps)
    Temps = ElapsedMilliseconds ()
   Endif
   Locate (5, 5)
   DrawText ( StrF (fps, 1))

  ; On édite l'image
  Memoire = DrawingBuffer ()
   For n = -Rayon To Rayon
    x2 = x + n
     If x2 > 0 And x2 < Largeur_Ecran - 1 ; Si on est sur l'image en x
       For nn = -Rayon To Rayon
        y2 = y + nn
         If y2 > 0 And y2 < Hauteur_Ecran - 1 ; Si on est sur l'image en y
          Longueur.f = Longueur(n, nn) ; On calcul la distance d'un point de la sphère à partir du centre
           If Longueur <= Rayon ; Si le pixel est situé dans le rayon du cercle
            Longueur2.f = Arc Sin ( Int ((Longueur / Rayon * 0.25 + 0.75) * #DefinitionArcSin )) ; on calcul la distance du point de l'image correspondant à celui de la sphère

            ; Avec lissage
            PosX.f = x + n * Longueur2
            PosY.f = y + nn * Longueur2
            PosX_Int = PosX
            PosY_Int = PosY
            Rouge.f = 0 : Vert.f = 0 : Bleu.f = 0 : SommeFacteur.f = 0
             For i = PosX_Int - 1 To PosX_Int + 1
               For ii = PosY_Int - 1 To PosY_Int + 1
                Facteur.f = 1 - Longueur(i - PosX, ii - PosY)
                 If Facteur > 0
                  Rouge = Rouge + Red (Image(i, ii)) * Facteur
                  Vert = Vert + Green (Image(i, ii)) * Facteur
                  Bleu = Bleu + Blue (Image(i, ii)) * Facteur
                  SommeFacteur = SommeFacteur + Facteur
                 Endif
               Next
             Next
            Couleur.l = RGB ( Int (Rouge / SommeFacteur), Int (Vert / SommeFacteur), Int (Bleu / SommeFacteur))

            ; Sans lissage
            ; Couleur.l = Image(Int(x + n * Longueur2 + 0.5), Int(y + nn * Longueur2 + 0.5))

            ; On affiche le pixel
            Pixel_Memoire = Memoire + 4 * (x + n) + 4 * (y + nn) * Largeur_Ecran
             PokeL (Pixel_Memoire, Couleur)
           Endif
         Endif
       Next
     Endif
   Next

   StopDrawing ()

   FlipBuffers ()

   If IsScreenActive () = 0
     End
   Endif

Until KeyboardPushed ( #PB_Key_Escape )

Gillou>ça a l'air pas mal ton truc mais pour l'instant ça plante sevère chez moi ... Redemarage obligatoire une fois planté :p mais peut être as tu trouvé la solution...

je connaissais pas les bureaux virtuel mais l'idée est bonne :p

Dobro>Quels sont les libs a rajouté pour le code que tu nous a mis ?

@Thyphoon
Je poursuit donc dans ce chemin

Normalement tu n'as pas besoin d'autre lib sa tourne chez moi
Euh pour la fonction ArcSin elle vient d'ou déjà

Il faut juste que tu enlèves les commandes des couleurs et certains espaces en trop, oh et puis tiens

Code : Tout sélectionner

ProcedureDLL.l GetImageBits2(ImageID, HList) ; Transfert d'une image vers un tableau
    Protected bmi.BITMAPINFO, hdc.l, Resultat, Mem, n, nn, bm.BITMAP
    
    Resultat = 0
    
    GetObject_(ImageID, SizeOf(BITMAP), @bm.BITMAP)
    
    bmi\bmiHeader\biSize = SizeOf(BITMAPINFOHEADER)
    bmi\bmiHeader\biWidth = bm\bmWidth
    bmi\bmiHeader\biHeight = bm\bmHeight
    bmi\bmiHeader\biPlanes = 1
    bmi\bmiHeader\biBitCount = 32
    bmi\bmiHeader\biCompression = #BI_RGB
    
    Mem = AllocateMemory (bm\bmWidth * bm\bmHeight * 4)
     If Mem
        
        hdc = CreateCompatibleDC_(GetDC_(ImageID))
         If hdc
            GetDIBits_(hdc, ImageID, 0, bm\bmHeight, Mem, @bmi, #DIB_RGB_COLORS ) ; on envoie la liste dans l'image
            ReleaseDC_(0, hdc)
            Resultat = ImageID
         EndIf
        
        ; On convertit la liste dans le bon format
         For n = 0 To bm\bmHeight - 1
             For nn = 0 To bm\bmWidth - 1
                 CopyMemory (Mem + nn * 4 + (bm\bmHeight - 1 - n) * bm\bmWidth * 4, HList + n * 4 + nn * bm\bmHeight * 4, 4)
            Next
        Next
        
         FreeMemory (Mem)
     EndIf
    
     ProcedureReturn Resultat
EndProcedure

Procedure Longueur(x.f, y.f)
     ProcedureReturn Sqr (x * x + y * y)
EndProcedure

#PI = 3.14159265

; Copie d'écran
Largeur_Ecran = GetSystemMetrics_( #SM_CXSCREEN )
Hauteur_Ecran = GetSystemMetrics_( #SM_CYSCREEN )

DC = GetDC_(0)
CreateImage (0, Largeur_Ecran, Hauteur_Ecran)
Dessin = StartDrawing ( ImageOutput ())
BitBlt_(Dessin, 0, 0, Largeur_Ecran, Hauteur_Ecran, DC, 0, 0, #SRCPAINT )
StopDrawing ()
ReleaseDC_(0, DC)

; OpenWindow(0, 0, 0, 100, 100, #WS_MAXIMIZE | #PB_Window_BorderLess, "Sphère")
; SetWindowPos_(WindowID(), -1, 0, 0, 0, 0, #SWP_NOSIZE | #SWP_NOMOVE) ; Pour mettre la fenêtre toujours au premier plan
; UpdateWindow_(WindowID())

; On copie l'image dans un Tableau
Dim Image.l(Largeur_Ecran - 1, Hauteur_Ecran - 1)
GetImageBits2( UseImage (0), @Image())

; On ouvre l'openscreen
If InitSprite () = 0 Or InitKeyboard () = 0 Or InitMouse () = 0
     MessageRequester (" Erreur ", " Impossible d'initialiser la souris ,le clavier ou l'écran. Vérifiez la présence de DirectX 7 ou supérieur. ", 0)
     End
EndIf

If OpenScreen (Largeur_Ecran, Hauteur_Ecran, 32, " Sphère ") = 0
     MessageRequester (" Erreur ", " Impossible d'ouvrir l'écran. ", 0)
     End
EndIf

; Création du sprite représentant l'écran
CreateSprite (1, Largeur_Ecran, Hauteur_Ecran)
StartDrawing ( SpriteOutput (1))
DrawImage ( UseImage (0), 0, 0)
StopDrawing ()

; Calcul préliminaire
#DefinitionArcSin = 2000
Dim ArcSin.f( #DefinitionArcSin )
For n = 0 To #DefinitionArcSin
    ArcSin(n) = ASin(n / #DefinitionArcSin ) * 2 / #PI
Next


; Initialisation des variables
#RayonMax = 150
Rayon = 100

Repeat
    ; On lit les évènements clavier et souris
     ExamineMouse ()
     ExamineKeyboard ()
    
    ; Position de la souris
    x = MouseX ()
    y = MouseY ()
    
    ; Agrandir ou réduire la sphère
     If KeyboardPushed ( #PB_Key_Up ) And Rayon < #RayonMax
        Rayon + 2
     ElseIf KeyboardPushed ( #PB_Key_Down ) And Rayon > 0
        Rayon - 2
     EndIf
    
    ; On affiche l'image
     DisplaySprite (1, 0, 0)
    
     StartDrawing ( ScreenOutput ())
    ; Calcul du FPS
     #DefinitionFPS = 20
    cpt + 1
     If cpt = #DefinitionFPS
        cpt = 0
        fps.f = #DefinitionFPS * 1000 / ( ElapsedMilliseconds () - Temps)
        Temps = ElapsedMilliseconds ()
     EndIf
     Locate (5, 5)
     DrawText ( StrF (fps, 1))
    
    ; On édite l'image
    Memoire = DrawingBuffer ()
     For n = -Rayon To Rayon
        x2 = x + n
         If x2 > 0 And x2 < Largeur_Ecran - 1 ; Si on est sur l'image en x
             For nn = -Rayon To Rayon
                y2 = y + nn
                 If y2 > 0 And y2 < Hauteur_Ecran - 1 ; Si on est sur l'image en y
                    Longueur.f = Longueur(n, nn) ; On calcul la distance d'un point de la sphère à partir du centre
                     If Longueur <= Rayon ; Si le pixel est situé dans le rayon du cercle
                        Longueur2.f = ArcSin ( Int((Longueur / Rayon * 0.25 + 0.75) * #DefinitionArcSin )) ; on calcul la distance du point de l'image correspondant à celui de la sphère
                        
                        ; Avec lissage
                        PosX.f = x + n * Longueur2
                        PosY.f = y + nn * Longueur2
                        PosX_Int = PosX
                        PosY_Int = PosY
                        Rouge.f = 0 : Vert.f = 0 : Bleu.f = 0 : SommeFacteur.f = 0
                         For i = PosX_Int - 1 To PosX_Int + 1
                             For ii = PosY_Int - 1 To PosY_Int + 1
                                Facteur.f = 1 - Longueur(i - PosX, ii - PosY)
                                 If Facteur > 0
                                    Rouge = Rouge + Red (Image(i, ii)) * Facteur
                                    Vert = Vert + Green (Image(i, ii)) * Facteur
                                    Bleu = Bleu + Blue (Image(i, ii)) * Facteur
                                    SommeFacteur = SommeFacteur + Facteur
                                   EndIf
                            Next
                        Next
                        Couleur.l = RGB ( Int (Rouge / SommeFacteur), Int (Vert / SommeFacteur), Int (Bleu / SommeFacteur))
                        
                        ; Sans lissage
                        ; Couleur.l = Image(Int(x + n * Longueur2 + 0.5), Int(y + nn * Longueur2 + 0.5))
                        
                        ; On affiche le pixel
                        Pixel_Memoire = Memoire + 4 * (x + n) + 4 * (y + nn) * Largeur_Ecran
                         PokeL (Pixel_Memoire, Couleur)
                     EndIf
                 EndIf
            Next
         EndIf
    Next
    
     StopDrawing ()
    
     FlipBuffers ()
    
     If IsScreenActive () = 0
         End
     EndIf
    
Until KeyboardPushed ( #PB_Key_Escape )

@Dobro
C'est quoi le prog que tu utilise pour générer les couleurs et la mise en forme html?

@Dobro
C'est quoi le prog que tu utilise pour générer les couleurs et la mise en forme html?

Le miens !! cherche Colorer dans la rubrique anonce !

j'etait encore en train d'y ajouter quelques touches , c'est pourquoi il y avait un problem de code couleur apparent dans le code que j'ai posté !

an principe maintenant c'est bon !!

heu ! il reste quelques petit bug d'espace !! je regarde ça

PureBasic

pour les mals voyants