怎样用AU3实现修改IE主页-『提问交流』-AUTOIT CN

qq77584570 发表于 2009-3-13 15:37:38

怎样用AU3实现修改IE主页

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

netbadbug 发表于 2009-3-13 17:16:02

通过改注册表

xrbenbeba 发表于 2009-3-13 18:47:22

注册表上网搜去吧

xulinghai 发表于 2009-3-13 19:03:03

#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 发表于 2009-3-13 19:04:00

也可根剧配置文件来改，如果不要，直接给$ie付值就行了
config.ini配置如下

ie="http://192.168.0.136"

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

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

页: [1]

AUTOIT CN's Archiver

怎样用AU3实现修改IE主页