用CuteFTP录制了一段宏,保存成了VBS文件,内容大致如下
Set MySite = CreateObject("CuteFTPPro.TEConnection")MySite.Host = "192.168.3.139"
MySite.Protocol = "FTP"
MySite.Port = 21
MySite.Retries = 3
MySite.Delay = 30
MySite.MaxConnections = 2
MySite.TransferType = "AUTO"
MySite.DataChannel = "DEFAULT"
MySite.AutoRename = "OFF"MySite.Login = "123456"
MySite.Password = "123456"
MySite.SocksInfo = ""
MySite.ProxyInfo = ""MySite.Connect
MySite.Upload "c:1.txt", "/d:/ftpdata/users/123456/1.txt"
MySite.Upload "C:1.jpg", "/d:/ftpdata/users/123456/1.jpg"
MySite.Disconnect
请问用DELPHI如何调用执行这段宏?
Set MySite = CreateObject("CuteFTPPro.TEConnection")MySite.Host = "192.168.3.139"
MySite.Protocol = "FTP"
MySite.Port = 21
MySite.Retries = 3
MySite.Delay = 30
MySite.MaxConnections = 2
MySite.TransferType = "AUTO"
MySite.DataChannel = "DEFAULT"
MySite.AutoRename = "OFF"MySite.Login = "123456"
MySite.Password = "123456"
MySite.SocksInfo = ""
MySite.ProxyInfo = ""MySite.Connect
MySite.Upload "c:1.txt", "/d:/ftpdata/users/123456/1.txt"
MySite.Upload "C:1.jpg", "/d:/ftpdata/users/123456/1.jpg"
MySite.Disconnect
请问用DELPHI如何调用执行这段宏?
解决方案 »
- webBrowser加载视频URL时会出错
- 请问SQLITE的哪个第三方控件,可以支持Append方法,急求
- 怎么样提取EML文件(或MSG文件)中的附件
- 请教关于delphi调用C/C++的dll的双指针ppchar的数据的问题
- 关于对一个EXCEL文件内容匹配的实现问题,问哈思路..高手请指教!
- 这样的格式如何实现自动增加编号?
- 我是一个delphi的新手,能不能介绍我一个入门的书,最好是电子读书,谢谢
- 把c表中的数据更新到a,b中(a中没有时插入b中)如何提高速度
- delphi中的null
- 用Tquery来删除记录
- 怎么做类似SpinButton的按钮(即mouse按下后会不断地执行代码)?
- 对dbf文件操作,同样的sql语句执行结果不一致,怪!
是想通过DELPHI去执行上面那个宏里的内容。