VB调用QC API实现二次开发

Private Sub Command1_Click()
Set tdconnction = CreateObject("TDApiOle80.TDConnection")
tdconnction.InitConnectionEx "http://lab11:8888/qcbin"
tdconnction.ConnectProjectEx "AAA", "bbb", "孙东峰", ""
Set aSet = tdconnction.UserSettings
'方法一：
Text2.Text = aSet.Value("")

'方法二：
Set setItems = aSet.EnumItems
For Each aSetItem In setItems
ItemName = aSetItem
Text3.Text = aSet.Value(ItemName)
Next aSetItem
Label1.Caption = "end"
End Sub

Private Sub Command10_Click()
Set tdconnction = CreateObject("TDApiOle80.TDConnection")
tdconnction.InitConnectionEx "http://lab11:8888/qcbin"
tdconnction.ConnectProjectEx "DEFAULT", "QualityCenter_Demo", "alex_qc", "123"

End Sub

Private Sub Command11_Click()
Set tdconnction = CreateObject("TDApiOle80.TDConnection")
    tdconnction.InitConnectionEx "http://lab11:8888/qcbin"
    tdconnction.ConnectProjectEx "DEFAULT", "QualityCenter_Demo", "alex_qc", "123"
    Set BugFact = tdconnction.BugFactory

    '根据ID返回需要的附件
    Set attachmentXml = CreateObject("Microsoft.XMLDOM")
    Set pi = attachmentXml.createProcessingInstruction("xml", "version='1.0'  encoding='utf-8'")
    Call attachmentXml.insertBefore(pi, attachmentXml.childNodes(0))
    Set attachmentRows = attachmentXml.createNode(1, "Row", "")
    attachmentXml.appendChild (attachmentRows)
    'For j = 1 To length
        Set attachmentId = attachmentXml.createNode(1, "attachment", "")
        Set NewAttribute = attachmentXml.createNode("attribute", "id", "")
        NewAttribute.Text = 2
        attachmentId.SetAttributeNode NewAttribute
        Set bugObj = BugFact.Item(2)
        Set attachFact = bugObj.Attachments
        Set attachList = attachFact.NewList("")
        For Each attachObj In attachList
            k = k + 1
             Set attachmentName = attachmentXml.createNode(1, "attribute" & k, "")
            attachmentName.Text = attachObj.Name
            attachmentId.appendChild (attachmentName)
        'Next
        attachmentRows.appendChild (attachmentId)
    Next
    attachmentXml.save ("f:\\a\\a.xml") '将xml文件保存
    Label2.Caption = "end"
End Sub

Private Sub Command12_Click()
    Set tdc = CreateObject("TDApiOle80.TDConnection")
    tdc.InitConnectionEx "http://lab11:8888/qcbin"
    tdc.ConnectProjectEx "DEFAULT", "QualityCenter_Demo", "alex_qc", "123"