Promjena sistemskog vremena na racunaru

Promjena sistemskog vremena na racunaru 22.10.2018. u 13:06 · pre 97 meseci #1

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

Re: Promjena sistemskog vremena na racunaru 23.10.2018. u 06:43 · pre 97 meseci #2

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

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Re: Promjena sistemskog vremena na racunaru 23.10.2018. u 09:19 · pre 97 meseci #3

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

Forum kao aplikacija na telefonu

Srodne teme