Ricavare data

lunedì 24 agosto 2009 - 15.58

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Idea Grip Profilo | Newbie

43 messaggi | Data Invio: lun 24 ago 2009 - 15:58

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

1.079 messaggi | Data Invio: lun 24 ago 2009 - 16:29

>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

43 messaggi | Data Invio: lun 24 ago 2009 - 17:17

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

Torna su

Stanze Forum

Elenco Threads

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 !