Changing IE settings - DefaultConnectionSettings

[dkwokgs]

Hi There,

I want to diable the "Automatically Detect Settings" in IE options but in the registry it is binary ( HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections,DefaultConnectionSettings).

How do I go about using DLLcall?

I found this article but not sure what to write in AutoIT.

http://www.tek-tips.com/viewthread.cfm?qid=1092527&page=1

Please advise.

Regards

Daniel K

Edited August 5, 2005 by dkwokgs

[Valuater]

Here's another direction... you can use what you like and trash the rest

Just board.... and I don't demonstrate "regwrite" functions

expandcollapse popup

#cs ================================================
    Autor:         Robert M @ QT Appraisal
    E-mail:        XPCleanMenu@aol.com
    Language:    English
    OSystem:     Windows Xp
#ce ================================================
#include <GUIConstants.au3>
Dim $1Tip = "", $Stop = ""
opt("GUIOnEventMode", 1); Change to OnEvent mode
opt("WinTitleMatchMode", 3)
$Logo = @HomeDrive & "\Temp\logo.jpg"
FileInstall("C:\Windows\Help\Tours\htmltour\logo.jpg", $Logo)

$Start_Menu = GUICreate("QT APPRAISAL*", 200, 115, 3, 3, $WS_POPUP, $WS_EX_TOPMOST + $WS_EX_TOOLWINDOW)
GUICtrlCreatePic($Logo, 0, 0, 200, 80)
$Start_1 = GUICtrlCreateButton("Start", -1, 80, 42, 20, $BS_ICON)
GUICtrlSetOnEvent(-1, "Set_Start")
$Start_2 = GUICtrlCreateButton("Stop", 41, 80, 40, 20, $BS_ICON)
GUICtrlSetOnEvent(-1, "Set_Stop")
$Start_4 = GUICtrlCreateButton("Hide", 120, 80, 40, 20, $BS_ICON)
GUICtrlSetOnEvent(-1, "Set_Hide")
$Start_5 = GUICtrlCreateButton("Exit", 160, 80, 40, 20, $BS_ICON)
GUICtrlSetOnEvent(-1, "Set_Exit")
$Notice = GUICtrlCreateLabel("IE 4 ME", 25, 30, 200, 60)
GUICtrlSetFont(-1, 28, 10)
GUISetState()

$begin = TimerInit()
Do
    $Msg = GUIGetMsg()
    
    $dif = TimerDiff($begin)
    If $dif >= 50000 Then
        GUISetState(@SW_HIDE, $Start_Menu)
        If $1Tip = "" Then
            SplashTextOn("", "<<< Place Mouse HERE", 200, 20, 2, 2, 1)
            Sleep(3500)
            SplashOff()
            $1Tip = "off"
        EndIf
        $begin = TimerInit()
    EndIf
    
; controls Start Menu return from upper/left screen position
    $pos = MouseGetPos()
    If $pos[0] > - 1 And $pos[0] < 12 And $pos[1] > - 1 And $pos[1] < 12 Then
        Call("Set_Show")
    EndIf
    
Until $Msg = $Start_5; Continue loop until EXIT is pressed
Exit

;------------------------ Functions ---------------

Func Set_Start()
    Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe")
    Sleep(2000)
    WinWaitActive("", "", 20)
    Sleep(200)
    Send("!tO")
    Sleep(100)
    for $t = 1 to 4
    Sleep(100)
    Send("^{TAB}")    
    Next
    Send("{TAB}")
    Send("{TAB}")
    Send("{TAB}")
    Send("{ENTER}")
    sleep(100)
    Send("{SPACE}")
    Send("{ENTER}")
    Send("{ESC}")
    $begin = TimerInit()
EndFunc  ;==>Set_Start

Func Set_Stop()
    #Region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=Yes and No, Icon=Info, Timeout=30 ss
    If Not IsDeclared("iMsgBoxAnswer") Then Dim $iMsgBoxAnswer
    $iMsgBoxAnswer = MsgBox(68, "Stop What?", "LOL" & @CRLF & @CRLF & "Brought to you by QT Appraisal Service" & @CRLF & @CRLF & "Check out our    *XPClean Menu* " & @CRLF & @CRLF & "@ www.XPCleanMenu.HostRocket.com", 30)
    Select
        Case $iMsgBoxAnswer = 6;Yes
            Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://www.xpcleanmenu.hostrocket.com")
        Case $iMsgBoxAnswer = 7;No
            
        Case $iMsgBoxAnswer = -1;Timeout
            
    EndSelect
    #EndRegion --- CodeWizard generated code End ---
    $begin = TimerInit()
EndFunc  ;==>Set_Stop

Func Set_Hide()
    GUISetState(@SW_HIDE, $Start_Menu)
    If $1Tip = "" Then
        SplashTextOn("", "<<< Place Mouse HERE", 200, 20, 2, 2, 1)
        Sleep(3000)
        SplashOff()
        $1Tip = "off"
    EndIf
EndFunc  ;==>Set_Hide

Func Set_Show()
    GUISetState(@SW_SHOW, $Start_Menu)
    $begin = TimerInit()
EndFunc  ;==>Set_Show

Func Set_Exit()
    Exit
EndFunc  ;==>Set_Exit

8)

ps... no one else responded right???

Edited August 5, 2005 by Valuater

[blindwig]

I have to change my IE settings in a script. What I did was create a .reg file and then run it through regedit. Use /s for silent install.

Or if you know that your target machine will be Win2000 or newer, you could shell out to run REG.