开发学院WEB开发Jsp VB与JAVA交互 阅读

VB与JAVA交互

 2009-10-28 20:53:47 来源:WEB开发网   
核心提示:PRivate Sub Command1_Click()Dim dso As New xmlDSOControlDim doc As IXMLDOMDocumentSet doc = dso.XMLDocumentDim relAs IXMLDOMNodeListSet x = CreateObject("M
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

Tags:VB JAVA 交互

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接