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

灵幻珠宝

灵幻珠宝

2016-01-29 12:05

利用VB驱动pcAnyWhere进行自动文件传输,利用VB驱动pcAnyWhere进行自动文件传输
  在OLE白皮书上,将OLE驱动写得十分明白,我只要将我的连接代码帖上来,应该十分明白。

  1、 检查MODEM是否在使用,由于PCAnyWhere启动后不能再由程序控制,我们必须检查MODEM是否是空闲才能确保拔号可以顺利外拔。检查MODEM空闲可能通过打开MODEM所在的串口是否成功来判断。

  2、 生成RemoteDataManager对象

  3、 进入C:Documents and SettingsAll UsersApplication DataSymantecpcAnywhere,由于 PCAnyWhere安装时将配置文件都放在这个目录下,我们将运行路径切换到这个目录下,可以更方便地使用。

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

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

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

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/vb/)

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

  8、 将RemoteData、RemoteDataManager对象释放。

  9、 拔下一个点。

If checkMODEMIdle Then

showBegin 显示开始信息

Create CRemoteDataManager object

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/vb/)

Set RemoteDataManager = CreateObject("WINAWSVR.RemoteDataManager")

RemoteDataManager.ChangeDirectory "C:Documents and SettingsAll UsersApplication DataSymantecpcAnywhere"

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


展开更多 50%)
分享

猜你喜欢

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

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

Linux指令篇:文件传输--ftpcount

Linux Linux命令 Linux安装 Linux编程 Linux桌面 Linux软件 Linux内核 Linux管理
Linux指令篇:文件传输--ftpcount

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

Linux指令篇:文件传输--uuto

Linux Linux命令 Linux安装 Linux编程 Linux桌面 Linux软件 Linux内核 Linux管理
Linux指令篇:文件传输--uuto

Linux指令篇:文件传输--uucp

Linux Linux命令 Linux安装 Linux编程 Linux桌面 Linux软件 Linux内核 Linux管理
Linux指令篇:文件传输--uucp

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

Linux指令篇:文件传输--ncftp

Linux Linux命令 Linux安装 Linux编程 Linux桌面 Linux软件 Linux内核 Linux管理
Linux指令篇:文件传输--ncftp

Linux指令篇:文件传输--tftp

Linux Linux命令 Linux安装 Linux编程 Linux桌面 Linux软件 Linux内核 Linux管理
Linux指令篇:文件传输--tftp

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

VB和VB.NET中的XML操作

VB和VB.NET中的XML操作

jsp源码实例5(cookie)

jsp源码实例5(cookie)
下拉加载更多内容 ↓