论坛 › 『 提问交流 』 › 修改浏览器首页 怎么一点就什么都，没了饿

334822249 发表于 2010-6-10 16:09:48

修改浏览器首页 怎么一点就什么都，没了饿

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1_1 = GUICreate("系统快速设置工具", 458, 293, 226, 197)
$Group1 = GUICtrlCreateGroup("IE设置", 16, 16, 425, 57)
$Label1 = GUICtrlCreateLabel("修改浏览器首页", 24, 40, 88, 17)
$Combo1 = GUICtrlCreateCombo("about:blank", 120, 40, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "http://www.hao123.com|http://www.baidu.com|http://www.2345.com")
$Button1 = GUICtrlCreateButton("修改", 272, 40, 75, 25)
$Button2 = GUICtrlCreateButton("使用空白页", 352, 40, 75, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("系统快速设置工具", 16, 80, 425, 185)
$Button3 = GUICtrlCreateButton("设定分辨率", 32, 104, 80, 25)
$Button4 = GUICtrlCreateButton("系统服务优化", 136, 104, 80, 25)
$Button5 = GUICtrlCreateButton("注册表优化", 240, 104, 80, 25)
$Button6 = GUICtrlCreateButton("硬件优化", 344, 104, 80, 25)
$Button7 = GUICtrlCreateButton("ADSL拨号", 32, 144, 80, 25)
$Button8 = GUICtrlCreateButton("服务微调", 136, 144, 80, 25)
$Button9 = GUICtrlCreateButton("IP设置", 240, 144, 80, 25)
$Button10 = GUICtrlCreateButton("局域网共享", 344, 144, 80, 25)
$Button11 = GUICtrlCreateButton("清理系统垃圾", 32, 184, 80, 25)
$Button12 = GUICtrlCreateButton("系统修复", 136, 184, 80, 25)
$Button13 = GUICtrlCreateButton("个人资料设置", 240, 184, 80, 25)
$Button14 = GUICtrlCreateButton("小键盘设置", 344, 184, 80, 25)
$Button15 = GUICtrlCreateButton("OEM 设置", 32, 224, 80, 25)
$Button16 = GUICtrlCreateButton("输入法调整", 136, 224, 80, 25)
$Button17 = GUICtrlCreateButton("用户自动登陆", 240, 224, 80, 25)
$Button18 = GUICtrlCreateButton("C盘格式转换", 344, 224, 80, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1_1)
Dim $StatusBar1_PartsWidth =
Dim $S0 = "简单工作室 ", $S1 = "地狱火制作", $S2 = "www.jdgzs.cc"
_GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth)
_GUICtrlStatusBar_SetText($StatusBar1, $S2, 2)
_GUICtrlStatusBar_SetText($StatusBar1, $S1, 1)
_GUICtrlStatusBar_SetText($StatusBar1, $S0, 0)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 20)
GUISetState(@SW_SHOW)


While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Combo1
                        GUICtrlSetData(-1, "about:blank|http://www.ha0123.com/|http://www.baidu.com./|http://www.2345.com/")
             $Start1 = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main","Start Page")
                       $Start2 = RegRead("HKEY_USERS\S-1-5-21-2000478354-842925246-1202660629-500\Software\Microsoft\Internet Explorer\Main","Start Page")
                       $Tab4Combo1data = GUICtrlSetData($Tab4Combo1, $Start1,$Start2)
                       $Tab4Button1 = GUICtrlCreateButton("修 改", 45, 135, 70, 22, 0)
             $Tab4Button2 = GUICtrlCreateButton("使用空白页", 145, 135, 85, 22, 0)
             $Tab4Button3 = GUICtrlCreateButton("清除IE记录", 260, 135, 85, 22, 0)
                Case $Button3
                        FileInstall("C:\AU3\设定分辨率.exe", "C:\WINDOWS\Temp\设定分辨率.exe", 1)
                        Run("C:\WINDOWS\Temp\设定分辨率.exe")
                Case $Button4
                        FileInstall("C:\AU3\系统服务优化.exe", "C:\WINDOWS\Temp\系统服务优化.exe", 1)
                        Run("C:\WINDOWS\Temp\系统服务优化.exe")
                Case $Button5
                        FileInstall("C:\AU3\自动登陆.exe", "C:\WINDOWS\Temp\自动登陆.exe", 1)
                        Run("C:\WINDOWS\Temp\自动登陆.exe")
                Case $Button6
                        FileInstall("C:\AU3\自动登陆.exe", "C:\WINDOWS\Temp\自动登陆.exe", 1)
                        Run("C:\WINDOWS\Temp\自动登陆.exe")
                Case $Button7
                        FileInstall("C:\AU3\ADSL拨号.exe", "C:\WINDOWS\Temp\ADSL拨号.exe", 1)
                        Run("C:\WINDOWS\Temp\ADSL拨号.exe")
                Case $Button8
                        FileInstall("C:\AU3\自动登陆.exe", "C:\WINDOWS\Temp\自动登陆.exe", 1)
                        Run("C:\WINDOWS\Temp\自动登陆.exe")
                Case $Button9
                        FileInstall("C:\AU3\自动登陆.exe", "C:\WINDOWS\Temp\自动登陆.exe", 1)
                        Run("C:\WINDOWS\Temp\自动登陆.exe")
                Case $Button10
                        FileInstall("C:\AU3\局域网共享.exe", "C:\WINDOWS\Temp\局域网共享.exe", 1)
                        Run("C:\WINDOWS\Temp\局域网共享.exe")
          Case $Button11
                        FileInstall("C:\AU3\自动登陆.exe", "C:\WINDOWS\Temp\自动登陆.exe", 1)
                        Run("C:\WINDOWS\Temp\自动登陆.exe")
                Case $Button12
                        FileInstall("C:\AU3\自动登陆.exe", "C:\WINDOWS\Temp\自动登陆.exe", 1)
                        Run("C:\WINDOWS\Temp\自动登陆.exe")
                Case $Button13
                        FileInstall("C:\AU3\自动登陆.exe", "C:\WINDOWS\Temp\自动登陆.exe", 1)
                        Run("C:\WINDOWS\Temp\自动登陆.exe")
                Case $Button14
                        FileInstall("C:\AU3\自动登陆.exe", "C:\WINDOWS\Temp\自动登陆.exe", 1)
                        Run("C:\WINDOWS\Temp\自动登陆.exe")
                Case $Button15
                        FileInstall("C:\AU3\自动登陆.exe", "C:\WINDOWS\Temp\自动登陆.exe", 1)
                        Run("C:\WINDOWS\Temp\自动登陆.exe")
                Case $Button16
                        FileInstall("C:\AU3\输入法调整.exe", "C:\WINDOWS\Temp\输入法调整.exe", 1)
                        Run("C:\WINDOWS\Temp\输入法调整.exe")
                Case $Button17
                        FileInstall("C:\AU3\用户自动登陆.exe", "C:\WINDOWS\Temp\用户自动登陆.exe", 1)
                        Run("C:\WINDOWS\Temp\用户自动登陆.exe")
                Case $Button18
                  FileInstall("C:\AU3\自动登陆.exe", "C:\WINDOWS\Temp\自动登陆.exe", 1)
                        Run("C:\WINDOWS\Temp\自动登陆.exe")
        EndSwitch
WEnd

ferelove 发表于 2010-6-11 22:26:01

没理解题意。帮不了

lynfr8 发表于 2010-6-12 00:08:17

修改浏览器首页 怎么一点就什么都，没了饿
看到错别字我就来火，而且还是标题

huoqingpo 发表于 2010-6-12 16:31:22

看起来就强大·

查看完整版本: 修改浏览器首页 怎么一点就什么都，没了饿