[ ombrs.do @ 22.10.2018. 12:06 ] @
Pozdrav
Da li mi mozete pomoci u sljedecem:
u aplikaciji promjenim sistemsko vrijeme racunara ali mi treba trenutno vrijeme koje je aktuelno.
Danas je 22-10-18,mjenjam na 30-10-18 ali da u textboxu uvijek imam trenutno validno vrijeme.
Proba sam naci na netu sa nekim web request oprema time.windows.com ali nisam nasao pravo rjesenje.
Hvala unaprijed
[ Getsbi @ 23.10.2018. 05:43 ] @
Nisam ovo rado ali je ideja sledeća.
Na donjem linku je tema ovog foruma koja se bavi skidanjem podataka sa sajta narodne banke.
http://www.elitesecurity.org/t...-na-NBS-provera-blokade-kupaca
Na sledećem linku je sajt za tačno vreme.
http://vreme.radioni.ca/koliko-je-sati
[ ombrs.do @ 23.10.2018. 08:19 ] @
Hvala na odgovoru i ideji.
Evo mog koda pa ako moze nekome koristiti:

Private Sub Command50_Click()
Me.txtOutput = Null
Me.txtOutput2 = Null
Me.txtOutput3 = Null
Me.txtOutput4 = Null
Me.txtOutput5 = Null
Me.pass = Null
Me.StatusText = Null

MsgBox "Vrijeme"

Dim xmlhttp As New MSXML2.xmlhttp
Dim url As String
Dim user As String
Dim Password As String
Dim strJSONToSend As Variant
Dim strUpit As Variant



url = "https://time.is/"




xmlhttp.Open "GET", url, False
xmlhttp.setRequestHeader "Content-Type", "text/html; charset=utf-8"
xmlhttp.setRequestHeader "Accept", "text/html"
xmlhttp.setRequestHeader "Host", "vreme.radioni.ca"
xmlhttp.setRequestHeader "Content-Length", 1316
xmlhttp.setRequestHeader "Expect", "100-continue"

xmlhttp.Send (url)




Me.txtOutput4 = xmlhttp.GetAllResponseHeaders

MsgBox (xmlhttp.GetAllResponseHeaders)

If IsNull(Me.txtOutput4) = False And Len(Me.txtOutput4) <> 13 Then

Dim lPos1 As Long
Dim lPos2 As Long
Dim sText As String, sSubString As String
sText = txtOutput4
lPos1 = InStr(1, sText, "Expires:")
Do While lPos1 > 0
lPos2 = InStr(lPos1 + 1, sText, "Content-Language")
If lPos2 > 0 Then
sSubString = Mid$(sText, lPos1 + 14, lPos2 - lPos1 - 31)
Debug.Print sSubString
Else
Exit Do
End If
lPos1 = InStr(lPos2 + 1, sText, "Expires:")
Loop
Me.txtOutput = sSubString
Me.txtOutput3 = Format(sSubString, "dd-MMM-yy")
End If
End Sub

Pozdrav