Início
![[Resolvido]Número de Serial Empty](https://2img.net/i/empty.gif)
Naldo 25/7/2011, 15:08Bom dia a todos.
Retorno a solicitar auxílio aos amigos do Fórum que é o seguinte
Tenho este comando ao abrir meu form. de senha ao iniciar o Banco
----------------------------------------
Private Sub Form_Open(Cancel As Integer)
Call Protecao("15/06/11", 60) 'dia/mes/ano, total dos dias a expirar
Rótulo107.Caption = #6/15/2011# + 60 'Alterar o Valor do Prazo >>mes/dia/ano + total dos dias a expirar
Dim lVSN As Long, n As Long, s1 As String, s2 As String
Dim unidade, Serie As String
Dim sTmp As String
Dim t2 As Recordset
Dim db As Database
On Local Error Resume Next
'especifica-se o diretorio raiz
unidade = "C:\"
'Reservando espaço para os string que serão passados para a API
s1 = String$(255, Chr$(0))
s2 = String$(255, Chr$(0))
n = GetVolumeInformation(unidade, s1, Len(s1), lVSN, 0, 0, s2, Len(s2))
's1 terá o label da unidade
'lVSN terá o serial number
's2 indica o tipo de gravação de arquivo (se FAT, etc...)
'Numero IVSN (serial number) é convertido para hexadecimal para ser mostrado como no DIR
sTmp = Hex$(lVSN)
'Me.Text1 = s1
Serie = Left$(sTmp, 4) & "-" & Right$(sTmp, 4)
'Me.Text3 = s2
Set db = CurrentDb
Set t2 = db.OpenRecordset("Serial", dbOpenTable)
'Valor1 = t1![NumSerial]
If t2.BOF = True Then
t2.AddNew
t2![Código] = 1
t2![NumSerial] = Serie
t2.Update
'MsgBox t1![NumSerial]
Else
If t2![NumSerial] <> Serie Then
MsgBox "Desculpe, mas este aplicativo não pode ser executado neste computador DEVIDO AO NÚMERO DO SEU SERIAL e será fechado, Entre em contato com, ::: ! ", vbCritical
Application.Quit acPrompt
End If
End If
t2.Close
End Sub
----------------------
Funciona muito bem, mas gostaria de uma ajuda ao invés de pegar o número do serial do H.D. ele pegue o número do processador do PC, assim todas as vezes que o PC for formatado eu não teria que acertar o novo número gerado na nova formatação.
Agradeço pela atenção de todos
Retorno a solicitar auxílio aos amigos do Fórum que é o seguinte
Tenho este comando ao abrir meu form. de senha ao iniciar o Banco
----------------------------------------
Private Sub Form_Open(Cancel As Integer)
Call Protecao("15/06/11", 60) 'dia/mes/ano, total dos dias a expirar
Rótulo107.Caption = #6/15/2011# + 60 'Alterar o Valor do Prazo >>mes/dia/ano + total dos dias a expirar
Dim lVSN As Long, n As Long, s1 As String, s2 As String
Dim unidade, Serie As String
Dim sTmp As String
Dim t2 As Recordset
Dim db As Database
On Local Error Resume Next
'especifica-se o diretorio raiz
unidade = "C:\"
'Reservando espaço para os string que serão passados para a API
s1 = String$(255, Chr$(0))
s2 = String$(255, Chr$(0))
n = GetVolumeInformation(unidade, s1, Len(s1), lVSN, 0, 0, s2, Len(s2))
's1 terá o label da unidade
'lVSN terá o serial number
's2 indica o tipo de gravação de arquivo (se FAT, etc...)
'Numero IVSN (serial number) é convertido para hexadecimal para ser mostrado como no DIR
sTmp = Hex$(lVSN)
'Me.Text1 = s1
Serie = Left$(sTmp, 4) & "-" & Right$(sTmp, 4)
'Me.Text3 = s2
Set db = CurrentDb
Set t2 = db.OpenRecordset("Serial", dbOpenTable)
'Valor1 = t1![NumSerial]
If t2.BOF = True Then
t2.AddNew
t2![Código] = 1
t2![NumSerial] = Serie
t2.Update
'MsgBox t1![NumSerial]
Else
If t2![NumSerial] <> Serie Then
MsgBox "Desculpe, mas este aplicativo não pode ser executado neste computador DEVIDO AO NÚMERO DO SEU SERIAL e será fechado, Entre em contato com, ::: ! ", vbCritical
Application.Quit acPrompt
End If
End If
t2.Close
End Sub
----------------------
Funciona muito bem, mas gostaria de uma ajuda ao invés de pegar o número do serial do H.D. ele pegue o número do processador do PC, assim todas as vezes que o PC for formatado eu não teria que acertar o novo número gerado na nova formatação.
Agradeço pela atenção de todos
