| Вопрос: скриншоты | Добавлено: 16.03.03 18:06 |
Автор вопроса:  ZoomerSD | ICQ: 148640473 |
 Народ, подскажите, как передовать скриншоты по винсоку, заранее спасибо
|
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:   V!RU$™ ICQ: 132309822 Вопросов: 24 Ответов: 54 |
Web-сайт: Профиль | | #1 | Добавлено: 17.03.03 15:05 |
|
Ну я думал фень сделать типо удалённое админестрирование ... ну получалось у меня передавать изображения я сча непомню но я передавал его с помощью вот этого:
‘Это поместить в область деклараций модуля Private Declare Function GetDesktopWindow Lib "user32" () As LongPrivate Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long 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 Const SRCCOPY = &HCC0020 ‘Код, копирующий изображение экрана в окно. Размещается в форме. Не забудьте свойство формы AutoRedraw ‘установить в True. Dim hDesk, hDeskDC hDesk = GetDesktopWindow() hDeskDC = GetDC(hDesk) BitBlt Me.hDC, 0, 0, Width, Height, hDeskDC, 0, 0, SRCCOPY ‘Если необходимо изображение поместить в Picture, вместо Me.hDC укажите Picture1.hDC. |
||
Страница: 1 |