Hallöchen!
Hab jetzt schon mehrere Themen und Seiten durchgewälzt, und versucht die dortigen Codes auf mein Problem umzuschreiben, aber ich bin schlichtweg einfach zu doof
Und zwar folgendes Problem - wir haben in der Uni ein Programm geschrieben, das über einen Webservice auf ein SAP-System zugreift. Damit dieses Programm funktioniert muss ich aber IN der Uni das Häkchen unter "Interneteinstellungen-->LAN-Einstellungen-->Automatische Suche der Einstellungen" entfernen. Wenn ich wo anders im Internet bin, benötige ich dieses Häkchen aber.
Deswegen möchte ich über eine Checkbox im Programm das Häkchen setzen lassen, bzw. entfernen lassen.
Ich habe bereits herausgefunden, das die folgenden beiden Einträge verändert werden, sobald ich das Häkchen im Windows 7 setze:
Im Pfad "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections\"
DefaultConnectionSettings
SavedLegacySettings
So nun hab ich über den folgenden Code die Werte in der Registry ausgelesen (d.h. einmal wenn es aktiviert ist, und einmal wenn es deaktiviert ist)
Dim byteArray() As Byte = DirectCast(Data, Byte())
Dim sb3 As New System.Text.StringBuilder()
For ctr As Integer = LBound(byteArray, 1) To UBound(byteArray, 1)
sb3.Append(" " & Hex(byteArray(ctr)) & " ")
Next
Clipboard.SetText(sb3.ToString) So und nun möchte ich per Knopfdruck den entsprechenden Wert ändern, doch ich habe das Problem, das die von mir ausgelesen Werte Hexa-Werte enthalten, und mein Array zum Eintragen ein Byte-Array ist.
Dim defaultconn() As Byte = New Byte(){ 46, 0, 0, 0, 28, 3D, 0, _
0, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
5, 0, 0, 0, 0, 0, 0, 0, 30, 3C, 7B, E7, 3F, 30, CC, 1, _
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 2, _
0, 0, 0, C0, A8, B2, 23, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
0, 0, 0, 0, 0, 0, 0, 0, 0}
My.Computer.Registry.SetValue( _
"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet" & _
"Settings\Connections\DefaultConnectionSettings ", defaultconn) Kann mir vielleicht jemand helfen, wie ich entweder meine Werte in REG_BINARY Werte umwandel, oder wie ich die Werte vielleicht gleich im richtigen Format auslesen kann?
Ich hoffe ich konnte mein Problem verständlich genug erklären ;)
Vielen Dank schonmal!
Beitrag wurde zuletzt am 21.06.11 um 22:45:00 editiert. |