怎样用AU3实现修改IE主页

qq77584570

怎样用AU3实现修改IE主页，我想用AU3实现IE浏览器的主页

netbadbug

通过改注册表

xrbenbeba

注册表 上网搜去吧

xulinghai

#include <GUIConstants.au3>
$Form=GUICreate("IE-SetTools",400,278,-1,-1)
$homepage = RegRead('HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main', "Start Page")
$Input = GUICtrlCreateInput($homepage, 90, 89, 226, 18)
$button1=GUICtrlCreateButton("修 改",328,88,50,21)

While 1
        $msg = GUIGetMsg()
        Select
              Case $msg = $GUI_EVENT_CLOSE Or $msg = $button6
                     Exit()
             Case $msg = $button1
                     RegWrite('HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main', "Start Page", "REG_SZ", GUICtrlRead($Input))
                    RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main', "Default_Page_URL", "REG_SZ", GUICtrlRead($Input))
                    RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main', "Start Page", "REG_SZ", GUICtrlRead($Input))
        EndSelect
WEnd

jycel

也可根剧配置文件来改，如果不要，直接给$ie付值就行了
config.ini配置如下
[ieset]
ie="http://192.168.0.136"

Dim $ie[3]
$ie[0] = IniRead($config.ini, "ieset", "ie", "http://192.168.0.136");读取配置IE
$ie[1] = "HKEY_CURRENT_USER\Software\Microsoft\";改IE
$ie[2] = "HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\";修改IE启动项
$ie[3]="飛翔網絡-将快乐网起来! Tel:2624067 地址：西南科技大学飛翔網絡城";ie标题
$config = "config.ini"
RegWrite ($ie[1] & "Internet Explorer\Main", "Start Page", "REG_SZ", $ie[0]);改IE
RegWrite ($ie[1] & "Internet Explorer\Main", "Default_Page_UR", "REG_SZ", $ie[0]);改IE
RegWrite ($ie[1] & "Internet Explorer\Main", "Window Title", "REG_SZ", $ie[3]);改IE
RegWrite ($ie[2] & "OpenHomePage\Command", "", "REG_SZ", "C:\Program Files\Internet Explorer\iexplore.exe "  & $ie[0]);设置IE启动参数

[ 本帖最后由 jycel 于 2009-3-13 19:29 编辑 ]