Fråga : Internet Explorer ”automatisk avkänner inställningar”,

Hi

We har det kravet att ha ”automatiskt att avkänna inställningar” för att värdera kontrollerat in fliken för internetutforskareanslutning. Vi har kontrollerat och grundar att registreringen värderar som är ansvariga för samma är som below.
HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Internet inställningar \ anslutningar \ DefaultConnectionSettings

The 9th värderar kontrollerar ”avkänner automatiskt inställningar " som below
46,00,00,00, c5,0c, 00,00,0b, 00.00.00, 0f, 00.00, \
00,31,30,2e, 31,33,2e, 30,2e, 35,36,3a, 38,30,38,30,1a, 00,00, 00.31.30, 2e, 2a, 3b, \
2a, 2e, 2a, 2e, 69,74,63,3b, 6f, 72.61.63, 2a,3b 3c, 6c, 6f, 63,61, 6c, 3e, 6f, för 00,00,00 \
66,69,6c, 65,3a, 2f, 2f, 43,3a, 5c, 44,6f, 63,75,6d, 65,6e, 74,73, 20,61,6e, för 64,20,53 \
65,74,74,69,6e, 67,73,5c, 39, 35.34.39, 36,5c, 41,70,70,6c, 69, 63.61.74, 69,6f, 6e, \
20,44,61,74,61,5c, 4a, 75,6e, 69.70.65, 72,20,4e, 65,74,77,6f, 72,6b, 73, 5c, 4e, 65, \
74,77,6f,72,6b 20,43,6f, 6e, 6e, 65.63, 74,20,36,2e, 35,2e, 30, 5c, 69,6e, för 73,74,61 \
6e, 74,70,72,6f, 78,79,2e, 70, 61.63.05, 00,00,00,00,00,00,00, 20,0d, dc, 4e, 67,1e, \ cb för
, 01,00,00,00,00,00,00,00, 00.00.00, 00,00,01,00,00,00,02, 00.00.00, 0a, 0a, 04, \
09,00,00,00,00,00,00,00,00, 03.00.00, 00, f8,20, e0,08, c8,27, 38,0c, 00, för 00,00,00 \
00,00,00,00,01,00,00,00,6b, 00.00.00, 1d,00,00,00,24,0d, 2e, 0c, 00.00, för 00,00,00 \
00,00,00,00,00,00,00,00,00, 00.00.00, 00,00,00,01,00,00,00, 6b, 00.00, 00,1d, 00, \
00,00,03,00,00,00,00,00,00, 00.00.00, 00,00,6b, 00,00,00,1a, 00.00.00, för 00,00,00 \
00,00,00,00,00,00,00,00,00, 00.00.00, 00,00,00,80,3f, 50,01, 00,00

The värderar behov att vara OB för att hålla den tickad, och 03 för behov för uncheck.

We en skriva att ändra endast 9th värderar, och inte alla värderar, som de ska ändring som de andra inbrottinternet explorer.

I har försökt till använd det nedanfört skrivar för att hämta värdera men inte happening.
Dim som är byteArray () som Byte

keyValue = ”programvara \ Microsoft \ Windows \ CurrentVersion \ Internet inställnings- \ anslutnings"/>regVersion =
ubKey (keyValue som, är riktig) byteArray,
MsgBox för
regVersion.Close för/>byteArray = för regVersion.GetValue
ltConnectionSettings” som, är riktig) () (som är byteArray (0) &” ”& som är byteArray (1) &” ”& som är byteArray (2) &” ”& som är byteArray (3) &” ”& som är byteArray (4) &” ”& (5))
 " klar "

Svar : Internet Explorer ”automatisk avkänner inställningar”,

Tyvärr jag kan inte hjälpa dig, mer… som det verkar att denna subroutine gör jobbet (som tas från den samma tråden):

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

'Exempelbruk av IEautomaticallydetect
 IEautomaticallydetect  "OFF"
 IEautomaticallydetect  ”show”,
 IEautomaticallydetect  "ON"
 IEautomaticallydetect  ”show”,
 wscript.quit
 
 UNDERIEautomaticallydetect (status)
 
 'howeasyisthat.com
 'Parametersholden är fastställd till "OFF", "ON" eller ”showen”.
 'Detta läser och skriver till  HKCU \ programvara \ Microsoft \ Windows \ CurrentVersion \ internetinställningar \ anslutningar \ DefaultConnectionSettings för att
 'uppsättningen eller läst Internet Explorer avkänner automatiskt lättheten. När en närstående är fastställd, denna bör normalt vara av. När inga närståendeinställningar är fastställda,
 'den är vanligt bäst att ha denna inställning att vändas på. [/size]
 
 DUNKEL sKey, sValue som är binaryVal
 Dunkel oReg
 Fastställd oReg=GetObject (”winmgmts: {impersonationLevel=impersonate}! \ \. \ rota \ standard: StdRegProv”)    'för registreringsfunktionsthrougout
 
 Const HKCU=&H80000001
 
 sKey = ”programvara \ Microsoft \ Windows \ CurrentVersion \ internetinställningar \ anslutningar”,
 sValue = ”DefaultConnectionSettings”,
 
 oReg.GetBinaryValue HKCU, sKey, sValue som är binaryVal
 
 välj falllcasen (status)
   case binaryVal    "ON" (8) = binaryVal (8), ELLER '        styrka 8 Autodetect på
   det binaryVal fallet    "OFF" (8) = styrka för binaryVal (8) XOR        8 'Autodetect av
   fallet ”showen”    wscript.echo ”avkänner automatiskt är fastställdt” & ((binaryVal (8) och 8) = 8),
   case på    , av annan wscript.echo ”den ogiltiga  parametern - IEautomaticallydetect eller show”,
 avsluta valt
 
 om lcase (status) = "ON" eller lcase (status) = "OFF" därefter oReg.SetBinaryValue HKCU, sKey, sValue som är binaryVal
 
 avsluta suben
Andra lösningar  
 
programming4us programming4us