2014-10-05 54 views
0

現在,我正在學習使用VS2010編程VB, 並嘗試爲Fiddler製作擴展DLL。VB.NET中的提琴手擴展DLL無法正常工作

首先我有一個「AustralianImages/ImageFlipper」的示例代碼, 並在VB.NET中對其進行了重寫。

構建DLL文件已成功完成(雖然很難) 並將其複製到「Fiddler2 \ Scripts」文件夾中,但Fiddler似乎不會對其加載它 。 使用文檔文件夾,或將.net Framework版本更改爲2.0也不起作用。

有沒有人有一些線索?謝謝。

Public Class MyFlip Implements IAutoTamper 

    Private bEnabled As Boolean 
    Dim oMenuItem As MenuItem = New MenuItem("M&y Flip") 

    #Region "IAutoTamper Members" 
    Public Sub OnBeforeReturningError(ByVal oSession As Session) Implements IAutoTamper.OnBeforeReturningError 
    End Sub 
    Public Sub AutoTamperRequestAfter(ByVal oSession As Session) Implements IAutoTamper.AutoTamperRequestAfter 
    End Sub 
    Public Sub AutoTamperRequestBefore(ByVal oSession As Session) Implements IAutoTamper.AutoTamperRequestBefore 
    End Sub 
    Public Sub AutoTamperResponseAfter(ByVal oSession As Session) Implements IAutoTamper.AutoTamperResponseAfter 
    End Sub 

    Public Sub AutoTamperResponseBefore(ByVal oSession As Session) Implements IAutoTamper.AutoTamperResponseBefore 

     If (bEnabled = False) Then Exit Sub 

     If oSession.ToString() <> String.Empty _ 
      And oSession.responseCode = 200 _ 
      And oSession.oResponse.ToString() <> String.Empty _ 
      And oSession.oResponse.headers.ToString() & oSession.oResponse.headers.ExistsAndContains("Content-Type", "image/gif").ToString() & _ 
       oSession.oResponse.headers.ExistsAndContains("Content-Type", "image/png").ToString() & _ 
       oSession.oResponse.headers.ExistsAndContains("Content-Type", "image/jp").ToString() <> String.Empty Then 
      Try 
       oSession.utilDecodeResponse() 
       Dim oStream = New MemoryStream(oSession.responseBodyBytes) 
       Dim oBMP = New Bitmap(oStream) 
       oBMP.RotateFlip(RotateFlipType.Rotate180FlipNone) 

       Dim oNewStream = New MemoryStream() 
       oBMP.Save(oNewStream, System.Drawing.Imaging.ImageFormat.Png) 
       oSession.responseBodyBytes = oNewStream.GetBuffer() 
       oSession.oResponse.headers("Content-Length") = oSession.responseBodyBytes.Length.ToString() 
       oSession.oResponse.headers("Content-Type") = "image/png" 
       oSession.oResponse.headers("Cache-Control") = "no-cache" 
       oStream.Dispose() 
       oNewStream.Dispose() 
      Catch eX As Exception 
       System.Diagnostics.Trace.WriteLine(eX.ToString(), "ImageFlipper Failed") 
      End Try 
     End If 
    End Sub 
    #End Region 

    #Region "IFiddlerExtension_Members" 
    Public Sub OnBeforeUnload() Implements IFiddlerExtension.OnBeforeUnload 
     bEnabled = False 
     oMenuItem.Dispose() 
    End Sub 

    Public Sub OnLoad() Implements IFiddlerExtension.OnLoad 
     FiddlerApplication.Log.LogString("MyFlip OnLoad Start.") 
     'oMenuItem = New MenuItem("M&y Flip") 
     AddHandler oMenuItem.Click, AddressOf oMenuItem_Click 

     FiddlerApplication.UI.mnuTools.MenuItems.Add(oMenuItem) 
     MsgBox("vbOK!!") 
     FiddlerApplication.Log.LogString("BB OnLoad End.") 
    End Sub 
    Sub oMenuItem_Click(ByVal sender As System.Object, _ 
        ByVal e As System.EventArgs) 
     oMenuItem.Checked = Not (oMenuItem.Checked) 
     bEnabled = oMenuItem.Checked 
    End Sub 
    #End Region 
    End Class 
+0

我敢打賭,這是錯誤的文件夾 – 2014-10-05 21:52:02

回答

0

我不得不加上這句話......('·ω·`)

<Assembly: Fiddler.RequiredVersion("2.4.6.0")> 

而且,,,,,其實,我寫的代碼已經在 oSession條件的誤譯判斷。

有人請不要複製&使用我的代碼,因爲它代表。

非常感謝。