VB Code:

Imports Microsoft.VisualBasic

Imports System

Imports System.Collections.Generic

Imports System.Xml

Imports CookComputing

Imports CookComputing.xmlrpc

<XmlRpcService()> _

Public Class GeneralUpcFind

    Inherits XmlRpcService

    Public Structure upcLookUpValues

        <XmlRpcMissingMapping(MappingAction.Ignore)> Public upc As String

        <XmlRpcMissingMapping(MappingAction.Ignore)> Public pendingUpdates As Integer

        <XmlRpcMissingMapping(MappingAction.Ignore)> Public isCoupon As Boolean

        <XmlRpcMissingMapping(MappingAction.Ignore)> Public ean As String

        <XmlRpcMissingMapping(MappingAction.Ignore)> Public issureCountryCode As String

        <XmlRpcMissingMapping(MappingAction.Ignore)> Public mfr_comment As String

        <XmlRpcMissingMapping(MappingAction.Ignore)> Public mfr As String

        <XmlRpcMissingMapping(MappingAction.Ignore)> Public description As String

        <XmlRpcMissingMapping(MappingAction.Ignore)> Public found As Boolean

        <XmlRpcMissingMapping(MappingAction.Ignore)> Public size As String

        <XmlRpcMissingMapping(MappingAction.Ignore)> Public message As String

        <XmlRpcMissingMapping(MappingAction.Ignore)> Public issureCountry As String

        <XmlRpcMissingMapping(MappingAction.Ignore)> Public lastModified As String

    End Structure

    <XmlRpcUrl("https://www.upcdatabase.com/rpc")> _

    Public Interface IgetHelp

        Inherits IXmlRpcProxy

        <XmlRpcMethod("help")> _

        Function UpcHelp() As String

    End Interface

    <XmlRpcUrl("https://www.upcdatabase.com/rpc")> _

    Public Interface IlookupUpc

        Inherits IXmlRpcProxy

        <XmlRpcMethod("lookupUPC")> _

        Function lookupUPC(ByVal upcCode As String) As upcLookUpValues

    End Interface

    <XmlRpcUrl("https://www.upcdatabase.com/rpc")> _

    Public Interface IlookupEan

        Inherits IXmlRpcProxy

        <XmlRpcMethod("lookupEAN")> _

        Function lookupEAN(ByVal EANCode As String) As upcLookUpValues

    End Interface

    <XmlRpcUrl("https://www.upcdatabase.com/rpc")> _

    Public Interface IconvertUPCE

        Inherits IXmlRpcProxy

        <XmlRpcMethod("convertUPCE")> _

        Function convertUPCE(ByVal UpcCode As String) As String

    End Interface

    Public Function getHelp() As String

        Dim proxy As IgetHelp = XmlRpcProxyGen.Create(Of IgetHelp)()

        Dim Response As String

        Response = proxy.UpcHelp()

        Return Response

    End Function


    Public Function ConvertUpce(ByVal UpceCode As String) As String

        Dim proxy As IconvertUPCE = XmlRpcProxyGen.Create(Of IconvertUPCE)()

        Dim Response As String

        proxy.KeepAlive = False

        Response = proxy.convertUPCE(UpceCode)

        Return Response

    End Function


    Public Function lookupBarCode(ByVal BarCode As String) As upcLookUpValues

        Dim Proxy As IlookupUpc = XmlRpcProxyGen.Create(Of IlookupUpc)()

        Dim LongBar As String

        Dim Response As upcLookUpValues

        Select Case BarCode.Length

            Case 12

                Response = getEan("0" + BarCode)

            Case 8

                LongBar = ConvertUpce(BarCode)

                Response = getEan(LongBar)

            Case Else

                Response = getEan(BarCode)

        End Select

        Response.upc = BarCode

        Return Response

    End Function


    Public Function getEan(ByVal eanCode As String) As upcLookUpValues

        Dim proxy As IlookupEan = XmlRpcProxyGen.Create(Of IlookupEan)()

        Dim Response As upcLookUpValues

        proxy.KeepAlive = False

        Response = proxy.lookupEAN(eanCode)

        Return Response

    End Function


    Public Function getupc(ByVal upcCode As String) As upcLookUpValues

        Dim proxy As IlookupUpc = XmlRpcProxyGen.Create(Of IlookupUpc)()

        Dim Response As upcLookUpValues

        proxy.KeepAlive = False

        Response = proxy.lookupUPC(upcCode)

        Return Response

    End Function

End Class


VB Call To Routine:


Private Sub RegetFields(ByRef Failed As Boolean)

        Dim UpcLookUp As New GeneralUpcFind

        Dim UpcValues As New GeneralUpcFind.upcLookUpValues

        Dim Desc, Size, MFG As String

        Dim ChangedDesc, ChangedSize As Boolean

        ChangedDesc = False

        ChangedSize = False

        UpcValues = UpcLookUp.lookupBarCode(TxtBarCode.Text)

        'Trim just removes leading and trailing spaces

        Desc = Trim(UpcValues.description)

        Size = Trim(UpcValues.size)

    End Sub