Je sais pas si vous les connaissez
C'est des "zessgons" qui se tremoussent en petite tenue, sur le bureau
Mais c'est un truc de ouf
C'est presque du 3D
Elle pose les mains sur la barre des taches, elles s'assoient sur le bord de l'ecran, ou jurerais pourvoir les toucher
Attention, comme c'est presque une vraie, la société KCC corporation, décline toutes responsabilités en cas d'embrouilles avec "bobonne" et divorce
Mais le hic, car vous vous doutez que y'en a un....si je post dans cette section, c'est que je voudrais la mettre dans une cage, mais pas moyen
J'ai essayé des captures d'ecran en video avec CamStudio et Wink, et j'ai essayé MWSnap pour les images et pas moyen
Vous avez une idée de comment ils peuvent faire pour l'incrustation toujours devant ???
Et est ce que PB pourrait faire quelque chose pour moi, a votre avis ???
http://www74.virtuagirlhd.com/fr/community.php?
Bon la je crois que c'est mission impossible, car elle est drolement maligne la coquine
Car j'ai essayé ce code de CHRIS
Code : Tout sélectionner
;/ Capture d'une zone d'écran
;/ Auteur : Chris @ http://forum.purebasic.fr
;- Constantes
Enumeration
#FullWindow
#FullImage
#CaptureWindow
#CaptureImage
EndEnumeration
;- Variables
; Récupération des dimensions de l'écran
Global Window_Width : Window_Width = GetSystemMetrics_(#SM_CXSCREEN)
Global Window_Height : Window_Height = GetSystemMetrics_(#SM_CYSCREEN)
Global quit
Global Chemin
Define.w x, y, w, h
Define.s Dossier
Flag = 0
;- Déclarations
; Déclaration des Plug-Ins graphiques
UseJPEGImageEncoder()
UsePNGImageEncoder()
;- Procédures
Procedure RefreshGraphic()
StartDrawing(WindowOutput(0))
DrawImage(ImageID(#FullImage), 0, 0)
StopDrawing()
EndProcedure
Procedure CreeWindow(left.w, top.w, Width.l, Height.l)
hwnd = OpenWindow(#CaptureWindow, left, top, Width, Height, "", #WS_POPUPWINDOW)
CreateGadgetList(WindowID(#CaptureWindow))
hGadget = ImageGadget(#CaptureImage, 0, 0, Width, Height, ImageID(#FullImage))
GrabImage(#FullImage, #CaptureImage, left, top, Width, Height)
StartDrawing(WindowOutput(#CaptureWindow))
DrawImage(ImageID(#CaptureImage), 0, 0, Width, Height)
StopDrawing()
ProcedureReturn hwnd
EndProcedure
Procedure SauveFichier()
Select MessageRequester("Sauvegarde", "Voulez-vous sauvegarder cette image ?", #PB_MessageRequester_YesNo | #MB_ICONQUESTION)
Case #IDYES
Fichier$ = SaveFileRequester("Sauver une image", "Image.bmp", "Image BitMap|*.bmp|Image Jpg|*.jpg;*.jpeg|Image Png|*.png", 0)
Extension$ = GetExtensionPart(Fichier$)
Select SelectedFilePattern()
Case 0 : Ext$ = "bmp"
Case 1 : Ext$ = "jpg"
Case 2 : Ext$ = "png"
EndSelect
If Extension$ = "" Or Extension$ <> Ext$
Titre$ =GetFilePart(Fichier$)
Titre$=Left(Titre$,Len(Titre$)-Len(GetExtensionPart(Fichier$)))
If Right(Titre$,1)<>"." : Titre$ + "." : EndIf
If Ext$ = "bmp" And Extension$ <> "bmp" ; l'User a saisi directement l'extension
Image$ = GetPathPart(Fichier$)+Titre$+ Extension$
Else
Image$ = GetPathPart(Fichier$)+Titre$+ Ext$
EndIf
Else
Image$ = Fichier$
EndIf
Extension$ = GetExtensionPart(Image$)
Select Extension$
Case "bmp" : PlugIn = #PB_ImagePlugin_BMP : Option = 0
Case "jpg" : PlugIn = #PB_ImagePlugin_JPEG : Option = 10
Case "png" : PlugIn = #PB_ImagePlugin_PNG : Option = 0
EndSelect
SaveImage(#CaptureImage, Image$, PlugIn,Option)
CloseWindow(#CaptureWindow) : quit = 1
Case #IDNO
CloseWindow(#CaptureWindow) : quit = 1
EndSelect
EndProcedure
;-
; Creation de l'image pour la capture plein ecran. Se lance dès le départ,
; et fait une capture de la totalité de l'écran
hBitmap = CreateImage(#FullImage, Window_Width, Window_Height)
hdc = StartDrawing(ImageOutput(#FullImage))
SelectObject_(hdc, hBitmap)
BitBlt_(hdc, 0, 0, Window_Width, Window_Height, GetDC_(GetDesktopWindow_()), 0, 0, #SRCCOPY)
StopDrawing()
DeleteDC_(hdc)
; Creation de la fenêtre de capture plein ecran, et affichage de la capture
hFullWindow = OpenWindow(#FullWindow, 0, 0, Window_Width, Window_Height, "", #WS_POPUP)
; CreateGadgetList(WindowID(#FullWindow))
; ImageGadget(#FullImage, 0, 0, Window_Width, Window_Height, hBitmap)
; Position du curseur et Coordonnées du rectangle de sélection
CursorPosition.POINT
PosCursor.RECT
;- Boucle principale
Repeat
GetCursorPos_(CursorPosition) ; Récupération de la position du curseur
xpos = CursorPosition\x ; Récupération des valeurs brutes du curseur
ypos = CursorPosition\y ; pour la conversion après la capture
If Flag = 1 ; Flag = 1, Traçage du rectangle, Flag = 0, Capture de la zone
PosCursor\right = CursorPosition\x : w = PosCursor\right - x
PosCursor\bottom = CursorPosition\y : h = PosCursor\bottom - y
EndIf
Select WindowEvent()
; Evenements de la souris : Détection du clic gauche
Case #WM_LBUTTONDOWN ; 1° clic gauche, récupération de X et Y
If Flag = 0 ; 2° Clic gauche, récupération de W et H
PosCursor\left = CursorPosition\x : x = PosCursor\left
PosCursor\top = CursorPosition\y : y = PosCursor\top
Flag = 1
Else
Flag = 0
If w < 0 : x = xpos : w = ~w : EndIf ; Inversion des valeurs X et Y si négatives
If h < 0 : y = ypos : h = ~h : EndIf
; Fermeture de la fenêtre principale
CloseWindow(#FullWindow)
; Ouverture de la fenêtre avec la zone capturée
CreeWindow(x, y, w, h)
; Sauvegarde de l'image capturée
SauveFichier()
EndIf
Debug Flag
; Capture de la zone : Détection du mouvement de la souris
Case #WM_MOUSEMOVE
RefreshGraphic()
If Flag = 1
StartDrawing(WindowOutput(#FullWindow))
DrawingMode(4)
Box(x, y, w, h)
StopDrawing()
EndIf
; Fermeture du programme
EndSelect
Delay(1)
ForEver
Merci
Bonne journée
)
(j'en doutais pas franchement)
)
