在VB6.0或VB.NET中如果編寫(xiě)代碼來(lái)測(cè)試光驅(qū)的轉(zhuǎn)速?

最簡(jiǎn)單的方法是讀取注冊(cè)表“HKEY_LOCAL_MACHINE→System→CurrentControlSet→Control→FileSystem→CDFS”的鍵值，通過(guò) “CacheSize”和“Prefetch”兩個(gè)主鍵的DWORD鍵值，即可獲得光驅(qū)緩存大小與讀寫(xiě)速度。前者可取值“4d6”（適中）或“9ac” （更大），后者則可根據(jù)光驅(qū)速度取值：32x光驅(qū)取值“700”、40x為“800”、48x為“900”，以此類推

在西工等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強(qiáng)發(fā)展的系統(tǒng)性、市場(chǎng)前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供網(wǎng)站制作、做網(wǎng)站 網(wǎng)站設(shè)計(jì)制作定制制作,公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),品牌網(wǎng)站建設(shè),成都營(yíng)銷網(wǎng)站建設(shè),外貿(mào)營(yíng)銷網(wǎng)站建設(shè),西工網(wǎng)站建設(shè)費(fèi)用合理。

VB.NET如何讓彈出的窗體顯示在所有的窗體的最前面（包括其他程序打開(kāi)的窗體）

你可以這樣做，設(shè)置窗體的TopMost 屬性為真！

Me.TopMost = True

Form.TopMost 屬性

獲取或設(shè)置一個(gè)值，指示該窗體是否應(yīng)顯示為最頂層窗體。

求大神指點(diǎn)vb.net 托盤(pán) 被單擊的時(shí)候 怎么彈出選項(xiàng)呀 就像下面這個(gè)圖

在托盤(pán)點(diǎn)擊事件里 添加彈出菜單 即可 和在窗體上彈出菜單一樣

VB.net怎么彈出如下類似的對(duì)話框（看圖）？

可以利用msgbox 實(shí)現(xiàn)，也可以通過(guò)另外的窗體上畫(huà)出表格實(shí)現(xiàn)

方法一，利用msgbox：

Private Sub Command1_Click()Dim a As Long, b As Long, c As LongMsgBox "┌────┬────┬────┐" vbCrLf _ "│ 庫(kù)存1 │ 庫(kù)存2 │ 庫(kù)存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function

方法二，利用窗體實(shí)現(xiàn)：

’新建form2窗體‘將以下代碼復(fù)制到form2窗體中Private Sub Form_Load()ShowPrint "┌────┬────┬────┐" vbCrLf _ "│ 庫(kù)存1 │ 庫(kù)存2 │ 庫(kù)存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function‘將以下代碼復(fù)制在form1窗體中Private Sub Command1_Click()Form2.ShowEnd Sub

如何VB調(diào)用API實(shí)現(xiàn)光驅(qū)，USB的禁用

禁用U盤(pán)和移動(dòng)硬盤(pán)

方法一，BIOS設(shè)置法（快刀斬亂麻法）

進(jìn)入BIOS設(shè)置，選擇“Integrated Peripherals”選項(xiàng)，展開(kāi)后將“USB 1.1 Controller”和“USB 2.0 Contr01ler”選項(xiàng)的屬性設(shè)置為“Disableed”，即可禁用USB接口。最后別忘記給BIOS設(shè)置上一個(gè)密碼，這樣他人就無(wú)法通過(guò)修改注冊(cè)表解“鎖”上述設(shè)備了。

注意：這個(gè)方法是完全禁止了USB接口，也就是說(shuō)各種USB接口的設(shè)備均不能用了，當(dāng)然也包括了U盤(pán)和移動(dòng)盤(pán)。由于此法過(guò)于霸道，請(qǐng)慎用。

方法二，禁止閃盤(pán)或移動(dòng)硬盤(pán)的啟動(dòng)（適用于Windows XP/2000/2003）

打開(kāi)注冊(cè)表編輯器，依次展開(kāi)如下分支[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCntrolSet\Services\USBSTOR]，在右側(cè)的窗格中找到名為“Start”的DWORD值，雙擊，在彈出的編輯對(duì)話框中將其數(shù)值數(shù)據(jù)修改為十六位進(jìn)制數(shù)值“4”。點(diǎn)“確定”按鈕并關(guān)閉注冊(cè)表編輯器，重新啟動(dòng)計(jì)算機(jī)，使設(shè)置生效。重啟后，當(dāng)有人將USB存儲(chǔ)設(shè)備連接到計(jì)算機(jī)時(shí)，雖然USB設(shè)備上的指示燈在正常閃爍，但在資源管理器當(dāng)中就是無(wú)法找到其盤(pán)符，因此也就無(wú)法使用USB設(shè)備了。

方法三，隱藏盤(pán)符和禁止查看（適用于Windows系統(tǒng)）

打開(kāi)注冊(cè)表編輯器，依次展開(kāi)如下分支[HKEY_CURRENT_USER\software\Microsoft\Windows\CurrentVersion\Ploicies\Explorer]，新建二進(jìn)制值“NoDrives”，其缺省值均是00 00 00 00，表示不隱藏任何驅(qū)動(dòng)器。鍵值由四個(gè)字節(jié)組成，每個(gè)字節(jié)的每一位（bit）對(duì)應(yīng)從A:到Z:的一個(gè)盤(pán)，當(dāng)相應(yīng)位為1時(shí)，“我的電腦”中相應(yīng)的驅(qū)動(dòng)器就被隱藏了。第一個(gè)字節(jié)代表從A到H的8個(gè)盤(pán)，即01為A，02為B，04為C……依次類推，第二個(gè)字節(jié)代表I到P，第三個(gè)字節(jié)代表Q到X，第四個(gè)字節(jié)代表Y和Z。比如要關(guān)閉C盤(pán)，將鍵值改為04 00 00 00；要關(guān)閉D盤(pán)，則改為08 00 00 00，若要關(guān)閉C盤(pán)和D盤(pán)，則改為0C 00 00 00(C是十六進(jìn)制，轉(zhuǎn)成十進(jìn)制就是12)。

理解了原理后，下面以我的電腦為例說(shuō)明如何操作：我的電腦有一個(gè)軟驅(qū)、一個(gè)硬盤(pán)(5個(gè)分區(qū))、一個(gè)光驅(qū)，盤(pán)符分布是這樣的：A:（3.5軟盤(pán)）、C:、D:、E:、F:、G:、H:（光盤(pán)），所以我的“NoDrives”值為“02 ff ff ff”，隱藏了B、I到Z盤(pán)。

重啟計(jì)算機(jī)后，再插入U(xiǎn)盤(pán)，在我的電腦里也是看不出來(lái)的，但在地址欄里輸入I:（我的電腦電后一個(gè)盤(pán)符是H）還是可以訪問(wèn)移動(dòng)盤(pán)的。到這里大家都看得出“NoDrives”只是障眼法，所以我們還要做多一步，就是再新建一個(gè)二進(jìn)制“NoViewOnDrive”，值改為“02 ff ff ff”，也就是說(shuō)其值與“NoDrives”相同。 這樣一來(lái)，既看不到U盤(pán)符也訪問(wèn)不到U盤(pán)了。

方法四，禁止安裝USB驅(qū)動(dòng)程序

在Windows資源管理器中，進(jìn)入到“系統(tǒng)盤(pán):\WINDOWS\inf”目錄，找到名為“Usbstor.pnf”的文件，右鍵點(diǎn)擊該文件，在彈出菜單中選擇“屬性”，然后切換到“安全”標(biāo)簽頁(yè)，在“組或用戶名稱”框中選中要禁止的用戶組，接著在用戶組的權(quán)限框中，選中“完全控制”后面的“拒絕”復(fù)選框，最后點(diǎn)擊“確定”按鈕。

再使用以上方法，找到“usbstor.inf”文件并在安全標(biāo)簽頁(yè)中設(shè)置為拒絕該組的用戶訪問(wèn)，其操作過(guò)程同上。完成了以上設(shè)置后，該組中的用戶就無(wú)法安裝USB設(shè)備驅(qū)動(dòng)程序了，這樣就達(dá)到禁用的目的。

注意：要想使用訪問(wèn)控制列表(ACL)，要采用NTFS文件系統(tǒng)。

上面有一些是用修改注冊(cè)表來(lái)實(shí)現(xiàn)的,你用VB訪問(wèn)注冊(cè)表來(lái)修改就可以實(shí)現(xiàn)

(鎖定光驅(qū)在Win2000上的實(shí)現(xiàn))

新建一個(gè)工程，在窗體上加入兩個(gè)按鈕，粘貼以下程序，看看效果怎么樣？^_^

Option Explicit

Private Const GENERIC_READ As Long = H80000000

Private Const FILE_SHARE_READ As Long = H1

Private Const FILE_SHARE_WRITE As Long = H2

Private Const OPEN_EXISTING As Long = 3

Private Const IOCTL_STORAGE_MEDIA_REMOVAL As Long = H2D4804

Private Type PREVENT_MEDIA_REMOVAL

PreventMediaRemoval As Byte

End Type

Private Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, lpOverlapped As Any) As Long

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Public Function LockCDROM(szDrive As String, IsLock As Boolean) As Boolean

On Error GoTo Err

Dim hDevice As Long

Dim PMR As PREVENT_MEDIA_REMOVAL

Dim bytesReturned As Long

Dim Success As Long

hDevice = CreateFile("\\.\" szDrive, GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0, OPEN_EXISTING, 0, 0)

PMR.PreventMediaRemoval = CByte(Abs(IsLock))

Success = DeviceIoControl(hDevice, IOCTL_STORAGE_MEDIA_REMOVAL, PMR, Len(PMR), ByVal 0, 0, bytesReturned, ByVal 0)

CloseHandle hDevice

LockCDROM = True

Exit Function

Err:

LockCDROM = False

End Function

Private Sub Command1_Click()

Dim ret As Boolean

ret = LockCDROM("H:", True) '我的光驅(qū)盤(pán)符是H:

If ret Then

MsgBox "鎖定成功", vbInformation, "提示"

Else

MsgBox "鎖定失敗", vbInformation, "提示"

End If

End Sub

Private Sub Command2_Click()

Dim ret As Boolean

ret = LockCDROM("H:", False)

If ret Then

MsgBox "解除鎖定成功", vbInformation, "提示"

Else

MsgBox "解除鎖定失敗", vbInformation, "提示"

End If

End Sub

VB.NET 窗口彈出問(wèn)題

你在第一個(gè)窗口里寫(xiě) Form2.ShowDialog()

這樣就可以了，關(guān)掉form2的時(shí)候form1的代碼就會(huì)繼續(xù)執(zhí)行

當(dāng)前文章：vb.net彈出光驅(qū) vbs無(wú)限彈出光驅(qū)
瀏覽地址：http://chinadenli.net/article0/dooihoo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供企業(yè)建站、、網(wǎng)站維護(hù)、品牌網(wǎng)站建設(shè)、云服務(wù)器、域名注冊(cè)

廣告

聲明：本網(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)