Frage zu steam

[sunny-boy3]

Hallo ich habe mal ne frage ich versuche gerade ein programm zu coden welches den steam ausliest und diesen in verzeichnis C:\Steam.txt speichert wie stele ich das an


Dim Write = New StreamWriter(Environ("C:\Steam.txt))

Write.WriteLine("Splinter Cell Pandora Tomorrow")

Dim Key1 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Ubi soft\Splinter Cell Pandora Tomorrow", "CDKey", Nothing)
Write.WriteLine(Key1)
Write.Flush()


So sieht das derzeit bei mir aus aber ich kann im verzeichnis c keine steam.txt finden wie bekomme ich es hin das der ausgelesende steam dort hingeschrieben wird?(Als Steam.txt)

[gf0x]

 Dim Write = New StreamWriter(Environ("C:\Steam.txt))

  Write.WriteLine("Splinter Cell Pandora Tomorrow")

        Dim Key1 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Ubisoft\Splinter Cell Pandora Tomorrow", "CDKey", Nothing)
        Write.WriteLine(Key1)
        Write.Flush()

So mal probiert?

[sunny-boy3]

Kompletter Quote entfernt. Boardregeln lesen!

Gerade Probiert geht auch nicht

[DarkFire]

Dim Write = New StreamWriter(Environ("C:\Steam.txt))

Write.WriteLine("Splinter Cell Pandora Tomorrow")

Dim Key1 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Ubi soft\Splinter Cell Pandora Tomorrow", "CDKey", Nothing)
Write.WriteLine(Key1)
Write.Flush()
Write.Close

So sieht das derzeit bei mir aus aber ich kann im verzeichnis c keine steam.txt finden

Wenn nichtmal die Steam.txt erstellt wird ist an deinem Rechner irgendwas putt =)

[sunny-boy3]

Wenn nichtmal die Steam.txt erstellt wird ist an deinem Rechner irgendwas putt =)

hab es im formload kommt keine txt

[phil333]

Verscuh doch mal im Debuggermodus zu überprüfen, welche Daten eingelesen werden, bzw. ob da schon ein Fehler auftritt.

[sunny-boy3]

Kompletter Quote entfernt. Boardregeln lesen!


Kommt kein fehler ich habe kein steam bei mir installiert aber die txt müßte trotzdem kommen aber kein fehler keine txt

[till7]

Dim Write = New StreamWriter("C:\steam.txt")

        Write.WriteLine("Splinter Cell Pandora Tomorrow")

        Dim Key1 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Ubi soft\Splinter Cell Pandora Tomorrow", "CDKey", Nothing)
        Write.WriteLine(Key1)
        Write.Flush()

Edit/

Mit diesem Beispiel muss man keine Admin Rechte haben unter Vista & Win 7:

Dim Write = New StreamWriter(Environ("tmp") & "\steam.txt")

        Write.WriteLine("Splinter Cell Pandora Tomorrow")

        Dim Key1 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Ubi soft\Splinter Cell Pandora Tomorrow", "CDKey", Nothing)
        Write.WriteLine(Key1)
        Write.Flush()

[sunny-boy3]

Kompletter Quote entfernt. Boardregeln lesen!

Geht auch nicht keine txt vorhanden

[till7]

Bei mir schon Denke das es an deinem PC i-wie liegt weil bei dir ja kein einziges Beispiel funktioniert^^