HTTP代理服务器的有关问题

HTTP代理服务器的问题
vb能开发个本机HTTP的代理服务器吗？实现本机全局的HTTP代理,或是指定程序的HTTP代理吗？就是说所有或者指定程序只要是走HTTP协议的，都经过VB开发的程序中转一下,现在找到的资料必须在IE的代理设置里面把HTTP代理设置成 127.0.0.1 3280,才行，求个思路，谢谢


[解决办法]

[解决办法]
自由门
[解决办法]
做这个很厉害啊，很多病毒也这样
[解决办法]
那就要写驱动了.....不然就是API HOOK
[解决办法]
自己搜一下BHO，不过只对IE有效。
[解决办法]
做路由？
[解决办法]
来自于网络

VB code

'工程说明'程序中有三个WINSOCK对像'SERVER是一个监听对像,监听被代理(即ID)是的请求,如果IE发来请求,则打开一个'Winsock2对像,接受联接,并继续监听'Winsock2对像,用来联接客户端,如果对方传来请求消息,则经过判断,用相应的'   Winsock3与要请求的服务器进行接接'Winsock3对像,用来联接服务端,如果发来消息,传给相应的Winsock2,让其传给客'   户端'Private Sub Command1_Click()'打或是关闭服务If Command1.Caption = "停止" Then    Server.Close    Command1.Caption = "开始"Else    Form_Load    Command1.Caption = "停止"End IfEnd SubPrivate Sub Form_Load()'窗体启动时,打开Server,定议监听端口,开始监听Server.LocalPort = 810Server.ListenEnd SubPrivate Sub Server_ConnectionRequest(ByVal requestID As Long)'如果客户传来请求,先判断是不是有空闲的Winsock2如果有使用它,无则新建一个On Error Resume Next  For Each tWinsock In Winsock2   If tWinsock.State <> 7 Then     tWinsock.Close     i = tWinsock.Index     GoTo lls   End If  Next  i = Winsock2.Count  Load Winsock2(i)   Load Winsock3(i)lls:  Winsock2(i).Accept requestIDEnd SubPrivate Sub Winsock2_DataArrival(Index As Integer, ByVal bytesTotal As Long)'Winsock2传来数据   On Error Resume Next   Dim bty() As Byte, strHost As String, strData As String, strHeader As String    '接收数据    Winsock2(Index).GetData strData, vbString    '找到指定的HOST地址    pos = InStr(1, UCase(strData), "HOST:") + 5    strHost = Trim(Mid(strData, pos, InStr(pos, strData, vbCrLf) - pos))    Text1.Text = strData '显示传来的请求,没有用    '关闭对应的Winsock3    Winsock3(Index).Close    '求HTTP协议第一行信息    strHeader = Left(strData, InStr(1, strData, vbCrLf))    If InStr(1, strHeader, ".ds") > 0 Then '如果是下载*.DS        Winsock2(Index).SendData "您要下载DS文件"        DoEvents        Winsock2(Index).Close        Winsock3(Index).Close        If Index > 0 Then '从内存中卸载无用的控件            Unload Winsock2(Index)            Unload Winsock3(Index)        End If                Exit Sub    End If    '解释HOST，得到主机在址和端口,并付给Winsock3        If InStr(1, strHost, ":") Then            Winsock3(Index).RemoteHost = Left(strHost, InStr(1, strHost, ":") - 1)            Winsock3(Index).RemotePort = Right(strHost, Len(strHost) - InStr(1, strHost, ":"))        Else            Winsock3(Index).RemoteHost = strHost            Winsock3(Index).RemotePort = 80        End If    Winsock3(Index).Connect '联接主机    '是不是联接成功    Do While Winsock3(Index).State <> 7     DoEvents     'Debug.Print Winsock3(Index).State     If Winsock3(Index).State = sckError Then        '如果联接错误        Winsock2(Index).SendData "不能联接到指定主机"        DoEvents        Winsock2(Index).Close        Winsock3(Index).Close        If Index > 0 Then '从内存中卸载无用的控件            Unload Winsock2(Index)            Unload Winsock3(Index)        End If        Exit Sub     End If    Loop        Winsock3(Index).SendData strData    End SubPrivate Sub Winsock3_Close(Index As Integer)'如果主机关闭,从内存中卸载无用的控件    Winsock2(Index).Close    If Index > 0 Then        Unload Winsock2(Index)        Unload Winsock3(Index)    End If    End SubPrivate Sub Winsock2_Close(Index As Integer)'如果主机关闭,从内存中卸载无用的控件    Winsock3(Index).Close    If Index > 0 Then        Unload Winsock2(Index)        Unload Winsock3(Index)    End If        End SubPrivate Sub Winsock3_DataArrival(Index As Integer, ByVal bytesTotal As Long)'如果主机传来数据,以字节方式返回给客户端   On Error Resume Next   Dim bty() As Byte   Winsock3(Index).GetData bty, vbByte   Winsock2(Index).SendData bty      End Sub 
 
[解决办法]
设置IE的代理服务器 127.0.0.1 810
普通的浏览网页没有问题
[解决办法]
进来学习一下
[解决办法]
delphi下有个开源的什么软件来着，可以实现的