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

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

10年積累的成都做網(wǎng)站、成都網(wǎng)站制作經(jīng)驗(yàn)，可以快速應(yīng)對(duì)客戶對(duì)網(wǎng)站的新想法和需求。提供各種問題對(duì)應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你，你也不認(rèn)識(shí)我。但先網(wǎng)站設(shè)計(jì)后付款的網(wǎng)站建設(shè)流程，更有晉寧免費(fèi)網(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ū)動(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與VB.net各自的優(yōu)勢(shì)與區(qū)別是什么？

vb.net是vb的升級(jí)。

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

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

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

VB術(shù)語簡介

說明下面的代碼舉例說明了用 Drive 對(duì)象來訪問驅(qū)動(dòng)器屬性：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)能不能修改計(jì)算機(jī)中指定驅(qū)動(dòng)器的盤符？ 我想在U盤插入時(shí)通過序列號(hào)識(shí)別指定設(shè)備并

Sub RenameVolume()

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

'達(dá)到替換邏輯盤符的目的

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

'獲取臨時(shí)文件路徑

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

'打開錯(cuò)誤處理

On Error Resume Next

'刪除原有日志文件

Kill ScriptLog

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

On Error GoTo 0

'執(zhí)行腳本

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

Shell ShellTxt

'打開錯(cuò)誤處理

On Error Resume Next

Do

Err.Number = 0

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

Open ScriptLog For Input Lock Read Write As #1

DoEvents

Loop Until Err.Number = 0

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

On Error GoTo 0

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

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

Close #1

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

LogTxt = StrConv(LogTxt, vbUnicode)

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

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

MsgBox "盤符替換成功！"

Else

MsgBox "盤符替換失敗！"

End If

'刪除臨時(shí)文件

Kill ScriptFile

Kill ScriptLog

End Sub

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

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

如果你沒有安裝盤的話建議它跳出提示框的時(shí)候你點(diǎn)擊【瀏覽】

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

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