Visual Basic

Dim WH_KEYBOARD As Integer = 2
    Shared hHook As Integer = 0
    Public Delegate Function CallBack(ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
    Private hookproc As CallBack
    <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)> _
        Public Overloads Shared Function SetWindowsHookEx _
             (ByVal idHook As Integer, ByVal HookProc As CallBack, _
              ByVal hInstance As IntPtr, ByVal wParam As Integer) As Integer
    End Function
    <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)> _
     Public Overloads Shared Function CallNextHookEx _
          (ByVal idHook As Integer, ByVal nCode As Integer, _
           ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
    End Function
    <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)> _
             Public Overloads Shared Function UnhookWindowsHookEx _
                  (ByVal idHook As Integer) As Boolean
    End Function
    <StructLayout(LayoutKind.Sequential)> Public Structure KeyHookStruct
        Public pt As Point
        Public hwnd As Integer
        Public wHitTestCode As Integer
        Public dwExtraInfo As Integer
    End Structure

  Private Sub sethook()
        If hHook.Equals(0) Then
            hookproc = AddressOf KeyHookProc
            hHook = SetWindowsHookEx(7, hookproc, IntPtr.Zero, System.Threading.Thread.CurrentThread.ManagedThreadId())
            If hHook.Equals(0) Then
                MsgBox("SetWindowsHookEx Failed")
                Return
            Else
                'Button1.Text = "UnHook Windows Hook"
            End If
        Else
            Dim ret As Boolean = UnhookWindowsHookEx(hHook)

            If ret.Equals(False) Then
                MsgBox("UnhookWindowsHookEx Failed")
                Return
            Else
                hHook = 0
                ' Button1.Text = "Set Windows Hook"
                Me.Text = "Mouse Hook"
            End If


        End If


    End Sub
    Public Shared Function KeyHookProc( _
 ByVal nCode As Integer, _
 ByVal wParam As IntPtr, _
 ByVal lParam As IntPtr) As Integer
        Dim MyKeyHookStruct As New KeyHookStruct()

        If (nCode < 0) Then
            Return CallNextHookEx(hHook, nCode, wParam, lParam)
        End If

        MyKeyHookStruct = CType(Marshal.PtrToStructure(lParam, MyKeyHookStruct.GetType()), KeyHookStruct)

        Dim tempForm As Form
        tempForm = Form.ActiveForm()

        Dim strCaption As String
        strCaption = "x = " & MyKeyHookStruct.pt.x & " y = " & MyKeyHookStruct.pt.y

        tempForm.Text = strCaption
        Return CallNextHookEx(hHook, nCode, wParam, lParam)

    End Function

nextWnd = GetForegroundWindow()

' Gets title and path of the active window
GetWindowText(nextWnd, lpString, lpString.Capacity)
modTest = GetModuleFileNameEx(Process.getCurrentProcess, nullWnd, lpFileName, 500)

Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters
Imports System.BitConverterImports System.Text.RegularExpressions

Public Class Form1

 Private Sub testing()
 Dim OrderItem as string
 Dim ByteArray() As Byte
 Dim DecodedString As String
 Dim DeSerializedString as String

OrderItem  = "Tzo0OiJpdGVtIjo0OntzOjI6ImlkIjtpOjM0NjA3MztzOjg6InF1YW50aXR5IjtkOjE7czo3OiJvcHRpb25zIjthOjA6e31zOjU6InJlZ2lkIjtzOjA6IiI7fQ=="
ByteArray = System.Convert.FromBase64String(OrderItem)
DecodedString = System.Text.Encoding.ASCII.GetString(ByteArray) 

DeserialzedString = Deserialize(DecodedString)

End Sub

Private Function Deserialize(ByVal DecodedString As String) As String
        Dim bf As New Binary.BinaryFormatter()
        Dim ms As New IO.MemoryStream(System.Text.Encoding.UTF8.GetBytes(DecodedString))
        Return bf.Deserialize(ms)
End Function

End Class