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