如何屏蔽IE的一个网址自动转向另一个网址?

Question

如,得到IE地址栏的网址为www.sohu.com 就自动打开了www.sina.com 网站.

Answer 1

把自己的机器安装成DNS服务器,定义自己机器TCP/IP属性中的DNS为自己机器的IP,然后在DNS中把所有的网站都指向同一个IP地址,搞定.

Answer 2

曾经听说过IE还是Windows有自己记住一些域名IP的功能的,说是只要把域名所对应的IP在机子的某个地方存上,就可以少访问DNS服务器提高速度.可,记不清是在哪里了...

Answer 3

好像不是这样，我看到过一个远控软件，它的方法很特殊，我们先不考虑客户端与服务器端的关系，仅IE这块功能它是这么实现的。
1.得到IE窗口.
2.枚举每个控件句柄.
3.检查每个句柄中的英文字母，然后对比过滤关键字.发现即关闭80端口如果LZ的话是否可以将第三条改一下，得到过滤关键字即向控件发送消息:www.sina.com.cn

Answer 4

'工程中引用Microsoft Internet ControlsOption Explicit
Private WithEvents Timer1 As Timer
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public mDocument As Object
Const WM_CLOSE = &H10
Dim phwnd&, rtn&, i&
Private Sub Form_Load()
   Set Timer1 = Controls.Add("vb.timer", "Timer1")
   Timer1.Interval = 1000
   Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
   Call mComGetIEWindows
End SubPublic Sub mComGetIEWindows()
   On Error Resume Next
   Timer1.Enabled = False
   Dim mShellWindow As New SHDocVw.ShellWindows
   For i = 0 To mShellWindow.Count - 1
      If VBA.TypeName(mShellWindow.Item(i).Document) = "HTMLDocument" Then
         If InStr(UCase(mShellWindow.Item(i).Document.url), "SOHU") > 0 Then
            phwnd = mShellWindow.Item(i).hwnd
            PostMessage phwnd, WM_CLOSE, 0, 0 '关闭
            Call Shell("explorer http://www.sina.com.cn/", vbNormalFocus)
            Exit For
         End If
      End If
   Next i
   Timer1.Enabled = True
End Sub

Answer 5

修改  HOSTS 最直接一点
呵呵