Imports CookComputing.XmlRpc

Public Structure HashValue
    Public status As Integer
End Structure

<XmlRpcUrl("http://import.sreality.cz:443/RPC2")> _
Public Interface ISreality
    Inherits IXmlRpcProxy
    <XmlRpcMethod("getHash")> _
    Function GetHash(ByVal x As Integer) As HashValue
End Interface

Module XmlRpcTest
    Sub Main()
        Dim proxy As ISreality
        proxy = CType(XmlRpcProxyGen.Create(GetType(ISreality)), ISreality)
        Dim ret As HashValue
        ret = proxy.GetHash(123456)
        Console.WriteLine(ret.status)
        Console.ReadLine()
    End Sub
End Module

s = "podprsenka"
wscript.echo right(s, len(s) - 3)