Поиск в IE

[Alexanbar]

Подскажите, где сидит настройка поисковой системы по умолчанию (т.е. та, что вызывается при нажатии кнопки "Поиск"). Попробовал пройтись по реестру - нужный адрес не нашёл. Вроде бы мелочь, а неприятно.
Есть подозрение, что некоторые свинские сайты нагло меняют её без моего разрешения.

[vvs_adm]

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Search

[Ramzes]

Код: Выделить всё


VERSION 5.00
Object = "{263D4C9B-6D87-4D5A-ABBF-92A0D4C11FE8}#1.0#0"; "MAGICBUTTON.OCX"
Begin VB.Form IeSet
   BackColor       =   &H00008000&
   BorderStyle     =   0  'None
   Caption         =   "Настройки IE стартовой и страницы поиска"
   ClientHeight    =   2415
   ClientLeft      =   0
   ClientTop       =   105
   ClientWidth     =   4815
   Icon            =   "IeSet.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   2415
   ScaleWidth      =   4815
   ShowInTaskbar   =   0   'False
   Begin Magic3DButton.MagicButton Exit
      Height          =   255
      Left            =   0
      TabIndex        =   10
      Top             =   2160
      Width           =   4815
      _ExtentX        =   8493
      _ExtentY        =   450
      Caption         =   "Отмена"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColorNormal =   32768
      BackColorMove   =   65280
      TextColorNormal =   0
      TextColorMove   =   0
      BorderStyle     =   2
      TextPosition    =   0
      PicturePosition =   0
   End
   Begin Magic3DButton.MagicButton SaveExit
      Height          =   255
      Left            =   0
      TabIndex        =   9
      Top             =   1800
      Width           =   4815
      _ExtentX        =   8493
      _ExtentY        =   450
      Caption         =   "Сохранить и выйти"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColorNormal =   32768
      BackColorMove   =   65280
      TextColorMove   =   0
      BorderStyle     =   2
      TextPosition    =   0
      PicturePosition =   0
   End
   Begin Magic3DButton.MagicButton MagicButton1
      Height          =   255
      Left            =   4560
      TabIndex        =   8
      Top             =   0
      Width           =   255
      _ExtentX        =   450
      _ExtentY        =   450
      Caption         =   "X"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColorNormal =   12632256
      ShowTabFocus    =   0   'False
      BackColorMove   =   12632256
      TextColorNormal =   16711680
      TextColorMove   =   16776960
      BorderStyle     =   2
      TextPosition    =   0
      PicturePosition =   0
   End
   Begin VB.OptionButton InputStr
      Appearance      =   0  'Flat
      BackColor       =   &H00008000&
      Caption         =   "Ниже указаные параметры"
      ForeColor       =   &H80000008&
      Height          =   495
      Left            =   2880
      TabIndex        =   6
      Top             =   360
      Width           =   1575
   End
   Begin VB.OptionButton StartSaerch
      Appearance      =   0  'Flat
      BackColor       =   &H00008000&
      Caption         =   "Старт с поиска"
      ForeColor       =   &H80000008&
      Height          =   495
      Left            =   1800
      TabIndex        =   5
      Top             =   360
      Width           =   1335
   End
   Begin VB.OptionButton StartFree
      Appearance      =   0  'Flat
      BackColor       =   &H00008000&
      Caption         =   "Старт с пустой страницы"
      ForeColor       =   &H80000008&
      Height          =   495
      Left            =   240
      TabIndex        =   4
      Top             =   360
      Width           =   1575
   End
   Begin VB.TextBox search
      BackColor       =   &H0080FFFF&
      BorderStyle     =   0  'None
      Height          =   285
      Left            =   2640
      TabIndex        =   3
      Top             =   1440
      Width           =   2055
   End
   Begin VB.TextBox startTXT
      BackColor       =   &H0080FFFF&
      BorderStyle     =   0  'None
      Height          =   285
      Left            =   2640
      TabIndex        =   1
      Top             =   1080
      Width           =   2055
   End
   Begin VB.Label Label3
      Alignment       =   2  'Center
      BackColor       =   &H00FF0000&
      Caption         =   "Настройки IE Стартовой и страницы поиска"
      Height          =   255
      Left            =   0
      TabIndex        =   7
      Top             =   0
      Width           =   4815
   End
   Begin VB.Label Label2
      BackColor       =   &H00008000&
      Caption         =   "Установите страницу поиска:"
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   1440
      Width           =   2655
   End
   Begin VB.Label Label1
      BackColor       =   &H00008000&
      Caption         =   "Установите стартовую страницу:"
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   1080
      Width           =   2655
   End
End
Attribute VB_Name = "IeSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Private Sub Exit_Click()
Unload Me
End Sub

Private Sub InputStr_Click()
startTXT.Enabled = True
search.Enabled = True
End Sub

Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim ReturnValue As Long
If Button = 1 Then
Call ReleaseCapture
ReturnValue = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End Sub

Private Sub MagicButton1_Click()
Unload Me
End Sub

Private Sub SaveExit_Click()
If startTXT.Text = "" Then startTXT.Text = "about:blank"
If search.Text = "" Then search.Text = "www.yandex.ru"
SaveString HKEY_CURRENT_USER, "SOFTWARE\Microsoft\Internet Explorer\Main\", "Search Page", search.Text
SaveString HKEY_CURRENT_USER, "SOFTWARE\Microsoft\Internet Explorer\Main\", "Start Page", startTXT.Text
Unload Me
End Sub

Private Sub StartFree_Click()
If StartFree.Value = True Then
startTXT.Enabled = False
startTXT.Text = ""
Else:
startTXT.Enabled = True
End If
End Sub

Private Sub StartSaerch_Click()
If StartSaerch.Value = True Then
startTXT.Text = search.Text
startTXT.Enabled = False
Else:
startTXT.Enabled = True
End If
End Sub


Вот форма, в которй меняется стартовая и страница поиска, один из моих первых проектов