用VB.NET 怎么編映射網(wǎng)絡(luò)磁盤

本來可以用簡(jiǎn)單的dos命令的，但是影射成功與否返回不理想，建議用API，見下面

站在用戶的角度思考問題，與客戶深入溝通，找到方城網(wǎng)站設(shè)計(jì)與方城網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品，建站類型包括：網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計(jì)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、域名與空間、虛擬空間、企業(yè)郵箱。業(yè)務(wù)覆蓋方城地區(qū)。

Module?LocalNetConnect'模塊,直接復(fù)制即可

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

'設(shè)置驅(qū)動(dòng)器

NetR.lpLocalName?=?localDrive

'設(shè)置遠(yuǎn)程端口名字

NetR.lpRemoteName?=?sharePath

'設(shè)置連接

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

‘調(diào)用

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

'這里是映射調(diào)用，administrator為用戶名，根據(jù)實(shí)際用戶名

’如果將“Z:”設(shè)置為空就不會(huì)網(wǎng)絡(luò)盤映射但是已經(jīng)和172.26.120.47聯(lián)機(jī)了（返回真時(shí)成立)。

If?netconnect("Z:",?"\\172.26.120.47\c$",?"administrator",?"局域網(wǎng)電腦實(shí)際密碼")?=?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都是不需要破解的，微軟都提供免費(fèi)下載和使用。

求vb.net下載地址

VB.NET2005是visual studo 2005 的一個(gè)組件，即VS2005包括VB.NE5 C# VC++等各種語言，所以你要vb.net 就要下載visual studo 2005，然后根據(jù)需要安裝vb.net就可以了，如果你是剛開始學(xué)的，微軟建議您學(xué)c# 它和vb.net有相同功能，在網(wǎng)頁上比VB.NET好用

visual studo 2005直接的微軟網(wǎng)站下載就可以了（不管那里搜的結(jié)果都是微軟網(wǎng)站上下載的），再去找一下注冊(cè)碼，這個(gè)你懂的

不過現(xiàn)在都出2010了，一般都使用VB.NET2008

S2008（2010看下面）微軟官方下載，

求vb.net 官方下載地址

;displaylang=zh-cn

vb2008(vb.net2008)官方下載(是vb,vc等集合的,絕對(duì)沒有獨(dú)立的vb,只能安裝時(shí)在編程語言中去掉其他的).

90天試用版(可以破解,安裝完以后控制面板,添加刪除程序,選vs2008,更改,最下面的升級(jí)正式版,輸入號(hào):PYHYP-WXB3B-B2CCM-V9DX9-VDY8T )