跪求在visual studio2005下用腳本任務vb點虐 實現上傳文件至FTP功能（應用變量）

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?#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做不了，需要手動創建數據包欺騙服務器

ftp上傳文件用vb點虐 怎么實現

My.Computer.Network.UploadFile(本地文件路徑,?ftp服務器路徑包括文件名,用戶名,密碼)

vb點虐 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點虐 上傳ftp vbnet fileopen
URL鏈接：http://vcdvsql.cn/article16/ddsiodg.html

成都網站建設公司_創新互聯，為您提供商城網站、品牌網站設計、靜態網站、網頁設計公司、自適應網站、外貿網站建設

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯