用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如何调用执行这段宏?