3.4.10:
Hallo,
ich habe ein programm geschrieben, dass einen eintrag in die registry schreibt und dann entsprechend das login hintergrundbild ändert,
bei mir funktioniert es auch wunderbar, aber als mein freund es ausprobiert hat stürzte sein rechner ab, bzw is dann heruntergefahren
kann es sein, dass bei anderen ausführungen von win 7 die registry einträge anders sin(ich: win 7 home premium, freund: win 7 professional)
anbei mein code
form load
Spoiler anzeigen
button bild wählen
Spoiler anzeigen
button anwenden
Spoiler anzeigen
button zurücksetzen:
Spoiler anzeigen
kann mir da jemand helfen, wenn jemand meinen stil kritisieren will der kann das gerne tun, mit dem hinweis dass ich ziemlich neu in der materie bin
andere frage, wieso wird der code so krass geändert wenn ich von vb 2008 hierrein kopiere?^^
4.4.10 : kann denn keiner helfen?
09.04.:
Vll kanns mal jemand ausprobieren, ich garantiere bei mir gings!!
Alles was ihr braucht is Windows7 und das verzeichnis:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background
(regedit bei ausführen eingeben und da sollts dann stehn)
Bitte kann sich das mal wer anschauen
Hallo,
ich habe ein programm geschrieben, dass einen eintrag in die registry schreibt und dann entsprechend das login hintergrundbild ändert,
bei mir funktioniert es auch wunderbar, aber als mein freund es ausprobiert hat stürzte sein rechner ab, bzw is dann heruntergefahren
kann es sein, dass bei anderen ausführungen von win 7 die registry einträge anders sin(ich: win 7 home premium, freund: win 7 professional)
anbei mein code
form load
VB.NET-Quellcode
- Imports Microsoft.Win32
- Imports System.Security.Permissions
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- 'prüfen ob win7 das betriebssystem ist, wegen registry eintrag bzw gesamte funktionalität
- If My.Computer.Info.OSFullName.Contains("7") = False Then
- MsgBox("Funktioniert nur unter Windows 7!", MsgBoxStyle.Information)
- Button1.Enabled = False
- Button2.Enabled = False
- Button3.Enabled = False
- Label2.ForeColor = Color.Red
- Label2.Text = "Falsche Windows Version!"
- Else
- OpenFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyPictures
- Label2.Text = "Bitte Bild" + vbCrLf + "auswählen"
- End If
- End Sub
button bild wählen
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- 'button1 beschriftung: bild auswählen
- OpenFileDialog1.ShowDialog()
- Try
- PictureBox1.Image = New Bitmap(OpenFileDialog1.FileName)
- TextBox1.Text = OpenFileDialog1.FileName
- Dim datei As New System.IO.FileInfo(TextBox1.Text)
- If datei.Length / 1024 > 255 Then
- Button2.Enabled = False
- Label2.Text = "Datei zu groß!"
- Label2.ForeColor = Color.Red
- Else
- Button2.Enabled = True
- Label2.Text = "In Ordnung!"
- Label2.ForeColor = Color.Green
- End If
- Catch ex As Exception
- Button2.Enabled = False
- Label2.Text = "Ein Bild muss" + vbCrLf + "ausgewählt werden!"
- Label2.ForeColor = Color.Red
- End Try
- End Sub
button anwenden
VB.NET-Quellcode
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- 'button2 beschriftung : verwenden
- 'weiss nicht ob fileIOpermission noch notwendig ist wenn ich
- '<requestedExecutionLevel level="highestAvailable" uiAccess="false" /> durch
- '<requestedExecutionLevel level="asInvoker" uiAccess="false" /> ersetzt habe
- 'allein mit fileIOpermission ging es nicht
- Dim erlaubnis As New FileIOPermission(FileIOPermissionAccess.AllAccess, "C:\Windows\System32\oobe\")
- erlaubnis.AddPathList(FileIOPermissionAccess.AllAccess, "C:\Windows\System32\oobe\")
- Try
- erlaubnis.Demand()If System.IO.File.Exists("C:\Windows\System32\oobe\info") = False Then My.Computer.FileSystem.CreateDirectory("C:\Windows\System32\oobe\info")
- If System.IO.File.Exists("C:\Windows\System32\oobe\info\backgrounds") = False Then My.Computer.FileSystem.CreateDirectory("C:\Windows\System32\oobe\info\backgrounds")
- My.Computer.FileSystem.CopyFile(TextBox1.Text, "C:\Windows\System32\oobe\info\backgrounds\backgroundDefault.jpg", True)
- Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background", "OEMBackground", "1", RegistryValueKind.DWord)
- MsgBox("Fertig, ffnen Sie den Taskmanager und betrachten das Ergebnis!", MsgBoxStyle.Information)
- Catch ex As Exception
- MsgBox("Fehler aufgetreten! " + ex.Message, MsgBoxStyle.Exclamation)
- End Try
- End Sub
button zurücksetzen:
VB.NET-Quellcode
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- 'button3 beschr: zurcksetzen
- Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background", "OEMBackground", "0", RegistryValueKind.DWord)
- PictureBox1.Image = New Bitmap("C:\Windows\System32\oobe\background.bmp")MsgBox("Standard Bild wiederhergestellt!", MsgBoxStyle.Information)
- End Sub
- End Class
kann mir da jemand helfen, wenn jemand meinen stil kritisieren will der kann das gerne tun, mit dem hinweis dass ich ziemlich neu in der materie bin
andere frage, wieso wird der code so krass geändert wenn ich von vb 2008 hierrein kopiere?^^
4.4.10 : kann denn keiner helfen?
09.04.:
Vll kanns mal jemand ausprobieren, ich garantiere bei mir gings!!
Alles was ihr braucht is Windows7 und das verzeichnis:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background
(regedit bei ausführen eingeben und da sollts dann stehn)
Bitte kann sich das mal wer anschauen
Dieser Beitrag wurde bereits 9 mal editiert, zuletzt von „BeNe“ ()