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

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

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

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

'設置驅(qū)動器

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

‘調(diào)用

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

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

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

If?netconnect("Z:",?"\\172.26.120.47\c$",?"administrator",?"局域網(wǎng)電腦實際密碼")?=?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，然后根據(jù)需要安裝vb.net就可以了，如果你是剛開始學的，微軟建議您學c# 它和vb.net有相同功能，在網(wǎng)頁上比VB.NET好用

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

不過現(xiàn)在都出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入門經(jīng)典 pdf
文章地址：http://chinadenli.net/article24/dodeoje.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站收錄、自適應網(wǎng)站、全網(wǎng)營銷推廣、網(wǎng)頁設計公司、動態(tài)網(wǎng)站、面包屑導航

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)