Снимок экрана и последующая отправка на сайт

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
maxyc
Начинающий
Начинающий
 
Сообщения: 20
Зарегистрирован: 23.05.2004 (Вс) 14:13
Откуда: Новоуральск

Снимок экрана и последующая отправка на сайт

Сообщение maxyc » 20.11.2009 (Пт) 11:46

Привет всем. Уже лет 7 не был на этом сайте и не программил на VB6. Захлестнула меня волна php, mysql, javascript.
Так вот обращаюсь за помощью к вам, уважаемые программисты.

Не будет ли у кого исходников программы для снятия скриншотов экрана с последующей отправкой изображения на сервер (не ftp - [b]POST'ом[/b]!)
в идеале хотелось бы сделать программку, которая при нажатии на принтскрин кнопку, сабмитила картинку на сервер и получала от него ссылку на файл на сервере. очень удобно.

в ответ могу помочь вам со своей области знаний если таковые потребуются

upd: наковырял
скриншоты:
http://www.pscode.com/vb/scripts/ShowCo ... 1&lngWId=1
пост без осх:
http://www.pscode.com/vb/scripts/ShowCo ... 4&lngWId=1
конвертация bmp в jpg
http://www.pscode.com/vb/scripts/ShowCo ... 0&lngWId=1

теперь надо выделить время все это собрать =)
Последний раз редактировалось maxyc 20.11.2009 (Пт) 12:08, всего редактировалось 3 раз(а).
заранее вам благодарен...

Денис
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2734
Зарегистрирован: 07.11.2006 (Вт) 13:55
Откуда: Ейск, Краснодарский край

Re: Снимок экрана и последующая отправка на сайт

Сообщение Денис » 20.11.2009 (Пт) 11:54

maxyc писал(а):исходников программы для снятия скриншотов экрана с последующей отправкой изображения на сервер (не ftp - POST'ом!)

1. Скриншот: GetDesktopWindow, затем GetDC.
2. Post-запрос: Я не занимался, может поиск? Или кто еще подскажет.

UPD:
Вообще говоря, GetDC даст вам bitmap. А это не айс при пересылке по сети. Поэтому рекомендую вам озаботиться конвертацией его в jpeg или в png. Этого я тоже навскидку не вспомню — поиск по форуму к Вашим услугам.
Программирование — богоизбранная дисциплина! Если бог и есть, то вселенную он скомпилировал, не иначе.

maxyc
Начинающий
Начинающий
 
Сообщения: 20
Зарегистрирован: 23.05.2004 (Вс) 14:13
Откуда: Новоуральск

Re: Снимок экрана и последующая отправка на сайт

Сообщение maxyc » 20.11.2009 (Пт) 12:00

а нативным приложение получится сделать? чтоб без танцев с бубнами вокруг mvcvb60 или как там dllка называется?
заранее вам благодарен...

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Re: Снимок экрана и последующая отправка на сайт

Сообщение alibek » 20.11.2009 (Пт) 12:31

Денис писал(а):Вообще говоря, GetDC даст вам bitmap.

Может хватит уже бред нести?
Почитай, что дает GetDC.
Или ты думаешь, что hDC и hBitmap это одно и то же?
Lasciate ogni speranza, voi ch'entrate.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Re: Снимок экрана и последующая отправка на сайт

Сообщение alibek » 20.11.2009 (Пт) 12:33

maxyc писал(а):а нативным приложение получится сделать? чтоб без танцев с бубнами вокруг mvcvb60 или как там dllка называется?

Что значит "нативным"?
Lasciate ogni speranza, voi ch'entrate.

maxyc
Начинающий
Начинающий
 
Сообщения: 20
Зарегистрирован: 23.05.2004 (Вс) 14:13
Откуда: Новоуральск

Re: Снимок экрана и последующая отправка на сайт

Сообщение maxyc » 20.11.2009 (Пт) 12:58

ну помнницца раньше приложения на vb60 не запускались без определенного набора dll и осх.
тоесть приходилось таскать с собой с компа на комп. как в настоящее время с этим обстоит? просто хочется сделать приложение для глупого офисного планктона
заранее вам благодарен...

Денис
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2734
Зарегистрирован: 07.11.2006 (Вт) 13:55
Откуда: Ейск, Краснодарский край

Re: Снимок экрана и последующая отправка на сайт

Сообщение Денис » 20.11.2009 (Пт) 13:43

maxyc писал(а):ну помнницца раньше приложения на vb60 не запускались без определенного набора dll и осх.
тоесть приходилось таскать с собой с компа на комп. как в настоящее время с этим обстоит? просто хочется сделать приложение для глупого офисного планктона

ну дык по примерам, что нарыл смотри. Вообще, msvbvm на всех современных виндах есть. так что таскать с собой ее де-факто не нужно.
alibek писал(а):Может хватит уже бред нести?

Не знаю, как там по строгой терминологии, но я скриншоты так сохранял. И всё работало.

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

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private 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

Private Sub Form_Load()

   Dim A1 As Long
   Dim A2 As Long
   
   A2 = GetDesktopWindow
   A1 = GetDC(A2)
   
   Me.AutoRedraw = True
   
   BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, A1, 0, 0, SRCCOPY
   
   SavePicture Me.Image, "C:\Temp\Image.bmp"

   Me.AutoRedraw = False

End Sub
Последний раз редактировалось Денис 20.11.2009 (Пт) 14:16, всего редактировалось 2 раз(а).
Программирование — богоизбранная дисциплина! Если бог и есть, то вселенную он скомпилировал, не иначе.

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16489
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: Снимок экрана и последующая отправка на сайт

Сообщение Хакер » 20.11.2009 (Пт) 13:58

maxyc писал(а):ну помнницца раньше приложения на vb60 не запускались без определенного набора dll и осх.
тоесть приходилось таскать с собой с компа на комп. как в настоящее время с этим обстоит? просто хочется сделать приложение для глупого офисного планктона

Единственной DLL, необходимой для VB6-написанных программ, является msvbvm60.dll, которая предустановлена в Windows начиная с XP.

Все остальные зависимости: от собственной дури, то есть не имеет значения, VB6 или не VB6, если они появились, они появились бы и при использовании любого другого языка/инструмента.

Плюс, нормальное приложение должно идти не как набор файлов, а как stand-alone setup.exe, если оно распространяется через интернет или по принципу из-рук-в-руки, или же как setup.exe и куча доп. файлов, если распространяется на диске.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

maxyc
Начинающий
Начинающий
 
Сообщения: 20
Зарегистрирован: 23.05.2004 (Вс) 14:13
Откуда: Новоуральск

Re: Снимок экрана и последующая отправка на сайт

Сообщение maxyc » 20.11.2009 (Пт) 14:32

вот как раз и не охото сетапы всякие. если кто знаком, или хотит познакомиьться, то я бы хотел сделать аналог http://gyazo.com
для нашего проекта http://photo.reborn.ru
заранее вам благодарен...

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16489
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: Снимок экрана и последующая отправка на сайт

Сообщение Хакер » 20.11.2009 (Пт) 14:47

вот как раз и не охото сетапы всякие.

Во даёт. По-моему, так это самое приятное в цикле производства продукта: после бессонных недель его тестирования, убедившись, что никаких косяков в нём ну точно нет, создавать дистрибутив и потом записывать его на мастер-диск.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

maxyc
Начинающий
Начинающий
 
Сообщения: 20
Зарегистрирован: 23.05.2004 (Вс) 14:13
Откуда: Новоуральск

Re: Снимок экрана и последующая отправка на сайт

Сообщение maxyc » 20.11.2009 (Пт) 14:58

бугага у гиазо выложены исходники на vc++

http://github.com/gyazo/Gyazowin/archives/master
заранее вам благодарен...

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Re: Снимок экрана и последующая отправка на сайт

Сообщение alibek » 20.11.2009 (Пт) 15:47

Денис писал(а):И всё работало.

"Работало" BitBlt и SavePicture, а не GetDC.
Lasciate ogni speranza, voi ch'entrate.


Вернуться в Visual Basic 1–6

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

Сейчас этот форум просматривают: AhrefsBot и гости: 17

    TopList  
cron