用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

谁有VB.net2008的破解版的下载地址？

VB.NET2008和最新的2010都是不需要破解的，微软都提供免费下载和使用。

求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看下面）微软官方下载，

求vb.net 官方下载地址

;displaylang=zh-cn

vb2008(vb.net2008)官方下载(是vb,vc等集合的,绝对没有独立的vb,只能安装时在编程语言中去掉其他的).

90天试用版(可以破解,安装完以后控制面板,添加删除程序,选vs2008,更改,最下面的升级正式版,输入号:PYHYP-WXB3B-B2CCM-V9DX9-VDY8T )

分享题目：vb.net微盘 vbnet入门经典 pdf
文章路径：http://csdahua.cn/article/dodeoje.html