Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/assembly/6.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 带有WebBrowser和WebClient的HTTPOnly Cookie_Vb.net_Webclient_Basic - Fatal编程技术网

Vb.net 带有WebBrowser和WebClient的HTTPOnly Cookie

Vb.net 带有WebBrowser和WebClient的HTTPOnly Cookie,vb.net,webclient,basic,Vb.net,Webclient,Basic,我制作了一个程序,允许用户使用WebBrowser控件登录到我们的CRM系统(ConnectWise) Cookie随后将被移动到Web客户端控件,在该控件中它将解析一个url,该url返回一个.csv文件。然后Webclient将csv下载到“C:\Temp\unassigned.csv”,然后我将使用此文件在程序中执行其他操作 这在几个月内一直很有效,直到Connectwise的更新引入了HTTPOnly Cookies,我无法从Web浏览器控件中提取Cookies。WebBrowser1.

我制作了一个程序,允许用户使用WebBrowser控件登录到我们的CRM系统(ConnectWise) Cookie随后将被移动到Web客户端控件,在该控件中它将解析一个url,该url返回一个.csv文件。然后Webclient将csv下载到“C:\Temp\unassigned.csv”,然后我将使用此文件在程序中执行其他操作

这在几个月内一直很有效,直到Connectwise的更新引入了HTTPOnly Cookies,我无法从Web浏览器控件中提取Cookies。WebBrowser1.Document.Cookie字符串现在为空

代码如下:

Private Sub Internetr()

    If WebBrowser1.Url.ToString.StartsWith("REDACTED") Then 'if connectwise is logged in
        Dim _url As String = "REDACTED"
        Dim _filename As String = ("C:\Temp\unassigned.csv")
        WebBrowser1.Visible = False 'Hide the webbrowser

        Refresh.Enabled = True 'Enable the ticker

        Dim csv As WebClient = New WebClient 'new download webclient

        'THIS IS WHERE I MOVED THE COOKIES FROM WEB BROWSER TO WEBCLIENT BEFORE
        Try
            csv.DownloadFile(_url, _filename)
            load.Text = "Updating List..."
            csv.Dispose()
            DoUnassigned()
        Catch ex As Exception
            load.Text = "Failed to update list, Last updated at: " & gettime
            debugbtn.Visible = True
            exception = ex.ToString
            Failed()
        End Try
    Else
        WebBrowser1.Visible = True 'if not logged in, show the webbrowser
    End If


End Sub
有人有什么想法吗