XProfan

Italia

Pedro
Santos

Hallo Community

Habe es schon mal gesehen das nach der installation eines programmes beim ersten start dieses programm eine Nummer zeigt wahrscheinlich die Nummer von der Festplatte worauf dann beim programm Hersteller angerufen werden muss und diese Nummer angeben um eine Lizenznummer zu bekommen damit das Programm freigeschaltet wird. Hat das jemand schon gemacht oder weiss wie es mit Profan gemacht werden kann?

Danke

Grüsse

Pedro

Windows XP Home
Xprofan 10

20.12.2005 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Ja, da würde ich mir aber selbst was ausdenken, sonst weit es ja jeder...

20.12.2005 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Pedro
Santos

Hallo Andreas

Das ist schon richtig, was ich noch nicht weiss ist wie die Festplatte seriennummer auszulesen ist.

Gruss

Pedro

Windows XP Home
Xprofan 10

20.12.2005 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Warte einen Moment, schreibe grad was...

20.12.2005 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

So in der Art?
Kompilieren Markieren Separieren

Declare x&,y&,bereich#,text$,bereich2#,Bereich5#
Dim bereich#,1024
Dim bereich2#,256
DIM BEREICH5#,8
Def @GetVolumeInformation(8) !"KERNEL32","GetVolumeInformationA"
Windowstyle 31
Windowtitle "Laufwerksnamen"
Window 0,0-640,440
String bereich2#,0="A:"

Whileloop 16

    Clear Bereich5#
    x&=@GetVolumeInformation(bereich2#,bereich#,1024,Bereich5#,0,0,0,0)

    If x&

        text$=@String$(bereich#,0)
        Print @String$(bereich2#,0)+" = "+text$
        Print "Ausgelesene Nummer: ";@LONG(bereich5#,0);@LONG(bereich5#,4)

    EndIf

    Byte bereich2#,0=@Byte(bereich2#,0)+1

EndWhile

Dispose bereich#
Dispose bereich2#
Dispose Bereich5#

While 0=0

    Waitinput

Wend

20.12.2005 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

...und so wärs ganz korrekt...
Kompilieren Markieren Separieren

Declare x&,y&,bereich#,text$,bereich2#,Bereich5#
Dim bereich#,1024
Dim bereich2#,256
DIM BEREICH5#,4
Def @GetVolumeInformation(8) !"KERNEL32","GetVolumeInformationA"
Windowstyle 31
Windowtitle "Laufwerksnamen"
Window 0,0-640,440
String bereich2#,0="A:"

Whileloop 16

    Clear Bereich5#
    x&=@GetVolumeInformation(bereich2#,bereich#,1024,Bereich5#,0,0,0,0)

    If x&

        text$=@String$(bereich#,0)
        Print @String$(bereich2#,0)+" = "+text$
        Print "Ausgelesene Nummer: "+@RIGHT$("0000"+@HEX$(@WORD(bereich5#,2)),4)+"-"+@RIGHT$("0000"+@HEX$(@WORD(bereich5#,0)),4)

    EndIf

    Byte bereich2#,0=@Byte(bereich2#,0)+1

EndWhile

Dispose bereich#
Dispose bereich2#
Dispose Bereich5#

While 0=0

    Waitinput

Wend