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 contoso.com placeholder URL with your own UDDI server.
   conn.InquireUrl = "http://uddi.contoso.com/inquire"
   
   ' 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.