Возможно даный вопрос уже задавался на форуме, но поиск сегодня не
в настроении что либо искать.
Собственно вопрос:
Как снять изображение с экрана (удолённого компа) и передать его по сети (в клиентскую часть)????
объявления апи
Public 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
Public Const SRCCOPY = &HCC0020
код для снятия:
Dim hDesk, hDeskDC
hDesk = GetDesktopWindow()
hDeskDC = GetDC(hDesk)
BitBlt Picture1.hDC, 0, 0, Width, Height, hDeskDC, 0, 0, SRCCOPY
хошь сохрани на винт
SavePicture Picture1.Image, "c:\Picture.bmp"
EvilCoder писал(а):Сперва Получить изображение Экрана через API
Сохранить в файл.
Передать файл по Winsock.
Вот и ищи на каждый вопрос ответы.. На форуме их навалом.
Я что-то слыхал о библиотеке ijl15.dll но как юзать незнаю.
Хой писал(а): но поиск сегодня не
в настроении что либо искать.
natcap писал(а):Простите, что вмешиваюсь, но Хой написал, что у него писк не работает, а не что ему лень искать....
EvilCoder писал(а):
Прежде чем что-то сказать (написать) Думать надо!
Тебе на вопрос отвечают, оттого что тебе лень
Хой - Ты прежде чем мой ответ Критиковать своим примитивным мозгом
EvilCoder писал(а):Хорошо.. Я не оправдываюсь за свою не внимательность.
Но! Уж Больно Твой Сарказм на Грубое Издевательство смахивает.
А с чего ты взял что я не отвечу.
Мог бы догадатся что предложения типа
и без тебя догадался что нужно делать сперва, а что потом.
Мало у кого вызовут положительные эмоции
Я тебе помоч хотел. И если ты не заметил Ссылка что я тебе дал полностью соответствуе твоему вопросу.
Одно я понял точно: Что не все понимают нормальных намерений.
И это я учту.
Andrey Fedorov писал(а):Вообще-же, если на экране скриншот окна программы без графики, то оптимальный формат файла - PNG. Я для юзеров делал скриншотер сохраняющий выделенную часть экрана в PNG-формате - чтобы они могли легко выделять и посылать скриншоты ошибок.
Желающие могут заюзать:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=43136&lngWId=1
Довольно давно туда выкладывал, новая версия получше, но ее нет под рукой...
Сейчас этот форум просматривают: SemrushBot и гости: 14