Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: Погода... Добавлено: 27.01.09 20:33  

Автор вопроса:  $@ny@PG | ICQ: 468469477 
А можно ли в vb 6.0 залезть в интернет (так что бы этого не видел пользователь) узнать погоду в Новомосковске Тульской Областе и вывести в label1 на form1 если да то как это сделать?

Ответить

  Ответы Всего ответов: 22  

Номер ответа: 1
Автор ответа:
 VβÐ



Вопросов: 15
Ответов: 194
  Web-сайт: www.homacosoft.com
 Профиль | | #1 		Добавлено: 27.01.09 21:52
заходишь на какой нибудь погодный сервер либо ручками либо Inet контром и выкачеваешь от туда страничку. можешь rss скачать если есть. далее просто ищешь в скачанных данных инфу о погоде и выводи на свой лейбл.

Ответить

Номер ответа: 2
Автор ответа:
 $@ny@PG



ICQ: 468469477 

Вопросов: 71
Ответов: 196
  Профиль | | #2 Добавлено: 27.01.09 22:04
А как именно это сделать а то я с интернетом в vb 6.0 не очень знаком???

Ответить

Номер ответа: 3
Автор ответа:
 Isage.ru



Вопросов: 3
Ответов: 38
  Профиль | | #3 Добавлено: 28.01.09 06:05
(так что бы этого не видел пользователь) -
пользователь увидит по любому.
А как это сделать (поищи инфу про winsock)
Тут на сайте есть пару примеров.
А готовый ответ выложиться тебе в несколько листов (А4). По этому ответ не даем!
P.S. Ты больше так не шути (я с интернетом в vb 6.0 не очень знаком, так познакомься!)

Ответить

Номер ответа: 4
Автор ответа:
 $@ny@PG



ICQ: 468469477 

Вопросов: 71
Ответов: 196
  Профиль | | #4 Добавлено: 28.01.09 07:24
Как я с ним познакомлюсь если у меня Microsoft Internet Controls не работает???

Ответить

Номер ответа: 5
Автор ответа:
 Arseny



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
  Профиль | | #5 Добавлено: 28.01.09 09:07
Познакомься с переустановкой студии.

Ответить

Номер ответа: 6
Автор ответа:
 Arseny



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
  Профиль | | #6 Добавлено: 28.01.09 09:24
вариант: API URLDownloadToFile. скачиваешь страницу на винт и занимаешься лоботомией по методу регулярных выражений....

Ответить

Номер ответа: 7
Автор ответа:
 VβÐ



Вопросов: 15
Ответов: 194
  Web-сайт: www.homacosoft.com
 Профиль | | #7 		Добавлено: 28.01.09 09:42
С HTML знаком?
Правой кнопкой на панели контролов -> Компоненты. В появившемся окне щелкаешь Microsoft Internet Transfer Control. Кидаешь этот контрол на форму. У него есть метод с очень непонятным и совершенно несвязанным (:)) названием OpenURL. Синтаксис его такой:
  1.  
  2. Dim s as string
  3. s  = OpenURL("http://www.homacosoft.com/")
  4. MsgBox(s)


Кидаешь ему ссылку, а он возвращает тебе HTML-код. В качестве сайта погоды можешь использовать Gismeteo или что-нибудь еще. Желательно RSS-канал - его проще будет парсить.

Ответить

Номер ответа: 8
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #8 		Добавлено: 28.01.09 14:12
Поставь миранду с модулем погоды)

Ответить

Номер ответа: 9
Автор ответа:
 $@ny@PG



ICQ: 468469477 

Вопросов: 71
Ответов: 196
  Профиль | | #9 Добавлено: 29.01.09 08:03
И как например из этой страницы вытащить температуру воздуха? http://www.gismeteo.ru/towns/99482.htm

Ответить

Номер ответа: 10
Автор ответа:
 $@ny@PG



ICQ: 468469477 

Вопросов: 71
Ответов: 196
  Профиль | | #10 Добавлено: 29.01.09 08:04
И как например из этой страницы вытащить температуру воздуха? http://www.gismeteo.ru/towns/99482.htm

Ответить

Номер ответа: 11
Автор ответа:
 $@ny@PG



ICQ: 468469477 

Вопросов: 71
Ответов: 196
  Профиль | | #11 Добавлено: 29.01.09 08:06
И как например из этой страницы http://www.gismeteo.ru/towns/99482.htm температуру вытащить?

Ответить

Номер ответа: 12
Автор ответа:
 $@ny@PG



ICQ: 468469477 

Вопросов: 71
Ответов: 196
  Профиль | | #12 Добавлено: 29.01.09 08:07
И как например из этой страницы "http://www.gismeteo.ru/towns/99482.htm" температуру вытащить?

Ответить

Номер ответа: 13
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #13 		Добавлено: 30.01.09 18:05
гуглить!
Гуглить!
ГУГЛИТЬ!
ГУГЛИИИТЬ!
простите не удержался)

Ответить

Номер ответа: 14
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #14 		Добавлено: 30.01.09 19:18
$@ny@PG, это делается так http://slil.ru/26600222 (там куча коментов=)
К сожалению я не особо хорош в регулярных выражениях, так что не знаю можно ли сделать в один запрос. У меня сначала находится температурная строка, а затем уже в ней ищутся значения.

Ответить

Номер ответа: 15
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #15 Добавлено: 01.02.09 13:18
В HTML почти ноль, но попробовал... и даже что-то получилось -
  1. Sub GetHtmlCodOfRef() 'Library InetCtlsObjects
  2. '    C:\WINDOWS\system32\Msinet.ocx
  3. '    Microsoft Internet Transfer Control 6.0 (SP6)
  4. Dim It As Inet, S As String
  5. Set It = New Inet
  6. S = It.OpenURL("http://www.gismeteo.ru/towns/99482.htm")'интересная фишка, VBD спсибо!
  7. Set It = Nothing
  8. Dim ps As Long, a
  9. ps = InStr(1, S, "Температура,°C</td><td align=center bgcolor=#FFFFF0>")
  10. If ps Then
  11.   a = Split(Mid(S, ps + Len("Температура,°C</td><td align=center bgcolor=#FFFFF0>")), ">")
  12.   Debug.Print Val(a(0)) & ".." & Val(a(1)) 'LabelN=Val(a(0)) & ".." & Val(a(1))
  13. End If
  14. End Sub

Может, кто и мне поможет...(http://www.vbnet.ru/forum/show.aspx?id=182578)
бл..., стихов только ещё не писал (пора лечиться)

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам