Конференция VBStreets

**Hind** » 22.04.2005 (Пт) 14:24

Есть такая необходимость - получить в буфер обмена скриншот произвольного окна (здесь - Internet Explorer).
Пользователь может сам указать окно, в общем, лишь бы работало.
Заранее спасибо!

**kirrun** » 22.04.2005 (Пт) 14:33

Ну... активируешь окно, попиксельно рисуешь (ну или Alt+PrintScreen посылаешь) и ставишь в imageBox (ну или Picture)

**Hind** » 22.04.2005 (Пт) 16:00

А как нормально послать Alt-Print screen?
SendKeys не хочет. :roll:

**step** » 22.04.2005 (Пт) 16:08

Да нормально SendKeys, всё хочет!!!

**Hind** » 22.04.2005 (Пт) 16:30

Блин... В хелпе написано, что SendKeys НЕ ПОЗВОЛЯЕТ передавать нажатие клавиши {PRTSC} ни в одно приложение.

Так что опять - как послать Alt+Print screen?

**kirrun** » 22.04.2005 (Пт) 17:57

Ага... в хелпе именно так и написано.. но почему-то же есть константа vbPrint, в описании которой написано, что она передает PrintScreen... загадка...

**Hind** » 22.04.2005 (Пт) 18:05

Сделал через keybd_event.

Код: Выделить всё: keybd_event &H12, 0, 0, 0 'Alt keybd_event &H2C, 0, 0, 0 'Print Screen keybd_event &H2C, 0, &H2, 0 keybd_event &H12, 0, &H2, 0

Но криво это как-то...

**Amed** » 22.04.2005 (Пт) 18:45

Надо не криво через PrintScreen, а прямо через BitBlt. В поиск по форуму.

**Hind** » 22.04.2005 (Пт) 19:54

Всем спасибо, все работает!

**Amed** » 22.04.2005 (Пт) 19:57

Ещё бауманец! %)

**Hind** » 24.04.2005 (Вс) 22:14

Дык, of course

Уже 3 года, как бауманец :shock:

2 года перед универом учился в ФМШ при МГТУ...

**step** » 25.04.2005 (Пн) 13:52

Hind
Да я так и думал, что в большинстве институтах, или университетах правят деньги а не знания! :lol:

**Demonx** » 25.04.2005 (Пн) 14:15

Код: Выделить всё: Dim hwn, hdx As Long, rc As RECT hwn = GetForegroundWindow hdx = GetWindowDC(hwn) GetWindowRect hwn, rc Picture1.Cls BitBlt Picture1.hDC, 0, 0, rc.Right - rc.Left, rc.Bottom - rc.Top, hdx, 0, 0, vbSrcCopy Picture1.Refresh

**Hind** » 25.04.2005 (Пн) 19:59

step

Да я так и думал, что в большинстве институтах, или университетах правят деньги а не знания!

Только не в нашем... Зря вы так.
Без этих 2х лет, знаний, полученных в ФМШ, не поступил бы я. :roll:

**step** » 26.04.2005 (Вт) 11:00

Hind
На платном учишься?

**Hind** » 26.04.2005 (Вт) 19:27

Еще чего!

На бюджетном, конечно!
97% выпускников ФМШ поступают в МГТУ им. Н.Э. Баумана, успешно пройдя вступительные испытания.
Я среди них ))

_http://physmath.bmstu.ru
ФМШ RuLeZzZ!!! :lol:

**Amed** » 26.04.2005 (Вт) 19:35

step, можешь не клеиться к бауманцам

**step** » 27.04.2005 (Ср) 9:37

Hind
Молодец, просто я интересуюсь, у меня отец в этом МГТУ учился очень давно, да и интересно, что там, да как сейчас.

Amed
Я не педик, что-бы к мужикам клеиться!

**Amed** » 27.04.2005 (Ср) 10:54

step, да я не сомневаюсь...

В МГТУ сейчас весело... очень...

**step** » 27.04.2005 (Ср) 15:37

Amed
Да...
Веселей туда поступить, но не всем это дано! :roll:

Даже по месту жительства!

**Hind** » 28.04.2005 (Чт) 22:40

Че-т я на всех набрасываюсь в последнее время

Во флуд развели :wink:

А почему создатель темы не может её закрывать? :lol:

**FaKk2** » 28.04.2005 (Чт) 22:43

Hind
Ибо не админ.

Конференция VBStreets

VB6: Получить скриншот окна IE

VB6: Получить скриншот окна IE

Кто сейчас на конференции