跪求在visual studio2005下用脚本任务vb.net实现上传文件至FTP功能（应用变量）

Const SYNCHRONIZE = H100000

创新互联是一家专注于网站设计、成都做网站与策划设计,新华网站建设哪家好?创新互联做网站,专注于网站建设10年,网设计领域的专业建站公司;建站业务涵盖:新华等地区。新华做网站价格咨询:18980820575

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 #1, "hash"

Print #1, "put "  filename  ".txt"

Print #1, "quit"

Close #1

Open filename  ".txt" For Output As #1

Print #1, Text1.Text

Print #1, Combo1.Text

Close #1

DoEvents

Dim pId As Long, pHnd As Long

pId = Shell("ftp -n -s:"  filename  ".script"  " "  ftp, vbHide)

pHnd = OpenProcess(SYNCHRONIZE, 0, pId)

If pHnd  0 Then

Call WaitForSingleObject(pHnd, INFINITE)

Call CloseHandle(pHnd)

End If

Kill filename  ".script"

End Sub

如果你觉得可以，把100分给我吧

我的方法很另类，给你说说过程

为了不重复文件名，我取时间为文件名filename

生成filename.script脚本，传输FTP用

生成filename.txt保存了combo1和text1的文字

调用ftp命令传输，不需要inet或winsock控件

API是SHELL WAIT功能，因为script脚本保存了帐号和密码，当传输完成后删除filename.script脚本

觉得如何，如果用inet不如这个简单，毕竟FTP不是自己写的，不管PASV与否都正常使用，唯一就是密码保存要等传输完成

你想的第一个方案是不可能的，FTP是文本传输协议，与HTTP不一样，不能写POST，实在想那样，VB做不了，需要手动创建数据包欺骗服务器

vb.net ftp上传文件

Dim OpenFileDialog As New OpenFileDialog

OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments

OpenFileDialog.Filter = "文本文件(*.jpg)|*.jpg|所有文件(*.*)|*.*"

If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then

Dim FileName As String = OpenFileDialog.FileName

' TODO: 在此处添加打开文件的代码。

textbox1.Text = FileName

End If

第一个按钮 上传

Dim filelast As String = fileaddbefore.Text.Substring(fileaddbefore.Text.LastIndexOf("."), fileaddbefore.Text.Length - fileaddbefore.Text.LastIndexOf("."))

MessageBox.Show(filelast)

My.Computer.Network.UploadFile(textbox1.Text, "" 文件名.Text filelast, "登录名1", "登录密码", True, 100)

第二个按钮

用VB.NET 怎样通过给的HTTP地址上传文件

e As Int32 = 0 To Files.Count - 1

Dim PostedFile As HttpPostedFile = Files(iFile)

Dim FileName, FileExtent As String

FileName = Serverpath System.IO.Path.GetFileName(PostedFile.FileName)

If System.IO.Path.GetFileName(PostedFile.FileName) "" Then

FileName = System.IO.Path.GetFileName(PostedFile.FileName)

Dim Url As String = Me.Label1.Text.Trim FileName

PostedFile.SaveAs(Serve

vb.net 中如何将图片保存到SQL数据库

#Region "二进制文件的存储函数" Public Function BinaryToFile(ByRef TableRowColItem As Object, ByVal FileName As String) As Boolean Dim data As Byte() = TableRowColItem

Dim myfilestream As New System.IO.FileStream(FileName, IO.FileMode.Create)

myfilestream.Write(data, 0, data.Length)

myfilestream.Close()

Return True

End Function Public Function BinaryToImage(ByRef TableRowColItem As Object, ByRef image As Image) As Boolean Dim data As Byte() = TableRowColItem Dim imgStream As New System.IO.MemoryStream '(data)

imgStream.Write(data, 0, data.Length)

image = System.Drawing.Image.FromStream(imgStream)

imgStream.Close()

imgStream.Dispose() Return True

End Function

Public Function BinaryFromFile(ByVal FileName As String, ByRef TableRowColItem As Object) As Boolean Using myfilestream As New FileStream(FileName, FileMode.Open, FileAccess.Read)

Dim data() As Byte

ReDim data(myfilestream.Length - 1)

myfilestream.Read(data, 0, myfilestream.Length)

myfilestream.Close()

TableRowColItem = data End Using

Return True

End Function Public Function BinaryFromImage(ByRef Image As Image, ByRef TableRowColItem As Object) As Boolean

Dim imgStream As New MemoryStream

Dim b As New Bitmap(Image) b.Save(imgStream, System.Drawing.Imaging.ImageFormat.Jpeg) Dim data As Byte() = imgStream.GetBuffer

TableRowColItem = data

data = TableRowColItem

imgStream.Close()

imgStream.Dispose() Return True

End Function Public Function BinaryFromImage(ByVal Image As Image, ByRef TableRowColItem As Object, ByVal imgFormat As System.Drawing.Imaging.ImageFormat) As Boolean

Dim imgStream As New MemoryStream

'Image.Save(imgStream, imgFormat)

'Dim b As New Bitmap(Image)

'b.Save("c:\a.bmp", imgFormat)

'b.Save("c:\a.bmp", imgFormat) Dim data As Byte() = imgStream.GetBuffer TableRowColItem = data

data = TableRowColItem

imgStream.Close()

Return True

End Function

#End Region

网站栏目：vb.net文件上传 vbnet fileget
转载来源：http://myzitong.com/article/ddoceic.html