Jump to content
Sign in to follow this  
layer

Change IE start page and title bar

Recommended Posts

layer

Hey folks, here I have 2 functions I made because I got bored... Ummm... There is a lot more possibilities because of all the registry values for IE...

These 2 functions change the title of IE and change the start page... Enjoy :evil:

Sorry for those who do not have IE :)

;===============================================================================================
;
;Function: _INetChangeIEHomePage($szNewPage)
;Paramaters: $szNewPage - The URL of the new homepage to set
;Return: On success returns 1
;       On failure sets @error to either of the following and returns the value of @error:
;       0.) Internet Explorer not installed or not installed properly
;       -1.) Couldn't write to registry
;Author(s): rpm91m@gmail.com
;
;=================================================================================================
Func _INetChangeIEHomePage($szNewPage)
    If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "") Then
        SetError(0)
        Return 0
    ElseIf RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Start Page", "REG_SZ", $szNewPage) Then
        Return 1
    Else
        SetError(-1)
        Return -1
    EndIf
EndFunc

;===================================================================================================

==
;
;Function: _INetChangeIETitle($szNewTitle) (defualt: Microsoft Internet Explorer provided by Compaq)
;Paramters: $szNewTitle - The desired name of the title bar
;Return: On success returns 1
;       On failure sets @error to either of the following and returns the value of @error:
;       0.) Internet Explorer not installed or installed properly
;       -1.) Couldn't write to registry
;Author(s): rpm91m@gmail.com
;
;===================================================================================================

===
Func _INetChangeIETitle($szNewTitle)
    If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "") Then
        SetError(0)
        Return 0
    ElseIf RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Window Title", "REG_SZ", $szNewTitle) Then
        Return 1
    Else
        SetError(-1)
        Return -1
    EndIf
EndFunc

Examples:

MsgBox(0, "ret", _INetChangeIEHomePage("http://www.autoitscript.com"))
MsgBox(0, "ret", _INetChangeIETitle("AutoIt is so cool, so am I :P"))

Incase you run the examples and can't remeber the default title caption, you know, the boring "Microsoft Internet Explorer provided by Compaq"

Cheers.. :D


FootbaG

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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.