vb.net和ftp错误530上的Wybuild更新程序源代码

Question

尝试保存文件时出错：下载错误

  

“ ftp://192.168.0.243/New%20folder/luq/wyserver.wys”：远程服务器   返回错误：（530）未登录。

代码：

Public Class Form1
Dim TextBox1
Dim Label1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    MessageBox.Show("WELCOME ")
    MessageBox.Show("TO")
    MessageBox.Show("ANONYMOUS")
    MessageBox.Show("APPLICATION")
End Sub

Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint

End Sub

Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub PictureBox1_Click(sender As Object, e As EventArgs)

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

End Sub

Public Sub New()
    InitializeComponent()

    ' only load files, etc. when NOT closing to install an update
    If Not AutomaticUpdater1.ClosingForInstall Then
        ' load important files, etc.
        ' LoadFilesEtc()
    End If
End Sub

Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click

End Sub


Private Sub AutomaticUpdater1_Click(sender As Object, e As EventArgs) Handles AutomaticUpdater1.Click, AutomaticUpdater1.ClosingAborted
    ' your app was preparing to close
    ' however the update wasn't ready so your app is going to show itself
    ' LoadFilesEtc()
End Sub

Private Sub CheckForUpdatesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CheckForUpdatesToolStripMenuItem.Click

End Sub
End Class