Каждый день новый бакграунд
May. 31st, 2008 05:24 pm![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png)
Есть такая классная страничка на сайте NASA, где каждый день вывешивается новая астрономическая фотография:
http://apod.nasa.gov/apod/astropix.html
Я туда регулярно хожу просто так... за свежими впечатлениями. Подумалось: а вот сделать бы такую прогу, чтобы она каждый день сама лазила на ту страницу и клала картинку как рисунок рабочего стола. Жаль, я в веб-программировании не силен, так что возится не стану...
http://apod.nasa.gov/apod/astropix.html
Я туда регулярно хожу просто так... за свежими впечатлениями. Подумалось: а вот сделать бы такую прогу, чтобы она каждый день сама лазила на ту страницу и клала картинку как рисунок рабочего стола. Жаль, я в веб-программировании не силен, так что возится не стану...
no subject
Date: 2008-05-31 02:53 pm (UTC)no subject
Date: 2008-05-31 03:56 pm (UTC)no subject
Date: 2008-05-31 03:59 pm (UTC)no subject
Date: 2008-05-31 08:11 pm (UTC)no subject
Date: 2008-05-31 10:00 pm (UTC)nconvert я недавно пытался встроить в VBA-макрос - вышло плохо, в VBA нельзя ни паузиться на заданное количество миллисекунд ни подождать завершения запущенного из VBA-макроса внешнего процесса, пришлось делать вывод диалога с надписью "дождитесь завершения внешней программы"...
no subject
Date: 2008-05-31 04:01 pm (UTC)no subject
Date: 2008-05-31 08:16 pm (UTC)A View to the Sunset
Date: 2008-05-31 05:18 pm (UTC)no subject
Date: 2008-05-31 10:12 pm (UTC)Имеется RSS.
no subject
Date: 2008-06-01 07:31 am (UTC)no subject
Date: 2008-06-02 07:57 pm (UTC)if (FAILED(hr = CoCreateInstance(CLSID_MHTMLDocument,NULL,CLSCTX_INPROC_SERVER,IID_IHTMLDocument2,(void**)&m_spDoc)))
return false;
Ну, а потом, что-нибудь вроде:
if (SUCCEEDED(pDoc->get_links(&spAll)))
{
long nL = 0;
spAll->get_length(&nL);
for (int n=0;n
if (FAILED(hr = CoCreateInstance(CLSID_MHTMLDocument,NULL,CLSCTX_INPROC_SERVER,IID_IHTMLDocument2,(void**)&m_spDoc)))
return false;
Ну, а потом, что-нибудь вроде:
if (SUCCEEDED(pDoc->get_links(&spAll)))
{
long nL = 0;
spAll->get_length(&nL);
for (int n=0;n<nL;n++)
{
_variant_t v1,v2;
v1 = (long)n;
CComPtr<IDispatch> spDisp;
if (SUCCEEDED(spAll->item(v1,v2,&spDisp)))
{
XString strRef;
CComPtr<IHTMLAnchorElement> spAnchor;
if (SUCCEEDED(spDisp->QueryInterface(IID_IHTMLAnchorElement,(void**)&spAnchor)))
{
BSTR href = NULL;
if (SUCCEEDED(spAnchor->get_href(&href)) && href)
{
//Здесь обработчик
}
}
}
no subject
Date: 2008-06-03 03:04 am (UTC)no subject
Date: 2008-06-03 07:27 am (UTC)