Простейшее Internet-программирование

Полезные ссылки:
Метеоцентр.Азия - наш сайт с высокодетализированными прогнозами погоды по пунктам Pоссии и мира
Облегчённая версия Метеоклуба (для смартфонов)

Простейшее Internet-программирование

 - Начало - Ответить - Статистика - Pегистрация - Поиск -

МЕТЕОКЛУБ : независимое сообщество любителей метеорологии (Европа и Азия) : ФОРУМ О ПОГОДЕ И ПРИРОДЕ / Компьютерная техника и интернет в метеорологии / Простейшее Internet-программирование
Автор Сообщение
NoSpam
Участник

Россия
# Дата: 7 Май 2006 12:44


Это может сделать каждый с помощью Visual Basic 6
Создайте форму, на неё поместите кнопку, щёлкните по кнопке, перейдёте в обработчик щелчка по кнопке:

Private Sub cmdIE_Click()
.... 'Обработчик щелчка
End Sub

Поместите в обработчик нижеследующий код и гребите инфу с сайта Мелкомягких, либо замените Internet-адрес на нужный вам.

----------------------------------------
'http://blogs.ittoolbox.com/visualbasic/munk/archi ves/009071.asp
'Internet Explorer example

Private Sub cmdIE_Click()
Dim oIE As Object
Dim oDoc As Object
Dim oBody As Object

'Create the IE application object.
Set oIE = CreateObject("internetexplorer.application")

'Load the URL.
oIE.Navigate ("msdn.microsoft.com")

'Wait for the web page to load completely.
Do While (oIE.ReadyState <> 4)
Loop

'Create the document object.
Set oDoc = oIE.Document
'Create the document body object.
Set oBody = oDoc.Body

'Display the website title.
MsgBox oDoc.Title

'Show a portion of the web page text.
MsgBox Mid$(oBody.innerText, 1, 255)
'Show a portion of the web page HTML.
MsgBox Mid$(oBody.innerHTML, 1, 255)

'Would the user like to see the original document?
If (MsgBox("Would you like to see the web site?", _
vbQuestion + vbYesNo, "Show IE?") = vbYes) Then
'Display IE.
oIE.TheaterMode = True
oIE.TheaterMode = False
Else
'Close IE.
oIE.Quit
End If

End Sub

-------------------------------------------------- -------

А если у кого не установлен Visual Basic 6, то это не проблема.
Можно воспользоваться встроенным в Excel языком VBA (Visual Basic for Applications). Для этого нажимаем в меню Excel
Сервис->Макрос->Редактор Visual Basic (Или сразу кл. Alt+F11)
В окне VBA вставляем стандартный модуль с помощью меню
"Insert"->"Module"
В модуль вставляем вышеприведённый текст Private Sub...End Sub, запускаем на исполнение через меню
Run->Run Sub/User Form (или сразу кл. F5)

medved
Участник

Москва
# Дата: 9 Май 2006 00:00


NoSpam

Сорри, Вы можете пояснить, что должен этот код делать и зачем?

SVA
Участник

###SVA###
# Дата: 9 Май 2006 01:20


Это простейшая иллюстрация применения технологии OLE в программировании. Эта технология позволяет разрабатывать собственные приложения, используя функционал уже написанных пакетов, в которых реализована поддержка OLE.
Выглядит это следущим образом: в собственном приложении (клиенте) создается OLE-объект, в который загружается нужная программа (здесь она будет выступать в роле сервера), в которой происходит обработка какого-либо документа в его формате, а потом результат работы передается обратно в разрабатываемую программу.

Визуально - приложение сервер интегрируется в окно клиента (главные меню "склеиваются" и работа осуществляется как в исходом приложении-сервере).

Здесь в лист Excel или просто в форму интегрируется IE,
Set oIE = CreateObject("internetexplorer.application")

которому передается команда открыть заданный сайт

oIE.Navigate ("msdn.microsoft.com")

с заданными параметрами визуализации.

... oIE.TheaterMode = True oIE.TheaterMode = False ...

Вот, в общем-то и все.

Если посмотреть на документ Word, в который вставлен график Excel,
то внутри оно сделано примерно так же, как в этом примере.

Corvus
Автор сайта

###Corvus###
# Дата: 9 Май 2006 09:03


Это простейшая иллюстрация применения технологии OLE в программировании. Эта технология позволяет разрабатывать собственные приложения, используя функционал уже написанных пакетов, в которых реализована поддержка OLE.
SVA

А, простите за выражение, на хрена оно нужно участникам Метеоклуба?
Вы фанат МикроСофта?

Я уж не говорю о том, что для серьёзного интернет-программирования используются совсем другие технологии (в большинстве своём - свободно распространяемые), в частности язык РНР, и в ограниченных масштабах ещё Java Script, а вот использование Visual Basic'a категорически не рекомендуется в силу ряда причин.

SVA
Участник

###SVA###
# Дата: 9 Май 2006 13:21


Corvus

А, простите за выражение, на хрена оно нужно участникам Метеоклуба?
А я тут при чем?
Я пояснил, что этот код делает. Нафига - вопрос к автору топика...

Вы фанат МикроСофта?
Местами. Для реализации некоторых вещей OLE подходит нормально... Первое, что пришло на ум - перегон набора данных из БД в Ексель для анализа...

А тут уж, извините, кому угодно пригодится может... не руками же вбивать данные...

OLE и инет - это, конечно, перегиб, но если уж очень хочется окошко браузера вывести в своей тулзе, то почему бы и нет...

NoSpam
Участник

Россия
# Дата: 15 Jun 2006 06:20


и в ограниченных масштабах ещё Java Script

« ПРОГРАММИНГ » 15 июня 2006 02:15
Ajax Hacks издательство O'Reilly (EN) № 1146069140
Автор: nobody :: Просмотров: 55 :: Комментарии (0) :: Напечатать

Название: OReilly Ajax Hacks Tips and Tools for Creating Responsive Web Sites
Автор: W. Perry
Издательство: O'Reilly
Год: March 2006
Страниц: 438
Формат: chm
Размер: 3 Mb
ISBN: 0-596-10169-4
Язык: Англ.
Ajax, популярное средство для разработки приложений на основе Asynchronous JavaScript and XML и одна и самых перспективных технологий для веб-разработчиков на сегодняшний день. Сочетание различных технологий позволяет разработчикам создавать интерактивные веб-приложения на основе XML.
Изучение преимуществ Ajax требует нечто большего чем обычный how-to. Книга Ajax Hacks от издательства O'Reilly как раз такая книга. Эта книга представляет собой сборник решений, который раскрывает большинство возможностей Ajax. Какждый «хак» представляет собой «правильный» способ решения поставленной проблемы, такие готовые решения помогут вам спасти не один трудовой час.
Хотите строить современные веб-приложения? Эта книга как раз для вас. Среди тем этой книги есть и такие:
- Использование Ajax с картами google и yahoo.
- Использование на сайте информации с Weather.com
- Получение региональных кодов
- Авто заполнение форм
- и т. д.

Скачать здесь
или здесь

yogimax
Участник

Баргтехайде, Германия
# Дата: 15 Jul 2012 19:08


Не совсем по теме, но нужна помощь. У меня есть упражнение отредактировать синтактических ошибок в следующем файле XML:
Сначала отредактированный мною файл /насколько я распознал некоторых ошибок/, а потом будет и оригинал с полным числом ошибок.
<?xml version="1.0" encoding="UTF-8"?>
<buchhaltung xmlns="http://www.unigis.at/Modul2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instan ce" xsi:schemaLocation="http://www.unigis.at/Modul2 Buchhaltung.xsd"></>
<rechnung1>
<empfänger>Firma Schmidt</empfaenger>
<datum>10.10.2006</datum>
<betrag>3432.87</betrag>
<waehrung>Euro</waehrung>
<positionen>
<pos1>Stahl rund 10mm</pos1>
<pos2>Stahl rund 12mm</pos2>
</positionen>
</rechnung1>
<rechnung2>
<empfänger>Firma Mueller</empfaenger>
<datum>11.10.2006</datum>
<betrag>6567.80</betrag>
<waehrung>Euro</waehrung>
<positionen>
<pos1>Stahl rund 18mm</pos1>
<pos2>Stahl rund 12mm</pos2>
</positionen>
</rechnung2>
</buchhatlung>
__________________________________________________ ______________
<!xml version="1.0" encoding="UTF-8"!>
<buchhaltung xmlns="http://www.unigis.at/Modul2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instan ce" xsi:schemaLocation="http://www.unigis.at/Modul2 Buchhaltung.xsd"></>
<rechnung1>
<empfänger>Firma Schmidt</empfaenger>
<datum>10.10.2006</datum>
<betrag>3432.87</betrag>
<waehrung>Euro</waehrung>
<positionen>
<pos1:Stahl rund 10mm</pos1>
<pos2:Stahl rund 12mm</pos2>
</>
</rechnung1>
<rechnung2>
<empfänger>Firma Mueller</empfaenger>
<datum>11.10.2006</datum>
<betrag>6567.80</betrag>
<waehrung>Euro</waehrung>
<positionen>
<pos1:Stahl rund 18mm</pos1>
<pos2:Stahl rund 12mm</pos2>
</>
</rechnung2>
</buchhatlung>

Ваш ответ

          Отменить *Что это?

 » Логин  » Пароль 
 
 


Поддержка: miniBB forum software © 2001-2026