VB与JAVA交互

Private Sub Command1_Click()
Dim dso As New XMLDSOControl
Dim doc As IXMLDOMDocument
  Set doc = dso.XMLDocument
Dim rel  As IXMLDOMNodeList
Set x = CreateObject("Microsoft.XMLHTTP")
  x.Open "GET", "http://127.0.0.1:8080/emrb/Mrbmodel?action=dis&userid=11&authority=111
", False
  x.send
   doc.Load (x.responseXML)
 
  Set Tablelist = doc.getElementsByTagName("record")
Tablelen = Tablelist.length
 For i = 0 To (Tablelen - 1)
'Text1.Text = Tablelist.Item(i).selectSingleNode("Fremark").Text
Combo1.AddItem (Tablelist.Item(i).selectSingleNode("pn").Text)
    Next
End Sub
Private Sub Command2_Click()
a = "<result><TD>A
AAAA%AAAA</TD><TD>AAAAAA
AAA</TD><TD>AAAAAAAAA</TD><TD>AAAAAAAAA</TD><TD>AAAAAAAAA</TD><TD>AAAAAAAAA</TD><TD>AAAAAAAAA</TD><TD>AAAAAAAAA</TD><result>"
Dim b As String
b = Now
Set x = CreateObject("Microsoft.XMLHTTP")
  x.Open "GET", "http://127.0.0.1:8080/printsys/VfmacSelvet?mac
=" + a + "&time=" + b, False
 ' x.Open "GET", "http://127.0.0.1:8080/printsys/ExcelExport.jsp
, False"
 
  x.send
  Text1.Text = x.responseText
End Sub