Sign in to follow this  
Followers 0
layer

Change IE start page and title bar

3 posts in this topic

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



Thats cool, i actually like both of those, thats why

I included something similar in *XPClean Menu*

the script is here

http://www.autoitscript.com/forum/index.ph...pe=post&id=3043

the screen shots and the actual exe is at the link below

8)

<{POST_SNAPBACK}>

Neat! Thanks for the feedback :)

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  
Followers 0