Using Visual Basic 6.0

Note: The Microsoft UDDI SDK is not supported by or included in Microsoft Windows versions after Microsoft Windows Server 7. The Microsoft UDDI V3 SDK is included with Microsoft BizTalk Server. For more information about the Microsoft UDDI V3 SDK, see Microsoft BizTalk Server documentation

Visual Basic 6.0 COM developers can use the Microsoft UDDI SDK after performing the following steps.

To use the Microsoft UDDI SDK with Visual Basic 6.0, perform the following steps.

To Use Visual Basic 6.0
  1. Create a new Standard EXE project.

  2. In the Project References dialog box, check the entry for the Microsoft.Uddi.tlb type library. The name for this type library is Microsoft.Uddi assembly for UDDI SOAP messages.

  3. Include the following code for the single form. This code includes instructions about how to connect to a UDDI server and execute a FindBusiness and FindService query.

    Private Sub Form_Load()
    ' Declare a new connection and set the required inquiry properties.
    Dim conn As New UddiConnection
    conn.AuthenticationMode = AuthenticationMode_UddiAuthentication
    ' Replace the placeholder URL with your own UDDI server.
    conn.InquireUrl = ""
    ' Prepare a FindBusiness request and send over the connection.
    Dim findBiz As New FindBusiness
    Dim bizList As BusinessList
    Dim bizName As New Name
    bizName.Text = "Microsoft"
    findBiz.Names.Add bizName
    Set bizList = findBiz.Send(conn)
    ' Report brief results.
    MsgBox(Str(bizList.BusinessInfos.Count)+" matching businesses found.")
    ' Prepare a FindService request and send over the connection.
    Dim findServ As New FindService
    Dim servList As ServiceList
    Dim servName As New Name
    servName.Text = "Online"
    findServ.Names.Add servName
    Set servList = findServ.Send(conn)
    ' Report brief results.
    MsgBox (Str(servList.ServiceInfos.Count) + " matching services found.")
    Set findBiz = Nothing
    Set bizList = Nothing
    Set bizName = Nothing
    Set servList = Nothing
    Set servName = Nothing
    Set findServ = Nothing
    Set conn = Nothing
    End Sub

Send comments about this topic to Microsoft.

Community Additions