Погода

@warex78 · Регистрация: 26.02.2020

Author24 — интернет-сервис помощи студентам

Решил вспомнить молодость (немного изучал delphi 7)
Программа для просмотра погоды на сайте ГИСМЕТЕО (может пригодится)
1. Открыть любой поисковик (Яндекс, Гугл и тд.)
2. Набрать в поиске ГИСМЕТЕО (свой город)
3. Перейти на сайт ГИСМЕТЕО, ссылка СЕЙЧАС (копировать адрес ссылки)
4. В программе нажать ОЧИСТИТЬ далее ВСТАВИТЬ затем ПЕРЕЙТИ
Готово
Выставить время обновления страницы и автозагрузку

Программа делалась для личного некоммерческого использования, бесплатно

https://www.virustotal.com/gui... /detection

@warex78 · 11.05.2020, 18:50 **[ТС]**

......
https://www.virustotal.com/gui... /detection

@warex78 · 08.06.2020, 15:39 **[ТС]**

версия 2

@warex78 · 08.06.2020, 15:43 **[ТС]**

...
https://www.virustotal.com/gui... /detection

@Alona1 · 24.01.2021, 01:32

warex78, Если тебе не сложно, не мог бы ты скинуть код, как ты именно брал информацию с сайта. Буду благодарна)

FlasherX · 24.01.2021, 14:36

Alona1, парсингом http://informer.gismeteo.ru/xml/код_города.xml (коды файлом) можно. Например:

Visual Basic

Const Code = 27612
With CreateObject("Msxml2.DOMDocument")
    .async = 0 : .Load "http://informer.gismeteo.ru/xml/" & Code & ".xml"
    For Each Node In .selectNodes("MMWEATHER/REPORT/TOWN/FORECAST")
        Set A = Node.attributes
        FDate = "date: " & DateSerial(A(2).text, A(1).text, A(0).text) & " " & A(3).text & ":00:00"
        W = Abs(A(6).text) : If W = 7 Then W = 1 Else W = W + 1
        FWDay = "weekday: " & LCase(WeekDayName(W)) : Info = ""
        For Each ChNode In Node.childNodes
            Attr = ""
            For Each At In ChNode.attributes
                Attr = Attr & At.nodeName & ": " & At.text & ", "
            Next
            Info = Info & ", " & LCase(ChNode.nodeName) & " " & Left(Attr, Len(Attr) - 2)
        Next
        Sum = Sum & vbCr & vbCr & FDate & ", " & FWDay & Info
    Next
End With
WSH.Echo Mid(Sum, 3)

@warex78 1 / 1 / 0 Регистрация: 26.02.2020 Сообщений: 13
	08.06.2020, 15:39 [ТС]	3
	версия 2 0

@Alona1 0 / 0 / 0 Регистрация: 04.01.2021 Сообщений: 11
	24.01.2021, 01:32	5
	warex78, Если тебе не сложно, не мог бы ты скинуть код, как ты именно брал информацию с сайта. Буду благодарна) 0

	24.01.2021, 14:36