I don't know if you know her
It's splendids pin-up who wriggle and jiggle on your desktop.
It's incredible, she is here
You can almost touch her....
but when your wife is not here 
Because, when your personal housemaid is here.....no no no don't enable her, i'm not responsible of your divorce
She put his hand on the taskbar, his hair fall down before the task bar, it's incredible of reality
Well, i post in this section, because, i want catch her, and she is very malign, she don't appears in any capture
I use CamStudio, and Wink for video and MWSnap for picture and it's the same thing.
Have you an idea what is the method to it use ???
And most of all a method to close her in my hard drive
PB can do at your mind something for me ???
http://www74.virtuagirlhd.com/fr/community.php?
I have use now this code of CHRIS and it's the same thing...
She is not a girl ....it's a GHOST
Code: Select all
;/ 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
Thanks for your help
And good day
) and saved several hundred images to my harddisk. I set my wallpaper to a solid color and auto-hid the taskbar to get nice clean images and used IncludeBinary to store them in the executable. You really can't tell my player from theirs. If you want the code I'll post it tomorrow. Btw, Sparkie's CAPTUREBLT addition is necessary, iirc it isn't known by PB but it's $40000000.
