Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

Create and retrieve cookies from a Windows Presentation Foundation (WPF) application using SetCookie and GetCookie

<Page x: Class="CookiesSampleCSharp.HomePage"     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"     WindowTitle="Cookies Sample">   <StackPanel>     <Label>Set Cookie Value:</Label>     <TextBox Name="setCookieValueTextBox">Cookie1=Value1</TextBox>     <Button HorizontalAlignment="Right" Name="setCookieButton" Click="setCookieButton_Click">Set Cookie</Button>     <Label>Get Cookie Value:</Label>     <TextBox Name="getCookieValueTextBox"></TextBox>     <Button HorizontalAlignment="Right" Name="getCookieButton" Click="getCookieButton_Click">Get Cookie</Button>   </StackPanel>    </Page> //File:Window.xaml.vb Imports System Imports System.ComponentModel Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Interop Imports System.Windows.Navigation Namespace CookiesSampleCSharp   Public Partial Class HomePage     Inherits System.Windows.Controls.Page     Public Sub New()       InitializeComponent()     End Sub     Private Sub setCookieButton_Click(sender As Object, e As RoutedEventArgs)       Try         Application.SetCookie(BrowserInteropHelper.Source, Me.setCookieValueTextBox.Text)       Catch ex As Win32Exception         MessageBox.Show(ex.Message & " (Native Error Code=" & ex.NativeErrorCode & ")")       End Try     End Sub     Private Sub getCookieButton_Click(sender As Object, e As RoutedEventArgs)       Try         Me.getCookieValueTextBox.Text = Application.GetCookie(BrowserInteropHelper.Source)       Catch ex As Win32Exception         MessageBox.Show(ex.Message & " (Native Error Code=" & ex.NativeErrorCode & ")")       End Try     End Sub   End Class End Namespace