[VB6]: Screenshot dell'intero desktop

[nandoar]

salve a tutti ho la necessita di fare uno sceen shot di tutto il desktop e nn sl di un form pero su internet ho trovato questo codice sl che nn mi funziona perche nn so quali sn le api potreste aiutarmi?


Dim hWnd As Long
Dim hDC As Long


hWnd = GetDesktopWindow()
hDC = GetWindowDC(hWnd)
BitBlt Picture1.hDC, 0, 0, 20000, 20000, hDC, 0, 0, SRCCOPY
ReleaseDC(hWnd, hDC)
SavePicture Picture1.Image, "C:\a.bmp"

[oregon]

Uno screenshot ... non sceen ...

Le API sono

GetDesktopWindow
GetWindowDC
BitBlt
ReleaseDC

Inoltre c'e' la costante SRCCOPY

Ma prima di darti le dichiarazioni, davvero non le hai trovato su Internet?

Se con google cerchi

GetDesktopWindow declare

e cosi' via, trovi un sacco di informazioni ... cosi' arrivi prima ...

[nandoar]

Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long
Private Declare Function GetWindowDC Lib "user32.dll" (ByVal hWnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32.dll" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function ReleaseDC Lib "user32.dll" (ByVal hWnd As Long, ByVal hDC As Long) As Long

Private Sub Command1_Click()
Dim hWnd As Long
Dim hDC As Long
Const SRCCOPY = 1

hWnd = GetDesktopWindow()
hDC = GetWindowDC(hWnd)
BitBlt Picture1.hDC, 0, 0, 20000, 20000, hDC, 0, 0, SRCCOPY
ReleaseDC hWnd, hDC
SavePicture Picture1.Image, "C:\a.bmp"

End Sub

niente da fare con questo codice mi fa uscire tutta la picture nera

[oregon]

La costante deve essere

vbSrcCopy

[nandoar]

nn ho capito come definirla la constante

[oregon]

Quella e' una costante di VB ... e' gia' definita.

[nandoar]

quindi devo scrivere cosi?
Const SRCCOPY = vbSrcCopy

[oregon]

No!

Mi sembrava di essere stato abbastanza chiaro ... non devi usare la SRCCOPY ma la vbSrcCopy !

[nandoar]

scusa perche3 mettendo l'altra cosa gia mi funzionava cmq come la scrivo?

[oregon]

Originariamente inviato da nandoar
scusa perche3 mettendo l'altra cosa gia mi funzionava cmq come la scrivo?

Non capisco il senso di questa frase

(per favore evita abbreviazioni da SMS ...)