① 如何能夠在無線斷網後自動連接有線寬頻
你可以用VB寫個小軟體自己用 但有一點 你同時接有線和無線系統會默認用有線 可能你直接上不了網 即使成功了 你聯網軟體也會斷線的 因為你從無線換到有線並重新撥號 那你的IP地址變了 這是不可能無縫連接的
② VB高手進,用VB實現bat文件的net use那樣的功能
WNetAddConnection 創建同一個網路資源的永久性連接
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 檢測網路是否斷開
很簡單，有單獨的函數來判斷：
If My.Computer.Network.IsAvailable = True Then
MsgBox("電腦已連接網路！.")
Else
MsgBox("電腦沒有連接網路！.")
End If