XProfan

Français

Pedro
Santos

allô Community

Habe es déjà la fois gesehen cela pour qui installation eines programmes beim ersten start cet programm une numéro zeigt wahrscheinlich qui numéro de qui Festplatte worauf ensuite beim programm Hersteller angerufen volonté muss et cet numéro angeben um une Lizenznummer trop bekommen avec cela cela Programme freigeschaltet wird. Hat cela quelqu'un déjà gemacht ou bien weiss comme avec Profan gemacht volonté peux?

merci

Grüsse

Pedro

Windows XP Home
Xprofan 10

20.12.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

oui, là serait je mir mais selbst quoi ausdenken, sonst large es oui chacun...

20.12.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Pedro
Santos

allô Andreas

c'est déjà richtig, quoi je encore pas weiss ist comment qui Festplatte seriennummer auszulesen ist.

Gruss

Pedro

Windows XP Home
Xprofan 10

20.12.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

attends une Moment, schreibe grad quoi...

20.12.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

So dans qui Art?
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

...et so wärs entier korrekt...
Kompilieren Marque Séparation

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