Dim xlist As StringPrivate Sub Command1_Click() Dim fso As Object Dim folder As Obje...
获取到的目录都是以系统当前设置为准。使用时只要把代码保存在一个模块中,调用时一个函数搞定。Private Sub Command1_Click()MsgBox GetWinPath...
'这个函数可以遍历指定一个目录下的所有文件,包括子目录.也可以指定文件类型遍历。Private Function SearchFiles(Path As String, F...
Private Sub Form_Load() Dim x, y x = Screen.Width / Screen.TwipsPerPixelXy = Screen....
Option ExplicitPrivate Declare Function SendMessage _Lib "user32" _Alias "S...
使大家清楚认识病毒程序的运行机理,提高自身程序的抵抗力。说明:1、本代码目前仅是实验模型,给新手讲解原理之用,不会失控,绝对安全。2、本代码仅实现了感染EXE的功能,其他的功能还须...
模块类容:Public Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&, ...
Private Sub Command1_Click()Dim File As StringFile = Environ$("windir") & "...
函数代码:Private Const BITS_TO_A_BYTE = 8Private Const BYTES_TO_A_WORD = 4Private Const BITS_T...