Hi
I use VBA,SQL,PHP many years, but SOAP and WSDL are new world for me for only
some weeks.
I need working in VBA 2k/xp with WSDL: http://webapi.aukro.cz/uploader.php?wsdl
.This service has a working
I searched many times the net for any solution and my last hope is PocketSOAP.

The new pocketSOAP WSDL Proxy Generator (v2.3.0 5/9/2004) generated code
impossible to complie in VBA. You wrote here in discussion, it's not working,
but please please, i need it so much! Can you please help me? I have no
possibility to compile anything in full VB.

I tryed the older pocketSOAP WSDL Proxy Generator (v0.1.2 1/3/2002), that
genetated code below. It used names form WSDL with "-" so i renamed whole code
to "_" as seen below. I tryed and be able to run .doQuerySysStatus, but .doLogin
fails.

Can you please help me somehow?

<code><pre>
'
--------------------------------------------------------------------------------\
------------
' $Header: /soap/pocketSOAP/wsdlWizard/frmWiz.frm 1     1/03/02 9:16p Simon $
'
' generated at 28.8.2009 20:38:13 from
' http://webapi.aukro.cz/uploader.php?wsdl
'
--------------------------------------------------------------------------------\
------------
Option Explicit

Private m_url As String

Private Sub Class_Initialize()
    m_url = "http://webapi.aukro.cz/uploader.php"
End Sub

Public Property Get EndpointURL() As String
     EndpointURL = m_url
End Property

Public Property Let EndpointURL(ByVal newURL As String)
     m_url = newURL
End Property

Public Function doGetCatsData(ByVal country_id As Long, ByVal local_version,
ByVal webapi_key As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetCatsData", "urn:AllegroWebApi"
     e.parameters.Create "country-id", country_id
     e.parameters.Create "local-version", local_version
     e.parameters.Create "webapi-key", webapi_key

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#catsdata"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetCatsData = e.parameters.Item(0).value
         Else
             doGetCatsData = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doLogin(ByVal user_login As String, ByVal user_password As
String, ByVal country_code As Long, ByVal webapi_key As String, ByVal
local_version)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doLogin", "urn:AllegroWebApi"
     e.parameters.Create "user-login", user_login
     e.parameters.Create "user-password", user_password
     e.parameters.Create "country-code", country_code
     e.parameters.Create "webapi-key", webapi_key
     e.parameters.Create "local-version", local_version

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#login"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doLogin = e.parameters.Item(0).value
         Else
             doLogin = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doLoginEnc(ByVal user_login As String, ByVal user_hash_password
As String, ByVal country_code As Long, ByVal webapi_key As String, ByVal
local_version)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doLoginEnc", "urn:AllegroWebApi"
     e.parameters.Create "user-login", user_login
     e.parameters.Create "user-hash-password", user_hash_password
     e.parameters.Create "country-code", country_code
     e.parameters.Create "webapi-key", webapi_key
     e.parameters.Create "local-version", local_version

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#loginenc"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doLoginEnc = e.parameters.Item(0).value
         Else
             doLoginEnc = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doNewAuction(ByVal session_handle As String, ByVal fields, ByVal
private_ As Long, ByVal local_id As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doNewAuction", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "fields", fields
     e.parameters.Create "private", private_
     e.parameters.Create "local-id", local_id

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#newauction"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doNewAuction = e.parameters.Item(0).value
         Else
             doNewAuction = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doNewAuctionExt(ByVal session_handle As String, ByVal fields,
ByVal private_ As Long, ByVal local_id As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doNewAuctionExt", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "fields", fields
     e.parameters.Create "private", private_
     e.parameters.Create "local-id", local_id

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#newauctionext"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doNewAuctionExt = e.parameters.Item(0).value
         Else
             doNewAuctionExt = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doSellSomeAgain(ByVal session_handle As String, ByVal
sell_items_array, ByVal sell_starting_time, ByVal sell_auction_duration As Long,
ByVal sell_options As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doSellSomeAgain", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "sell-items-array", sell_items_array
     e.parameters.Create "sell-starting-time", sell_starting_time
     e.parameters.Create "sell-auction-duration", sell_auction_duration
     e.parameters.Create "sell-options", sell_options

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#sellsomeagain"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doSellSomeAgain = e.parameters.Item(0).value
         Else
             doSellSomeAgain = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doCheckNewAuction(ByVal session_handle As String, ByVal fields)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doCheckNewAuction", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "fields", fields

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#checkauction"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doCheckNewAuction = e.parameters.Item(0).value
         Else
             doCheckNewAuction = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doCheckNewAuctionExt(ByVal session_handle As String, ByVal
fields)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doCheckNewAuctionExt", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "fields", fields

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#checkauctionext"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doCheckNewAuctionExt = e.parameters.Item(0).value
         Else
             doCheckNewAuctionExt = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doAddDescToItems(ByVal session_handle As String, ByVal
items_id_array, ByVal it_description As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doAddDescToItems", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "items-id-array", items_id_array
     e.parameters.Create "it-description", it_description

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#adddesc"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doAddDescToItems = e.parameters.Item(0).value
         Else
             doAddDescToItems = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doCheckItemIdByFutureItemId(ByVal webapi_key As String, ByVal
country_id As Long, ByVal future_item_id)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doCheckItemIdByFutureItemId", "urn:AllegroWebApi"
     e.parameters.Create "webapi-key", webapi_key
     e.parameters.Create "country-id", country_id
     e.parameters.Create "future-item-id", future_item_id

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#checkitemidbyfuture"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doCheckItemIdByFutureItemId = e.parameters.Item(0).value
         Else
             doCheckItemIdByFutureItemId = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetCatsDataLimit(ByVal country_id As Long, ByVal
local_version, ByVal webapi_key As String, ByVal offset As Long, ByVal
package_element As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetCatsDataLimit", "urn:AllegroWebApi"
     e.parameters.Create "country-id", country_id
     e.parameters.Create "local-version", local_version
     e.parameters.Create "webapi-key", webapi_key
     e.parameters.Create "offset", offset
     e.parameters.Create "package-element", package_element

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#catsdatalimit"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetCatsDataLimit = e.parameters.Item(0).value
         Else
             doGetCatsDataLimit = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetItemsInfo(ByVal session_handle As String, ByVal
items_id_array, ByVal get_desc As Long, ByVal get_image_url As Long, ByVal
get_attribs As Long, ByVal get_postage_options As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetItemsInfo", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "items-id-array", items_id_array
     e.parameters.Create "get-desc", get_desc
     e.parameters.Create "get-image-url", get_image_url
     e.parameters.Create "get-attribs", get_attribs
     e.parameters.Create "get-postage-options", get_postage_options

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getitemsinfo"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetItemsInfo = e.parameters.Item(0).value
         Else
             doGetItemsInfo = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetPaymentData(ByVal country_id As Long, ByVal webapi_key As
String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetPaymentData", "urn:AllegroWebApi"
     e.parameters.Create "country-id", country_id
     e.parameters.Create "webapi-key", webapi_key

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#paymentdata"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetPaymentData = e.parameters.Item(0).value
         Else
             doGetPaymentData = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetSellFormFields(ByVal country_code As Long, ByVal
local_version, ByVal webapi_key As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetSellFormFields", "urn:AllegroWebApi"
     e.parameters.Create "country-code", country_code
     e.parameters.Create "local-version", local_version
     e.parameters.Create "webapi-key", webapi_key

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#sellformfields"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetSellFormFields = e.parameters.Item(0).value
         Else
             doGetSellFormFields = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetSellFormFieldsExt(ByVal country_code As Long, ByVal
local_version, ByVal webapi_key As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetSellFormFieldsExt", "urn:AllegroWebApi"
     e.parameters.Create "country-code", country_code
     e.parameters.Create "local-version", local_version
     e.parameters.Create "webapi-key", webapi_key

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#sellformfieldsext"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetSellFormFieldsExt = e.parameters.Item(0).value
         Else
             doGetSellFormFieldsExt = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetSitesFlagInfo(ByVal country_code As Long, ByVal webapi_key
As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetSitesFlagInfo", "urn:AllegroWebApi"
     e.parameters.Create "country-code", country_code
     e.parameters.Create "webapi-key", webapi_key

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#sitesflaginfo"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetSitesFlagInfo = e.parameters.Item(0).value
         Else
             doGetSitesFlagInfo = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetSitesInfo(ByVal country_code As Long, ByVal webapi_key As
String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetSitesInfo", "urn:AllegroWebApi"
     e.parameters.Create "country-code", country_code
     e.parameters.Create "webapi-key", webapi_key

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#sitesinfo"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetSitesInfo = e.parameters.Item(0).value
         Else
             doGetSitesInfo = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetSystemTime(ByVal country_id As Long, ByVal webapi_key As
String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetSystemTime", "urn:AllegroWebApi"
     e.parameters.Create "country-id", country_id
     e.parameters.Create "webapi-key", webapi_key

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#dogetsystemtime"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetSystemTime = e.parameters.Item(0).value
         Else
             doGetSystemTime = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetUserID(ByVal country_id As Long, ByVal user_login As
String, ByVal user_email As String, ByVal webapi_key As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetUserID", "urn:AllegroWebApi"
     e.parameters.Create "country-id", country_id
     e.parameters.Create "user-login", user_login
     e.parameters.Create "user-email", user_email
     e.parameters.Create "webapi-key", webapi_key

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getuserid"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetUserID = e.parameters.Item(0).value
         Else
             doGetUserID = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetUserItems(ByVal user_id As Long, ByVal webapi_key As
String, ByVal country_id As Long, ByVal offset As Long, ByVal limit As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetUserItems", "urn:AllegroWebApi"
     e.parameters.Create "user-id", user_id
     e.parameters.Create "webapi-key", webapi_key
     e.parameters.Create "country-id", country_id
     e.parameters.Create "offset", offset
     e.parameters.Create "limit", limit

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getuseritems"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetUserItems = e.parameters.Item(0).value
         Else
             doGetUserItems = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetUserLogin(ByVal country_id As Long, ByVal user_id As Long,
ByVal webapi_key As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetUserLogin", "urn:AllegroWebApi"
     e.parameters.Create "country-id", country_id
     e.parameters.Create "user-id", user_id
     e.parameters.Create "webapi-key", webapi_key

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getuserlogin"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetUserLogin = e.parameters.Item(0).value
         Else
             doGetUserLogin = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doQueryAllSysStatus(ByVal country_id As Long, ByVal webapi_key
As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doQueryAllSysStatus", "urn:AllegroWebApi"
     e.parameters.Create "country-id", country_id
     e.parameters.Create "webapi-key", webapi_key

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#queryallstatus"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doQueryAllSysStatus = e.parameters.Item(0).value
         Else
             doQueryAllSysStatus = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetSellFormFieldsExtLimit(ByVal country_code As Long, ByVal
local_version, ByVal webapi_key As String, ByVal offset As Long, ByVal
package_element As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetSellFormFieldsExtLimit", "urn:AllegroWebApi"
     e.parameters.Create "country-code", country_code
     e.parameters.Create "local-version", local_version
     e.parameters.Create "webapi-key", webapi_key
     e.parameters.Create "offset", offset
     e.parameters.Create "package-element", package_element

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#sellformfieldsextlimit"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetSellFormFieldsExtLimit = e.parameters.Item(0).value
         Else
             doGetSellFormFieldsExtLimit = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetSellFormFieldsLimit(ByVal country_code As Long, ByVal
local_version, ByVal webapi_key As String, ByVal offset As Long, ByVal
package_element As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetSellFormFieldsLimit", "urn:AllegroWebApi"
     e.parameters.Create "country-code", country_code
     e.parameters.Create "local-version", local_version
     e.parameters.Create "webapi-key", webapi_key
     e.parameters.Create "offset", offset
     e.parameters.Create "package-element", package_element

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#sellformfieldslimit"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetSellFormFieldsLimit = e.parameters.Item(0).value
         Else
             doGetSellFormFieldsLimit = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doQuerySysStatus(ByVal sysvar As Long, ByVal country_id As Long,
ByVal webapi_key As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doQuerySysStatus", "urn:AllegroWebApi"
     e.parameters.Create "sysvar", sysvar
     e.parameters.Create "country-id", country_id
     e.parameters.Create "webapi-key", webapi_key

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#querystatus"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doQuerySysStatus = e.parameters.Item(0).value
         Else
             doQuerySysStatus = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doShowCat(ByVal session_handle As String, ByVal cat_id As Long,
ByVal cat_item_state As Long, ByVal cat_item_option As Long, ByVal
cat_item_duration_option, ByVal cat_attrib_fields, ByVal cat_sort_options As
Long, ByVal cat_items_price, ByVal cat_items_offset As Long, ByVal
cat_items_limit As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doShowCat", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "cat-id", cat_id
     e.parameters.Create "cat-item-state", cat_item_state
     e.parameters.Create "cat-item-option", cat_item_option
     e.parameters.Create "cat-item-duration-option", cat_item_duration_option
     e.parameters.Create "cat-attrib-fields", cat_attrib_fields
     e.parameters.Create "cat-sort-options", cat_sort_options
     e.parameters.Create "cat-items-price", cat_items_price
     e.parameters.Create "cat-items-offset", cat_items_offset
     e.parameters.Create "cat-items-limit", cat_items_limit

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#showcat"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doShowCat = e.parameters.Item(0).value
         Else
             doShowCat = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doShowItemInfo(ByVal session_handle As String, ByVal item_id,
ByVal get_desc As Long, ByVal get_image_url As Long, ByVal get_attribs As Long,
ByVal get_postage_options As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doShowItemInfo", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "item-id", item_id
     e.parameters.Create "get-desc", get_desc
     e.parameters.Create "get-image-url", get_image_url
     e.parameters.Create "get-attribs", get_attribs
     e.parameters.Create "get-postage-options", get_postage_options

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#showiteminfo"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doShowItemInfo = e.parameters.Item(0).value
         Else
             doShowItemInfo = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doShowUser(ByVal webapi_key As String, ByVal country_id As Long,
ByVal user_id, ByVal user_login As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doShowUser", "urn:AllegroWebApi"
     e.parameters.Create "webapi-key", webapi_key
     e.parameters.Create "country-id", country_id
     e.parameters.Create "user-id", user_id
     e.parameters.Create "user-login", user_login

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#showuser"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doShowUser = e.parameters.Item(0).value
         Else
             doShowUser = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doVerifyItem(ByVal session_handle As String, ByVal local_id As
Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doVerifyItem", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "local-id", local_id

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#verifyitem"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doVerifyItem = e.parameters.Item(0).value
         Else
             doVerifyItem = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doAddWatchList(ByVal session_handle As String, ByVal
items_id_array)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doAddWatchList", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "items-id-array", items_id_array

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#addwatch"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doAddWatchList = e.parameters.Item(0).value
         Else
             doAddWatchList = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doFeedback(ByVal session_handle As String, ByVal fe_item_id As
Long, ByVal fe_from_user_id As Long, ByVal fe_to_user_id As Long, ByVal
fe_comment As String, ByVal fe_comment_type As String, ByVal fe_op As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doFeedback", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "fe-item-id", fe_item_id
     e.parameters.Create "fe-from-user-id", fe_from_user_id
     e.parameters.Create "fe-to-user-id", fe_to_user_id
     e.parameters.Create "fe-comment", fe_comment
     e.parameters.Create "fe-comment-type", fe_comment_type
     e.parameters.Create "fe-op", fe_op

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#feedback"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doFeedback = e.parameters.Item(0).value
         Else
             doFeedback = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetBidItem(ByVal session_handle As String, ByVal item_id)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetBidItem", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "item-id", item_id

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getbiditem"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetBidItem = e.parameters.Item(0).value
         Else
             doGetBidItem = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetBidItem2(ByVal session_handle As String, ByVal item_id)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetBidItem2", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "item-id", item_id

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getbiditem"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetBidItem2 = e.parameters.Item(0).value
         Else
             doGetBidItem2 = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetFeedback(ByVal session_handle As String, ByVal
feedback_from As Long, ByVal feedback_to As Long, ByVal feedback_offset As
String, ByVal feedback_kind_list As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetFeedback", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "feedback-from", feedback_from
     e.parameters.Create "feedback-to", feedback_to
     e.parameters.Create "feedback-offset", feedback_offset
     e.parameters.Create "feedback-kind-list", feedback_kind_list

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getfeedback"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetFeedback = e.parameters.Item(0).value
         Else
             doGetFeedback = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetSiteJournal(ByVal session_handle As String, ByVal
starting_point, ByVal info_type As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetSiteJournal", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "starting-point", starting_point
     e.parameters.Create "info-type", info_type

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getsitejournal"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetSiteJournal = e.parameters.Item(0).value
         Else
             doGetSiteJournal = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetSiteJournalInfo(ByVal session_handle As String, ByVal
starting_point, ByVal info_type As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetSiteJournalInfo", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "starting-point", starting_point
     e.parameters.Create "info-type", info_type

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getsitejournalinfo"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetSiteJournalInfo = e.parameters.Item(0).value
         Else
             doGetSiteJournalInfo = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doMyAccount(ByVal session_handle As String, ByVal account_type
As String, ByVal offset As Long, ByVal items_array, ByVal limit As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doMyAccount", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "account-type", account_type
     e.parameters.Create "offset", offset
     e.parameters.Create "items-array", items_array
     e.parameters.Create "limit", limit

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#myaccount"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doMyAccount = e.parameters.Item(0).value
         Else
             doMyAccount = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doMyAccount2(ByVal session_handle As String, ByVal account_type
As String, ByVal offset As Long, ByVal items_array, ByVal limit As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doMyAccount2", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "account-type", account_type
     e.parameters.Create "offset", offset
     e.parameters.Create "items-array", items_array
     e.parameters.Create "limit", limit

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#myaccount"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doMyAccount2 = e.parameters.Item(0).value
         Else
             doMyAccount2 = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doMyAccountItemsCount(ByVal session_handle As String, ByVal
account_type As String, ByVal items_array)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doMyAccountItemsCount", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "account-type", account_type
     e.parameters.Create "items-array", items_array

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#myaccountitemscount"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doMyAccountItemsCount = e.parameters.Item(0).value
         Else
             doMyAccountItemsCount = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doMyBilling(ByVal session_handle As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doMyBilling", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#mybilling"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doMyBilling = e.parameters.Item(0).value
         Else
             doMyBilling = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doMyContact(ByVal session_handle As String, ByVal
auction_id_list, ByVal offset As String, ByVal desc As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doMyContact", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "auction-id-list", auction_id_list
     e.parameters.Create "offset", offset
     e.parameters.Create "desc", desc

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#mycontacts"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doMyContact = e.parameters.Item(0).value
         Else
             doMyContact = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doMyFeedback(ByVal session_handle As String, ByVal feedback_type
As String, ByVal offset As Long, ByVal desc As Long, ByVal items_array)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doMyFeedback", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "feedback-type", feedback_type
     e.parameters.Create "offset", offset
     e.parameters.Create "desc", desc
     e.parameters.Create "items-array", items_array

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#myfeedback"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doMyFeedback = e.parameters.Item(0).value
         Else
             doMyFeedback = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doMyFeedback2(ByVal session_handle As String, ByVal
feedback_type As String, ByVal offset As String, ByVal desc As Long, ByVal
items_array)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doMyFeedback2", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "feedback-type", feedback_type
     e.parameters.Create "offset", offset
     e.parameters.Create "desc", desc
     e.parameters.Create "items-array", items_array

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#myfeedback"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doMyFeedback2 = e.parameters.Item(0).value
         Else
             doMyFeedback2 = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doSearch(ByVal session_handle As String, ByVal search_query)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doSearch", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "search-query", search_query

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#search"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doSearch = e.parameters.Item(0).value
         Else
             doSearch = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetAdminUserLicenceDate(ByVal admin_session_handle As String,
ByVal user_lic_login As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetAdminUserLicenceDate", "urn:AllegroWebApi"
     e.parameters.Create "admin-session-handle", admin_session_handle
     e.parameters.Create "user-lic-login", user_lic_login

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getadminuserlicdate"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetAdminUserLicenceDate = e.parameters.Item(0).value
         Else
             doGetAdminUserLicenceDate = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetPaymentStatus(ByVal session_handle As String, ByVal
payu_email As String, ByVal payu_password As String, ByVal allegro_auction_id As
Long, ByVal allegro_buyer_id As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetPaymentStatus", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "payu-email", payu_email
     e.parameters.Create "payu-password", payu_password
     e.parameters.Create "allegro-auction-id", allegro_auction_id
     e.parameters.Create "allegro-buyer-id", allegro_buyer_id

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getpaymentstatus"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetPaymentStatus = e.parameters.Item(0).value
         Else
             doGetPaymentStatus = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetUserLicenceDate(ByVal session_handle As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetUserLicenceDate", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getuserlicdate"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetUserLicenceDate = e.parameters.Item(0).value
         Else
             doGetUserLicenceDate = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doMyBillingItem(ByVal session_handle As String, ByVal item_id As
Long, ByVal option_ As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doMyBillingItem", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "item-id", item_id
     e.parameters.Create "option", option_

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#billingitem"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doMyBillingItem = e.parameters.Item(0).value
         Else
             doMyBillingItem = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doSetUserLicenceDate(ByVal admin_session_handle As String, ByVal
user_lic_login As String, ByVal user_lic_country As Long, ByVal user_lic_date As
Single)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doSetUserLicenceDate", "urn:AllegroWebApi"
     e.parameters.Create "admin-session-handle", admin_session_handle
     e.parameters.Create "user-lic-login", user_lic_login
     e.parameters.Create "user-lic-country", user_lic_country
     e.parameters.Create "user-lic-date", user_lic_date

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#setuserlicdate"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doSetUserLicenceDate = e.parameters.Item(0).value
         Else
             doSetUserLicenceDate = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doBidItem(ByVal session_handle As String, ByVal bid_it_id, ByVal
bid_user_price As Single, ByVal bid_quantity, ByVal bid_buy_now)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doBidItem", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "bid-it-id", bid_it_id
     e.parameters.Create "bid-user-price", bid_user_price
     e.parameters.Create "bid-quantity", bid_quantity
     e.parameters.Create "bid-buy-now", bid_buy_now

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#biditem"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doBidItem = e.parameters.Item(0).value
         Else
             doBidItem = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doCancelBidItem(ByVal session_handle As String, ByVal
cancel_item_id, ByVal cancel_bids_array, ByVal cancel_bids_reason As String,
ByVal cancel_add_to_black_list)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doCancelBidItem", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "cancel-item-id", cancel_item_id
     e.parameters.Create "cancel-bids-array", cancel_bids_array
     e.parameters.Create "cancel-bids-reason", cancel_bids_reason
     e.parameters.Create "cancel-add-to-black-list", cancel_add_to_black_list

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#cancelbiditem"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doCancelBidItem = e.parameters.Item(0).value
         Else
             doCancelBidItem = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doChangePriceItem(ByVal session_handle As String, ByVal item_id,
ByVal new_starting_price As Single, ByVal new_reserve_price As Single, ByVal
new_buy_now_price As Single)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doChangePriceItem", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "item-id", item_id
     e.parameters.Create "new-starting-price", new_starting_price
     e.parameters.Create "new-reserve-price", new_reserve_price
     e.parameters.Create "new-buy-now-price", new_buy_now_price

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#changeprice"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doChangePriceItem = e.parameters.Item(0).value
         Else
             doChangePriceItem = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doFinishAuction(ByVal session_handle As String, ByVal
finish_item_id, ByVal finish_cancel_all_bids As Long, ByVal finish_cancel_reason
As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doFinishAuction", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "finish-item-id", finish_item_id
     e.parameters.Create "finish-cancel-all-bids", finish_cancel_all_bids
     e.parameters.Create "finish-cancel-reason", finish_cancel_reason

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#finishauction"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doFinishAuction = e.parameters.Item(0).value
         Else
             doFinishAuction = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetItemTransaction(ByVal session_handle As String, ByVal
item_id, ByVal item_options As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetItemTransaction", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "item-id", item_id
     e.parameters.Create "item-options", item_options

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getitemtrans"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetItemTransaction = e.parameters.Item(0).value
         Else
             doGetItemTransaction = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doRequestCancelBid(ByVal session_handle As String, ByVal
request_item_id, ByVal request_cancel_reason As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doRequestCancelBid", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "request-item-id", request_item_id
     e.parameters.Create "request-cancel-reason", request_cancel_reason

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#requestcancelbid"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doRequestCancelBid = e.parameters.Item(0).value
         Else
             doRequestCancelBid = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetCatsDataCount(ByVal country_id As Long, ByVal
local_version, ByVal webapi_key As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetCatsDataCount", "urn:AllegroWebApi"
     e.parameters.Create "country-id", country_id
     e.parameters.Create "local-version", local_version
     e.parameters.Create "webapi-key", webapi_key

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#catsdatacount"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetCatsDataCount = e.parameters.Item(0).value
         Else
             doGetCatsDataCount = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doMyFeedback2Limit(ByVal session_handle As String, ByVal
feedback_type As String, ByVal offset As String, ByVal desc As Long, ByVal
items_array, ByVal package_element As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doMyFeedback2Limit", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "feedback-type", feedback_type
     e.parameters.Create "offset", offset
     e.parameters.Create "desc", desc
     e.parameters.Create "items-array", items_array
     e.parameters.Create "package-element", package_element

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#myfeedbacklimit"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doMyFeedback2Limit = e.parameters.Item(0).value
         Else
             doMyFeedback2Limit = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetCountries(ByVal country_code As Long, ByVal webapi_key As
String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetCountries", "urn:AllegroWebApi"
     e.parameters.Create "country-code", country_code
     e.parameters.Create "webapi-key", webapi_key

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getcountry"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetCountries = e.parameters.Item(0).value
         Else
             doGetCountries = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetServiceTemplates(ByVal country_code As Long, ByVal
webapi_key As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetServiceTemplates", "urn:AllegroWebApi"
     e.parameters.Create "country-code", country_code
     e.parameters.Create "webapi-key", webapi_key

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#gettemplates"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetServiceTemplates = e.parameters.Item(0).value
         Else
             doGetServiceTemplates = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetSellFormAttribs(ByVal country_id As Long, ByVal webapi_key
As String, ByVal local_version, ByVal cat_id As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetSellFormAttribs", "urn:AllegroWebApi"
     e.parameters.Create "country-id", country_id
     e.parameters.Create "webapi-key", webapi_key
     e.parameters.Create "local-version", local_version
     e.parameters.Create "cat-id", cat_id

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#sellformattribs"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetSellFormAttribs = e.parameters.Item(0).value
         Else
             doGetSellFormAttribs = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doFeedbackMany(ByVal session_handle As String, ByVal
feedbacks_list)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doFeedbackMany", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "feedbacks-list", feedbacks_list

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#feedbackmany"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doFeedbackMany = e.parameters.Item(0).value
         Else
             doFeedbackMany = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doShowItemInfoExt(ByVal session_handle As String, ByVal item_id,
ByVal get_desc As Long, ByVal get_image_url As Long, ByVal get_attribs As Long,
ByVal get_postage_options As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doShowItemInfoExt", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "item-id", item_id
     e.parameters.Create "get-desc", get_desc
     e.parameters.Create "get-image-url", get_image_url
     e.parameters.Create "get-attribs", get_attribs
     e.parameters.Create "get-postage-options", get_postage_options

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#showiteminfoext"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doShowItemInfoExt = e.parameters.Item(0).value
         Else
             doShowItemInfoExt = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetWaitingFeedbacksCount(ByVal session_handle As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetWaitingFeedbacksCount", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#waitfeedcount"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetWaitingFeedbacksCount = e.parameters.Item(0).value
         Else
             doGetWaitingFeedbacksCount = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetWaitingFeedbacks(ByVal session_handle As String, ByVal
offset As Long, ByVal package_size As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetWaitingFeedbacks", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "offset", offset
     e.parameters.Create "package-size", package_size

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#waitfeed"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetWaitingFeedbacks = e.parameters.Item(0).value
         Else
             doGetWaitingFeedbacks = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetBlackListUsers(ByVal session_handle As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetBlackListUsers", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getblacklist"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetBlackListUsers = e.parameters.Item(0).value
         Else
             doGetBlackListUsers = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doRemoveFromBlackList(ByVal session_handle As String, ByVal
users_id_array)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doRemoveFromBlackList", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "users-id-array", users_id_array

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#removefromblacklist"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doRemoveFromBlackList = e.parameters.Item(0).value
         Else
             doRemoveFromBlackList = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetServiceInfoCategories(ByVal country_code As Long, ByVal
webapi_key As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetServiceInfoCategories", "urn:AllegroWebApi"
     e.parameters.Create "country-code", country_code
     e.parameters.Create "webapi-key", webapi_key

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getannouncementcats"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetServiceInfoCategories = e.parameters.Item(0).value
         Else
             doGetServiceInfoCategories = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetServiceInfo(ByVal country_code As Long, ByVal an_cat_id As
Long, ByVal an_it_date, ByVal an_it_id As Long, ByVal webapi_key As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetServiceInfo", "urn:AllegroWebApi"
     e.parameters.Create "country-code", country_code
     e.parameters.Create "an-cat-id", an_cat_id
     e.parameters.Create "an-it-date", an_it_date
     e.parameters.Create "an-it-id", an_it_id
     e.parameters.Create "webapi-key", webapi_key

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getannouncementitems"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetServiceInfo = e.parameters.Item(0).value
         Else
             doGetServiceInfo = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetStatesInfo(ByVal country_code As Long, ByVal webapi_key As
String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetStatesInfo", "urn:AllegroWebApi"
     e.parameters.Create "country-code", country_code
     e.parameters.Create "webapi-key", webapi_key

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getstatesinfo"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetStatesInfo = e.parameters.Item(0).value
         Else
             doGetStatesInfo = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetShopCatsData(ByVal session_handle As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetShopCatsData", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#shopcatsdata"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetShopCatsData = e.parameters.Item(0).value
         Else
             doGetShopCatsData = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doCheckExternalKey(ByVal webapi_key As String, ByVal user_id,
ByVal item_id, ByVal hash_key As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doCheckExternalKey", "urn:AllegroWebApi"
     e.parameters.Create "webapi-key", webapi_key
     e.parameters.Create "user-id", user_id
     e.parameters.Create "item-id", item_id
     e.parameters.Create "hash-key", hash_key

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#checkexternalkey"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doCheckExternalKey = e.parameters.Item(0).value
         Else
             doCheckExternalKey = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doSellSomeAgainInShop(ByVal session_handle As String, ByVal
sell_items_array, ByVal sell_starting_time, ByVal sell_shop_duration As Long,
ByVal sell_shop_options As Long, ByVal sell_prolong_options As Long, ByVal
sell_shop_category)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doSellSomeAgainInShop", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "sell-items-array", sell_items_array
     e.parameters.Create "sell-starting-time", sell_starting_time
     e.parameters.Create "sell-shop-duration", sell_shop_duration
     e.parameters.Create "sell-shop-options", sell_shop_options
     e.parameters.Create "sell-prolong-options", sell_prolong_options
     e.parameters.Create "sell-shop-category", sell_shop_category

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#sellshopagain"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doSellSomeAgainInShop = e.parameters.Item(0).value
         Else
             doSellSomeAgainInShop = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetSuperSellerStatus(ByVal webapi_key As String, ByVal
user_id)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetSuperSellerStatus", "urn:AllegroWebApi"
     e.parameters.Create "webapi-key", webapi_key
     e.parameters.Create "user-id", user_id

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getsupersellerstatus"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetSuperSellerStatus = e.parameters.Item(0).value
         Else
             doGetSuperSellerStatus = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetMyData(ByVal session_handle As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetMyData", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getmydata"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetMyData = e.parameters.Item(0).value
         Else
             doGetMyData = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doInternalIStoreChange(ByVal webapi_key As String, ByVal
user_id, ByVal istore_id, ByVal action_type As String, ByVal action_date, ByVal
valid_date)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doInternalIStoreChange", "urn:AllegroWebApi"
     e.parameters.Create "webapi-key", webapi_key
     e.parameters.Create "user-id", user_id
     e.parameters.Create "istore-id", istore_id
     e.parameters.Create "action-type", action_type
     e.parameters.Create "action-date", action_date
     e.parameters.Create "valid-date", valid_date

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#internalistorechange"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doInternalIStoreChange = e.parameters.Item(0).value
         Else
             doInternalIStoreChange = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doInternalCheckLogin(ByVal webapi_key As String, ByVal
user_login As String, ByVal user_first_name As String, ByVal user_last_name As
String, ByVal user_id)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doInternalCheckLogin", "urn:AllegroWebApi"
     e.parameters.Create "webapi-key", webapi_key
     e.parameters.Create "user-login", user_login
     e.parameters.Create "user-first-name", user_first_name
     e.parameters.Create "user-last-name", user_last_name
     e.parameters.Create "user-id", user_id

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#dointernalchecklogin"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doInternalCheckLogin = e.parameters.Item(0).value
         Else
             doInternalCheckLogin = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doInternalGetStatusForDebitCard(ByVal webapi_key As String,
ByVal user_id)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doInternalGetStatusForDebitCard", "urn:AllegroWebApi"
     e.parameters.Create "webapi-key", webapi_key
     e.parameters.Create "user-id", user_id

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#dointernalgetstatusfordebitcard"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doInternalGetStatusForDebitCard = e.parameters.Item(0).value
         Else
             doInternalGetStatusForDebitCard = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doInternalGetStatusForCreditCard(ByVal webapi_key As String,
ByVal user_id)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doInternalGetStatusForCreditCard", "urn:AllegroWebApi"
     e.parameters.Create "webapi-key", webapi_key
     e.parameters.Create "user-id", user_id

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#dointernalgetstatusforcreditcard"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doInternalGetStatusForCreditCard = e.parameters.Item(0).value
         Else
             doInternalGetStatusForCreditCard = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doInternalSubmitForDebitCard(ByVal webapi_key As String, ByVal
user_id)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doInternalSubmitForDebitCard", "urn:AllegroWebApi"
     e.parameters.Create "webapi-key", webapi_key
     e.parameters.Create "user-id", user_id

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#dointernalsubmitfordebitcard"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doInternalSubmitForDebitCard = e.parameters.Item(0).value
         Else
             doInternalSubmitForDebitCard = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doInternalSubmitForCreditCard(ByVal webapi_key As String, ByVal
user_id)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doInternalSubmitForCreditCard", "urn:AllegroWebApi"
     e.parameters.Create "webapi-key", webapi_key
     e.parameters.Create "user-id", user_id

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#dointernalsubmitforcreditcard"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doInternalSubmitForCreditCard = e.parameters.Item(0).value
         Else
             doInternalSubmitForCreditCard = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetFavouriteSellers(ByVal session_handle As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetFavouriteSellers", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#dogetfavouritesellers"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetFavouriteSellers = e.parameters.Item(0).value
         Else
             doGetFavouriteSellers = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetFavouriteCategories(ByVal session_handle As String)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetFavouriteCategories", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#dogetfavouritecategories"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetFavouriteCategories = e.parameters.Item(0).value
         Else
             doGetFavouriteCategories = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetItemsImages(ByVal session_handle As String, ByVal
items_array, ByVal image_type As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetItemsImages", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "items-array", items_array
     e.parameters.Create "image-type", image_type

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#dogetitemsimages"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetItemsImages = e.parameters.Item(0).value
         Else
             doGetItemsImages = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetShipmentOptionsFormData(ByVal session_handle As String,
ByVal sof_user_type As String, ByVal sof_items_id)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetShipmentOptionsFormData", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "sof-user-type", sof_user_type
     e.parameters.Create "sof-items-id", sof_items_id

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getsofdata"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetShipmentOptionsFormData = e.parameters.Item(0).value
         Else
             doGetShipmentOptionsFormData = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetSpecialItems(ByVal session_handle As String, ByVal
special_type As Long, ByVal special_group As Long, ByVal offset As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetSpecialItems", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "special-type", special_type
     e.parameters.Create "special-group", special_group
     e.parameters.Create "offset", offset

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#dogetspecialitems"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetSpecialItems = e.parameters.Item(0).value
         Else
             doGetSpecialItems = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetPostBuyData(ByVal session_handle As String, ByVal
items_array)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetPostBuyData", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "items-array", items_array

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getpostbuydata"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetPostBuyData = e.parameters.Item(0).value
         Else
             doGetPostBuyData = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetSessionHandleForWidget(ByVal webapi_key As String, ByVal
country_code As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetSessionHandleForWidget", "urn:AllegroWebApi"
     e.parameters.Create "webapi-key", webapi_key
     e.parameters.Create "country-code", country_code

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getsessionhandleforwidget"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetSessionHandleForWidget = e.parameters.Item(0).value
         Else
             doGetSessionHandleForWidget = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doInternalSendMessage(ByVal session_handle As String, ByVal
user_id As Long, ByVal mail_template_id As Long, ByVal array_of_additional_data)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doInternalSendMessage", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "user-id", user_id
     e.parameters.Create "mail_template_id", mail_template_id
     e.parameters.Create "array-of-additional-data", array_of_additional_data

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#doInternalSendMessage"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doInternalSendMessage = e.parameters.Item(0).value
         Else
             doInternalSendMessage = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doRemoveFromWatchList(ByVal session_handle As String, ByVal
items_id_array)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doRemoveFromWatchList", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "items-id-array", items_id_array

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#doRemoveFromWatchList"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doRemoveFromWatchList = e.parameters.Item(0).value
         Else
             doRemoveFromWatchList = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetMyIncomingPayments(ByVal session_handle As String, ByVal
buyer_id As Long, ByVal item_id, ByVal trans_recv_date_from, ByVal
trans_recv_date_to, ByVal trans_page_limit As Long, ByVal trans_offset As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetMyIncomingPayments", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "buyer-id", buyer_id
     e.parameters.Create "item-id", item_id
     e.parameters.Create "trans-recv-date-from", trans_recv_date_from
     e.parameters.Create "trans-recv-date-to", trans_recv_date_to
     e.parameters.Create "trans-page-limit", trans_page_limit
     e.parameters.Create "trans-offset", trans_offset

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getmyinpayments"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetMyIncomingPayments = e.parameters.Item(0).value
         Else
             doGetMyIncomingPayments = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetMyPayments(ByVal session_handle As String, ByVal seller_id
As Long, ByVal item_id, ByVal trans_create_date_from, ByVal
trans_create_date_to, ByVal trans_page_limit As Long, ByVal trans_offset As
Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetMyPayments", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "seller-id", seller_id
     e.parameters.Create "item-id", item_id
     e.parameters.Create "trans-create-date-from", trans_create_date_from
     e.parameters.Create "trans-create-date-to", trans_create_date_to
     e.parameters.Create "trans-page-limit", trans_page_limit
     e.parameters.Create "trans-offset", trans_offset

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getmypayments"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetMyPayments = e.parameters.Item(0).value
         Else
             doGetMyPayments = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doGetMyPayouts(ByVal session_handle As String, ByVal
trans_create_date_from, ByVal trans_create_date_to, ByVal trans_page_limit As
Long, ByVal trans_offset As Long)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doGetMyPayouts", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "trans-create-date-from", trans_create_date_from
     e.parameters.Create "trans-create-date-to", trans_create_date_to
     e.parameters.Create "trans-page-limit", trans_page_limit
     e.parameters.Create "trans-offset", trans_offset

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#getmypayouts"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doGetMyPayouts = e.parameters.Item(0).value
         Else
             doGetMyPayouts = e.parameters.Item(0).value
         End If
     End If
End Function

Public Function doInternalGetUserEmail(ByVal session_handle As String, ByVal
users_id_array)
     Dim e As CoEnvelope
     Set e = createObject("pocketSOAP.Envelope.2")
     e.SetMethod "doInternalGetUserEmail", "urn:AllegroWebApi"
     e.parameters.Create "session-handle", session_handle
     e.parameters.Create "users-id-array", users_id_array

     Dim t As IHttpTransportAdv
     Set t = createObject("pocketSOAP.HTTPTransport")
     t.soapAction = "#internalgetuseremail"
     ' Add SetProxy / Authentication / ProxyAuthentication calls here if needed
     t.Send m_url, e.Serialize
     e.Parse t
     If e.parameters.Count > 0 Then
         If IsObject(e.parameters.Item(0).value) Then
             Set doInternalGetUserEmail = e.parameters.Item(0).value
         Else
             doInternalGetUserEmail = e.parameters.Item(0).value
         End If
     End If
End Function


</pre></code>

Hi,
there are now to download two versions of WSDL generator. I tryed the earlier
version of generator pocketSOAP WSDL Proxy Generator (v0.1.2 1/3/2002).

It works good for some WSDL functions but another function generates error. I've
been thinking: there is a earlier version of generator, what if the earlier
version of PocketSOAP library works fine.

Now it seems i was wrong. You can correct me.

Thx
Jan

--- In pocketsoap@yahoogroups.com, Simon Fell <simon@...> wrote:
>
> earlier versions of which library? and any particular version? and why?
>
> Cheers
> Simon
>
> On Aug 28, 2009, at 3:01 PM, jmaatlascz wrote:
>
> > Hi,
> > can i find anywhere the earlier versions to download?
> > thx
> >
> >
> >
>

How can I change the "HTTP User Agent" text?
Using PocketHTTP/PocketSOAP under VB6.

Gommert

--- In pocketsoap@yahoogroups.com, "arcsoftware" <arcsoftware@...> wrote:
>
>
> How can I change the "HTTP User Agent" text?
> Using PocketHTTP/PocketSOAP under VB6.
>
> Gommert

If you're using pocketHTTP directly, you can modify it via the headers
collection, but if you're using PocketSOAP, then you have no direct access to
contained PocketHTTP instance to be able to do this. Can i ask what your use
case for changing this is ?

Cheers
Simon

I'am using Pocketsoap. The (3rd party) database that we connect to via
pocketsoap requires us to include a specific user agent string.

Gommert

--- In pocketsoap@yahoogroups.com, "simonfell99" <simon@...> wrote:
>
> --- In pocketsoap@yahoogroups.com, "arcsoftware" <arcsoftware@> wrote:
> >
> >
> > How can I change the "HTTP User Agent" text?
> > Using PocketHTTP/PocketSOAP under VB6.
> >
> > Gommert
>
> If you're using pocketHTTP directly, you can modify it via the headers
collection, but if you're using PocketSOAP, then you have no direct access to
contained PocketHTTP instance to be able to do this. Can i ask what your use
case for changing this is ?
>
> Cheers
> Simon
>

Hi there,

I am in the early stages of putting together a client/server system using SOAP,
where the clients are Windows Mobile devices (6.1 professional).

We have some special considerations to make. First, the client has to be able to
upload attachments to the server. These are images, and there will be a few
uploaded per session. Besides this, the other SOAP operations are fairly
standard - just request/response stuff fetching text based values.

Second, the industry working group calls for a minimum security level of AES-256
encryption. Ideally, this would be performed on the transport (https with
AES-256). However, if this wasn't easily available, we could encrypt the payload
before sending, and transport it over an unencrypted or lesser-encrypted HTTP
channel.

Does anone have any advice on the best way to achieve these objectives using
PocketSOAP? Where possible, we would like to stay as close as possible to the
current industry standards (e.g. use of MTOM rather than DIME). However, we
realise that the compact framework isn't fully capable of some of these
techniques, so we are looking at PocketSOAP in the hope that it will at least
provide something better than the standard framework.

Your response is appreciated.

hi,

on windows mobile devices the ssl support in pocketsoap comes directly from OS
(there is SSL support in the sockets api), so if the OS supports AES-256, then
pocketsoap can use it.

The transports are fairly well isolated and structured from the soap engine, so
if you can't get aes-256 at the http level, it would be fairly easy to write a
transport shim (or wrapper) that managed the encryption/decryption. (assuming
you just wanted to bulk encrypt the entire payload and not mess with stuff like
ws-security).

PocketSOAP supports Swa & DIME, MTOM is very similar to SWA at the wire format
level, most of the complications of MTOM support come from designing a useful
api that actually manages to expose the "advantages" of MTOM (i.e. the
attachments are part of the logical xml model). If you don't care about that
(i.e. you're not doing ws-sec), then i'd think you could probably pretty easily
extend the current SWA support to handle MTOM.

Cheers
Simon

--- In pocketsoap@yahoogroups.com, "thedesignofsoftware" <online@...> wrote:
>
> Hi there,
>
> I am in the early stages of putting together a client/server system using
SOAP, where the clients are Windows Mobile devices (6.1 professional).
>
> We have some special considerations to make. First, the client has to be able
to upload attachments to the server. These are images, and there will be a few
uploaded per session. Besides this, the other SOAP operations are fairly
standard - just request/response stuff fetching text based values.
>
> Second, the industry working group calls for a minimum security level of
AES-256 encryption. Ideally, this would be performed on the transport (https
with AES-256). However, if this wasn't easily available, we could encrypt the
payload before sending, and transport it over an unencrypted or lesser-encrypted
HTTP channel.
>
> Does anone have any advice on the best way to achieve these objectives using
PocketSOAP? Where possible, we would like to stay as close as possible to the
current industry standards (e.g. use of MTOM rather than DIME). However, we
realise that the compact framework isn't fully capable of some of these
techniques, so we are looking at PocketSOAP in the hope that it will at least
provide something better than the standard framework.
>
> Your response is appreciated.

So then my real question is whether anyone knows what level of HTTP security the
.net compact framework support (v 3.5).

I can't seem to find this information anywhere.


--- In pocketsoap@yahoogroups.com, "simonfell99" <simon@...> wrote:
>
> hi,
>
> on windows mobile devices the ssl support in pocketsoap comes directly from OS
(there is SSL support in the sockets api), so if the OS supports AES-256, then
pocketsoap can use it.
>
> The transports are fairly well isolated and structured from the soap engine,
so if you can't get aes-256 at the http level, it would be fairly easy to write
a transport shim (or wrapper) that managed the encryption/decryption. (assuming
you just wanted to bulk encrypt the entire payload and not mess with stuff like
ws-security).
>
> PocketSOAP supports Swa & DIME, MTOM is very similar to SWA at the wire format
level, most of the complications of MTOM support come from designing a useful
api that actually manages to expose the "advantages" of MTOM (i.e. the
attachments are part of the logical xml model). If you don't care about that
(i.e. you're not doing ws-sec), then i'd think you could probably pretty easily
extend the current SWA support to handle MTOM.
>
> Cheers
> Simon
>
> --- In pocketsoap@yahoogroups.com, "thedesignofsoftware" <online@> wrote:
> >
> > Hi there,
> >
> > I am in the early stages of putting together a client/server system using
SOAP, where the clients are Windows Mobile devices (6.1 professional).
> >
> > We have some special considerations to make. First, the client has to be
able to upload attachments to the server. These are images, and there will be a
few uploaded per session. Besides this, the other SOAP operations are fairly
standard - just request/response stuff fetching text based values.
> >
> > Second, the industry working group calls for a minimum security level of
AES-256 encryption. Ideally, this would be performed on the transport (https
with AES-256). However, if this wasn't easily available, we could encrypt the
payload before sending, and transport it over an unencrypted or lesser-encrypted
HTTP channel.
> >
> > Does anone have any advice on the best way to achieve these objectives using
PocketSOAP? Where possible, we would like to stay as close as possible to the
current industry standards (e.g. use of MTOM rather than DIME). However, we
realise that the compact framework isn't fully capable of some of these
techniques, so we are looking at PocketSOAP in the hope that it will at least
provide something better than the standard framework.
> >
> > Your response is appreciated.
>

Simon,

I have a client that needs to interface to this API:

http://www.callfire.com/dialer/cm/info/voice_broadcast_api.html

I'm probably going to approach this with PocketSoap - but what I don't know how
to do is send up the "sound file" - which is a .wav file.  I need to send it as
a binary array and I just don't know how to get the file in there.

Thanks

Hi,

I am using Sybase's software product PocketBuilder to build my mobile device
application. The version of PocketSoap I have is latest one (Ver.1.5.5).
However, I am running into a problem that if I take my mobile device off from
cradle (using RF wireless connection) The call I make to Web Service always
failed even though my internet connection is working properly. However, if I put
my mobile device into cradle (using LAN cable connection), I am able to make
call to the Web Service and everything just working properly. Any idea why is it
happening like that?

Thanks!

Hi friends,

This is my first post. I'm using Harbour (http://www.harbour-project.org/) and I
use MSSOAP, but I have intentions to move to pocketsoap, but I need a sample
please.

This is the way I call mssoap:

---cut---
oSoapClient := Win_OleCreateObject( "MSSOAP.SoapClient30" )
oSoapClient:msSoapInit(
"http://www.dataaccess.com/webservicesserver/textcasing.wso?WSDL" )
cRet = oSoapClient:InvertStringCase( "THIS IS LOWER - this is upper" )
---cut---

Why I can convert it to pocketsoap please ?


Thanks and best regards,

Toninho.

This is the solution for porting MSSOAP to PocketSoap using Harbour:

---cut---
procedure test()
    local oEnvelope := Win_OleCreateObject( "PocketSOAP.Envelope.2" )
    local oHttp     := Win_OleCreateObject( "PocketSOAP.HTTPTransport.2" )

    oEnvelope:EncodingStyle = ""
    oEnvelope:SetMethod( "InvertStringCase",
"http://www.dataaccess.com/webservicesserver/" )
    oEnvelope:Parameters:Create( "sAString", "THIS IS LOWER - this is upper" )

    oHttp:Send(
"http://www.dataaccess.com/webservicesserver/textcasing.wso?WSDL",
oEnvelope:Serialize() )

    oEnvelope:Parse( oHttp )

    MsgInfo( oEnvelope:Parameters:Item( 0 ):Value )

return
---cut---

Regards,

Toninho.

--- In pocketsoap@yahoogroups.com, "redsky_thane" <redsky_thane@...> wrote:
>
> Simon,
>
> I have a client that needs to interface to this API:
>
> http://www.callfire.com/dialer/cm/info/voice_broadcast_api.html
>
> I'm probably going to approach this with PocketSoap - but what I don't know
how to do is send up the "sound file" - which is a .wav file.  I need to send it
as a binary array and I just don't know how to get the file in there.
>
> Thanks

Looks like its just taking the file inline as an xsd:base64Binary. for this
pocketSOAP expects to get a COM byte array (a VT_ARRAY | VT_UI1) , how exactly
you get one of these will depend on what language you're using.

I am new to pocketSOAP, which look like a great, easy to use SOAP library,
except I am struggling to get of the starting blocks.

I am trying to use the Nodes.Create method to build a SOAP request containing
complex data types and several levels of nested nodes.  BTW, using latest
version 1.5.5

I followed the "Serialization" example in the docs at the bottom of this page:
http://www.pocketsoap.com/pocketsoap/docs/master/complex_types.htm

However, it doesn't seem to be working as expected (or as described in the
docs).

If I re-run the exact sample in the docs:

############
dim env, adr, ph
set env = CreateObject("pocketSOAP.Envelope.2")
env.SetMethod "addAddress", "http://address.example.org/"
set adr = env.Parameters.Create ("address", empty)
adr.Nodes.Create "number", "100"
adr.Nodes.Create "street", "Spear Street"
adr.Nodes.Create "city",   "San Francisco"
adr.Nodes.Create "state",  "CA"
adr.Nodes.Create "zip",    "94107"
set ph = adr.Nodes.Create ("phone", empty)
ph.Nodes.Create "area", "415"
ph.Nodes.Create "exchange", "343"
ph.Nodes.Create "number", "3000"

wscript.echo env.serialize
############


then I get the following output:
====================

<S:Envelope xmlns:a="http://address.example.org/"
xmlns:Enc="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:S="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:XS="http://www.w3.org/2001/XMLSchema"
xmlns:XI="http://www.w3.org/2001/XMLSchema-instance">
   <S:Body>
     <a:addAddress S:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
       <address href="#fc3d24" />
     </a:addAddress>
     <phone S:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
Enc:root="0" id="fc4844">
       <area XI:type="XS:string">415</area>
       <exchange XI:type="XS:string">343</exchange>
       <number XI:type="XS:string">3000</number>
     </phone>
     <address S:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
Enc:root="0" id="fc3d24">
       <number XI:type="XS:string">100</number>
       <street XI:type="XS:string">Spear Street</street>
       <city XI:type="XS:string">San Francisco</city>
       <state XI:type="XS:string">CA</state>
       <zip XI:type="XS:string">94107</zip>
       <phone href="#fc4844" />
     </address>
   </S:Body>

instead of the expected output as per the docs:
===============================

<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
<s:Body s:EncodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
<m:getAddressResponse xmlns:m="http://address.examples.org/schema/">
<address>
   <number>100</number>
   <street>Spear Street</street>
   <city>San Francisco</city>
   <state>CA</state>
   <zip>94107</zip>
   <phone>
     <area>415</area>
     <exchange>343</exchange>
     <number>3000</number>
   </phone>
</address>
</m:getAddressResponse>
</s:Body>
</s:Envelope>

Is this a bug, or something I am doing wrong?  Any help would be greatly
appreciated.

BTW, I am using pocketSOAP in the Excel VBA environment.

Thanks

I am trying to use a web service that seems to require every node to be prefixed
by the the namespace  i.e. the "a:"

########
<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:a="http://thedomain.com/Client/Ship/v5/">
    <s:Header/>
    <s:Body>
       <a:RequestedShipments>
          <a:ShipRequests>
             <a:AuthenticationDetails>
                <a:VersionId>
                   <a:Major>5</a:Major>
#########

The Web Service throws an internal server error if I don't prefix the each node
with the namespace as above.

I have managed to achieve this by including the namespace parameter in the
creation of each node:

n = "http://thedomain.com/Client/Ship/v5/"
env.SetMethod "RequestedShipments", n
env.EncodingStyle = ""

Set nodeShipRequests = env.Parameters.Create("ShipRequests", Empty, n)

     Set nodeAuthenticationDetails =
nodeShipRequests.Nodes.Create("AuthenticationDetails", Empty, n)
         Set nodeVersionId = nodeAuthenticationDetails.Nodes.Create("VersionId",
Empty, n)
             nodeVersionId.Nodes.Create "Major", "5", n

My question is - is there a neater way of achieving the same thing, or do I
really need to include the namespace argument in each create statement to
achieve the desired efffect?

Secondly, the xml produced actually includes some type definition parameters as
well. For example:
<a:Major XI:type="XS:string">5</a:Major>

Whilst the "XI:type" parameter doesn't seem to cause any problem i.e. the Web
Service is fine with it, the example request I was given did not have these
"XI:type" parameters.  Is there any way to "turn off" this parameter so that
pocketsoap just generates:
<a:Major>5</a:Major>

Maybe the official XMLSchema definition stipulates that these "XI:type"
parameters should be included?  I only ask as the XML is easier to read with the
"XI:type" and if it works fine without them, then I say, why not remove them?
:-)  only I don't know how.  Even if it is more correct to leave the "XI:type"
parameters in the soap request I would still like to know how to remove them out
of curiosity - I am sure it must be possible :-)

Anyone know:
1) How I remove the "XI:type" from the nodes
2) Whether I should be trying to remove them anyway :-)

Thanks

On Tuesday, October 06, 2009 2:48 AM John1 wrote:

> I am new to pocketSOAP, which look like a great, easy to use SOAP library,
> except I am struggling to get of the starting blocks.
>
> I am trying to use the Nodes.Create method to build a SOAP request containing
> complex data types and several levels of nested nodes.  BTW, using latest
> version 1.5.5
>
> I followed the "Serialization" example in the docs at the bottom of this page:
> http://www.pocketsoap.com/pocketsoap/docs/master/complex_types.htm
>
> However, it doesn't seem to be working as expected (or as described in the
> docs).
>
OK, I have worked this one out.  Per Simon's comment at this post:
http://markmail.org/message/z36f4ofql5osiea4
"pocketSOAP serializes using href's as it allows it to do a single pass
serialization"

To serialize without hrefs I inserted:
env.EncodingStyle = ""

I am using pocketsoap 1.5.3 version,
1)I will like to know what programming language is used for the it's
development.
2) What's the location where I can find the code for it ?

1) C++
2) see http://www.pocketsoap.com/pocketsoap/build.aspx

--- In pocketsoap@yahoogroups.com, "manishB" <manish_bind@...> wrote:
>
> I am using pocketsoap 1.5.3 version,
> 1)I will like to know what programming language is used for the it's
development.
> 2) What's the location where I can find the code for it ?
>

Hi.

I'm trying to use WSDL Wizard with this wsdl:

https://www.nfp.fazenda.sp.gov.br/ws/arquivonf_mod1.asmx?WSDL

but i'm having a run-time error, what I do please ?


TIA and best regards,

Toninho.

On Oct 12, 2009, toninhofwi <toninhofwi@...> wrote:

Hi, thanks for reply.

This error: Run-Time error '-2147220838 (8004029a)' Sorry only literal messages
are support for document style operation.

And the program finish without generate any vb code.

Regards.

Toninho.

The error indicates that the wsdl is a document/rpc style wsdl, which the WSDL
Wizard doesn't support.

Cheers
Simon

Oct 12, 2009 10:59:55 AM, pocketsoap@yahoogroups.com wrote:

===========================================


Hi, thanks for reply.

This error: Run-Time error '-2147220838 (8004029a)' Sorry only literal messages
are support for document style operation.

And the program finish without generate any vb code.

Regards.

Toninho.

I am using PocketSOAP. I would like to add a header line to the MIME header for
the attachment part (Soap with attachment). Is it possible to do that?

Thanks.

e.g.
--MimeXXXXXXXXXXXXXX
Content-Type: text/xml; charset=UTF-8
Content-Transfer-Encoding: binary
Content-ID: <XXXXXXXXXXXXXX>
My-Custom-Line: YYYYYYYYYYY <= Add my line here

This is the content of my payload


--Franz

Hi,

Iam getting exception message as:

"No operation available for request
{http://soap.sforce.com/2006/04/metadata}list"

When iam executing the below line of code:

FileProperties[] rps = ms.listMetadata(new ListMetadataQuery[] { q });

Please help me out.

Thanks

You're sending the request to the wrong Url, remember to set the
correct Url on the binding object.

Please ask followup questions on the developer.force.com forums
http://community.salesforce.com/sforce/?category.id=developers

Cheers
Simon

On Oct 30, 2009, at 12:53 AM, iamraajkumar wrote:

> Hi,
>
> Iam getting exception message as:
>
> "No operation available for request {http://soap.sforce.com/2006/04/
> metadata}list"
>
> When iam executing the below line of code:
>
> FileProperties[] rps = ms.listMetadata(new ListMetadataQuery[] { q });
>
> Please help me out.
>
> Thanks
>
>

This is not supported in PocketSOAP.

Cheers
Simon

On Nov 2, 2009, at 2:32 AM, honfung4 wrote:

> I am using PocketSOAP. I would like to add a header line to the MIME
> header for the attachment part (Soap with attachment). Is it
> possible to do that?
>
> Thanks.
>
> e.g.
> --MimeXXXXXXXXXXXXXX
> Content-Type: text/xml; charset=UTF-8
> Content-Transfer-Encoding: binary
> Content-ID: <XXXXXXXXXXXXXX>
> My-Custom-Line: YYYYYYYYYYY <= Add my line here
>
> This is the content of my payload
>
> --Franz
>

I have the following classic asp code which calls a Web method called
GetDocumentAsAttachment() which takes an ID as paramater and returns MIME
attachment.This works absolute fine on Windows 2003. But when I run this on
Windows 2000 SP4, the web application hangs and terminates IIS.

I tried to test this code in VB, same thing happens. The applications terminates
without throwing any error.

Dim objHTTP
Dim objEnv
Dim objAttachments
Dim objAtt
Dim strWebServiceNamespace

strWebServiceNamespace = "my webservice namespace"
strWebServiceURL = "my webservice url"

Set objHTTP = Server.CreateObject("pocketSOAP.HTTPTransport")
Set objAttachments = Server.CreateObject("pocketSOAP.Attachments")
Set objEnv = Server.CreateObject("pocketSOAP.Envelope")

objEnv.SetMethod "GetDocumentAsAttachment",strWebServiceNamespace
objEnv.EncodingStyle=""
objEnv.Parameters.Clear
objEnv.Parameters.Create "ExternalDocId", "123", objEnv.URI
objAttachments.Format = formatMime
objHTTP.SoapAction = "my soap action"
set objAttachments.Transport = objHTTP
objAttachments.Transport.Send strWebServiceURL, objEnv.Serialize
objEnv.Parse objAttachments

I get the error at the above line ie objEnv.Parse objAttachments.

Any help would be much appreciated.

Hi all:
in an attempt to deal with stuffed production network we are trying the
bi-directional compression recommended by Simon here:
http://www.pocketsoap.com/weblog/2006/12/1717.html
But we are not sure about the comment on updates made for CLR 2.0.
In our understanding the GzipWebRequest class produces a zipped request body
(hence the Content-encoding header) and IIS responds with encrypted response
(per Accept-encoding header) which is then decompressed by the GzipWebResponse
class - how else would it be decompressed - we don't think that the base class
sforce.SforceService contains that ability?
We are receiving a HTTP 400 error when trying to GetWebResponse, and  cannot get
the solution working like this.
Note that we are building this against our own relatively simple web service,
not sforce, which sends back and forth rich text data.
Hope someone may find a minute to respond with your own experience. It would be
an awesome solution.
Thanks and best regards.
Pavel

Last i looked IIS doesn't support decompressing requests, nor
compressing responses of dynamically handled requests, so you some
work to do on the server side as well.

Cheers
Simon

On Nov 10, 2009, at 4:14 PM, Pavel Dvorak wrote:

> Hi all:
> in an attempt to deal with stuffed production network we are trying
> the bi-directional compression recommended by Simon here:
> http://www.pocketsoap.com/weblog/2006/12/1717.html
> But we are not sure about the comment on updates made for CLR 2.0.
> In our understanding the GzipWebRequest class produces a zipped
> request body (hence the Content-encoding header) and IIS responds
> with encrypted response (per Accept-encoding header) which is then
> decompressed by the GzipWebResponse class - how else would it be
> decompressed - we don't think that the base class
> sforce.SforceService contains that ability?
> We are receiving a HTTP 400 error when trying to GetWebResponse, and
> cannot get the solution working like this.
> Note that we are building this against our own relatively simple web
> service, not sforce, which sends back and forth rich text data.
> Hope someone may find a minute to respond with your own experience.
> It would be an awesome solution.
> Thanks and best regards.
> Pavel
>

If its terminating the ASP process, there should be more details in
the event log about what happened, that would be a good place to start.

Cheers
Simon

On Nov 10, 2009, at 4:48 AM, diwansanjay wrote:

> I have the following classic asp code which calls a Web method
> called GetDocumentAsAttachment() which takes an ID as paramater and
> returns MIME attachment.This works absolute fine on Windows 2003.
> But when I run this on Windows 2000 SP4, the web application hangs
> and terminates IIS.
>
> I tried to test this code in VB, same thing happens. The
> applications terminates without throwing any error.
>
> Dim objHTTP
> Dim objEnv
> Dim objAttachments
> Dim objAtt
> Dim strWebServiceNamespace
>
> strWebServiceNamespace = "my webservice namespace"
> strWebServiceURL = "my webservice url"
>
> Set objHTTP = Server.CreateObject("pocketSOAP.HTTPTransport")
> Set objAttachments = Server.CreateObject("pocketSOAP.Attachments")
> Set objEnv = Server.CreateObject("pocketSOAP.Envelope")
>
> objEnv.SetMethod "GetDocumentAsAttachment",strWebServiceNamespace
> objEnv.EncodingStyle=""
> objEnv.Parameters.Clear
> objEnv.Parameters.Create "ExternalDocId", "123", objEnv.URI
> objAttachments.Format = formatMime
> objHTTP.SoapAction = "my soap action"
> set objAttachments.Transport = objHTTP
> objAttachments.Transport.Send strWebServiceURL, objEnv.Serialize
> objEnv.Parse objAttachments
>
> I get the error at the above line ie objEnv.Parse objAttachments.
>
> Any help would be much appreciated.