《磁盘(含优盘)读写速度的测试方法及u盘插拔状态检测》由会员分享，可在线阅读，更多相关《磁盘(含优盘)读写速度的测试方法及u盘插拔状态检测（19页珍藏版）》请在金锄头文库上搜索。
1、VB.Net 检测检测 U 盘插拔状态并读写的方法盘插拔状态并读写的方法作者：wzuomin 来源：笔直的一道弯 更新时间：2007-11-6 VB.Net 检测 U 盘插拔状态并读写的方法代码如下：Imports System.IOPublic Class Form1Public Const WM_DEVICECHANGE = &H219Public Const DBT_DEVICEARRIVAL = &H8000Public Const DBT_CONFIGCHANGECANCELED = &H19Public Const DBT_CONFIGCHANGED = &H18Public Co
2、nst DBT_CUSTOMEVENT = &H8006Public Const DBT_DEVICEQUERYREMOVE = &H8001Public Const DBT_DEVICEQUERYREMOVEFAILED = &H8002Public Const DBT_DEVICEREMOVECOMPLETE = &H8004Public Const DBT_DEVICEREMOVEPENDING = &H8003Public Const DBT_DEVICETYPESPECIFIC = &H8005Public Const DBT_DEVNODES_CHANGED = &H7Public
3、 Const DBT_QUERYCHANGECONFIG = &H17Public Const DBT_USERDEFINED = &HFFFFProtected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)If m.Msg = WM_DEVICECHANGE ThenSelect Case m.WParamCase WM_DEVICECHANGECase DBT_DEVICEARRIVAL U 盘插入ComboBox1.Items.Clear()Dim s() As DriveInfo = DriveInfo.G
4、etDrivesFor Each drive As DriveInfo In sIf drive.DriveType = DriveType.Removable ThenListBox1.Items.Add(“U 盘已插入！盘符为:“ + drive.Name.ToString()ComboBox1.Items.Add(drive.Name)End IfNextBtnWrite.Enabled = TrueBtnRead.Enabled = TrueCase DBT_CONFIGCHANGECANCELEDCase DBT_CONFIGCHANGEDCase DBT_CUSTOMEVENTCa
5、se DBT_DEVICEQUERYREMOVECase DBT_DEVICEQUERYREMOVEFAILEDCase DBT_DEVICEREMOVECOMPLETE U 盘卸载ListBox1.Items.Add(“U 盘卸载！“)BtnWrite.Enabled = FalseBtnRead.Enabled = FalseCase DBT_DEVICEREMOVEPENDINGCase DBT_DEVICETYPESPECIFICCase DBT_DEVNODES_CHANGEDCase DBT_QUERYCHANGECONFIGCase DBT_USERDEFINEDEnd Sele
6、ctEnd IfMyBase.WndProc(m)End SubPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadListBox1.Items.Add(“请您现在插入 U 盘至 USB 接口！“)End SubPrivate Sub BtnWrite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnWrite.ClickIf ComboB
7、ox1.Text = “ ThenMsgBox(“请选择 U 盘盘符！“, MsgBoxStyle.Exclamation, “Warn“)ElseDim Writer As StreamWriter = NothingTryDim fileName As String = ComboBox1.Text + “Test.txt“Writer = New StreamWriter(fileName)Writer.WriteLine(InputBox(“老四，请输入要保存的字符串“, “输入信息“, “Input then Test String! hehe!“)MsgBox(“Write to
8、“ + fileName + “ Success!“)Catch ex As ExceptionMsgBox(ex.Message, MsgBoxStyle.Critical, “Write 失败“)FinallyIf Writer IsNot Nothing Then Writer.Close()End TryEnd IfEnd SubPrivate Sub BtnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRead.ClickIf ComboBox1.Text = “ T
9、henMsgBox(“请选择 U 盘盘符！“, MsgBoxStyle.Exclamation, “Warn“)ElseDim Reader As StreamReader = NothingTryDim fileName As String = ComboBox1.Text + “Test.txt“Reader = New StreamReader(fileName)MsgBox(“Read from “ + fileName + vbCrLf + Reader.ReadToEnd, MsgBoxStyle.Information, “Info“)Catch ex As ExceptionM
10、sgBox(ex.Message, MsgBoxStyle.Critical, “Read 失败“)FinallyIf Reader IsNot Nothing Then Reader.Close()End TryEnd IfEnd SubEnd Class注意：Winform 需要两个 Button、一个 Combox、一个 ListBox 控件。磁盘磁盘(含优盘含优盘)读写速度的测试方法读写速度的测试方法作者：wzuomin 来源：笔直的一道弯 更新时间：2007-11-6 可以测试驱动器（包含优盘自动识别插入、卸载）的读（Read）写（Write）速度，并以图形化的方式直观显示读写按照二
11、进制形式进行测试程序运行效果图如下：主要源码如下：1、柱状图控件源码Public Class SpeedViewPrivate xStep, yStep As SinglePrivate mMaxSpeed As Integer = 10Private Infos As New ArrayListPublic Class InfoPublic Write As IntegerPublic Read As IntegerPublic y As SinglePublic DrawWrite As BooleanPublic DrawRead As BooleanEnd ClassPublic Pr
12、operty MaxSpeed() As IntegerGetReturn mMaxSpeedEnd GetSet(ByVal value As Integer)If mMaxSpeed MaxSpeed Then MaxSpeed = NewMaxEnd SubEnd Class2、主窗体源码Imports System.IOPublic Class FrmTestPrivate IsStart As Boolean = FalsePrivate ThreadTest As Threading.ThreadPrivate Class BEPublic Drive As StringPubli
13、c StartIndex As IntegerPublic EndIndex As IntegerPublic TotalIndex As IntegerPublic Sub New(ByVal mDrive As String, ByVal mStartIndex As Integer, ByVal mEndIndex As Integer, ByVal mTotalIndex As Integer)Drive = mDriveStartIndex = mStartIndexEndIndex = mEndIndexTotalIndex = mTotalIndexEnd SubEnd Clas
14、sPrivate Sub FrmTest_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosingIf ThreadTest IsNot Nothing Then ThreadTest.Abort()End SubPrivate Sub FrmTest_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadCall Me.ShowDriv
15、es()Me.ComboBox1.SelectedIndex = 0Me.ComboBox2.SelectedIndex = 0Me.ComboBox4.SelectedIndex = 11Me.ComboBox3.SelectedIndex = 5End SubPrivate Sub ToolbarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolbarToolStripMenuItem.ClickToolbarToolStripMenuItem.Ch
16、ecked = Not ToolbarToolStripMenuItem.CheckedMe.ToolStrip1.Visible = ToolbarToolStripMenuItem.CheckedEnd SubPrivate Sub StatusBarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StatusBarToolStripMenuItem.ClickStatusBarToolStripMenuItem.Checked = Not StatusBarToolStripMenuItem.CheckedMe.StatusStrip1.Visible = StatusBarToolStripMenuItem.CheckedEnd SubPrivate Sub ShowDrives()Dim d() As String = System.IO.Directory.GetLogicalDrives()Dim
