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

 

MILY: 宋体; FONT-SIZE: 16pt; LINE-HEIGHT: 240%; mso-bidi-font-size: 22.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">利用VB驱动pcAnyWhere进行自动文件传输

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

                    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》

原文转自：http://www.ltesting.net