vb.nettftp的简单介绍

ftp上传文件用vb.net怎么实现

My.Computer.Network.UploadFile(本地文件路径, ftp服务器路径包括文件名,用户名,密码)

相关问答

Q1: 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: 在此处添加打开文件vb.nettftp的代码。

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)

第二个按钮

Q2: 用vb.net实现网络通信

用 vb.net socket通信

Dim th As Threading.Thread

2 Dim tcpl As System.Net.Sockets.TcpListener

3

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

5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))

6 th.Start()

7 End Sub

8

9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)

10 Try

11 If IP "" Then

12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)

13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream

14 Dim reqStream As New IO.StreamWriter(tcpStream)

15 reqStream.Write(SendMsg)

16 reqStream.Flush()

17 tcpStream.Close()

18 tcpc.Close()

19 End If

20 Catch ex As Exception

21 MsgBox(ex.Message.ToString)

22 End Try

23 End Sub

24 Private Sub MyListen()Sub MyListen()

25 Try

26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)

27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)

28 tcpl.Start()

29 While True

30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()

31 Dim MyBuffer(1024) As Byte

32 Dim i As Integer

33 i = s.Receive(MyBuffer)

34 If i 0 Then

35 Dim lstrRec As String

36 Dim j As Integer

37 For j = 0 To i - 1

38 TextBox1.Text += Chr(MyBuffer(j)) ","

39 Next

40 End If

41 End While

42 Catch ex As Exception

43 MsgBox(ex.Message.ToString)

44 End Try

45 End Sub

46

47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

48 SendMessage("192.168.0.61", TextBox2.Text)

49 End Sub

Q3: 用VB.NET 怎么编映射网络磁盘

本来可以用简单的dos命令的vb.nettftp，但是影射成功与否返回不理想，建议用API，见下面

Module LocalNetConnect'模块,直接复制即可

    Public Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (ByRef lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Integer) As Integer

    Public Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias "WNetCancelConnection2A" (ByVal lpName As String, ByVal dwFlags As Integer, ByVal fForce As Integer) As Integer

    Public Structure NETRESOURCE

        Dim dwScope As Integer

        Dim dwType As Integer

        Dim dwDisplayType As Integer

        Dim dwUsage As Integer

        Dim lpLocalName As String

        Dim lpRemoteName As String

        Dim lpComment As String

        Dim lpProvider As String

    End Structure

    Public Function netconnect(ByVal localDrive As String, ByVal sharePath As String, ByVal userName As String, ByVal UserPassword As String) As Boolean

        Dim NetR As New NETRESOURCE

        Dim ErrInfo As Integer

        NetR.dwScope = 2

        NetR.dwType = 1

        NetR.dwDisplayType = 3

        NetR.dwUsage = 1

        '设置驱动器

        NetR.lpLocalName = localDrive

        '设置远程端口名字

        NetR.lpRemoteName = sharePath

        '设置连接

        ErrInfo = WNetAddConnection2(NetR, UserPassword, userName, 1)

        If ErrInfo = 0 Then

            Return True

        Else

            Return False

        End If

    End Function

    Public Function netdisconnect(ByVal localDrive As String) As Boolean

        Dim ErrInfo As Integer

        ErrInfo = WNetCancelConnection2(localDrive, 1, False)

        If ErrInfo = 0 Then

            Return True

        Else

            Return False

        End If

    End Function

End Module

‘调用

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 '这里是映射调用，administrator为用户名，根据实际用户名

 ’如果将“Z:”设置为空就不会网络盘映射但是已经和172.26.120.47联机vb.nettftp了（返回真时成立)。

        If netconnect("Z:", "\\172.26.120.47\c$", "administrator", "局域网电脑实际密码") = True Then

            MsgBox("success")

        Else

            MsgBox("Faile")

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click'这里是取消映射

        If netdisconnect("Z:") = True Then

            MsgBox("success")

        Else

            MsgBox("Faile")

        End If

    End Sub

关于vb.nettftp和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。