Re[2]: Вопрос насчет сокетов
От: Tanketka  
Дата: 09.07.07 07:30
Оценка:
S>Ну и зачем тут сокеты? Смотри в сторону HTTP Handlers



Смотрела, но мне нужно сделать так чтобы эта программа была проксиком. То есть все свои браузеры я бы могла настроить выходить через нее. Писала на VB, получалось так:

Dim ToServer As String
Dim Webport 
Dim Data As String 

Private Sub Form_Load()
Form1.Visible = True
Do 
    If Winsock1.State <> sckConnected And Winsock1.State <> sckListening _
                Then 
    Beep
        Winsock1.Close 
        Winsock1.LocalPort = 8887
        Winsock1.Listen 
    End If
    DoEvents
Loop
End Sub

Private Sub Winsock2_SendToWebserver() 
Winsock2.Close 
Winsock2.RemoteHost = "www.mywebserver.com"   
Winsock2.RemotePort = 80 
Winsock2.Connect 
Webport = Winsock2.RemotePort 
End Sub

Private Sub Winsock2_Connect()
    If Winsock2.State <> sckConnected Then Exit Sub 
Winsock2.SendData ToServer 

End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
If Winsock2.State <> sckClosing Then
    Winsock2.GetData Data                      

    
    Winsock1.SendData Data   
End If
End Sub



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

Winsock1.Close 
Winsock1.Accept requestID 

End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim ServerData As String ServerData
Winsock1.GetData ServerData 

ToServer = ServerData 
'Необходимое мне измение
ToServer = "GET " + "http://www.mywebserver.com/myveryneedfile.php?url=" + Mid(ToServer, 5)
Winsock2_SendToWebserver 


End Sub


Только теперь это нужно сделать на C#, и многопоточной,
то есть я так понимаю в главной функции создаем поток, в котором будем слушать порт и если что-то приходит, выполнять все это дело.
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.