![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
|||
|
|||
![]() Цитата:
Код:
procedure TfrmMain.WebBrowserScreenShot(const wb: TWebBrowser; const fileName: TFileName); var viewObject : IViewObject; r : TRect; bitmap : TBitmap; ji: TJPEGImage; begin if wb.Document <> nil then begin wb.Document.QueryInterface(IViewObject, viewObject) ; if Assigned(viewObject) then try bitmap := TBitmap.Create; try r := Rect(0, 0, wb.Width, wb.Height) ; //left, top, right, bottom bitmap.Height := wb.Height; bitmap.Width := wb.Width; viewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Application.Handle, bitmap.Canvas.Handle, @r, nil, nil, 0) ; ji := TJPEGImage.Create; with ji do try Assign(bitmap) ; SaveToFile(fileName) ; finally Free; end; finally bitmap.Free; //ji.Free; // При включённой выкидывает ошибку end; finally viewObject._Release; end; end; end; Последний раз редактировалось MrDiG, 21.10.2010 в 09:54. |
#17
|
|||
|
|||
![]() Ты хочешь сказать, делает скриншот свернутого броузера? Если да, то это круто конечно, у меня получилось делать скриншот только неактивного окна. Сейчас я немного ушел от ботописания, работаю над другими проектами, но уже хочется собрать нормальный движок бота, что бы мог работать на скриптах с любой флеш игрой.
Цитата:
Кстати, с кликами ты на чем остановился, нормально отправляет и каждый клик отрабатывает броузер или нет? |
#18
|
|||
|
|||
![]() Цитата:
![]() С кликами вроде всё нормально. Технологию я описал - главное узнать куда отправлять клик, и добраться до хэндла. А движок бота - это конечно круто. Только популярных в рунете браузерок - шесть десятков. Так что многим нужно, да и спрос будет. ![]() |