Brauche hilfe bei einen Programm

  • Hallo für euch wahrscheinlich einfach für mich schwerXD


    Code:

    [autoit]

    $var = DriveGetSerial( "a:\" )
    $var2 = @OSLang
    $var = $var & $var2
    $var = StringReplace($var, "0", "E")
    $var = StringReplace($var, "1", "J")
    $var = StringReplace($var, "2", "W")
    $var = StringReplace($var, "3", "Z")
    $var = StringReplace($var, "4", "R")
    $var = StringReplace($var, "5", "C")
    $var = StringReplace($var, "6", "V")
    $var = StringReplace($var, "7", "S")
    $var = StringReplace($var, "8", "H")
    $var = StringReplace($var, "9", "A")
    $var = "SF12-" & $var

    [/autoit][autoit][/autoit][autoit]

    If $var <> "SF12-VEHSWEWWAERES" Then
    MsgBox(0, "Fehler", "Diese Version läuft nicht auf deinem rechner!!!")
    Exit
    EndIf

    [/autoit]


    Hab einer meiner proggis mit diesem code gesichert jetzt wollt ich fragen,wie bekomm ich das hin, dass nicht nur a:\ nach der hadwareid überprüft wird ,sondern alle Laufwerksbustaben?????


    Also hab vor das ding aufm usb Stick zu packen,natürlich gebunden an der hadwareid vom Stick,aber der Stick wird auch bei anderen PC´s verwendet,die andere laufwerksbustaben haben.....


    pls help

    Action GtaSpider: [07.08.2007 11:26]
    Bitte AutoIt Tags benutzen

    Code
    [autoit][/autoit]

    Einmal editiert, zuletzt von dieschara (6. August 2007 um 23:45)

  • Soll das Programm immer den dem USB-Stick zugeordneten Laufwerksbuchstaben prüfen? Falls ja dann einfach mit StringLeft( @ScriptDir, 3 )

    • Offizieller Beitrag

    Hallo

    [autoit]

    $var = DriveGetSerial( StringLeft( @ScriptDir, 3 ))
    $var2 = @OSLang
    $var = $var & $var2
    $var = StringReplace($var, "0", "E")
    $var = StringReplace($var, "1", "J")
    $var = StringReplace($var, "2", "W")
    $var = StringReplace($var, "3", "Z")
    $var = StringReplace($var, "4", "R")
    $var = StringReplace($var, "5", "C")
    $var = StringReplace($var, "6", "V")
    $var = StringReplace($var, "7", "S")
    $var = StringReplace($var, "8", "H")
    $var = StringReplace($var, "9", "A")
    $var = "SF12-" & $var

    [/autoit][autoit][/autoit][autoit]

    If $var <> "SF12-VEHSWEWWAERES" Then
    MsgBox(0, "Fehler", "Diese Version läuft nicht auf deinem rechner!!!")
    Exit
    EndIf

    [/autoit]

    Mfg Spider


  • Also das scheint irgendwie nicht zu klappen,
    Mein USB Stick klappt bei mir zuhause erkannt als K:\ und an nem andern Rechner erkannt als g:\ klappt es wieder nicht "heul"