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

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

10年積累的成都做網(wǎng)站、成都網(wǎng)站制作經(jīng)驗，可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認識你，你也不認識我。但先網(wǎng)站設(shè)計后付款的網(wǎng)站建設(shè)流程，更有晉寧免費網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

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ū)動器

NetR.lpLocalName?=?localDrive

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

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ù)實際用戶名

’如果將“Z:”設(shè)置為空就不會網(wǎng)絡(luò)盤映射但是已經(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與VB.net各自的優(yōu)勢與區(qū)別是什么？

vb.net是vb的升級。

vb.net基于.net框架，是vb發(fā)展的必然趨勢。

vb功能非常強大，但是也存在眾多的缺點，所以微軟才會開發(fā)vb.net。

隨著時間的發(fā)展，vb.net完全取代vb是必然的

VB術(shù)語簡介

說明下面的代碼舉例說明了用 Drive 對象來訪問驅(qū)動器屬性：Sub ShowFreeSpace(drvPath) Dim fs, d, s Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(fs.GetDriveName(drvPath)) s = "Drive " UCase(drvPath) " - " s = s d.VolumeName vbCrLf s = s "Free Space: " FormatNumber(d.FreeSpace/1024, 0) s = s " Kbytes" MsgBox sEnd Sub.

vb(vb.net)能不能修改計算機中指定驅(qū)動器的盤符？ 我想在U盤插入時通過序列號識別指定設(shè)備并

Sub RenameVolume()

'利用Shell函數(shù)在命令提示符下執(zhí)行Diskpart命令的腳本，并存入日志文件

'達到替換邏輯盤符的目的

'在WindowsXp系統(tǒng)下測試成功

'獲取臨時文件路徑

Temp = Environ("TEMP") "\"

'獲取命令提示符路徑

Cmd = Environ("ComSpec")

'設(shè)置腳本文件和日志文件路徑

ScriptFile = Temp "DiskpartScript.txt"

ScriptLog = Temp "DiskpartScript.log"

'回車符和換行符

vbLfCr = vbLf vbCr

'腳本文件內(nèi)容

'選擇卷e

'移除盤符e

'分配盤符m

'退出Diskpart

ScriptTxt = "select volume e" vbLf vbCr _

"Remove letter = e" vbLf vbCr _

"assign letter = m" vbLf vbCr _

"exit" vbLf vbCr

'打開腳本文件并讀取內(nèi)容

Open ScriptFile For Output As #1

Print #1, ScriptTxt

Close #1

'打開錯誤處理

On Error Resume Next

'刪除原有日志文件

Kill ScriptLog

'關(guān)閉錯誤處理

On Error GoTo 0

'執(zhí)行腳本

ShellTxt = Cmd " /c ""diskpart.exe /S " ScriptFile " " ScriptLog """"

Shell ShellTxt

'打開錯誤處理

On Error Resume Next

Do

Err.Number = 0

'打開日志文件并讀取內(nèi)容，因日志文件存取速度慢，必須以鎖定方式打開，否則會出錯

Open ScriptLog For Input Lock Read Write As #1

DoEvents

Loop Until Err.Number = 0

'關(guān)閉錯誤處理

On Error GoTo 0

'日志文件中含有中文字符，必須以InputB函數(shù)以字節(jié)方式讀取，否則長度會超出

LogTxt = InputB(LOF(1), #1)

Close #1

'轉(zhuǎn)換以字節(jié)方式讀取的日志文件內(nèi)容

LogTxt = StrConv(LogTxt, vbUnicode)

'如果日志中出現(xiàn)兩次成功，則認為執(zhí)行成功，否則認為失敗

If Len(LogTxt) - Len(Replace(LogTxt, "成功", "", 1)) = 4 Then

MsgBox "盤符替換成功！"

Else

MsgBox "盤符替換失??！"

End If

'刪除臨時文件

Kill ScriptFile

Kill ScriptLog

End Sub

為什么我在安裝VB.NET的時候提示W(wǎng)indows XP SP 2CD光盤插入驅(qū)動器

IIS需要一個XP系統(tǒng)自帶的文件才能安裝，不記得叫什么名字了

如果你沒有安裝盤的話建議它跳出提示框的時候你點擊【瀏覽】

看到那個文件的名字以后去網(wǎng)上搜一下，可能需要的還不止一個文件，你慢慢找吧

另外Vista系統(tǒng)沒用過，你可以隨便找個系統(tǒng)盤試一下，跟盜版正版沒關(guān)系，都可以裝

新聞標(biāo)題：vb.net驅(qū)動器 VBNET有什么用
網(wǎng)頁路徑：http://m.rwnh.cn/article48/doopshp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供企業(yè)建站、建站公司、網(wǎng)站維護、品牌網(wǎng)站設(shè)計、網(wǎng)站建設(shè)、動態(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)