Как получить данные времени и даты из сайта time100.ru - VB

Узнай цену своей работы

Формулировка задачи:

Есть переменные h- часы m- минуты s - секунды Еще получить день недели оттуда же Как под них вставить данных из сайта времени time100.ru Именно для МОСКВЫ Мне надо Как ? Через винсок ? В общем если у кого есть рабочий пример буду признателен спасибо
возможно через запрос post ? Или get ? Но как мне узнать синтаксис и к какому именно php обращаться на этом сайте фиг знает Вот вытащил код страницы

Решение задачи: «Как получить данные времени и даты из сайта time100.ru»

textual
Листинг программы 
Option Explicit
'Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
 
Private Sub Command1_Click()
    Dim s As String
    s = OpenURL("http://www.time100.ru")
    MsgBox Mid(s, InStr(1, s, "s</span>") + 10, 8)
End Sub
Private Function OpenURL(ByVal sUrl As String) As String
    Dim hOpen As Long, hOpenUrl As Long, bDoLoop As Boolean, bRet As Boolean
    Dim sReadBuffer As String * 2048, lNumberOfBytesRead As Long, sBuffer As String
    hOpen = InternetOpen("VB Project", 0, vbNullString, vbNullString, 0)
    hOpenUrl = InternetOpenUrl(hOpen, sUrl, vbNullString, 0, &H80000000, 0)
    bDoLoop = True
    While bDoLoop
         sReadBuffer = vbNullString
         bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
         sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
         If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
    Wend
    If hOpenUrl <> 0 Then InternetCloseHandle (hOpenUrl)
    If hOpen <> 0 Then InternetCloseHandle (hOpen)
    OpenURL = sBuffer
End Function

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.733 из 5
Похожие ответы