layer Posted July 6, 2005 Share Posted July 6, 2005 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 Sorry for those who do not have IE expandcollapse popup;=============================================================================================== ; ;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.. FootbaG Link to comment Share on other sites More sharing options...
Valuater Posted July 6, 2005 Share Posted July 6, 2005 Thats cool, i actually like both of those, thats whyI included something similar in *XPClean Menu*the script is herehttp://www.autoitscript.com/forum/index.ph...pe=post&id=3043the screen shots and the actual exe is at the link below8) Link to comment Share on other sites More sharing options...
layer Posted July 6, 2005 Author Share Posted July 6, 2005 Thats cool, i actually like both of those, thats whyI included something similar in *XPClean Menu*the script is herehttp://www.autoitscript.com/forum/index.ph...pe=post&id=3043the screen shots and the actual exe is at the link below8)<{POST_SNAPBACK}>Neat! Thanks for the feedback FootbaG Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now