XProfan

Español

Pedro
Santos

¡Hola Comunidad

Posesiones lo ya veces gesehen el después de el installation uno programmes beim ersten start dieses programm una Nummer zeigt wahrscheinlich el Nummer de el Festplatte worauf entonces beim programm Hersteller angerufen voluntad muss y esta Nummer angeben una Lizenznummer a bekommen así el Programa freigeschaltet se. Sombrero el alguien ya gemacht oder blanco como con Profano gemacht voluntad kann?

Gracias

Grüsse

Pedro

Windows XP Home
Xprofan 10

20.12.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Sí, como sería Yo aber incluso qué ausdenken, sonst weit lo sí cada...

20.12.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Pedro
Santos

¡Hola Andreas

Es ya correcto, Yo todavía no blanco es como Festplatte seriennummer auszulesen es.

Gruss

Pedro

Windows XP Home
Xprofan 10

20.12.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Warte una Moment, escribir grad qué...

20.12.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

So en el Art?
Kompilieren Marca Separación

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 Cita Zeilenweise Cita

...y así wärs bastante korrekt...
Kompilieren Marca Separación

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