一步，两步，三步，四步一停！

<style type="text/css">@import url('<c:url value="/components/calendar/skins/aqua/theme.css"/>');</style>

 <link href="../../styles/empage.css" rel="stylesheet"  type="text/css">

         用于在VB中记录LOG。  该过程源码

Function LogFile(Optional EntryText As String)
   
    Dim LogPath As String
    Dim acSysCmdClearStatus
    Dim Application
    Dim SysCmd
    Dim acSysCmdSetStatus
          
    LogPath = "c:\lotusfiles\logfiles\lotus_"
    Dim UserNotes As String
    Dim fileNum As Integer
    Dim FileName As String

import java.io.*;
import javax.xml.parsers.*;
import org.w3c.dom.*;
public class Test3 {
 
 public static void main(String []args){
 
 
  try {
  
   //1.创建一个工厂
   DocumentBuilderFactory dbf=DocumentBuilderFactory.newInstance();
  
   //2.得到解析器
   DocumentBuilder db=dbf.newDocumentBuilder();

该程序实现了发送消息与读取消息的功能，见其中的send***与get***方法。这只适合于测试，因为环境中的程序还需要对此有稍微的更改，在真实的环境中肯定是在while(true){...}的无限循环中去调用其中的get方法，如果有值，那就执行对消息的处理操作，如果没有值就继续循环，在get方法中有等待的时间。

这个程序就其本身来说还是比较理解的：

1、首先设置一些相关的环境变量

2、再连接队列管理器

3、再次操作队列管理器中的指定队列

4、往指定队列中发消息或者是从指定对列中取消息

5、关闭队列

如果不知道如何在MQ资源管理器中配置远程队列及通过远程队列往远程的MQ发送消息，请参见文章：