Pytanie : Internet Explorer "Samochód Wykrywać Położenie"

Cześć,

We mieć the wymaganie the "Automatycznie Położenie" wartość sprawdzać wewnątrz the Internet Explorer podłączeniowy zakładka. My sprawdzać i zakładać że the archiwum wartość che być odpowiedzialny dla the my być jako below.
HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Internet Położenie \ Związek \ DefaultConnectionSettings

The 9th wartość kontrola the "Automatycznie Wykrywać Położenie " jako 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, 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, dc, 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, 00,00

The wartość potrzeba OB dla ono i 03 dla uncheck.

We potrzeba pismo tylko the tylko wartość i nie wszystkie the wartość jako i zmieniać the inny położenie w internet explorer.

I próbować używać the/> pismo the wartość ale nie happening.
Dim byteArray () Jako Byte

keyValue = "Oprogramowanie \ Microsoft \ Windows \ CurrentVersion \ Internet Położenie \ Związek "
regVersion = Registry.CurrentUser.OpenSubKey (keyValue, Prawdziwy)
byteArray = regVersion.GetValue ("DefaultConnectionSettings", Prawdziwy)
regVersion.Close ()
MsgBox (byteArray ((0)) &" "& byteArray (1) &" "& byteArray (2) &" "& byteArray (3) &" "& byteArray (4) &" "& byteArray (5))

Odpowiedź : Internet Explorer "Samochód Wykrywać Położenie"

Niestety I móc ty bardziej… Ono wydawać się że ten subroutine robić the praca (brać od the ten sam nić):

(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:

'Przykład use IEautomaticallydetect
 IEautomaticallydetect  "z"
 IEautomaticallydetect  "przedstawienie"
 IEautomaticallydetect  "na"
 IEautomaticallydetect  "przedstawienie"
 wscript.quit
 
 OKRĘT PODWODNY IEautomaticallydetect (status)
 
 'howeasyisthat.com
 'The parametr shold ustawiać "z", "na" lub "przedstawienie".
 'DefaultConnectionSettings czytać i pisać  HKCU \ Oprogramowanie \ Microsoft \ Windows \ CurrentVersion \ Internetowy Położenie \ Związek \ DefaultConnectionSettings
 'set lub the Internet Explorer Automatycznie Wykrywać łatwość. Gdy prokurent ustawiać, musieć musieć normalnie daleko. Gdy żadny prokurent położenie ustawiać,
 'ono być zazwyczaj najlepszy ten położenie obracać dalej. [/size]
 
 CIEMNAWY sKey, sValue, binaryVal
 Ciemnawy oReg
 Ustalony oReg=GetObject ("winmgmts: {impersonationLevel=impersonate}! \ \. \ korzeń \ brak: StdRegProv")    'Dla archiwum operacja througout
 
 Const HKCU=&H80000001
 
 sKey = "Oprogramowanie \ Microsoft \ Windows \ CurrentVersion \ Internetowy Położenie \ Związek"
 sValue = "DefaultConnectionSettings"
 
 oReg.GetBinaryValue HKCU, sKey, sValue, binaryVal
 
 wybrany skrzynka lcase (status)
   skrzynka "na"    binaryVal (8) = binaryVal (8) LUB 8        'Siła Autodetect dalej
   pakować "z"    binaryVal (8) = binaryVal (8) XOR 8        'Siła Autodetect daleko
   skrzynka "przedstawienie"    wscript.echo "Automatycznie wykrywać ustawiać" & ((binaryVal (8) i 8) = 8)
   pakować inny    wscript.echo "Nieważny parametr - IEautomaticallydetect  dalej, daleko lub przedstawienie"
 kończyć wybiórka
 
 jeżeli lcase (status) = " na " lub lcase (status) = " z " wtedy oReg.SetBinaryValue HKCU, sKey, sValue, binaryVal
 
 końcówka okręt podwodny
Inne rozwiązania  
 
programming4us programming4us