利用VB驱动pcAnyWhere进行自动文件传输Java教程

利用VB驱动pcAnyWhere进行自动文件传输Java教程

在OLE白皮书上，将OLE驱动写得十分明白，我只要将我的连接代码帖上来，应该十分明白。
　　1、 检查MODEM是否在使用，由于PCAnyWhere启动后不能再由程序控制，我们必须检查MODEM是否是空闲才能确保拔号可以顺利外拔。检查MODEM空闲可能通过打开MODEM所在的串口是否成功来判断。

2、 生成RemoteDataManager对象

3、 进入C:\Documents and Settings\All Users\Application Data\Symantec\pcAnywhere，由于　PCAnyWhere安装时将配置文件都放在这个目录下，我们将运行路径切换到这个目录下，可以更方便地使用。

4、 生成RemoteData对象，这要求在配置文件路径下有对应CHF文件上，这是在PCAnyWhere中配置的，只要名称与连接方式相同就可以了。

5、 设置拔号的电话号码，设置登录的用户名与密码，设置进行自动传输的ATF文件，并将RunOnConnect设为TRUE,并将这此配置的修改进行保存。

6、 开始拔号并自动传输文件。

7、 延时，判断MODEM是否空闲，空闲则这一次拔号、文件传输完毕（也有可能失败）。判断已下载的文件，如果修改时间已更新，则这次是成功的。否则是失败的。

8、 将RemoteData、RemoteDataManager对象释放。

9、 拔下一个点。

If checkMODEMIdle Then

showBegin 显示开始信息

Create CRemoteDataManager object

Set RemoteDataManager = CreateObject(“WI