Vb.net - Gestione licenze singole

domenica 05 agosto 2007 - 10.44

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

seven.7 Profilo | Junior Member

127 messaggi | Data Invio: dom 5 ago 2007 - 10:44

Ho concluso la mia prima applicazione in vb.net e adesso volevo cimentarmi nella gestione delle licenze che intendo realizzare secondo la filosofia di utilizzo su singola macchina... leggendo un po' di qua e di la sul web sono arrivato alla conclusione che la migliore soluzione è di realizzare una stringa sulla macchina del cliente legato all'hardware (harddisk e processore) è generare un algoritmo di decrypt basato su questa stringa e le generalità del cliente. Partendo su questa teoria ho trovato questo script solo che non ho capito bene la differenza (o meglio come riconoscere) il seriale della partizione e il seriale dell'hd. In tutti i casi spero che qualcuno mi aiuti magari indicandomi qualche buon libro... Grazie mille :D alla prox

MODIFICATO 08-06: Alla fine ho scritto questo codice che credo posso funzionare solo una domanda a questo punto... se ci sono 2 hard disk nel pc come faccio a prendere le informazioni dell'hd sul quale gira il programma? io penso che questi dati possano bastare per una prima parte di codice, poi realizzerò l'altra parte (la più difficile e delicata credo) l'algoritmo! fiducioso nel saggio consiglio che mi dai :D ciaouz

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
Dim search As New ManagementObjectSearcher("SELECT * FROM Win32_BIOS")
Dim search2 As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")
Dim search3 As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
Dim search4 As New ManagementObjectSearcher("SELECT * FROM Win32_ComputerSystem")
Dim info As ManagementObject
Dim txt As String
For Each info In search.Get()
txt = (info("SerialNumber").ToString()).Trim()
TextBox1.Text = "BIOS Serial Number: " & txt & ControlChars.NewLine
Next
'
'
'Informazioni sul processore
For Each info In search2.Get()
'
' Seriale del processore
txt = (info("ProcessorID").ToString()).Trim()
TextBox1.Text += "Processore ID: " & txt & ControlChars.NewLine
'
' Nome del processore
txt = info("Name").ToString()
Do
txt = txt.Replace(" ", " ")
Loop While (txt.IndexOf(" ") <> -1)
TextBox1.Text += "Nome processore: " & txt & ControlChars.NewLine
Next
For Each info In search3.Get()
If info("SerialNumber") Is Nothing Then
txt = "Non presente"
Else
txt = info("SerialNumber").ToString()
txt = txt.Trim
End If
TextBox1.Text += "Hard disk S/N: " & txt & ControlChars.NewLine
Next
For Each info In search4.Get()
'
' Fabbrica costruttrice PC
txt = (info("Manufacturer").ToString()).Trim()
TextBox1.Text += "Fabbrica costruttrice PC: " & txt & ControlChars.NewLine
'
' Modello PC
txt = info("Model").ToString()
Do
txt = txt.Replace(" ", " ")
Loop While (txt.IndexOf(" ") <> -1)
TextBox1.Text += "Modello PC: " & txt & ControlChars.NewLine
Next
End Sub

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 !