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是一件非常简单的事件，但不是很好，首先它无法完成由程序控制，还有是在拔号与文件传输时会出现操作界面，无法将其置为一个后台程序，而人工的干预也过于容易，不过，在解决我当前的问题方面，它是一个非常好的选择。
上一篇： VB编程之路－如何让界面美化
下一篇： 浅谈用VB6.0编写木马程序
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
