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, 5001 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
Off Topic

"Ich habe nichts zu verbergen"

(3)

Erfahrungsbericht von FA-jka zum Thema Off Topic ...

Heiß diskutierte Inhalte
CPU, RAM, Mainboards
Kaufberatung für mind. 8 verschiedene HighEnd-Mainboards (24)

Frage von yperiu zum Thema CPU, RAM, Mainboards ...

Netzwerke
Abisolierwerkzeug (11)

Frage von SarekHL zum Thema Netzwerke ...

Hyper-V
Langsames Netzwerk i210 LAN Karte (11)

Frage von Akcent zum Thema Hyper-V ...

Windows 10
Welches OS für Firmengeräte? (10)

Frage von MarkusVH zum Thema Windows 10 ...