VB WINSOCK 实现文件传输

可以在senddata的时候在数据前加入标识，如将fn=“fn [文件名]”，接收时可以用left函数提取标识，如Winsock1.GetData fn后 a = left(fn,2)if a = “fn" then ……

用script脚本 直接调用 FTP 命令实现上传文件到FTP服务器。

代码如下：

'定义API函数

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() '取时间为文件名filename

Open filename & ".script" For Output As #1 '生成filename.script脚本，传输FTP用

    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 '生成的filename.txt保存了combo1和text1的文字

    Print #1, Text1.Text

    Print #1, Combo1.Text

Close #1

DoEvents

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

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" '因为script脚本保存了帐号和密码，当传输完成后删除filename.script脚本

End Sub

---