PureBasic Forums - English

Posted: **Sun Mar 08, 2009 12:14 am**

Hello at all

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

I think that again a time......i ask the impossible

Thanks for your help
And good day

Posted: **Sun Mar 08, 2009 4:08 am**

After 10 minutes of explaining to my wife why I had strippers on my screen, and promisng her that SHE is the only one for me, I have a solution for you KCC.

Line 94 needs a little boost by adding #CAPTUREBLT for the Layered window.

Code: Select all

BitBlt_(hdc, 0, 0, Window_Width, Window_Height, GetDC_(GetDesktopWindow_()), 0, 0, #SRCCOPY | #CAPTUREBLT)

Posted: **Sun Mar 08, 2009 5:58 am**

Code: Select all

BitBonk_(hdc, 0, 0, Window_Width, Window_Height, GetDC_(StopKCCHormones_()), 0, 0, #XPNONOOKIE | #CONCRETEUNDIES)

Posted: **Sun Mar 08, 2009 8:20 am**

You're not helping me out here, KCC. I'm trying to be a good boy. However, since you've corrupted me already, I made a little player with my favorite girls. I used Fangbeast's code (with the help of a few macros and custom constant definitions

) 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.

Posted: **Sun Mar 08, 2009 10:13 am**

my code???????

/me falls on the carpet howling like a monkey's trousers

Posted: **Sun Mar 08, 2009 10:55 am**

My all FRIENDS !!!!!
I know i repeat allways the same words, but when this morning i have open the forum, i'm sure that i have no answer

And even perhaps, a bad sentence style : "KCC you begin to break own hazelnuts, with your stupid question, and we are not interesting by your monkey busisness."

And i don't believe my eyes i have not bad answers .....

I have one, two, three cool answers

And not littles answers of "blabla", but solutions

Perhaps the solution of Fangsbeat is a little bit "blabla"

My friend FANGSBEAT and two of my heroes MASTER SPARKIE and MASTER NETMAESTRO (My little frog that i admire always his smile)

So what you want that i you say ........

I'm sad to say to you, another time

I LOVE YOU !!!!

I thanks all of you two, for your jewel help

Because KCC, try to catch this little female, with all the method......and even with the fingers.
KCC have break his screen when he want catch her with screwdriver

Thanks to you, KCC can buy a new screen and keep it a long time

Again thanks...never the word can say to you, how i love and how i'm proud of you all

Apparently, i'm happy because you have found my little female very nice

So i'm not alone

Even.....the man who have created this program is ingenious

You're not helping me out here, KCC. I'm trying to be a good boy.

I'm sure you are a good boy......but a bad sorceress change you in nice little green frog with smile

If you want .....i can make a kiss to you and change another time you to the good boy

(Just for information...i have nothing against them, but i'm not homosexual

, i'm maried two

)
It's just for delete the bad spell of little frog

However, since you've corrupted me already

I'm surprising, because like you don't talk to me for a long time ago, i'm very sad and believe that the GREAT MASTER NETMAESTRO my hero, don't like KCC

I made a little player with my favorite girls. I used Fangbeast's code (with the help of a few macros and custom constant definitions ) 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.

You give to me a big fraenum of dribble on my mouth

You are so cruel with little KCC

If you want the code I'll post it tomorrow.

If i want your code

If i want your code , but obviously i want

Ask to a blind if he want to see
Ask to a palsy if he want to walk
Ask to KCC is he want to be intelligent

Now, i stay before my screen, keep this thread, and i press the key F5 all the minut

I don't know what you say at all.
But the one thing that i can say to you....it's that i'm very proud to know you.....and i thanks the gods to have create you, and give me the chance to cross your path

I wish you three a very very merveillous day

Your furuncle KCC

Posted: **Sun Mar 08, 2009 11:44 am**

In fact you have not ask to me why i want this lower nice female.
Then i go to say you why ...

I'm tired of the "normal" windows.
And i search how can i, make it more funny, happy or nice....

So i had an idea

Why not put a little sex women on the top of the windows of my futur application

Then i have search two days on the web, and found nothing like movie of woman who dance or strip tease before a green/black/white background

And i have found this

I know the job is not finished....but if i catch her, i explain to her that, if she don't sitdown on my windows.....i got spanked at her, on his little pink stern

And it's easy because she is nearly naked

Posted: **Sun Mar 08, 2009 12:00 pm**

Btw, Sparkie's CAPTUREBLT addition is necessary, iirc it isn't known by PB but it's $40000000

I'm really a WAFER

I have read this sentence, and believe you say, that SPARKIE have do an error of code, and you give the price of the good answer $40000000.
Then, i have laugh, and try to run the code

In fact, i have understand your sentence, when the code don't works, and i search alone, like a grow, the value of #CAPTUREBLT

And i found it in a IDLE code

NETMAESTRO ........you forget that you talk, at an OYSTER

And an OYSTER, don't understand a sentence like yours.......he laugh like an IDIOT

(Like is call KCC by SROD

)

The next time, you must say, for to be understand by the OYSTER :

Netmaestro to the KCC OYSTER wrote:Add this line at the beginning of the code #CAPTUREBLT = $40000000

It's normal you don't talk very good the OYSTER language.....
Look at SPARKIE, he know how speak to his new assistant KCCSKIE (Because KCC is proud to be the new assistant of GREAT SPARKIE, like a second dog

).

So.... since he have, this "Great" assistant

he know speak OYSTER language :
This is the example of OYSTER talk

My hero SPARKIE wrote:Line 94 needs a little boost by adding #CAPTUREBLT for the Layered window.

You see,...... there are :
The number of the line
And the full sentence to paste

And with this KCC have understand the first time

Posted: **Sun Mar 08, 2009 12:21 pm**

> Ask to a blind if he want to see
> Ask to a palsy if he want to walk
> Ask to KCC is he want to be intelligent

Oh my, you need to do standup comedy! Seriously!

Posted: **Sun Mar 08, 2009 12:34 pm**

Oh my, you need to do standup comedy! Seriously!

Thank you very much PB

This compliment is so sweet in my ears

And the more funny.....it's that i don't understand half of i wrote

Posted: **Sun Mar 08, 2009 2:03 pm**

And the more funny.....it's that i don't understand half of i wrote

That's okay, the rest of us do not understand the other half!

Posted: **Sun Mar 08, 2009 3:47 pm**

That's okay, the rest of us do not understand the other half!

You too you are most funny

I have an idea, i take you for assistant in my new standup comedy

PB is the productor obviously, because the idea is his

MASTER SROD,.... you have find your IDIOT even in this thread ???

Perhaps the little KCC fretting to his MASTER :roll:
Because is no KCC, no stupid question in your splendid thread COMATE and it's sad

MASTER SROD is too strong for all see in the forum

But i don't understand how you can recognize KCC

Because KCC is hidden incognito

I don't believe my eyes, i have no one, no two, no three, but four of my super heroes in my lower thread

I'm the most happy programmer of the world !!!!!

In my humble thread, i have put together, all this heroes

Then KCC today have create a new movie

Ladies and gentleman.......
After the little success of X MEN.....

This is the one, the first, the true

X PURE MEN !!!

One thousand of millions of thanks to help your little KCC in the bad wind of the programming

And never forget that....if you need a floor cloth for your TEAM......i'm here

)

Posted: **Sun Mar 08, 2009 3:57 pm**

Hummmm hummm !!!!
I have a doubt now ????? :roll:

Perhaps, all my super heroes is not here for help KCC :roll:

It's perhaps also......for catch the little naked female

There are even site to fan of VGHD

http://www.civxl.net/

Posted: **Sun Mar 08, 2009 5:28 pm**

I move i move....apparently each time you install the software, we are another female...
There are an army of females.....it's dangerous for own brain

Me ......i ressemble at a very big accordion.....but her.....pfffffff no little button, no fat, any furuncle....
When you see what is exist......and what you see what we have like women

(French "inconnus" sentences

)

Dangerous dangerous for sexual stability ......dangerous :roll:
Already it's difficult to me to program....but now .....

There are even two female together who twiddle between her

Since yesterday.....i have shutdown my TV

So she enter in your PC with download in the same time you have the back turned in the folder "Models"
I have tried to add other models with copy/paste, but after any female appears

Oooouuuuiiinnn !!!! i shriek Oooouuuuiiinnn !!!!...
If you don't comme back, i go to all say to NETMAESTRO and SPARKIE Oooouuuuiiinnn !!!!
Because KCC know very good the famous TEAM X PURE .....then ATTENTION !!!

I have been obliged to reinstall the program

Posted: **Sun Mar 08, 2009 7:19 pm**

Here's the capture code I used get the images to make my player:

Code: Select all

Macro BitBonk_ : BitBlt_ : EndMacro
Macro StopKCCHormones_ : GetDesktopWindow_ : EndMacro

Declare capture(void)
Declare savepics()

#XPNONOOKIE = #SRCCOPY
#CONCRETEUNDIES = $40000000

Global tid, threadstop, savepath$ = "f:\girls\"

For i = 1 To 200
  CreateImage(i, 640,640,32)
  If Not IsImage(i)
    Debug "image "+Str(i)+" failed"
  EndIf
Next

OpenWindow(0,0,0,220,60,"",#PB_Window_SystemMenu)
ButtonGadget(0,20,18,60,20,"start")
ButtonGadget(1,82,18,60,20,"stop")
ButtonGadget(2,144,18,60,20,"save")

Repeat
  ev=WaitWindowEvent()
  Select ev
    Case #PB_Event_Gadget
      Select EventGadget()
        Case 0
          tid = CreateThread(@capture(),0)
        Case 1
          threadstop = #True
        Case 2
          savepics() 
      EndSelect
  EndSelect
Until ev = #PB_Event_CloseWindow

Procedure capture(void)
  i=1
  threadstop = #False
  win = FindWindow_("VGHD Player",0)
  Repeat
    GetWindowPlacement_(win, @wp.WINDOWPLACEMENT)
    w = wp\rcNormalPosition\right-wp\rcNormalPosition\left
    h = wp\rcNormalPosition\bottom-wp\rcNormalPosition\top
    x = wp\rcNormalPosition\left
    y = wp\rcNormalPosition\top
    ResizeImage(i,w,h)
    targetDC = StartDrawing(ImageOutput(i))
      BitBonk_(targetDC, 0, 0,w,h, GetDC_(StopKCCHormones_()), x, y, #XPNONOOKIE | #CONCRETEUNDIES)
    StopDrawing()
    ReleaseDC_(StopKCCHormones_(), hdc)
    Delay(30)
    i+1
  Until threadstop = #True Or i > 200
  Debug "thread finished"
EndProcedure

Procedure savepics()
  UsePNGImageEncoder()
  For i = 1 To 200
    SaveImage(i, savepath$+"girl_"+Str(i)+".png",#PB_ImagePlugin_PNG)
  Next
  Debug "done"
EndProcedure

PureBasic Forums - English

Virtual girl, i want it. OOouuiinn !!![Resolved by the GODS]

Virtual girl, i want it. OOouuiinn !!![Resolved by the GODS]