Vraag : Internet Explorer „Auto ontdekt Montages“

Hallo, heeft

We het vereiste om de „die waarde automatisch te hebben van Montages“ ontdekken in de Internet verbinding tabel wordt gecontroleerd van de Ontdekkingsreiziger. Wij hebben gecontroleerd en gevonden dat de registratiewaarde die van het zelfde de oorzaak is is aangezien de waarde/>onSettings

The negende van de Verbindingen \ DefaultConnectiion \ Internet \ van below.
HKEY_CURRENT_USER \ Software \ Microsoft \ Vensters \ CurrentVers46,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, 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, 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, 73,74,61, \
6e, 74,70,72,6f, 78,79,2e, 70, 61.63.05, 00,00,00,00,00,00,00, 20,0d, gelijkstroom, 4e, 67,1e, \
cb, 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, 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, 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, 00,00,00, \
00,00,00,00,00,00,00,00,00, 00.00.00, 00,00,00,80,3f, 50,01, waarde 00,00

The moet OB zijn voor het houden van het getikt en 03 voor/>We behoefte uncheck.


I zullen veranderen hebben aan geprobeerd gebruik het onderstaande manuscript om de waarde maar niet happening.
Dim te halen byteArray () als Byte

keyValue = „de Verbindingen "
ernet van de Montages \ van de Software \ Microsoft \ Windows \ CurrentVersion \ IntregVersion = Registry.CurrentUser.OpenSubKey (keyValue,)
byteArray = byteArray (0) &“ „& byteArray (1) &“ „& byteArray (2) &“ „& byteArray (3) &“ „& byteArray (4) &“ „& byteArray regVersion.GetValue („DefaultConnectionSettings“, Waar)
regVersion.Close ()
MsgBox ((5))

Antwoord : Internet Explorer „Auto ontdekt Montages“

Jammer genoeg ik kan niet u meer helpen… Het schijnt dat deze die subroutine het werk (uit de zelfde draad wordt genomen) doet:

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:

Het 'gebruik van het voorbeeld van IEautomaticallydetect
 IEautomaticallydetect  "uit"
 IEautomaticallydetect  „toont“
 IEautomaticallydetect  "aan"
 IEautomaticallydetect  „toont“
 wscript.quit
 
 SUB IEautomaticallydetect (status)
 
 'howeasyisthat.com
 De 'parameter wordt shold geplaatst aan "uit", „toont“ "aan" of.
 'Dit leest en schrijft aan  HKCU \ de Vensters van de Software \ Microsoft \ de Verbindingen \ DefaultConnectionSettings van \ CurrentVersion \ Internet Montages \ 
 'plaats of lees Internet Explorer automatisch faciliteit ontdekt. Wanneer een volmacht wordt geplaatst, zou dit normaal weg moeten zijn. Wanneer geen volmachtsmontages worden geplaatst,
 'het is gewoonlijk best om dit aangezet plaatsen te hebben. [/size]
 
 SCHEMERIGE binaryVal sKey, sValue,
 Schemerige oReg
 Reeks oReg=GetObject („winmgmts: {impersonationLevel=impersonate}! \ \. \ wortel\ gebrek: StdRegProv“)    'voor registratieverrichtingen througout
 
 Const HKCU=&H80000001
 
 sKey = „de Verbindingen van de Montages \ van de Vensters \ CurrentVersion \ Internet van de Software \ Microsoft \“
 sValue = „DefaultConnectionSettings“
 
 oReg.GetBinaryValue HKCU, binaryVal sKey, sValue,
 
 selecteer gevallcase (status)
   geval "aan"    binaryVal (8) = binaryVal (8) OF 8        'Kracht Autodetect 
   binaryVal geval    "uit" (8) = binaryVal (8) XOR 8        'Kracht Autodetect weg
   het geval „toont“    wscript.echo „automatisch wordt geplaatst aan“ & ((binaryVal (8) en 8) = 8) ontdekken
   het geval anders    wscript.echo „Ongeldige parameter - IEautomaticallydetect  , weg of toont“
 uitgezocht eind
 
 als lcase (status) = "aan" of lcase (status) = "uit" toen oReg.SetBinaryValue HKCU, binaryVal sKey, sValue,
 
 eind sub
Andere oplossingen  
 
programming4us programming4us