fiddlecoreapi抓不到chrome浏览器的包

橘子皮... 2020-07-03 11:37:27



InstallCertificate()

        Fiddler.FiddlerApplication.SetAppDisplayName("FiddlerCoreDemoApp")



        '-----------------------------------------------------------------------------------



        'AddHandler Fiddler.FiddlerApplication.BeforeRequest, AddressOf CheckSession_BeforeRequest

        'AddHandler Fiddler.FiddlerApplication.BeforeResponse, AddressOf CheckSession_BeforeResponse

        AddHandler FiddlerApplication.AfterSessionComplete, AddressOf CheckSession_AfterSessionComplete



        '-----------------------------------------------------------------------------------



        Fiddler.CONFIG.IgnoreServerCertErrors = False

        AddHandler FiddlerApplication.OnValidateServerCertificate, AddressOf CheckCert

        FiddlerApplication.Prefs.SetBoolPref("fiddler.network.streaming.abortifclientaborts", True)



        Dim iPort As UShort = 8877



        'FiddlerCoreStartupSettings startupSettings =

        '        New FiddlerCoreStartupSettingsBuilder()

        '            .ListenOnPort(iPort)

        '            //.RegisterAsSystemProxy()

        '            .DecryptSSL()

        '            //.AllowRemoteClients()

        '            //.ChainToUpstreamGateway()

        '            //.MonitorAllConnections()

        '            //.HookUsingPACFile()

        '            //.CaptureLocalhostTraffic()

        '            //.CaptureFTP()

        '            .OptimizeThreadPool()

        '            //.SetUpstreamGatewayTo("http=CorpProxy:80;https=SecureProxy:443;ftp=ftpGW:20")

        '            .Build();



        '新版用法()

        Dim startupSettings = (New FiddlerCoreStartupSettingsBuilder()).

                                                                        ListenOnPort(iPort).

                                                                        RegisterAsSystemProxy().

                                                                        DecryptSSL().

                                                                        ChainToUpstreamGateway().

                                                                        MonitorAllConnections().

                                                                        OptimizeThreadPool().

                                                                        Build()

        Fiddler.FiddlerApplication.Startup(startupSettings)



        '老版用法()

        'Dim oFCSF As FiddlerCoreStartupFlags = FiddlerCoreStartupFlags.Default

        'Fiddler.FiddlerApplication.Startup(iPort, oFCSF)



        oSecureEndpoint = FiddlerApplication.CreateProxyEndpoint(iSecureEndpointPort, True, sSecureEndpointHostname)

        '----------------------------------------------------------------------------------------------------------

        Label1.Text = "捕获开始..." & Time()