正文
vb.net网盘 vb net从入门到精通pdf
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
用VB.NET 怎么编映射网络磁盘
本来可以用简单的dos命令的，但是影射成功与否返回不理想，建议用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联机了（返回真时成立)。
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
相关问答
Q1: 哪里有vb.net下载的？
可以安装成中文的
微软上的vs下载中心
;productID=C0037913-9E11-4A2D-8FD1-0BA441296CBC
vs.net
2003
下载
MSDN
library
CD1
;downid=1
MSDN
library
CD2
;downid=2
MSDN
library
CD3
;downid=3
VISIO
CD1
;downid=4
2005版下载
Visual.Studio..net.2005.简体中文版].rar
;downid=1
Q2: 求vb.net 官方下载地址
;displaylang=zh-cn
vb2008(vb.net2008)官方下载(是vb,vc等集合的,绝对没有独立的vb,只能安装时在编程语言中去掉其他的).
90天试用版(可以破解,安装完以后控制面板,添加删除程序,选vs2008,更改,最下面的升级正式版,输入号:PYHYP-WXB3B-B2CCM-V9DX9-VDY8T )
Q3: 求vb.net下载地址
VB.NET2005是visual studo 2005 的一个组件，即VS2005包括VB.NE5 C# VC++等各种语言，所以你要vb.net 就要下载visual studo 2005，然后根据需要安装vb.net就可以了，如果你是刚开始学的，微软建议您学c# 它和vb.net有相同功能，在网页上比VB.NET好用
visual studo 2005直接的微软网站下载就可以了（不管那里搜的结果都是微软网站上下载的），再去找一下注册码，这个你懂的
不过现在都出2010了，一般都使用VB.NET2008
S2008（2010看下面）微软官方下载，
Q4: vb.net视频教程下载？
曾经我初学vb.net网盘的时候vb.net网盘，也是想用视频教程来学，当时觉得有教程可能学的更快。也发钱买vb.net网盘了视频教程。后来看了也不会，决定自己摸索学习，从做一个小小的记事本开始，只有实践才能更快的进步。教程真没用
Q5: VB.NET如何实现文件的下载
给vb.net网盘你一个遍历所有盘符下的文件夹的例子加一个遍历文件的就可以vb.net网盘了。TreeNode node = new TreeNode("我的电脑"); treeView.Nodes.Add(node); //加入一个我的电脑节点 string[] drivesName = System.IO.Directory.GetLogicalDrives() //取得驱动器列表的集合 foreach(string name in drivesName) //用foreach遍历集合 { TreeNode drivesNode = new TreeNode(name); node.Nodes.Add(drivesNode); //加到我的电脑节点下 }
关于vb.net网盘和vb net从入门到精通pdf的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
