Ricavare data

lunedì 24 agosto 2009 - 15.58

Idea Grip Profilo | Newbie

Buonasera a tutti nel forum.
Ho un'applicazione in vb.net che voglio distribuire, vorrei farla funzionare a noleggio, di anno in anno e per questo avrei pensato di caricare la data del primo avvio sul mio sito, poi vorrei confrontarla con la data odierna, ma la data odierna vorrei ricavarla sempre dal mio sito e non dal pc dell'utente che potrebbe modificare a suo piacimento.

Ho cercato un pò in giro ma con scarsi risultati, come faccio a inserire un controllo data sul mio sito aggiornato?

(Altresì spero di essere nella sezione giusta)

Grazie a chi mi può dare qualche idea

Saluti

luxsor Profilo | Guru

>Buonasera a tutti nel forum.
Ciao

Ti consiglio di crearti una pagina aspx con il seguente codice all'interno:
'Accoda nel Response la Data e l'ora del server
Response.Write(Date.Now)

Fatto questo devi inglobare nella tua applicazione una piccola funzione che collegandosi al sito, alla pagina appena creata, ti restituisca la data effettuare del server, che poi dovrai confrontarla con quella del programma.

Public Function RestituisciDataServer() As String

Dim objRequest As System.Net.WebRequest
Dim objResponse As System.Net.WebResponse = Nothing
Dim objStreamReceive As System.IO.Stream
Dim objEncoding As System.Text.Encoding
Dim objStreamRead As System.IO.StreamReader
Dim strData As String = ""
Try

objRequest = System.Net.WebRequest.Create("http://www.nomedelsito/pagina.aspx")
objRequest.Timeout = 5000 ' TimeoutSeconds * 1000

objResponse = objRequest.GetResponse
objStreamReceive = objResponse.GetResponseStream
objEncoding = System.Text.ASCIIEncoding.ASCII
objStreamRead = New System.IO.StreamReader(objStreamReceive, objEncoding)
' Set function return value
strData = objStreamRead.ReadToEnd()

RestituisciDataServer = strData

objStreamRead.Close()
Catch ex As Exception
Return ""

End Try

Spero di esserti stato utile.
Fammi sapere


------------------------
Luxsor

Idea Grip Profilo | Newbie

Perfettissimo cosi.
Ho formattato la data nella pagina aspx(format(now, "dd/MM/yyyy") perchè l'ora non mi interessa) e poi tagliato il risultato della funzione con risultato = Mid(risultato, 1, 10) per avere la sola data già formattata, e funziona.

grazie infinite Luxsor

Ciao
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2023
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5