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
我敢打賭,這是錯誤的文件夾 – 2014-10-05 21:52:02