Good call...
OK What I have now is... .
[code] '''''''''''''''''''''''''''''''' ' Windows Proxy Settings ' ''''''''''''''''''''''''''''''''
comment = "Windows Proxy Settings" Echo(comment)
User_Agent = "" IE5_UA_Backup_Flag = "" NoNetAutodial= "" MigrateProxy= "" ProxyEnable= "" ProxyServer= "" ProxyOverride= "" EmailName= "" AutoConfigProxy= "" MimeExclusionListForCache= "" WarnOnPost= "" UseSchannelDirectly= "" EnableHttp1_1= "" EnableNegotiate= "" PrivacyAdvanced= "" UrlEncoding= "" SecureProtocols= "" PrivDiscUiShown= "" ZonesSecurityUpgrade= "" DisableCachingOfSSLPages= "" WarnonZoneCrossing= "" GlobalUserOffline= "" EnableAutodial= "" keyvalue="" subkey=""
On Error Resume Next strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings" oReg.EnumValues HKEY_CURRENT_USER,strKeyPath,arrSubKeys
' For Each subkey In arrSubKeys ' Echo(subkey) ' oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,subkey,keyvalue ' Echo(keyvalue) ' next
oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(0),User_Agent oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(1),IE5_UA_Backup_Flag oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(2),thisNoNetAutodial Select Case Clean(thisNoNetAutodial) Case "0" NoNetAutodial = "False" Case "1" NoNetAutodial = "True" Case Else NoNetAutodial = "False" End Select oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(3),thisMigrateProxy Select Case Clean(thisMigrateProxy) Case "0" MigrateProxy = "False" Case "1" MigrateProxy = "True" Case Else MigrateProxy = "False" End Select oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(4),thisProxyEnable Select Case Clean(thisProxyEnable) Case "0" ProxyEnable = "False" Case "1" ProxyEnable = "True" Case Else ProxyEnable = "False" End Select oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(5),ProxyServer oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(6),ProxyOverride oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(7),EmailName oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(8),AutoConfigProxy oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(9),MimeExclusionListForCache 'oReg.GetBinaryValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(10),WarnOnPost 'oReg.GetBinaryValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(11),UseSchannelDirectly 'oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(12),EnableHttp1_1 'oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(13),EnableNegotiate 'oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(14),PrivacyAdvanced 'oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(15),UrlEncoding 'oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(16),SecureProtocols 'oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(17),PrivDiscUiShown 'oReg.GetBinaryValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(18),ZonesSecurityUpgrade 'oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(19),DisableCachingOfSSLPages 'oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(21),GlobalUserOffline 'oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,arrSubKeys(22),EnableAutodial
form_input = "proxy_settings^^^" & AutoConfigProxy & "^^^" _ & User_Agent & "^^^" _ & IE5_UA_Backup_Flag & "^^^" _ & NoNetAutodial & "^^^" _ & MigrateProxy & "^^^" _ & ProxyEnable & "^^^" _ & ProxyServer & "^^^" _ & ProxyOverride & "^^^" _ & EmailName & "^^^" _ & AutoConfigProxy & "^^^" _ & AutoConfigProxy & "^^^" _ & WarnOnPost & "^^^" _ & UseSchannelDirectly & "^^^" _ & EnableHttp1_1 & "^^^" _ & EnableNegotiate & "^^^" _ & PrivacyAdvanced & "^^^" _ & UrlEncoding & "^^^" _ & SecureProtocols & "^^^" _ & PrivDiscUiShown & "^^^" _ & ZonesSecurityUpgrade & "^^^" _ & DisableCachingOfSSLPages & "^^^" _ & WarnonZoneCrossing & "^^^" _ & GlobalUserOffline & "^^^" _ & EnableAutodial & "^^^" entry form_input,comment,objTextFile,oAdd,oComment Echo (form_input) User_Agent = "" IE5_UA_Backup_Flag = "" NoNetAutodial= "" MigrateProxy= "" ProxyEnable= "" ProxyServer= "" ProxyOverride= "" EmailName= "" AutoConfigProxy= "" MimeExclusionListForCache= "" WarnOnPost= "" UseSchannelDirectly= "" EnableHttp1_1= "" EnableNegotiate= "" PrivacyAdvanced= "" UrlEncoding= "" SecureProtocols= "" PrivDiscUiShown= "" ZonesSecurityUpgrade= "" DisableCachingOfSSLPages= "" WarnonZoneCrossing= "" GlobalUserOffline= "" EnableAutodial= "" keyvalue="" subkey=""
[/code]
Not sure if I need all of the available options, but the idea is starting to take shape.
|