当前位置: 首页 > 图文教程 > 开发语言 > VB > 利用VB驱动pcAnyWhere进行自动文件传输

VB
运用VB.net创建Web服务访问程序
Visual Basic .NET中操作MsAgent
Visual Basic.NET快速开发MIS系统
Windows 98/2000下多屏显示技术的实现
Visual Basic中实现I/O端口控制
Visual Basic.NET和GDI+共创图标编辑器
VB多类图片数据库存取技巧
在Visual Basic 6.0中操纵XML文件
用VB6设计有趣的动画场景
用VB设计有安全认证服务的Email
VB.NET实现超级ptm查看器
与Visual Basic .NET一起使用.NET Framework
VB.NET注册表编程
VB中利用OpenGL绘制三维地质构造图
域名专题 - 域名劫持---163.net被h的分析
asp.net中的vb7中如何调用dll中的函数
在ASP.NET中处理datetime的一些通用函数（VB）
从 Visual Basic 6.0 到 Visual Basic.NET 的转换(1)
从 Visual Basic 6.0 到 Visual Basic.NET 的转换(2)
从 Visual Basic 6.0 到 Visual Basic.NET 的转换(3)

No. « 1 2 3 4 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-10-29   浏览: 299 ::
收藏到网摘: n/a

　　在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中配置好的不变的自动文件传输，不能实现我要的根据时间不同下载不同文件的要求。