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"
