comxmlrpcXML-RPC的COM组件

comxmlrpc 是一个Windows下的COM组件，封装了对 XML-RPC 协议的支持。

示例代码：

dim xmlrpcserver as comxmlrpc.rpcClient
dim params() as Variant
dim x as Integer
set xmlrpcserver = new comxmlrpc.rpcClient
redim params(1)
params(0) = 3
params(1) = 5
xmlrpcserver.uri = "http://localhost:80/RPC2"
x = xmlrpcserver.execute("someClass.sum",params)

dim xmlrpcserver as comxmlrpc.rpcClient
dim params() as Variant
dim x as Integer
set xmlrpcserver = new comxmlrpc.rpcClient
dim dictionary As Object
Set dictionary = CreateObject("Scripting.Dictionary")
dictionary.Add "name", "ignacio"
dictionary.Add "age", "17"
redim params(0)
set params(0) = dictionary
xmlrpcserver.uri = "http://localhost:80/RPC2"
x = xmlrpcserver("someClass.structRecv",params) ' using .execute default method