Sign in to follow this  
Followers 0
dkwokgs

Changing IE settings - DefaultConnectionSettings

3 posts in this topic

#1 ·  Posted (edited)

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 by dkwokgs

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

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

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

#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 by Valuater

NEWHeader1.png

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0