ScreenShot

hehe nåå det.. jamen det gør du ved at trykke på Print screen på dit tastatur, og så gå ind i et billedebehandlingsprogram og sætte det ind.

Med Venlig Hilsen: Chadi
http://chadi.h4f.dk

Ved brug af Visual Basic.. he he

Der findes vis ingen nemmere løsning end nedenstående, men jeg synes nu heller ikke den er særlig kompliceret.

Opret nyt projekt. Indsæt en PictureBox (Picture1) med AutoRedraw = True og en knap (Command1).

Indsæt denne kode:

Option Explicit

' Windows API:

Private Declare Function BitBlt Lib "gdi32" (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 GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Const HWND_DESKTOP = 0

Private Sub Command1_Click()
    Picture1.BorderStyle = 0
    Picture1.Width = Screen.Width
    Picture1.Height = Screen.Height
    ' Skjul programmet:
    Me.Visible = False
    DoEvents
    ' Tag screenshot:
    BitBlt Picture1.hDC, 0, 0, Screen.Width \\ Screen.TwipsPerPixelX, Screen.Height \\ _
                Screen.TwipsPerPixelY, GetDC(HWND_DESKTOP), 0, 0, vbSrcCopy
    ' Vis programmet:
    Me.Visible = True
    DoEvents
    ' Gem billedet:
    SavePicture Picture1.Image, "screenshot.bmp"
End Sub

Nu kan du tage så mange screenshots du ønsker (filen screenshot.bmp bliver dog overskrevet fra gang til gang!)

Håber du kan bruge det ...

/ Bjarke

--------------------------------------------------
[THIS IS A SIGNATURE VIRUS! PLEASE COPY IT INTO YOUR OWN SIGNATURE(S)]
--------------------------------------------------
Naturvidenskab er interessant: http://www.unf.dk/

Nogen der kan fortælle mig hvordan man kan tage et screenshot i windows..?

/Kroell

// Why not? \\\\\\\\

Sådan gør du

*********************************************

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Public Function Capture_Desktop(ByVal Destination$) As Boolean

On Error GoTo errl
DoEvents
Call keybd_event(vbKeySnapshot, 3, 0, 0) 'Get the screen and copy it to clipboard
DoEvents 'let computer catch up
SavePicture Clipboard.GetData(vbCFBitmap), Destination$ ' saves the clipboard data to a BMP file
Capture_Desktop = True
Exit Function
errl:
MsgBox "Error number: " & Err.Number & ". " & Err.Description
Capture_Desktop = False

End Function 'A lil' example


Private Sub Command1_Click()
Capture_Desktop "c:\\desktop.jpg" 'That's it
End Sub
******************************************

Håber det hajp... =)

lav en .exe fil og omdøb den så til .scr ...
Det skulle være det

Med Venlig Hilsen: Chadi
http://chadi.h4f.dk

ScreenShot, ikke screensaver.. He he... Men ellers tak.. Har haft leget med det..
// Why not? \\\\\\\\

hehe nåå det.. jamen det gør du ved at trykke på Print screen på dit tastatur, og så gå ind i et billedebehandlingsprogram og sætte det ind.

Med Venlig Hilsen: Chadi
http://chadi.h4f.dk

Ved brug af Visual Basic.. he he
// Why not? \\\\\\\\

Nåå hehe... det ved jeg ikke

Med Venlig Hilsen: Chadi
http://chadi.h4f.dk

Nåå hehe... det ved jeg ikke

Med Venlig Hilsen: Chadi
http://chadi.h4f.dk

Det kan gøres via BitBlt API funktionen som du kan finde beskrevet her :
http://internettrash.com/users/fdb/bitbltap.htm

Men der må utvivlsomt kunne findes på en nemmere løsning........

Jan Naess