100分求用VB写一个上传文件到指定FTP的程序

来源：百度知道 编辑：UC知道 时间：2024/06/07 20:38:13
具体如下：
在工程中加入 Combo1 和 Text1 还有按钮一个
然后随便在 Combo1 和 Text1 里各输入任何字符
接着点击按钮上传，他就会自动将Combo1, Text1里的内容转换成文本格式，然后上传到指定的FTP里

这个过程。本人细想了下。如果“接着点击按钮上传，他就会自动将Combo1, Text1里的内容转换成文本格式，然后上传到指定的FTP里
”这一步办不到的话，那也可以让他换个方式：设置2个按钮，点击 按钮A 他就会自动将 Combo1 和 Text1 里的内容保存在电脑的某个地方（如D：/1.txt）然后在点击 按钮B，有按钮B来完成上传任务

记住：会的话。请把代码附上。。我是菜鸟讲那些我可能不太懂。。所以，代码是关键。。
大概就是这样。如果能做到前面的那个的话，那在好不过，做不到。那做到第2个勉强也行。。
希望大家帮帮忙2。。。分数多多。。
哭求此代码及方法
除Combo1 和 Text1 还有按钮一个这3个还需要添加什么吗？。详细啊!需要怎么放置你的代码，其他人会的也帮帮忙撒。。OK后。本人外加50分送上

Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFFFFFF
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Sub Command1_Click()
Dim filename As String
Dim ftp As String
Dim uname As String
Dim upin As String
ftp = InputBox("请输入服务器地址")
uname = InputBox("请输入帐号", , "anonymous")
upin = InputBox("请输入密码", , "IE@User")

filename = Timer()
Open filename & ".script" For Output As #1
Print #1, "user"
Print #1, uname
Print #1, upin
Print #1, "pwd"
Print #