XProfan

English

Pedro
Santos

Hello Community

have it already time seen the to the installation one program at first start this Program a number shows probably The number from the Festplatte on what then the Program manufacturers phoned go must and these number indicate circa a Lizenznummer To get so the program freigeschaltet becomes. If the someone already made or knows as with Profan made go can?

thanks

Regards

Pedro

Windows XP Home
Xprofan 10

12/20/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Yes, there would I me but self what conceive, otherwise far it Yes eachone...

12/20/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Pedro
Santos

Hello Andreas

this is already correctly., I not yet knows is as Festplatte serial number auszulesen is.

greeting

Pedro

Windows XP Home
Xprofan 10

12/20/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

were a momentum, write strain what...

12/20/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

so in the manner?
Compile Mark Separation

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

12/20/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

...and so wärs integrally correctly...
Compile Mark Separation

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