Скриншот монитора нужного размера

[GPP]

Как получит скриншот экрана нужного размера? к примеру размером 640х480 и сохранить в файл? Заранее огромное спасибо!

[burik]

Не совсем понял вопрос. Надо Получить скриншот и уменьшить его, допустим, до 640x480 или получить скриншот чисти экрана, размером, допустим, 640x480?

[GPP]

burik нужно получить скриншот экрана и уменьшить его размер ну к примеру до 640х480 потом сохранить в файл .jpg. Если можно пример без наворотов чтоб можно было менять размер изображения. Заранее огромное спасибо!

[hackman]

Ооо...Пашка(GPP) потом мне скажешь как...?

[kibernetics]

Скринграббер чтоли там делаете?

[keks-n]

Троян, судя по вечному статусу "Пишу вирус".

[Belkin]

GPP
Может попробывать через SenKeys, а потом сохранить изображение из буфера.

[Viper]

Belkin, забавный вариант Может код приведем рабочий?

[Belkin]

Viper
Да действительно не получается....

[Хакер]

Вариант не только нерабочий, но ещё и неправильный, потому что юзер может хранить в буфере своё изображение, которое затрётся.

[ALX_2002]

2 GPP: Смотрю в теме не особо успешно с примерами. Решил наваять. Получилось не акхти красиво. Ну уж что есть

[|( () ( T |/| |(]

GPP, не знаю, троян ты пишешь или нет. Но я как-то захотел трояна сделать, чтоб мог скрин отправлять, а чтобы он меньше весил уменьшал в 4 раза, и в jpg сэйвил. Троян я так и не здалал (желание пропало), а вот про скрин держи. (может пригодиться)

[|( () ( T |/| |(]

Кстати, раз ушь торян, то он должен быть маленькия...

Код: Выделить всё

Option Explicit
Private Type GUID
   Data1 As Long
   Data2 As Integer
   Data3 As Integer
   Data4(0 To 7) As Byte
End Type
Private Type GdiplusStartupInput
   GdiplusVersion As Long
   DebugEventCallback As Long
   SuppressBackgroundThread As Long
   SuppressExternalCodecs As Long
End Type
Private Type EncoderParameter
   GUID As GUID
   NumberOfValues As Long
   type As Long
   Value As Long
End Type
Private Type EncoderParameters
   Count As Long
   Parameter As EncoderParameter
End Type
Private Declare Function GetDC Lib "USER32" (ByVal hwnd As Long) As Long
Private Declare Function GdiplusStartup Lib "GDIPlus" (token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As Long
Private Declare Function GdiplusShutdown Lib "GDIPlus" (ByVal token As Long) As Long
Private Declare Function GdipCreateBitmapFromHBITMAP Lib "GDIPlus" (ByVal hbm As Long, ByVal hpal As Long, Bitmap As Long) As Long
Private Declare Function GdipDisposeImage Lib "GDIPlus" (ByVal Image As Long) As Long
Private Declare Function GdipSaveImageToFile Lib "GDIPlus" (ByVal Image As Long, ByVal filename As Long, clsidEncoder As GUID, encoderParams As Any) As Long
Private Declare Function CLSIDFromString Lib "ole32" (ByVal str As Long, id As GUID) As Long
Private Declare Function StretchBlt Lib "gdi32.dll" (ByVal hdc 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 nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Declare Function SetStretchBltMode Lib "gdi32.dll" (ByVal hdc As Long, ByVal nStretchMode As Long) As Long

Private Sub ScreenHot()
    SetStretchBltMode Me.hdc, 4
    StretchBlt Me.hdc, 0, 0, 640, 480, GetDC(0), 0, 0, 1024, 768, vbSrcCopy
    Me.Refresh
End Sub

Private Sub Command1_Click()
ScreenHot
SaveJPG Form1.Image, "C:\SH.jpg"
End Sub

Public Sub SaveJPG(ByVal pict As StdPicture, ByVal filename As String, Optional ByVal quality As Byte = 80)
Dim tSI As GdiplusStartupInput
Dim lRes As Long
Dim lGDIP As Long
Dim lBitmap As Long
   tSI.GdiplusVersion = 1
   lRes = GdiplusStartup(lGDIP, tSI)
   If lRes = 0 Then
      lRes = GdipCreateBitmapFromHBITMAP(pict.handle, 0, lBitmap)
      If lRes = 0 Then
         Dim tJpgEncoder As GUID
         Dim tParams As EncoderParameters
         CLSIDFromString StrPtr("{557CF401-1A04-11D3-9A73-0000F81EF32E}"), tJpgEncoder
         tParams.Count = 1
         With tParams.Parameter
            CLSIDFromString StrPtr("{1D5BE4B5-FA4A-452D-9CDD-5DB3505E7EB}"), .GUID
            .NumberOfValues = 1
            .type = 1
            .Value = VarPtr(quality)
         End With
         lRes = GdipSaveImageToFile(lBitmap, StrPtr(filename), tJpgEncoder, tParams)
         GdipDisposeImage lBitmap
      End If
      GdiplusShutdown lGDIP
   End If
   If lRes Then
      Err.Raise 5, , "Cannot save the image. GDI+ Error:" & lRes
   End If
End Sub

Ужал, как только смог.

[GPP]

СПАСИБО, БРАТЬЯ ПРОГРАММИСТЫ!!! ОГРОМНОЕ СПАСИБО. На самом деле пишу не трояна, а программу для удаленного администрирования(дипломная работа!), вот возникла необходимость скрин передавать... Я с графикой не разу не работал... Вот и возникли трудности...

[|( () ( T |/| |(]

Интересная вещь, все приведённые здесь способы, не скриншотят мои часы, интересно почему...

[alibek]

Потому что ты их наверное рисуешь через DX.

[DKbelRoma]

|( () ( T |/| |(
почему???Обьясни плиззз!Поподробнее ( я ещё юзер) тоже хочу что-бы моя прога не скринелась!

[|( () ( T |/| |(]

alibek, DX-а, там я не использую.
DKbelRoma, так прикол в том, что Print Scrn-ом, он скринится нормально.

[DKbelRoma]

мда,тупой был у меня вопрос!:(