Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Funktion zum Schreiben von Registry Keys

Frage Entwicklung VB for Applications

Mitglied: RetroDude

RetroDude (Level 1) - Jetzt verbinden

06.05.2009, aktualisiert 10:43 Uhr, 4992 Aufrufe, 3 Kommentare

Ich möchte folgendes Skript per Funktion zum Schreiben der Schlüssel vereinfachen. Bin mir nicht sicher wie genau, da ich diverse Parameter übergeben muss.
Kann mir da jemand helfen?

Gruss

Const HKEY_CURRENT_USER = &H80000001

strComputer = "."

Set objRegistry = GetObject("winmgmts:\\" & _
strComputer & "\root\default:StdRegProv")

' HTTP Streaming

strKeyPath1 = "Software\RealNetworks\RealMediaSDK\6.0\Preferences\HTTPProxyAutoConfig"
strValueName1 = ""
strValue1 = "0"
strKeyPath2 = "Software\RealNetworks\RealMediaSDK\6.0\Preferences\HTTPProxyHost"
strValueName2 = ""
strValue2 = "proxy.com"
strKeyPath3 = "Software\RealNetworks\RealMediaSDK\6.0\Preferences\HTTPProxyPort"
strValueName3 = ""
strValue3 = "8080"
strKeyPath4 = "Software\RealNetworks\RealMediaSDK\6.0\Preferences\HTTPProxySupport"
strValueName4 = ""
strValue4 = "1"
strKeyPath5 = "Software\RealNetworks\RealPlayer\6.0\Preferences\HTTPProxyHostnameDisplay"
strValueName5 = ""
strValue5 = "proxy.com"
strKeyPath6 = "Software\RealNetworks\RealPlayer\6.0\Preferences\HTTPProxyPortDisplay"
strValueName6 = ""
strValue6 = "8080"

' RTS Streaming

strKeyPath7 = "Software\RealNetworks\RealMediaSDK\6.0\Preferences\RTSPProxyHost"
strValueName7 = ""
strValue7 = "proxy-rtsp.com"
strKeyPath8 = "Software\RealNetworks\RealMediaSDK\6.0\Preferences\RTSPProxyPort"
strValueName8 = ""
strValue8 = "8088"
strKeyPath9 = "Software\RealNetworks\RealMediaSDK\6.0\Preferences\RTSPProxySupport"
strValueName9 = ""
strValue9 = "1"
strKeyPath10 = "Software\RealNetworks\RealPlayer\6.0\Preferences\RTSPProxyHostnameDisplay"
strValueName10 = ""
strValue10 = "proxy-rtsp.com"
strKeyPath11 = "Software\RealNetworks\RealPlayer\6.0\Preferences\RTSPProxyPortDisplay"
strValueName11 = ""
strValue11 = "8088"


' Werte eintragen

objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath1, strValueName1, strValue1
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath2, strValueName2, strValue2
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath3, strValueName3, strValue3
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath4, strValueName4, strValue4
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath5, strValueName5, strValue5
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath6, strValueName6, strValue6
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath7, strValueName7, strValue7
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath8, strValueName8, strValue8
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath9, strValueName9, strValue9
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath10, strValueName10, strValue10
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath11, strValueName11, strValue11

Mitglied: LotPings
06.05.2009 um 19:00 Uhr
Hast du ein Glück, das ich einen guten Editor habe und damit umgehen kann

Trotzdem keine Garantie für nichts Prüfen musst du selber.
01.
Const HKEY_CURRENT_USER = &H80000001 
02.
 
03.
Set objRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv") 
04.
 
05.
Base = "Software\RealNetworks\RealMediaSDK\6.0\Preferences\" 
06.
SetRegReal Base&"HTTPProxyAutoConfig", "", "0" 
07.
SetRegReal Base&"HTTPProxyHost",       "", "proxy.com" 
08.
SetRegReal Base&"HTTPProxyPort",       "", "8080" 
09.
SetRegReal Base&"HTTPProxySupport",    "", "1" 
10.
SetRegReal Base&"RTSPProxyHost",       "", "proxy-rtsp.com" 
11.
SetRegReal Base&"RTSPProxyPort",       "", "8088" 
12.
SetRegReal Base&"RTSPProxySupport",    "", "1" 
13.
 
14.
Base = "Software\RealNetworks\RealPlayer\6.0\Preferences\" 
15.
SetRegReal Base&"HTTPProxyHostnameDisplay", "", "proxy.com" 
16.
SetRegReal Base&"HTTPProxyPortDisplay",     "", "8080" 
17.
SetRegReal Base&"RTSPProxyHostnameDisplay", "", "proxy-rtsp.com" 
18.
SetRegReal Base&"RTSPProxyPortDisplay",     "", "8088" 
19.
 
20.
 
21.
' Werte eintragen 
22.
Sub SetRegReal(Key,Name,Wert) 
23.
  objRegistry.SetStringValue HKEY_CURRENT_USER, Key, Name, Wert 
24.
End Sub
Gruß
LotPings
Bitte warten ..
Mitglied: RetroDude
07.05.2009 um 08:26 Uhr
Danke, funktioniert prima. Was meinste mit guter Editor?

Gruss
Bitte warten ..
Mitglied: LotPings
07.05.2009 um 09:00 Uhr
Hallo RetroDude,

nun ganz "zu Fuß" hätte ich das bestimmt nicht gemacht, aber
  • per Regular Expression Zeilen aneinander hängen,
  • sortieren,
  • per Block-Select überflüssigen Ballast entsorgen
  • Zeilen verschieben und kopieren

Kann einem ein guter Text-Editor schon sehr erleichtern.
Ich arbeite mit Textpad und demOpenSource Editor Notpad++

Gruß
LotPings

Edit: Die TextPad RegExp Suchen "\nstrValue.* = " Ersetzen ",\t"
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Windows Systemdateien
gelöst Registry-Schlüssel per Batch auslesen und in Datei schreiben (9)

Frage von Philzip zum Thema Windows Systemdateien ...

Microsoft Office
gelöst Excel: Text in Zellbereich prüfen mit Vergleichstext ggf. mit Exact-Funktion (5)

Frage von Michi1 zum Thema Microsoft Office ...

JavaScript
AngularJS Variable über Input in Funktion ausführen

Frage von badkilla zum Thema JavaScript ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (20)

Frage von Xaero1982 zum Thema Microsoft ...

Outlook & Mail
gelöst Outlook 2010 findet ost datei nicht (19)

Frage von Floh21 zum Thema Outlook & Mail ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Festplatten, SSD, Raid
M.2 SSD wird nicht erkannt (14)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...