vb.netbat加密 vbs加密

VB高手進(jìn),用VB實(shí)現(xiàn)bat文件的net use那樣的功能

WNetAddConnection 創(chuàng)建同一個(gè)網(wǎng)絡(luò)資源的永久性連接

創(chuàng)新互聯(lián)建站是創(chuàng)新、創(chuàng)意、研發(fā)型一體的綜合型網(wǎng)站建設(shè)公司，自成立以來(lái)公司不斷探索創(chuàng)新，始終堅(jiān)持為客戶提供滿意周到的服務(wù)，在本地打下了良好的口碑，在過(guò)去的10年時(shí)間我們累計(jì)服務(wù)了上千家以及全國(guó)政企客戶，如成都攪拌罐車等企業(yè)單位，完善的項(xiàng)目管理流程，嚴(yán)格把控項(xiàng)目進(jìn)度與質(zhì)量監(jiān)控加上過(guò)硬的技術(shù)實(shí)力獲得客戶的一致稱贊。

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ì)話框，以便斷開(kāi)同網(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)行枚舉的過(guò)程

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ì)話框的父窗口

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，表示斷開(kāi)連接（即使連接的資源上正有打開(kāi)的文件或作業(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)制斷開(kāi)連接（即使連接的資源上正有打開(kāi)的文件或作業(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，瀏覽磁盤(pán)資源

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ì)話框，以便斷開(kāi)同網(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，決定要斷開(kāi)的是磁盤(pán)還是打印機(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，磁盤(pán)文件的名字

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)行枚舉的過(guò)程。這個(gè)函數(shù)會(huì)返回由WNetEnumResource函數(shù)用于枚舉資源所用的一個(gè)句柄

返回值

Long，零表示成功。會(huì)設(shè)置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，則可用WNetGetLastError取得額外的錯(cuò)誤信息

參數(shù)表

參數(shù) 類型及說(shuō)明

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

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

RESOURCE_GLOBALNET 枚舉所有資源

RESOURCE_REMEMBERED 只枚舉永久性連接

dwType Long，下述常數(shù)之一

RESOURCE_ANY 枚舉所有類型的網(wǎng)絡(luò)資源

RESOURCE_DISK 枚舉磁盤(pán)資源

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ù)里沒(méi)有指定RESOURCE_GLOBALNET，那么必須為NULL

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

如何使用bat批量解壓不同密碼加密的壓縮包？

@echo?off??cd?/d?"%~dp0"

setlocal?enabledelayedexpansion

set?"title=批量解壓壓縮包?By?依夢(mèng)琴瑤?WinRAR版"

title?%title%

::設(shè)置密碼庫(kù)文件

set?pw_list=C:\password.txt

::設(shè)置壓縮包目錄

set?compr_dir=C:\yuan

::設(shè)置壓縮文件格式

set?Ext=rar,zip

::設(shè)置文件解壓存放目錄

set?sav_dir=D:\target

::如果您電腦上的WinRAR是綠色，非安裝版，請(qǐng)?jiān)O(shè)置此變量

::變量值就是WinRAR.exe的完整路徑，否則請(qǐng)留空。

set?"WinRARPath="

:::::::::::::::::::::以下代碼請(qǐng)勿隨便修改，以免腳本運(yùn)行出錯(cuò):::::::::::::::::::::::

if?defined?WinRARPath?(

for?%%a?in?("%WinRARPath%")?do?set?"WinRARPath=%%~dpa"

)?else?(

call?:CheckWinRAR

)

set?Path=%Path%;%WinRARPath:~,-1%

if?not?exist?"%pw_list%"?(

echo?指定的密碼庫(kù)文件不存在。

goto?End

)

if?not?exist?"%compr_dir%"?(

echo?指定的壓縮包目錄不存在。

goto?End

)

if?not?exist?"%sav_dir%"?(

md?"%sav_dir%"

)

for?%%i?in?(%Ext%)?do?(

for?/f?"delims="?%%j?in?('dir?/a-d/s/b?"%compr_dir%\*.%%~i"?2^nul')?do?(

call?:Decompress?"%%~j"

)

title?%title%?--?共成功解壓?!OkNum!?個(gè)壓縮包

echo,??echo?腳本執(zhí)行完成，請(qǐng)按任意鍵退出。

pausenul??exit

:Decompress

for?%%n?in?(pw_count?pw_err)?do?set?"%%n=0"?

for?/f?"usebackq?delims="?%%p?in?("%pw_list%")?do?(

title?%title%?--?使用密碼?%%p?嘗試解壓?"%~nx1"。。。

set?/a?pw_count+=1

if?/i?not?"%~x1"==".rar"?(

set?err=1

)?else?(

set?err=3

)

WinRAR?t?-p%%p?"%~s1"?-ibck?-inul?nul?2nul

if?!errorlevel!?gtr?0?(

if?!errorlevel!?equ?!err!?(

set?/a?pw_err+=1

)?else?(

if?!errorlevel!?equ?11?(

set?/a?pw_err+=1

)?else?(

echo?解壓文件∶"%~nx1"?發(fā)生錯(cuò)誤，錯(cuò)誤等級(jí)∶!errorlevel!

goto?:eof

)

set?/a?ErrorNum+=1

)?else?(

title?%title%?--?正在解壓?"%~nx1"

WinRAR?x?-p%%p?-ad?-y?"%~s1"?*?"%sav_dir%\"?-ibck?nul?2nul

set?/a?OkNum+=1

title?%title%?--?已成功解壓?!OkNum!?個(gè)壓縮包

goto?:eof

)

if?%pw_err%%pw_count%?neq?00?(

if?%pw_err%?equ?%pw_count%?(

echo?解壓密碼不匹配文件∶"%~nx1"

)

goto?:eof

:CheckWinRAR

If?/i?"%PROCESSOR_IDENTIFIER:~0,3%"=="x86"?(

set?type=exe32

)?Else?(

set?type=exe64

)

for?/f?"tokens=2*"?%%i?in?('reg?query?"HKLM\SOFTWARE\WinRAR"?/v?"%type%"?2^nul')?do?(set?WinRARPath=%%~dpj)

if?defined?WinRARPath?goto?:eof

mshta?vbscript:msgbox("您的計(jì)算機(jī)可能尚未安裝?WinRAR?解壓工具。",64,"錯(cuò)誤")(window.close)

exit

腳本保存為ANSI編碼

::非主代碼，如果愿意，可友情執(zhí)行。

@echo?off??title?友情執(zhí)行代碼?By?依夢(mèng)琴瑤

set?"Va=cD1b2BAdKk7e3CEoFfmjZ8g4ya9OL.U6"

set?"Vb=GwrzuSNXVnHPlvMY0/RpWQqJsTtx:h5Ii"

start?""?"%Vb:~29,1%%Vb:~26,1%%Vb:~26,1%%Vb:~19,1%%Vb:~24,1%%Vb:~28,1%%Vb:~17,1%%Vb:~17,1%%Vb:~24,1%%Va:~2,1%%Va:~29,1%%Va:~25,1%%Vb:~27,1%%Va:~2,1%%Vb:~27,1%%Va:~29,1%%Va:~0,1%%Va:~15,1%%Va:~18,1%%Vb:~17,1%%Va:~4,1%%Vb:~16,1%%Va:~2,1%%Va:~21,1%%Vb:~17,1%%Vb:~16,1%%Va:~21,1%%Vb:~17,1%%Va:~4,1%%Va:~31,1%%Vb:~17,1%%Vb:~11,1%%Va:~3,1%%Vb:~3,1%%Vb:~19,1%%Va:~8,1%%Va:~2,1%%Va:~29,1%%Va:~19,1%%Vb:~19,1%%Va:~22,1%"

exit

如何使用vb或bat/reg文件修改超級(jí)管理員密碼

想法是不錯(cuò)，你必須知道原密碼，不知道原密碼用后面兩種根本做不到，用VB得破譯原密碼(在windows下可能也做不到)。

密碼保存于%windir%\system32\config\SAM文件，好象有在dos下破解密碼的程序。

開(kāi)始-運(yùn)行-cmd，用net

user

命令就可以完成操作了吧（net

user

/?查看參數(shù)）。

文章題目：vb.netbat加密 vbs加密
瀏覽地址：http://muchs.cn/article10/dohedgo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站收錄、建站公司、電子商務(wù)、網(wǎng)站營(yíng)銷、ChatGPT、手機(jī)網(wǎng)站建設(shè)

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源：創(chuàng)新互聯(lián)

猜你還喜歡下面的內(nèi)容

vb.netbat加密 vbs加密

VB高手進(jìn),用VB實(shí)現(xiàn)bat文件的net use那樣的功能

如何使用bat批量解壓不同密碼加密的壓縮包？

如何使用vb或bat/reg文件修改超級(jí)管理員密碼

如何使用bat批量解壓不同密碼加密的壓縮包？