VB高手進,用VB實現bat文件的net use那樣的功能

WNetAddConnection 創建同一個網絡資源的永久性連接

創新互聯專注為客戶提供全方位的互聯網綜合服務，包含不限于成都網站設計、網站制作、商河網絡推廣、重慶小程序開發公司、商河網絡營銷、商河企業策劃、商河品牌公關、搜索引擎seo、人物專訪、企業宣傳片、企業代運營等，從售前售中售后，我們都將竭誠為您服務，您的肯定，是我們最大的嘉獎；創新互聯為所有大學生創業者提供商河建站搭建服務，24小時服務熱線：18982081108，官方網址：vcdvsql.cn

WNetAddConnection2 創建同一個網絡資源的連接

WNetAddConnection3 創建同一個網絡資源的連接

WNetCancelConnection 結束一個網絡連接

WNetCancelConnection2 結束一個網絡連接

WNetCloseEnum 結束一次枚舉操作

WNetConnectionDialog 啟動一個標準對話框，以便建立同網絡資源的連接

WNetDisconnectDialog 啟動一個標準對話框，以便斷開同網絡資源的連接

WNetEnumResource 枚舉網絡資源

WNetGetConnection 獲取本地或已連接的一個資源的網絡名稱

WNetGetLastError 獲取網絡錯誤的擴展錯誤信息

WNetGetUniversalName 獲取網絡中一個文件的遠程名稱以及/或者UNC（統一命名規范）名稱

WNetGetUser 獲取一個網絡資源用以連接的名字

WNetOpenEnum 啟動對網絡資源進行枚舉的過程

1.WNetAddConnection

VB聲明

Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long

說明

創建同一個網絡資源的永久性連接

返回值

Long，零表示成功。會設置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯誤信息

參數表

參數 類型及說明

lpszNetPath String，要連接的網絡名

lpszPassword String，可選的一個密碼。如為vbNullString，表示采用當前用戶的默認密碼。如為一個空字串，則不用任何密碼

lpszLocalName String，資源的本地名稱。（例如，F: 和 LPT1:）

2.WNetAddConnection2

VB聲明

Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long

說明

創建同一個網絡資源的連接

返回值

Long，零表示成功。會設置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯誤信息

參數表

參數 類型及說明

lpNetResource NETRESOURCE，在這個結構中設置了下述字段，對要連接的網絡資源進行了定義：dwType， lpLocalName （可為 vbNullString）， lpRemoteName， lpProvider （設為 vbNullString 表示用默認提供者）。該結構的其他所有變量都會被忽略

lpPassword String，可選的一個密碼。如為vbNullString，表示采用當前用戶的默認密碼。如為一個空字串，則不用任何密碼

lpUserName String，用于連接的用戶名。如為vbNullString，表示使用當前用戶

dwFlags Long，設為零；或指定常數CONNECT_UPDATE_PROFILE，表示創建永久性連接

3.WNetAddConnection3

VB聲明

Declare Function WNetAddConnection3 Lib "mpr.dll" Alias "WNetAddConnection3A" (ByVal hwnd As Long, lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long)

說明

創建同一個網絡資源的連接。這個函數與WNetAddConnection2類似，只是它允許我們為這個函數顯示的對話框指定一個物主窗口

返回值

Long，

參數表

參數 類型及說明

hwnd Long，指定一個窗口句柄，用作本函數創建的對話框的父窗口

lpNetResource NETRESOURCE，在這個結構中設置了下述字段，對要連接的網絡資源進行了定義：dwType， lpLocalName （可為 vbNullString）， lpRemoteName， lpProvider （設為 vbNullString 表示用默認提供者）。該結構的其他所有變量都會被忽略

lpPassword String，可選的一個密碼。如為vbNullString，表示采用當前用戶的默認密碼。如為一個空字串，則不用任何密碼

lpUserName String，用于連接的用戶名。如為vbNullString，表示使用當前用戶

dwFlags Long，設為零；或指定常數CONNECT_UPDATE_PROFILE，表示創建永久性連接

4.WNetCancelConnection

VB聲明

Declare Function WNetCancelConnection Lib "mpr.dll" Alias "WNetCancelConnectionA" (ByVal lpszName As String, ByVal bForce As Long) As Long

說明

結束一個網絡連接

返回值

Long，零表示成功。會設置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯誤信息

參數表

參數 類型及說明

lpszName String，已連接資源的遠程名稱或本地名稱

bForce Long，如為TRUE，表示斷開連接（即使連接的資源上正有打開的文件或作業）

5.WNetCancelConnection2

VB聲明

Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias "WNetCancelConnection2A" (ByVal lpName As String, ByVal dwFlags As Long, ByVal fForce As Long) As Long

說明

結束一個網絡連接

返回值

Long，零表示成功。會設置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯誤信息

參數表

參數 類型及說明

lpszName String，已連接資源的遠程名稱或本地名稱

dwFlags Long，設為零或CONNECT_UPDATE_PROFILE。如為零，而且建立的是永久性連接，則在windows下次重新啟動時仍會重新連接

fForce Long，如為TRUE，表示強制斷開連接（即使連接的資源上正有打開的文件或作業）

6.WNetCloseEnum

VB聲明

Declare Function WNetCloseEnum Lib "mpr.dll" Alias "WNetCloseEnum" (ByVal hEnum As Long) As Long

說明

結束一次枚舉操作

返回值

Long，零表示成功。會設置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯誤信息

參數表

參數 類型及說明

hEnum Long，由 WNetOpenEnum函數返回的一個枚舉句柄

7.WNetConnectionDialog

VB聲明

Declare Function WNetConnectionDialog Lib "mpr.dll" Alias "WNetConnectionDialog" (ByVal hwnd As Long, ByVal dwType As Long) As Long

說明

啟動一個標準對話框，以便建立同網絡資源的連接

返回值

Long，零表示成功。如用戶取消了操作，則返回-1。會設置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯誤信息

參數表

參數 類型及說明

hwnd Long，指定要成為對話框父窗口的一個窗口的句柄

dwType Long，設成RESOURCETYPE_DISK，瀏覽磁盤資源

8.WNetDisconnectDialog

VB聲明

Declare Function WNetDisconnectDialog Lib "mpr.dll" Alias "WNetDisconnectDialog" (ByVal hwnd As Long, ByVal dwType As Long) As Long

說明

啟動一個標準對話框，以便斷開同網絡資源的連接

返回值

Long，零表示成功。如用戶取消了操作，則返回-1。會設置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯誤信息

參數表

參數 類型及說明

hwnd Long，指定要成為對話框父窗口的一個窗口的句柄

dwType Long，設成RESOURCETYPE_DISK 或 RESOURCETYPE_PRINT，決定要斷開的是磁盤還是打印機資源

9.WNetEnumResource

VB聲明

Declare Function WNetEnumResource Lib "mpr.dll" Alias "WNetEnumResourceA" (ByVal hEnum As Long, lpcCount As Long, lpBuffer As Any, lpBufferSize As Long) As Long

說明

枚舉網絡資源

返回值

Long，零表示成功。ERROR_NO_MORE_ITEMS表示不剩下可以枚舉的條目。ERROR_MORE_DATA表示條目不能裝入lpBuffer。會設置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯誤信息

參數表

參數 類型及說明

hEnum Long，從WNetOpenEnum函數返回的一個句柄

lpcCount Long，最初設為要枚舉的最大資源數量；或設為-1，表示枚舉盡可能多的資源。一旦返回，就會設為實際枚舉的資源數量

lpBuffer Any，通常是一個字節緩沖區的首字節。該緩沖區裝載了枚舉信息（可按引用聲明為Byte）

lpBufferSize Long，以字節為單位指定lpBuffer數組的長度。如緩沖區不夠大，則設為需要的緩沖區長度

注解

枚舉網絡條目時，最好用vb一次枚舉一個資源。盡量不要使用這個函數同時枚舉許多網絡資源的功能

10.WNetGetConnection

VB聲明

Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long

說明

獲取本地或已連接的一個資源的網絡名稱

返回值

Long，零表示成功。會設置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯誤信息

參數表

參數 類型及說明

lpszLocalName String，本地設備的名字

lpszRemoteName String，指定一個字串緩沖區，用于裝載設備的資源名稱

cbRemoteName Long，lpszRemoteName緩沖區的字符數量。如緩沖區不夠大，則設為需要的緩沖區長度

11.WNetGetLastError

VB聲明

Declare Function WNetGetLastError Lib "mpr.dll" Alias "WNetGetLastErrorA" (lpError As Long, ByVal lpErrorBuf As String, ByVal nErrorBufSize As Long, ByVal lpNameBuf As String, ByVal nNameBufSize As Long) As Long

說明

獲取網絡錯誤的擴展錯誤信息

返回值

Long，零表示成功。ERROR_INVALID_ADDRESS表示緩沖區無效

參數表

參數 類型及說明

lpError Long，指定一個變量，用于裝載網絡錯誤代碼。具體的代碼由網絡供應商決定

lpErrorBuf String，指定一個字串緩沖區，用于裝載網絡錯誤的說明

nErrorBufSize Long，lpErrorBuf緩沖區包含的字符數量

lpNameBuf String，用于裝載網絡供應商名字的字串緩沖區

nNameBufSize Long，lpNameBuf緩沖區的字符數量

12.WNetGetUniversalName

VB聲明

Declare Function WNetGetUniversalName Lib "mpr" Alias "WNetGetUniversalNameA" (ByVal lpLocalPath As String, ByVal dwInfoLevel As Long, lpBuffer As Any, lpBufferSize As Long) As Long

說明

獲取網絡中一個文件的遠程名稱以及/或者UNC（統一命名規范）名稱。例如，假設一個已連接的遠程驅動器是\\othersystem\CDrive，它對應的本地驅動器是F:，而且在它的子目錄temp中包含了文件xyz.doc。那么運算結果如下：LocalPath xyz.doc 或 f:\temp\xyz.doc（或者文件的任何相對路徑名）

UNC 名稱： \\othersystem\CDrive\temp\xyz.doc

連接名稱： \\othersystem\CDrive

剩余名稱： \temp\xyz.doc

它們分別對應于由這個函數裝載的REMOTE_NAME_INFO結構的字段，對該結構的定義如下：

Type REMOTE_NAME_INFO

pUniversalName As Long

pConnectionName As Long

pRemainingPath As Long

End Type

返回值

Long，零表示成功。會設置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯誤信息

參數表

參數 類型及說明

lpLocalPath String，磁盤文件的名字

dwInfoLevel Long，下述常數之一：

UNIVERSAL_NAME_INFO_LEVEL 只設置pUniversalName字段

REMOTE_NAME_INFO_LEVEL 設置REMOTE_NAME_INFO結構中的所有三個字段

lpBuffer Any，指定用于裝載UNC信息的一個緩沖區。緩沖區起點與一個REMOTE_NAME_INFO結構對應

lpBufferSize Long，以字節為單位指定lpBuffer緩沖區的長度。如緩沖區不夠大，則設為需要的緩沖區長度

13.WNetGetUser

VB聲明

Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long

說明

獲取一個網絡資源用以連接的名字

返回值

Long，零表示成功。會設置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯誤信息

參數表

參數 類型及說明

lpName String，指定已連接資源的遠程名稱或本地名稱。用vbNullString獲取當前用戶的名字

lpUserName String，用于裝載用戶名的一個字串緩沖區

lpnLength Long，lpUserName緩沖區的長度。如緩沖區不夠大，則自動設為需要的緩沖區長度

14.WNetOpenEnum

VB聲明

Declare Function WNetOpenEnum Lib "mpr.dll" Alias "WNetOpenEnumA" (ByVal dwScope As Long, ByVal dwType As Long, ByVal dwUsage As Long, lpNetResource As NETRESOURCE, lphEnum As Long) As Long

說明

啟動對網絡資源進行枚舉的過程。這個函數會返回由WNetEnumResource函數用于枚舉資源所用的一個句柄

返回值

Long，零表示成功。會設置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯誤信息

參數表

參數 類型及說明

dwScope Long，指定要枚舉的資源范圍。可設為下述常數之一：

RESOURCE_CONNECTED 枚舉已連接的資源（忽略dwUsage）

RESOURCE_GLOBALNET 枚舉所有資源

RESOURCE_REMEMBERED 只枚舉永久性連接

dwType Long，下述常數之一

RESOURCE_ANY 枚舉所有類型的網絡資源

RESOURCE_DISK 枚舉磁盤資源

RESOURCE_PRINT 枚舉打印資源

dwUsage Long，可設為零，表示枚舉所有資源；或設為下述常數的一個或兩個：

RESOURCEUSAGE_CONNECTABLE 只枚舉那些能夠連接的資源

RESOURCEUSAGE_CONTAINER 只枚舉包含了其他資源的資源

lpNetResource NETRESOURCE，這個結構指定了一個容器資源。該函數會枚舉包含于這里指定的某個指定資源內的資源。如設為NULL（把聲明變成ByVal As Long），那么函數會枚舉頂級網絡資源。倘若在dwScope參數里沒有指定RESOURCE_GLOBALNET，那么必須為NULL

lphEnum Long，指定一個變量，用于裝載一個枚舉句柄。該句柄由WNetEnumResource函數使用。必須用WNetCloseEnum函數將其清除

VB.net中用shell運行bat失敗 請教

我覺得應該有兩種解決方法

1：把patran的安裝路徑添加到系統環境變量的path屬性下；

2：在你的批處理里面改為如下格式，patran完整路徑（如c:\MSC.software\········patran.exe)+ "-sfp patran.ses"，也就是下面這種情況試下“c:\MSC.software\········patran.exe -sfp patran.ses -b -ans yes”

如何用vb.net 打開一個既存的txt文檔。

可以調用CMD

方法一：

Shell("cmd.exe?/c?call?c:\新建文本文檔.txt",?AppWinStyle.NormalFocus)

缺點：不但會打開文本文件，同時還會顯示一個cmd窗體。

方法二：

需要新建一個bat文件到資源里，輸入start C:\新建文本文檔.txt

代碼

shell?"bat文件的路徑.bat"

這樣就好了，兩種方法各有好壞。一個會顯示cmd窗體，一個需要bat文件。

vb.net程序里，取到bat文件的參數。

在 Form_Load 寫入

Dim cmd As String = Command()

cmd 就是傳入的參數了。

就看你怎么利用了。

vb.net創建bat文件

Imports?System.IO

Imports?System.Diagnostics

Imports?System.Windows.Forms

Class?Form1

Inherits?Form

Private?filename?As?String?=?"abc.bat"

Private?bat?As?String?=?"@echo?off"??vbCr??vbLf??"dir"??vbCr??vbLf??"pause"??vbCr??vbLf??"exit"??vbCr??vbLf

Private?Sub?New()

Dim?btn?As?New?Button()

btn.Parent?=?Me

btn.Text?=?"Run?bat"

AddHandler?btn.Click,?Sub()?Process.Start(filename)

End?Sub

Protected?Overrides?Sub?OnLoad(e?As?EventArgs)

File.WriteAllText(filename,?bat)

MyBase.OnLoad(e)

End?Sub

Protected?Overrides?Sub?OnClosed(e?As?EventArgs)

File.Delete(filename)

MyBase.OnClosed(e)

End?Sub

STAThread?_

Public?Shared?Sub?Main()

Application.Run(New?Form1())

End?Sub

End?Class

本文題目：vb.net創建bat VB創建數據庫
鏈接地址：http://vcdvsql.cn/article20/hepijo.html

成都網站建設公司_創新互聯，為您提供建站公司、微信小程序、網站內鏈、用戶體驗、商城網站、移動網站建設

廣告

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