WNetAddConnection 創(chuàng)建同一個(gè)網(wǎng)絡(luò)資源的永久性連接
創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于成都網(wǎng)站設(shè)計(jì)、網(wǎng)站制作、商河網(wǎng)絡(luò)推廣、重慶小程序開發(fā)公司、商河網(wǎng)絡(luò)營(yíng)銷、商河企業(yè)策劃、商河品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等，從售前售中售后，我們都將竭誠(chéng)為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供商河建站搭建服務(wù)，24小時(shí)服務(wù)熱線：18982081108，官方網(wǎng)址：www.cdcxhl.com
WNetAddConnection2 創(chuàng)建同一個(gè)網(wǎng)絡(luò)資源的連接
WNetAddConnection3 創(chuàng)建同一個(gè)網(wǎng)絡(luò)資源的連接
WNetCancelConnection 結(jié)束一個(gè)網(wǎng)絡(luò)連接
WNetCancelConnection2 結(jié)束一個(gè)網(wǎng)絡(luò)連接
WNetCloseEnum 結(jié)束一次枚舉操作
WNetConnectionDialog 啟動(dòng)一個(gè)標(biāo)準(zhǔn)對(duì)話框，以便建立同網(wǎng)絡(luò)資源的連接
WNetDisconnectDialog 啟動(dòng)一個(gè)標(biāo)準(zhǔn)對(duì)話框，以便斷開同網(wǎng)絡(luò)資源的連接
WNetEnumResource 枚舉網(wǎng)絡(luò)資源
WNetGetConnection 獲取本地或已連接的一個(gè)資源的網(wǎng)絡(luò)名稱
WNetGetLastError 獲取網(wǎng)絡(luò)錯(cuò)誤的擴(kuò)展錯(cuò)誤信息
WNetGetUniversalName 獲取網(wǎng)絡(luò)中一個(gè)文件的遠(yuǎn)程名稱以及/或者UNC（統(tǒng)一命名規(guī)范）名稱
WNetGetUser 獲取一個(gè)網(wǎng)絡(luò)資源用以連接的名字
WNetOpenEnum 啟動(dòng)對(duì)網(wǎng)絡(luò)資源進(jìn)行枚舉的過程
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
說(shuō)明
創(chuàng)建同一個(gè)網(wǎng)絡(luò)資源的永久性連接
返回值
Long，零表示成功。會(huì)設(shè)置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯(cuò)誤信息
參數(shù)表
參數(shù) 類型及說(shuō)明
lpszNetPath String，要連接的網(wǎng)絡(luò)名
lpszPassword String，可選的一個(gè)密碼。如為vbNullString，表示采用當(dāng)前用戶的默認(rèn)密碼。如為一個(gè)空字串，則不用任何密碼
lpszLocalName String，資源的本地名稱。（例如，F(xiàn): 和 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
說(shuō)明
創(chuàng)建同一個(gè)網(wǎng)絡(luò)資源的連接
返回值
Long，零表示成功。會(huì)設(shè)置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯(cuò)誤信息
參數(shù)表
參數(shù) 類型及說(shuō)明
lpNetResource NETRESOURCE，在這個(gè)結(jié)構(gòu)中設(shè)置了下述字段，對(duì)要連接的網(wǎng)絡(luò)資源進(jìn)行了定義：dwType， lpLocalName （可為 vbNullString）， lpRemoteName， lpProvider （設(shè)為 vbNullString 表示用默認(rèn)提供者）。該結(jié)構(gòu)的其他所有變量都會(huì)被忽略
lpPassword String，可選的一個(gè)密碼。如為vbNullString，表示采用當(dāng)前用戶的默認(rèn)密碼。如為一個(gè)空字串，則不用任何密碼
lpUserName String，用于連接的用戶名。如為vbNullString，表示使用當(dāng)前用戶
dwFlags Long，設(shè)為零；或指定常數(shù)CONNECT_UPDATE_PROFILE，表示創(chuàng)建永久性連接
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)
說(shuō)明
創(chuàng)建同一個(gè)網(wǎng)絡(luò)資源的連接。這個(gè)函數(shù)與WNetAddConnection2類似，只是它允許我們?yōu)檫@個(gè)函數(shù)顯示的對(duì)話框指定一個(gè)物主窗口
返回值
Long，
參數(shù)表
參數(shù) 類型及說(shuō)明
hwnd Long，指定一個(gè)窗口句柄，用作本函數(shù)創(chuàng)建的對(duì)話框的父窗口
lpNetResource NETRESOURCE，在這個(gè)結(jié)構(gòu)中設(shè)置了下述字段，對(duì)要連接的網(wǎng)絡(luò)資源進(jìn)行了定義：dwType， lpLocalName （可為 vbNullString）， lpRemoteName， lpProvider （設(shè)為 vbNullString 表示用默認(rèn)提供者）。該結(jié)構(gòu)的其他所有變量都會(huì)被忽略
lpPassword String，可選的一個(gè)密碼。如為vbNullString，表示采用當(dāng)前用戶的默認(rèn)密碼。如為一個(gè)空字串，則不用任何密碼
lpUserName String，用于連接的用戶名。如為vbNullString，表示使用當(dāng)前用戶
dwFlags Long，設(shè)為零；或指定常數(shù)CONNECT_UPDATE_PROFILE，表示創(chuàng)建永久性連接
4.WNetCancelConnection
VB聲明
Declare Function WNetCancelConnection Lib "mpr.dll" Alias "WNetCancelConnectionA" (ByVal lpszName As String, ByVal bForce As Long) As Long
說(shuō)明
結(jié)束一個(gè)網(wǎng)絡(luò)連接
返回值
Long，零表示成功。會(huì)設(shè)置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯(cuò)誤信息
參數(shù)表
參數(shù) 類型及說(shuō)明
lpszName String，已連接資源的遠(yuǎn)程名稱或本地名稱
bForce Long，如為TRUE，表示斷開連接（即使連接的資源上正有打開的文件或作業(yè)）
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
說(shuō)明
結(jié)束一個(gè)網(wǎng)絡(luò)連接
返回值
Long，零表示成功。會(huì)設(shè)置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯(cuò)誤信息
參數(shù)表
參數(shù) 類型及說(shuō)明
lpszName String，已連接資源的遠(yuǎn)程名稱或本地名稱
dwFlags Long，設(shè)為零或CONNECT_UPDATE_PROFILE。如為零，而且建立的是永久性連接，則在windows下次重新啟動(dòng)時(shí)仍會(huì)重新連接
fForce Long，如為TRUE，表示強(qiáng)制斷開連接（即使連接的資源上正有打開的文件或作業(yè)）
6.WNetCloseEnum
VB聲明
Declare Function WNetCloseEnum Lib "mpr.dll" Alias "WNetCloseEnum" (ByVal hEnum As Long) As Long
說(shuō)明
結(jié)束一次枚舉操作
返回值
Long，零表示成功。會(huì)設(shè)置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯(cuò)誤信息
參數(shù)表
參數(shù) 類型及說(shuō)明
hEnum Long，由 WNetOpenEnum函數(shù)返回的一個(gè)枚舉句柄
7.WNetConnectionDialog
VB聲明
Declare Function WNetConnectionDialog Lib "mpr.dll" Alias "WNetConnectionDialog" (ByVal hwnd As Long, ByVal dwType As Long) As Long
說(shuō)明
啟動(dòng)一個(gè)標(biāo)準(zhǔn)對(duì)話框，以便建立同網(wǎng)絡(luò)資源的連接
返回值
Long，零表示成功。如用戶取消了操作，則返回-1。會(huì)設(shè)置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯(cuò)誤信息
參數(shù)表
參數(shù) 類型及說(shuō)明
hwnd Long，指定要成為對(duì)話框父窗口的一個(gè)窗口的句柄
dwType Long，設(shè)成RESOURCETYPE_DISK，瀏覽磁盤資源
8.WNetDisconnectDialog
VB聲明
Declare Function WNetDisconnectDialog Lib "mpr.dll" Alias "WNetDisconnectDialog" (ByVal hwnd As Long, ByVal dwType As Long) As Long
說(shuō)明
啟動(dòng)一個(gè)標(biāo)準(zhǔn)對(duì)話框，以便斷開同網(wǎng)絡(luò)資源的連接
返回值
Long，零表示成功。如用戶取消了操作，則返回-1。會(huì)設(shè)置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯(cuò)誤信息
參數(shù)表
參數(shù) 類型及說(shuō)明
hwnd Long，指定要成為對(duì)話框父窗口的一個(gè)窗口的句柄
dwType Long，設(shè)成RESOURCETYPE_DISK 或 RESOURCETYPE_PRINT，決定要斷開的是磁盤還是打印機(jī)資源
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
說(shuō)明
枚舉網(wǎng)絡(luò)資源
返回值
Long，零表示成功。ERROR_NO_MORE_ITEMS表示不剩下可以枚舉的條目。ERROR_MORE_DATA表示條目不能裝入lpBuffer。會(huì)設(shè)置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯(cuò)誤信息
參數(shù)表
參數(shù) 類型及說(shuō)明
hEnum Long，從WNetOpenEnum函數(shù)返回的一個(gè)句柄
lpcCount Long，最初設(shè)為要枚舉的最大資源數(shù)量；或設(shè)為-1，表示枚舉盡可能多的資源。一旦返回，就會(huì)設(shè)為實(shí)際枚舉的資源數(shù)量
lpBuffer Any，通常是一個(gè)字節(jié)緩沖區(qū)的首字節(jié)。該緩沖區(qū)裝載了枚舉信息（可按引用聲明為Byte）
lpBufferSize Long，以字節(jié)為單位指定lpBuffer數(shù)組的長(zhǎng)度。如緩沖區(qū)不夠大，則設(shè)為需要的緩沖區(qū)長(zhǎng)度
注解
枚舉網(wǎng)絡(luò)條目時(shí)，最好用vb一次枚舉一個(gè)資源。盡量不要使用這個(gè)函數(shù)同時(shí)枚舉許多網(wǎng)絡(luò)資源的功能
10.WNetGetConnection
VB聲明
Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long
說(shuō)明
獲取本地或已連接的一個(gè)資源的網(wǎng)絡(luò)名稱
返回值
Long，零表示成功。會(huì)設(shè)置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯(cuò)誤信息
參數(shù)表
參數(shù) 類型及說(shuō)明
lpszLocalName String，本地設(shè)備的名字
lpszRemoteName String，指定一個(gè)字串緩沖區(qū)，用于裝載設(shè)備的資源名稱
cbRemoteName Long，lpszRemoteName緩沖區(qū)的字符數(shù)量。如緩沖區(qū)不夠大，則設(shè)為需要的緩沖區(qū)長(zhǎng)度
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
說(shuō)明
獲取網(wǎng)絡(luò)錯(cuò)誤的擴(kuò)展錯(cuò)誤信息
返回值
Long，零表示成功。ERROR_INVALID_ADDRESS表示緩沖區(qū)無(wú)效
參數(shù)表
參數(shù) 類型及說(shuō)明
lpError Long，指定一個(gè)變量，用于裝載網(wǎng)絡(luò)錯(cuò)誤代碼。具體的代碼由網(wǎng)絡(luò)供應(yīng)商決定
lpErrorBuf String，指定一個(gè)字串緩沖區(qū)，用于裝載網(wǎng)絡(luò)錯(cuò)誤的說(shuō)明
nErrorBufSize Long，lpErrorBuf緩沖區(qū)包含的字符數(shù)量
lpNameBuf String，用于裝載網(wǎng)絡(luò)供應(yīng)商名字的字串緩沖區(qū)
nNameBufSize Long，lpNameBuf緩沖區(qū)的字符數(shù)量
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
說(shuō)明
獲取網(wǎng)絡(luò)中一個(gè)文件的遠(yuǎn)程名稱以及/或者UNC（統(tǒng)一命名規(guī)范）名稱。例如，假設(shè)一個(gè)已連接的遠(yuǎn)程驅(qū)動(dòng)器是\\othersystem\CDrive，它對(duì)應(yīng)的本地驅(qū)動(dòng)器是F:，而且在它的子目錄temp中包含了文件xyz.doc。那么運(yùn)算結(jié)果如下：LocalPath xyz.doc 或 f:\temp\xyz.doc（或者文件的任何相對(duì)路徑名）
UNC 名稱： \\othersystem\CDrive\temp\xyz.doc
連接名稱： \\othersystem\CDrive
剩余名稱： \temp\xyz.doc
它們分別對(duì)應(yīng)于由這個(gè)函數(shù)裝載的REMOTE_NAME_INFO結(jié)構(gòu)的字段，對(duì)該結(jié)構(gòu)的定義如下：
Type REMOTE_NAME_INFO
pUniversalName As Long
pConnectionName As Long
pRemainingPath As Long
End Type
返回值
Long，零表示成功。會(huì)設(shè)置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯(cuò)誤信息
參數(shù)表
參數(shù) 類型及說(shuō)明
lpLocalPath String，磁盤文件的名字
dwInfoLevel Long，下述常數(shù)之一：
UNIVERSAL_NAME_INFO_LEVEL 只設(shè)置pUniversalName字段
REMOTE_NAME_INFO_LEVEL 設(shè)置REMOTE_NAME_INFO結(jié)構(gòu)中的所有三個(gè)字段
lpBuffer Any，指定用于裝載UNC信息的一個(gè)緩沖區(qū)。緩沖區(qū)起點(diǎn)與一個(gè)REMOTE_NAME_INFO結(jié)構(gòu)對(duì)應(yīng)
lpBufferSize Long，以字節(jié)為單位指定lpBuffer緩沖區(qū)的長(zhǎng)度。如緩沖區(qū)不夠大，則設(shè)為需要的緩沖區(qū)長(zhǎng)度
13.WNetGetUser
VB聲明
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
說(shuō)明
獲取一個(gè)網(wǎng)絡(luò)資源用以連接的名字
返回值
Long，零表示成功。會(huì)設(shè)置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯(cuò)誤信息
參數(shù)表
參數(shù) 類型及說(shuō)明
lpName String，指定已連接資源的遠(yuǎn)程名稱或本地名稱。用vbNullString獲取當(dāng)前用戶的名字
lpUserName String，用于裝載用戶名的一個(gè)字串緩沖區(qū)
lpnLength Long，lpUserName緩沖區(qū)的長(zhǎng)度。如緩沖區(qū)不夠大，則自動(dòng)設(shè)為需要的緩沖區(qū)長(zhǎng)度
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
說(shuō)明
啟動(dòng)對(duì)網(wǎng)絡(luò)資源進(jìn)行枚舉的過程。這個(gè)函數(shù)會(huì)返回由WNetEnumResource函數(shù)用于枚舉資源所用的一個(gè)句柄
返回值
Long，零表示成功。會(huì)設(shè)置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯(cuò)誤信息
參數(shù)表
參數(shù) 類型及說(shuō)明
dwScope Long，指定要枚舉的資源范圍?？稍O(shè)為下述常數(shù)之一：
RESOURCE_CONNECTED 枚舉已連接的資源（忽略dwUsage）
RESOURCE_GLOBALNET 枚舉所有資源
RESOURCE_REMEMBERED 只枚舉永久性連接
dwType Long，下述常數(shù)之一
RESOURCE_ANY 枚舉所有類型的網(wǎng)絡(luò)資源
RESOURCE_DISK 枚舉磁盤資源
RESOURCE_PRINT 枚舉打印資源
dwUsage Long，可設(shè)為零，表示枚舉所有資源；或設(shè)為下述常數(shù)的一個(gè)或兩個(gè)：
RESOURCEUSAGE_CONNECTABLE 只枚舉那些能夠連接的資源
RESOURCEUSAGE_CONTAINER 只枚舉包含了其他資源的資源
lpNetResource NETRESOURCE，這個(gè)結(jié)構(gòu)指定了一個(gè)容器資源。該函數(shù)會(huì)枚舉包含于這里指定的某個(gè)指定資源內(nèi)的資源。如設(shè)為NULL（把聲明變成ByVal As Long），那么函數(shù)會(huì)枚舉頂級(jí)網(wǎng)絡(luò)資源。倘若在dwScope參數(shù)里沒有指定RESOURCE_GLOBALNET，那么必須為NULL
lphEnum Long，指定一個(gè)變量，用于裝載一個(gè)枚舉句柄。該句柄由WNetEnumResource函數(shù)使用。必須用WNetCloseEnum函數(shù)將其清除
我覺得應(yīng)該有兩種解決方法
1：把patran的安裝路徑添加到系統(tǒng)環(huán)境變量的path屬性下；
2：在你的批處理里面改為如下格式，patran完整路徑（如c:\MSC.software\········patran.exe)+ "-sfp patran.ses"，也就是下面這種情況試下“c:\MSC.software\········patran.exe -sfp patran.ses -b -ans yes”
可以調(diào)用CMD
方法一：
Shell("cmd.exe?/c?call?c:\新建文本文檔.txt",?AppWinStyle.NormalFocus)
缺點(diǎn)：不但會(huì)打開文本文件，同時(shí)還會(huì)顯示一個(gè)cmd窗體。
方法二：
需要新建一個(gè)bat文件到資源里，輸入start C:\新建文本文檔.txt
代碼
shell?"bat文件的路徑.bat"
這樣就好了，兩種方法各有好壞。一個(gè)會(huì)顯示cmd窗體，一個(gè)需要bat文件。
在 Form_Load 寫入
Dim cmd As String = Command()
cmd 就是傳入的參數(shù)了。
就看你怎么利用了。
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
重慶分公司
重慶分公司
