Jump to content

IE Help


Dieuz
 Share

Recommended Posts

Hi,

I need help about some IE scripting. I'm trying to do one thing on Internet Explorer 7:

1. Change Disk space to use while navigate (the value) ==> in an hidden way

This options can be change Via Options --> Internet Options

I have looked through the help file but doesnt seem to find what I want.

Can anyone point me out on how I can change this using a script?

Thanks,

Edited by Dieuz
Link to comment
Share on other sites

DaleHomh doesnt made functions to do such things?

I dont think he does...

This is something I was playing with a long time ago...

#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, 150, 50)
GUICtrlSetBkColor( -1, $GUI_BKCOLOR_TRANSPARENT )
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(4000)
    ;WinWaitActive("", "", 20)
    Sleep(200)
    Send("!tO")
    Sleep(500)
    for $t = 1 to 4
    Sleep(1000)
    Send("^{TAB}")    
    Next
    Send("{TAB}")
    Send("{TAB}")
    Send("{TAB}")
    Send("{ENTER}")
    sleep(1000)
    Send("{TAB}")
    Send("{TAB}")
    Send("{SPACE}")
    $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 Valuater..." & @CRLF & @CRLF & "... 8)   " & @CRLF & @CRLF & "Visit Google????     ", 30)
    Select
        Case $iMsgBoxAnswer = 6 ;Yes
            Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://www.Google.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

should work

8)

NEWHeader1.png

Link to comment
Share on other sites

You have to make a autoconfig file. Once made it is kept here:

C:\Program Files\Internet Explorer\custom

You will need to do some research with microsoft to see how to make them. Isn't hard. You can configure just about anything with IE.

I just dont know where to search. I'm sure there's a Registry Key that contain all that stuff in it. Wich key should I be looking for?

Change Disk space to use while navigate

I need this for a specific reason but no one ever talked of that on this forum...

Edited by Dieuz
Link to comment
Share on other sites

You changed the pic and desired result...

did this do what you originally asked????

Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe")
    Sleep(4000)
    ;WinWaitActive("", "", 20)
    Sleep(200)
    Send("!tO")
    Sleep(500)
    for $t = 1 to 4
    Sleep(1000)
    Send("^{TAB}")   
    Next
    Send("{TAB}")
    Send("{TAB}")
    Send("{TAB}")
    Send("{ENTER}")
    sleep(1000)
    Send("{TAB}")
    Send("{TAB}")
    Send("{SPACE}")

8)

NEWHeader1.png

Link to comment
Share on other sites

You changed the pic and desired result...

did this do what you originally asked????

Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe")
    Sleep(4000)
    ;WinWaitActive("", "", 20)
    Sleep(200)
    Send("!tO")
    Sleep(500)
    for $t = 1 to 4
    Sleep(1000)
    Send("^{TAB}")   
    Next
    Send("{TAB}")
    Send("{TAB}")
    Send("{TAB}")
    Send("{ENTER}")
    sleep(1000)
    Send("{TAB}")
    Send("{TAB}")
    Send("{SPACE}")

8)

Well No... I dont really understand what this is doing. The only thing I want to change is the value of the disk space to use. I want to change the value to 8. Is there any Registry reader outhere so I can look in the Internet Explorer folder to find the good registry key that contain this value.

I changed the result because I found out how to change the Proxy Server value. I only have one problem now. I just dont know how to change the "Disk space to use" value...

Link to comment
Share on other sites

well, this is a better approach

Run('control inetcpl.cpl');,"";, @SW_HIDE) ; ******* make it hide after checking
WinWait('Internet Properties')
;WinSetState('Internet Properties', '', @SW_HIDE); ****** hide????


WinWait('Internet Properties')
ControlClick('Internet Properties', '', 'Button5')



WinWait('Temporary Internet Files and History Settings')
;WinSetState('Temporary Internet Files and History Settings', '', @SW_HIDE); ****** hide????

ControlClick('Temporary Internet Files and History Settings', '', 'Edit1')
ControlSetText('Temporary Internet Files and History Settings', '', 'Edit1', "8") ; number 8 ????

;ControlClick('Internet Properties', '', 'Button9') click OK

if you dont understand this,,,,, see help files

8)

Edited by Valuater

NEWHeader1.png

Link to comment
Share on other sites

Yes I undertand this perfectly but Im looking for a way to do all this "Hidden". It'S why Im looking for RegWrite function or any IE hidden related. This would work if I wanted to see everything happen in front of my eyes but I dont.

You understand what I mean because I dont know if I am clear here ^^

Edited by Dieuz
Link to comment
Share on other sites

I just dont know where to search. I'm sure there's a Registry Key that contain all that stuff in it. Wich key should I be looking for?

Change Disk space to use while navigate

I need this for a specific reason but no one ever talked of that on this forum...

This is not kept in the registry. This I know for sure. It is where I told you. I have to deal with this at work all the time as far a configuring IE.

Look here, and it shows you how. It is pretty strait forward.

http://technet.microsoft.com/en-us/ie/bb219517.aspx

Link to comment
Share on other sites

You say you understand it perfectly... but you did not recognize the "hide" notes

this shows just a "flash"

.... best i can do to help

Run('control inetcpl.cpl',"", @SW_HIDE) ; ******* make it hide after checking
WinWait('Internet Properties')
WinSetState('Internet Properties', '', @SW_HIDE); ****** hide????


ControlClick('Internet Properties', '', 'Button5')

WinSetState('Temporary Internet Files and History Settings', '', @SW_HIDE);

WinWait('Temporary Internet Files and History Settings')
WinSetState('Temporary Internet Files and History Settings', '', @SW_HIDE); ****** hide????

ControlClick('Temporary Internet Files and History Settings', '', 'Edit1')
ControlSetText('Temporary Internet Files and History Settings', '', 'Edit1', "128") ; number 8 ????

ControlClick('Temporary Internet Files and History Settings', '', 'Button9') ; click OK'

8)

Edited by Valuater

NEWHeader1.png

Link to comment
Share on other sites

This is not kept in the registry.

Yes it Is!

I found the RIGHT key!

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\ CurrentVersion\Internet Settings\5.0\Cache\Content", "CacheLimit", "REG_SZ", "8192")

It workss! Thanks Valuater and Volly!

Edited by Dieuz
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...