[Resolvido]Ler 2 numeros de serie ?

Boa tarde

Seria possivel por esta função para 2 Numeros de Série para trabalhar em 2 Computadores ?


Private Sub Form_Open(Cancel As Integer)
Dim lVSN As Long, N As Long, s1 As String, s2 As String
Dim Unidade, Serie As String
Dim sTmp As String
Dim db As Database, t1 As Recordset
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 t1 = db.OpenRecordset("Serial", dbOpenTable)

'Valor1 = t1![NumSerial]
If t1.BOF = True Then
t1.AddNew
t1![Código] = 1
t1![NumSerial] = Serie
t1.Update
'MsgBox t1![NumSerial]
Else
If t1![NumSerial] <> Serie Then
Me!nserie = Serie
End If
End If
t1.Close

Select Case nserie
' o valor lido deve ser este
' erro cópia pirata
Case Is <> "2ED3-CF10" Colocar aqui Outro
DoCmd.Close acForm, "LerNúmeroHD"
MsgBox "*** Programa Copiado ***" & vbCrLf & "Não tem autorização para executar o Programa neste Computador." & vbCrLf & "Contacte o Administrador. " & vbCrLf & "Não me resposabilizo por danos que possam acorrer no seu Computador caso insista em ter acesso ao Programa." & vbCrLf & "O seu Sistema será encerrado", vbCritical, "Violação de Sistema"
DoCmd.Quit
Case Is = "8ED3-CF10" Colocar aqui Outro
DoCmd.Close acForm, "LerNúmeroHD"
DoCmd.openForm "Menu"
End Select
ReSizeForm Me
End Sub

Boa tarde, Assis

Será assim:
Select Case nserie
' o valor lido deve ser este
' erro cópia pirata
Case Is <> "2ED3-CF10" and <> "outro" Colocar aqui Outro
DoCmd.Close acForm, "LerNúmeroHD"
MsgBox "*** Programa Copiado ***" & vbCrLf & "Não tem autorização para executar o Programa neste Computador." & vbCrLf & "Contacte o Administrador. " & vbCrLf & "Não me resposabilizo por danos que possam acorrer no seu Computador caso insista em ter acesso ao Programa." & vbCrLf & "O seu Sistema será encerrado", vbCritical, "Violação de Sistema"
DoCmd.Quit
Case Is = "8ED3-CF10" or "outro" Colocar aqui Outro
DoCmd.Close acForm, "LerNúmeroHD"
DoCmd.openForm "Menu"
End Select
ReSizeForm Me
End Sub
Cumprimentos,

Boa tarde Alexandre

Dá erro "Expected: expression" no segundo <>

Case Is <> "2ED3-CF10" and <> "outro" Colocar aqui Outro

Tópico movido para o local correto.

Novamente, Assis

Utilize
' o valor lido deve ser este
' erro cópia pirata
If nserie <> "2ED3-CF10" and nserie <> "outro" then
DoCmd.Close acForm, "LerNúmeroHD"
MsgBox "*** Programa Copiado ***" & vbCrLf & "Não tem autorização para executar o Programa neste Computador." & vbCrLf & "Contacte o Administrador. " & vbCrLf & "Não me resposabilizo por danos que possam acorrer no seu Computador caso insista em ter acesso ao Programa." & vbCrLf & "O seu Sistema será encerrado", vbCritical, "Violação de Sistema"
DoCmd.Quit
ElseIf nserie = "8ED3-CF10" or nserie= "outro" Colocar aqui Outro
DoCmd.Close acForm, "LerNúmeroHD"
DoCmd.openForm "Menu"
End If
ReSizeForm Me
End Sub

Erro
If nserie <> "2ED3-CF10" and nserie <> "outro" then

Novamente, Assis

Preencheu o "outro" pelo nº de série?
Estranho não funcionar. No entanto, pode utilizar serie em vez de nserie:

' o valor lido deve ser este
' erro cópia pirata
If serie <> "2ED3-CF10" and serie <> "outro" then
DoCmd.Close acForm, "LerNúmeroHD"
MsgBox "*** Programa Copiado ***" & vbCrLf & "Não tem autorização para executar o Programa neste Computador." & vbCrLf & "Contacte o Administrador. " & vbCrLf & "Não me resposabilizo por danos que possam acorrer no seu Computador caso insista em ter acesso ao Programa." & vbCrLf & "O seu Sistema será encerrado", vbCritical, "Violação de Sistema"
DoCmd.Quit
ElseIf serie = "8ED3-CF10" or serie= "outro" then
DoCmd.Close acForm, "LerNúmeroHD"
DoCmd.openForm "Menu"
End If
ReSizeForm Me
End Sub

Cumprimentos,

Boa noite Alexandre

Já funciona e ficou assis ... Obrigado

If Serie <> "****-****" And Serie <> "****-****" Then
DoCmd.Close acForm, "LerNúmeroHD"
MsgBox "*** Programa Copiado ***" & vbCrLf & "Não tem autorização para executar o Programa neste Computador." & vbCrLf & "Contacte o Administrador. " & vbCrLf & "Não me resposabilizo por danos que possam acorrer no seu Computador caso insista em ter acesso ao Programa." & vbCrLf & "O seu Sistema será encerrado", vbCritical, "Violação de Sistema"
DoCmd.Quit
Else
DoCmd.Close acForm, "LerNúmeroHD"
DoCmd.openForm "SeuPrimeiroForm"
End If

Assis, tenho um exemplo de proteção de sistema, de uma olhada.

http://maximoaccess.forumeiros.com/t1869-planos-de-pagamento-e-seguranca-de-software

Por aquilo que li é 2007 e eu tenho o 2003