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
相关文档：
偶尔在网上发现的一片关于掌握JAVA的标准，感觉有点意思，虽然在一些观点上有些偏颇，但作为学习JAVA的引导尚可。至于原创是谁没有必要考证。
时常看到一些人说掌握了Java，但是让他们用Java做一个实际的项目可能又困难重重，在这里，笔者根据自己的一点理解斗胆提出自己的一些对掌握Java这个说法的标准，当然对于新 ......
多线程是这样一种机制，它允许在程序中并发执行多个指令流，每个指令流都称为一个线程，彼此间互相独立。 线程又称为轻量级进程，它和进程一样拥有独立的执行控制，由操作系统负责调度，区别在于线程没有独立的存储空间，而是和所属进程中的其它线程共享一个存储空间，这使得线程间的通信远较进程简单。
一：理解多线程
& ......
转载自 http://www.cn-java.com/www1/?action-viewnews-itemid-8283
由于同一进程的多个线程共享同一片存储空间，在带来方便的同时，也带来了访问冲突这个严重的问题。Java语言提供了专门机制以解决这种冲突，有效避免了同一个数据对象被多个线程同时访问。
需要明确的几个问题：
1)synchronized关键字可以作为 ......
代码块：就是用{}括起来到部分。根据应用的不同分为4类:普通代码块、构造块、静态代码块、同步代码块。
1.普通代码块：定义在方法中的代码块。
如：
public class Ex22 {
public static void main(String[] args){
// 普通代码块
{
int i = 3;
System.out.println("局部变量为 " + i);
}
int i = 5 ......
'创建快捷方式，兼容vista
'要把vb6stkit.DLL放到程序目录
'敖士伟 09-10-27
'只对“桌面”和“开启”有效，其它还没做
'=========开启外部同步程序定义开始
Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFF 'Wait forever
Const WAIT_OBJECT_0 = 0 'The state of the spe ......
