Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Promjena sistemskog vremena na racunaru

[es] :: Access :: Promjena sistemskog vremena na racunaru

[ Pregleda: 672 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 136
*.teol.net.



Profil

icon Promjena sistemskog vremena na racunaru22.10.2018. u 12:06 - pre 22 meseci
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
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2733



+33 Profil

icon Re: Promjena sistemskog vremena na racunaru23.10.2018. u 05:43 - pre 22 meseci
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

 
Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 136
*.teol.net.



Profil

icon Re: Promjena sistemskog vremena na racunaru23.10.2018. u 08:19 - pre 22 meseci
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
 
Odgovor na temu

[es] :: Access :: Promjena sistemskog vremena na racunaru

[ Pregleda: 672 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.