vb写优盘病毒

给你个监视移动磁盘插入与拔出的程序。窗体上不用添任何东西，在工程里添加一个模块就可以。一旦检测到插入拔出会有Msgbox。

复制就不写了，建议看看书，这是基本功。

***以下写入模块***

Option Explicit

Private Type Guid
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(7) As Byte
End Type

Private Type DEV_BROADCAST_DEVICEINTERFACE
dbcc_size As Long
dbcc_devicetype As Long
dbcc_reserved As Long
dbcc_classguid As Guid
dbcc_name As Long
End Type

Private Type DEV_BROADCAST_VOLUME
dbcv_size As Long
dbcv_devicetype As Long
dbcv_reserved As Long
dbcv_unitmask As Long
dbcv_flags As Integer
End Type

Private Const GWL_WNDPROC = -4
Private Const DEVICE_NOTIFY_WINDOW_HANDLE = 0
Private Const WM_DEVICECHANGE = &H219&
Private Const DBT_DEVTYP_DEVICEINTERFACE = &H5&
Private Const DBT_DEVTYP_VOLUME = &H2&
Private Const DBT_DEVICEARRIVAL = &H8000&
Private Const DBT_DEVICEREMOVECOMPLETE = &H8004&<