想在软件中加个直接设置IE首页的

huyangre

想在软件中加个直接设置IE首页的 代码改怎么写 运行程序直接修改IE

Hen5ei

$Msg = MsgBox(4 + 64, "设置深度为IE首页", "        建议设置 Http://Www.autoitx.com/ 为IE首页。" & @CRLF _
                        & @CRLF & " AUTOIT CN AutoIt中文论坛|acn|au3|软件汉化 - 分享您的技术!")
If $Msg = 6 Then
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Start Page", "reg_sz", "http://www.autoitx.com/")
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Default_Page_URL", "reg_sz", "http://www.autoitx.com/")
        If Not @error Then
                MsgBox(0 + 64, "设置成功！", "恭喜您已经成功设置 Http://Www.autoitx.com/ 为IE首页。")
        Else
                MsgBox(0 + 64, "设置失败！", "您没有设置 Http://Www.autoitx.com/ 为IE首页。" & @CRLF _
                                & @CRLF & "********** 程序未对您的计算机进行任何设置 *********")
        EndIf
EndIf
If $Msg = 7 Then
        MsgBox(0 + 64, "设置失败！", "您没有设置 Http://Www.autoitx.com/ 为IE首页。" & @CRLF _
                                & @CRLF & "********** 程序未对您的计算机进行任何设置 *********")
EndIf

Hen5ei

我是通过注册表修改的.B60和Q管等软件都会警告...
希望能给你帮助

huyangre

回复 3# Hen5ei


    不行啊 加了没反映  加在什么之间啊

syhw222

Run(@ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE http://www.hao123.com")

Hen5ei

回复 4# huyangre

我写的只是个以注册表修改IE首页的范例
核心代码是：

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet  Explorer\Main", "Start Page", "reg_sz", "http://www.autoitx.com/")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Default_Page_URL", "reg_sz", "http://www.autoitx.com/")