2017-05-11 3 views
0

Ich möchte Cookies von HttpWebRequest zu WebBrowser übertragen. Ich habe versucht, unter Code, aber nicht funktioniert. loginPostcookieVB.Net HttpWebRequest - Übertrage Cookies von HttpWebRequest zu WebBrowser

Bin ich sehr gut die Parameter InternetSetCookieEx Einstellung:

von HttpWebRequest My Cookie genannt?

<DllImport("wininet.dll", SetLastError:=True)> _ 
 
    Public Shared Function InternetSetCookieEx(url As String, cookieName As String, cookieData As StringBuilder, dwFlags As Int32, lpReserved As IntPtr) As Boolean 
 
    End Function 
 
    
 
    
 
    InternetSetCookieEx("https://www.facebook.com/", loginPostcookie.ToString, "TestData=Test;", 0, 0) 
 
    
 
     Me.WebBrowser1.Navigate("https://www.facebook.com/") 
 
     
 

+0

check this out: [Wie Webbrowser Cookies funktionieren] (http://stackoverflow.com/questions/17309396/enable-cookies-in-winforms-webbrowser) – Mederic

Antwort

0

ich verwenden Cookies meine Benutzer ihre Benutzernamen in einem Cookie gespeichert werden, so dass sie es nicht halten müssen eingeben, wenn sie sich in. Ich habe und das Cookie abrufen mit dem Code unter“

' Set the cookie when the user checks the checkbox 
If CheckBox_SaveUserName.Checked Then 
    ' Save whatever username is in the textbox into the cookie 
    Dim oCookie As HttpCookie = Request.Cookies("SignIn") 
    oCookie = New HttpCookie("SignIn", txtUserName.Text) 
    oCookie.Expires = DateTime.Now.AddYears(100) 
    Response.AppendCookie(oCookie) 
    'Response.Cookies("SignIn")("User") = txtUsername.Text 
Else 
    ' To delete the cookie, we expire it. Browser security won't let use remove it. 
    Response.Cookies("SignIn").Expires = DateTime.Now.AddYears(-50) 
End If 

Wenn der Benutzer Zugriff auf die Anmeldeseite, überprüfe ich für das Cookie:

' If the signin cookie exists, get the username and check the checkbox 
If Not IsNothing(Request.Cookies("SignIn")) Then 
    If txtUserName.Text & "" = "" Then 
     txtUserName.Text = Request.Cookies("SignIn").Value 
     CheckBox_SaveUserName.Checked = True 
    End If 
End If