Newsgroup: it.comp.appl.access
Titolo: serialHd del sito comune

Ciao a tutti
Uso A2000. c'è qualcuno che può aiutarmi a capire  questo file in sito
comune denominato "seialHd.zip",che è stato  creato  sotto Access97. ho
tentato di convertirlo in A2000 ma non  riesco a fare niente. vorrei capire
il concetto e come funziona in pratica. Grazie
_Shari


Se non ricordo male, prima vai a ricavare il seriale del tuo HD, il valore
ricavato lo sostituisci con quello presente nella tabella dell'esempio, e
vedrai che quando avvii il DB , partirą regolarmente.
Max


temo che dovrai installarti il 97, e poi ti copi il codice in 2k e
funziona...
by
stwe

 > comune denominato "seialHd.zip",che è stato  creato  sotto Access97. ho


 ha scritto nel messaggio
news:9rse6d$an6$1...@pegasus.tiscalinet.it...

rispondi dopo il post
in ogni caso devo installare a97 domattina, ti invio il codice via e-mail
by
stwe

 ha scritto nel messaggio
news:znmE7.27000$7A4.1...@news.infostrada.it...

Io ho provato con A2000 e funziona....se non ricordo male....devi farlo
partire con il tasto shift premuto....ma potrei sbagliare......le prove
risalgono ad un po' di tempo fa...
ciao ciao

 ha scritto nel messaggio
news:9rrkvf$paq$1...@pegasus.tiscalinet.it...

allora questo è il modulo:
Option Compare Database
Option Explicit
' Questo modulo contiene la funzione da usare per ricavare il Serial-Number
di una unita'.
' Alla funzione GetSerialNumber(strDrive As String) Si può passare come
parametro una stringa
' contenente l'unita' da controllare, esempio "D:\".
' In questo caso io controllo direttamente C:\
Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias _
    "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal _
    lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, _
    lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _
    lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal
_
    nFileSystemNameSize As Long) As Long
Function GetSerialNumber() As Long
    Dim SerialNum As Long
    Dim Res As Long
    Dim Temp1 As String
    Dim Temp2 As String
    Temp1 = String$(255, Chr$(0))
    Temp2 = String$(255, Chr$(0))
    'Se vi sono errori Res=0, altrimenti, se tutto e' andato ok, Res=1
    Res = GetVolumeInformation("C:\", Temp1, Len(Temp1), SerialNum, 0, 0,
Temp2, Len(Temp2))
    'Res = GetVolumeInformation(strDrive, Temp1, Len(Temp1), SerialNum, 0,
0, Temp2, Len(Temp2))
    GetSerialNumber = SerialNum
End Function
e questo è il codice sulla maschera principale:
'Creato da Giacomo Arena 
Gia...@mediel.it
Private Sub Form_Open(Cancel As Integer)
    Dim CodSbloc As String
    Dim Dbs As Database
    Dim Rst As Recordset
    On Error Resume Next
    Set Dbs = CurrentDb
    Set Rst = Dbs.OpenRecordset("select * from Chiave")
    Rst.MoveFirst
    If Rst!chiave <> GetSerialNumber Then
        CodSbloc = InputBox("Si è tentato di duplicare l'applicativo!" &
(Chr(13)) & "Inserire il codice di sblocco! (01091962)" & (Chr(13)) & "Il
programma sarà chiuso comunque")
        If CodSbloc = "01091962" Then 'questo valore è sostituibile con
quello che volete
            Rst.Edit
            Rst!chiave = GetSerialNumber
            Rst.Update
        End If
        Rst.Close
        Dbs.Close
        Set Rst = Nothing
        Set Dbs = Nothing
        DoCmd.Quit 'questo comando chiude in ogni caso il menu del programma
se è stato duplicato
    End If
    Rst.Close
    Dbs.Close
    Set Rst = Nothing
    Set Dbs = Nothing
End Sub
fammi sapere
by
stwe

 ha scritto nel messaggio
news:%6XE7.8065$sq5.4...@news.infostrada.it...


 ha scritto nel messaggio
news:%6XE7.8065$sq5.4...@news.infostrada.it...


 Grazie ancora.Ciao
Devi aggiungere DAO nei riferimenti.
Apri un modulo qualunque e dal menu' Strumenti - Riferimenti devi
selezionare DAO.
Se vuoi che sia predefinito e non mettere mano al codice devi spostare il
riferimento in modo che compaia prima di ADO, altrimenti devi specificare
Dim Dbs as DAO.Database
Dim Rst as DAO.Recordset
Ciao
--
Andrea

 ha scritto nel messaggio
news:9s8cm9$11k3gd$2...@ID-65136.news.dfncis.de...


 _Shari
[Cut]
Prima di tutto la prossima volta rispondi DOPO la parte quotata.
Allora, non saprei, prova a togliere l'ultimo dbs.close.
Ciao
--
Andrea
-- 
Posted from 
www.silab.dsi.unimi.it
 [159.149.134.17] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
9scfc4$i7n$1...@pegasus.tiscalinet.it...
