用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://www.yijiale78.com/article24/dodeoje.html

成都網站建設公司_創新互聯，為您提供網站收錄、自適應網站、全網營銷推廣、網頁設計公司、動態網站、面包屑導航

廣告

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