VB FTP 代码问题

Amseen 2012-12-22 08:45:15
Public Class Form1
Dim wc As New Net.WebClient
Dim passwort As String = "密码"
Dim benutzername As String = "用户名"

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False
BackgroundWorker1.RunWorkerAsync()
End Sub

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Try
wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
TextBox1.Text = wc.DownloadString("ftp://***.com/chat.txt")
Catch ex As Exception
MessageBox.Show("Error!")
End Try
End Sub

Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
BackgroundWorker1.RunWorkerAsync()
End Sub

Private Sub sentannui_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sentannui.Click
BackgroundWorker2.RunWorkerAsync()
End Sub

Private Sub BackgroundWorker2_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker2.DoWork
BackgroundWorker1.CancelAsync()

wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
wc.UploadString("ftp://***.com/chat.txt", TextBox1.Text & "" & TextBox0.Text & ": " & TextBox2.Text & vbNewLine) '这一句出现的错误,用户代码未处理 NotSupportedException. WebClient does not support concurrent I/O operations.请问有什么解决方法吗?

Try
wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
TextBox1.Text = wc.DownloadString("ftp://***.com/chat.txt")
Catch ex As Exception
MessageBox.Show("Error!")
End Try
End Sub

Private Sub BackgroundWorker2_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker2.RunWorkerCompleted
TextBox2.Clear()
BackgroundWorker1.RunWorkerAsync()
End Sub
End Class
...全文
61 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
Amseen 2012-12-22
  • 打赏
  • 举报
回复
学校的作业制作简单的Ftp聊天,不太懂出错的意思,请问有什么解决方法吗?

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧