<<<< super fla-progetto >>>>>

[unreg]

Salve

mi serve sapere come posso fare una protezzione x un cd :

ecco la mia idea

questo deve essere il comportamento della scena1:

-legge il numero di serie dell'HDD

-rielabora il numero dell'HDD x ottenere la passw corretta (diversa da pc a pc)

-confronta la passw inserita a quella corretta

-se la passw è corretta esegue va alla scena entra altrimenti appare un messaggio d'errore e esce.

si puo fare una cosa del genere ?

:quipy:

[DaZKooL]

Originariamente inviato da unreg
Salve

mi serve sapere come posso fare una protezzione x un cd :

ecco la mia idea

questo deve essere il comportamento della scena1:

-legge il numero di serie dell'HDD

-rielabora il numero dell'HDD x ottenere la passw corretta (diversa da pc a pc)

-confronta la passw inserita a quella corretta

-se la passw è corretta esegue va alla scena entra altrimenti appare un messaggio d'errore e esce.

si puo fare una cosa del genere ?

:quipy:

innanzitutto come fai a sapere il numero di serie degli HDD dei tuoi clienti

[3millennium]

altra domanda...come fai a impostare il numero di serie del cd?

[unreg]

non esiste una cosa di simile in flash ?

questo è vb:

Private Sub Form_Load()
Label1.Caption = GetDriveInfo("C:\", GETDI_SERIAL) 'mostra nella label1 il serial del nostro HDD
End Sub

Private Sub Command1_Click()
directory = ("" & App.Path & "") + "zanna.x86" 'directory in cui si trova + zanna.x86
passw = Label1.Caption - 86 'prende il serial sottrae 86
passw = Left(passw, 9) 'poi prende in considerazione solo le prime 9 cifre partendo da sinistra
passw = passw * 8686 'moltiplica poi x 8686
passw = Right(passw, 6) 'considera solo le prime 6 cifre partendo da destra
If Text1.Text = passw Then 'se il text1 è = alla password corretta...
x = Shell(directory, 1) 'esegui il file zanna.x86...
Else 'altrimenti...
MsgBox "Errore" 'messaggio d'errore
Unload Me 'esce
End If
End Sub

[chisono]

beh se parli di CD-Rom la cosa si puo' fare senza problemi...


basta utilizzare il codice vb che hai postato su e inviarlo al flash.. tanto VB6 implementa anche filmati swf...

[unreg]

beh se parli di CD-Rom la cosa si puo' fare senza problemi...


basta utilizzare il codice vb che hai postato su e inviarlo al flash.. tanto VB6 implementa anche filmati swf...

si puo far interagire visul besic e macromedia flash ?

mi dai quelche info in piu' ?

[3millennium]

se non erro, non ti basta che lanciare il filmato con dei parametri...come se fosse in una pagina asp...giusto?

[Nico]

In vb devi inserire il componente Shockwave Flash mi pare, dovresti averlo nella lista dei componenti