FiddlerCore в VB.net? - PullRequest
Новая
       3

FiddlerCore в VB.net?

1 голос
/ 04 апреля 2011

Кто-нибудь знает, как использовать FiddlerCore в vb.net? Я работал с некоторыми инструментами C # для vb.net, но они никогда не могут преобразовать его во что-то, что работает. Примеры кода (или даже полные проекты) или ссылки на сайт были бы хорошими.

Спасибо, если можете!

-Hopeless.

- EDIT -

У меня есть следующий код, который я адаптировал (из замечательного поста ниже). Однако, похоже, это не работает. 

Private Sub StartProxy()

    If Not FiddlerApplication.IsSystemProxy Then
        AddHandler FiddlerApplication.BeforeResponse, AddressOf FiddlerBeforeResponseHandler
        AddHandler FiddlerApplication.BeforeRequest, AddressOf FiddlerBeforeRequestHandler
    End If

    FiddlerApplication.Startup(80, True, False, False)

End Sub

Private Sub FiddlerBeforeRequestHandler(ByVal tSession As Session)
    RichTextBox1.Text &= "REQUEST:  " & tSession.fullUrl & vbCrLf
End Sub

Private Sub FiddlerBeforeResponseHandler(ByVal tSession As Session)
    RichTextBox1.Text &= "RESPONSE:  " & tSession.fullUrl & vbCrLf
End Sub



Private Sub StopProxy()

    Try
        RemoveHandler FiddlerApplication.BeforeResponse, AddressOf FiddlerBeforeResponseHandler
        RemoveHandler FiddlerApplication.BeforeRequest, AddressOf FiddlerBeforeRequestHandler
        FiddlerApplication.Shutdown()
    Catch ex As Exception
    End Try

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    StartProxy()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    StopProxy()
End Sub

1 Ответ

1 голос
/ 05 апреля 2011

C # должно быть очень простым для преобразования. Но .. ну хорошо .. вот маленький образец: 

    Private Sub StartProxy()

        If Not FiddlerApplication.IsSystemProxy Then
            AddHandler FiddlerApplication.BeforeResponse, AddressOf FiddlerBeforeResponseHandler
            AddHandler FiddlerApplication.BeforeRequest, AddressOf FiddlerBeforeRequestHandler
        End If

        FiddlerApplication.Startup(8090, True, False, False)

    End Sub

Private Sub FiddlerBeforeRequestHandler(ByVal tSession As Session)
  ' Code to process the request before it is passed along to the next server in the request chain.
End Sub

Private Sub FiddlerBeforeResponseHandler(ByVal tSession As Session)
  ' Code to process the response before passing along to the next client in the response chain (typically the browser)
End Sub



Private Sub StopProxy()

        Try
            RemoveHandler FiddlerApplication.BeforeResponse, AddressOf FiddlerBeforeResponseHandler
            RemoveHandler FiddlerApplication.BeforeRequest, AddressOf FiddlerBeforeRequestHandler
            FiddlerApplication.Shutdown()
            System.Threading.Thread.Sleep(500)
        Catch ex As Exception
        End Try

    End Sub
...