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

 

利用VB驱动pcAnyWhere进行自动文件传输<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

pcAnywhere使你能够远程控制PC机，如同使用当前计算机一样的工具。它支持多种连接方式： IP连接，MODEM连接，串口电缆直接连接。除了操作外，它还可以进行文件传输、计算机同步等功能。它是计算机远程控制的王中之王。
 PCAnyWhere的使用非常简单，它的使用方法在网上有非常详细的介绍，我就不再多说，我介绍一下利用VB驱动PCAnyWhere的方法。
在我的一个项目中有特别的应用，有五个处于不同地方的计算机,有实时数据采集文件，我需要定时拔号上去，将上面的数据文件下载下来，这些数据文件随时间的不同就有不同，所以没有办法做固定的自动文件传输，为此我分别研究了软件提供script与OLE白皮书，最终决定选用OLE。

一、      利用OLE进行远程连接

在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("WINAWSVR.RemoteDataManager")
                    RemoteDataManager.ChangeDirectory "C:/Documents and Settings/All Users/Application Data/Symantec/pcAnywhere"
                    S = RemoteDataManager.CurrentDirectory()
                   
                    CHFile = xProfile.GetValue(WatchPoint(nowRunID), "CHFFILE")          '用于拔号的配置
                    Set RemoteData = RemoteDataManager.RetrieveObject(CHFile, 2, 0)
                    RemoteData.PhoneNumber = xProfile.GetValue(WatchPoint(nowRunID), "PHONENUM")
                    RemoteData.AutoXferFile = filename
                    RemoteData.AutoLoginName = xProfile.GetValue(WatchPoint(nowRunID), "USERNAME")
                    RemoteData.AutoLoginPassword = xProfile.GetValue(WatchPoint(nowRunID), "PSW")
                    RemoteData.RunOnConnect = True
                    RemoteData.WriteObject (0)
                    S = RemoteData.PhoneNumber
                    RemoteData.Launch
                    Sleep 30000
                    Do
                    If checkMODEMIdle Then Exit Do
                        DoEvents
                        Sleep 5000
                    <?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" />Loop
                    '取文件结束，要进行转存处理
                    moveDBFData localpath
                    Set RemoteData = Nothing
                    Set RemoteDataManager = Nothing
                    nowRunID = nowRunID + 1
                End If
注意：一次完毕后必须将RemoteData、RemoteDataManager对象释放，不然会出现错乱的现象。
好了，拔号自动文件传输已经实现了，但这个文件传输是在PCANYWHERE中配置好的不变的自动文件传输，不能实现我要的根据时间不同下载不同文件的要求。
 

二、      动态生成自动文件传输文件

为了动态生成自动文件传输，自然要修改自动文件传输文件的配置，可OLE中没有给出这方面的功能，我不得不另辟蹊径了。
用文本编辑器打开ATF文件(自动文件传输文件),发现全是乱码，只有路径可以识别。灵机一动用UltraEdit-32打开并用十六进制打开，哈，秘密全在其中。
 

ATF的系统文件格式如下：
                           
04 40 41 54 46 01 00 01 01 00 01 01 01 01 00 01             '第八位：00表示增量下载，01全部重新下载
00 00 00 00 00 00 00 01 00 FF FF 00 00 11 00 43            '第八位：00表示文件传输完毕后不挂断，01表示文件传输完毕后不挂断言   C                
41 75 74 6F 58 66 65 72 5F 43 6F 6D 6D 61 6E 64         AutoXfer_Command
01 13 45 3A 5C 55 53 42 42 41 4B 5C 32 30 30 33            第一位是传输方式：00 发到主机01从主机接收 02同步 第二位是本地文件路径长度  ，后面的是本地文件路径
 

31 2E 64 62 66 14 44 3A 5C 71 74 64 61 74 61 31    '第六个主机文件路径长度, 后面的是主机文件路径
5C 32 30 30 33 31 2E 64 62 66
 

有了文件的组成格式，生成这么一个文件就不在话下了。只要用二进制方式生成这个文件，就一切OK了。
Public Sub makeATFFile(ByVal localpath As String, ByVal remotepath As String, ByVal filename As String)
Dim tx() As Byte
Dim ii As Integer
Dim len1, len2 As Integer
len1 = Len(localpath)
len2 = Len(remotepath)
ReDim tx(0 To 48 + len1 + len2 + 2)
'04 40 41 54 46 01 00 01 01 00 01 01 01 01 00 01     '第八位：00表示增量下载，01自然下载
'00 00 00 00 00 00 00 01 00 FF FF 00 00 11 00 43     C
'41 75 74 6F 58 66 65 72 5F 43 6F 6D 6D 61 6E 64         AutoXfer_Command
'01 13 45 3A 5C 55 53 42 42 41 4B 5C 32 30 30 33     第一位是传输方式：00 发到主机01从主                         机接收 02同步 第二位是本地文件路径长度
'31 2E 64 62 66 14 44 3A 5C 71 74 64 61 74 61 31     '第六个主机文件路径长度
'5C 32 30 30 33 31 2E 64 62 66
tx(0) = &H4
tx(1) = &H40
tx(2) = &H41
tx(3) = &H54
tx(4) = &H46
tx(5) = &H1
tx(6) = &H0
tx(7) = &H1
tx(8) = &H1
tx(9) = &H0
tx(10) = &H1
tx(11) = &H1
tx(12) = &H1
tx(13) = &H1
tx(14) = &H0
tx(15) = &H1
 

tx(16) = &H0
tx(17) = &H0
tx(18) = &H0
tx(19) = &H0
tx(20) = &H0
tx(21) = &H0
tx(22) = &H0
tx(23) = &H1
tx(24) = &H0
tx(25) = &HFF
tx(26) = &HFF
tx(27) = &H0
tx(28) = &H0
tx(29) = &H11
tx(30) = &H0
tx(31) = &H43
'41 75 74 6F 58 66 65 72 5F 43 6F 6D 6D 61 6E 64         AutoXfer_Command
tx(32) = &H41
tx(33) = &H75
tx(34) = &H74
tx(35) = &H6F
tx(36) = &H58
tx(37) = &H66
tx(38) = &H65
tx(39) = &H72
tx(40) = &H5F
tx(41) = &H43
tx(42) = &H6F
tx(43) = &H6D
tx(44) = &H6D
tx(45) = &H61
tx(46) = &H6E
tx(47) = &H64
 

'01 13 45 3A 5C 55 53 42 42 41 4B 5C 32 30 30 33     第一位是传输方式：00 发到主机01从主
tx(48) = &H1
tx(49) = len1
For ii = 1 To len1
    tx(49 + ii) = Asc(Mid(localpath, ii, 1))
Next ii
tx(49 + len1 + 1) = len2
For ii = 1 To len2
    tx(49 + ii + len1 + 1) = Asc(Mid(remotepath, ii, 1))
Next ii
 

'二进制文件打开
On Error Resume Next
Open filename For Binary As #1
For ii = 0 To 48 + len1 + len2 + 2
    Put #1, , tx(ii)
Next ii
Close 1
End Sub
 

输入本地文件路径，主机文件路径，ATF文件名，就可生成这么一个文件，再将RemoteData.AutoXferFile设成新生成的ATF文件，你就可以想传什么就传什么文件了，不过，有一点要注意：这两个文件路径都是必须存在的，不然会出错。

结言：

利用VB驱动pcAnyWhere是一件非常简单的事件，但不是很好，首先它无法完成由程序控制，还有是在拔号与文件传输时会出现操作界面，无法将其置为一个后台程序，而人工的干预也过于容易，不过，在解决我当前的问题方面，它是一个非常好的选择。
 

参考资料：

《OLE Automation.pdf》