VB中filesystemobject对象实现文件存取方法
最简单的方法是使用filesystemobject对象。而它并非VB内置对象，
需引用才可以使用。
1．filesystemObject对象引用
“工程/引用/microsoft scription Runtime”
在对象浏览器窗口中选“scripting”模块，看到增了许多对象，
drive filesystemobject textstream file等
其中filesystemobject是这些对象的关键，想要使用其它对象，
都必须先建立filesystemobject对象。
２．文件存取
dim fs as new filesystemobject 建立filesystemobject对象
dim txtf as textstream 定义了一个textstream对象变量
textstrem对象与文件的读写所有文件都必须先打开，才能读写，
filesystemobjet对象所提供的打开文件的方法有两种：
opentextfile 打开文件
createtextfile 建立文件
通过filesystemobject所打开的文件是一个TextStream对象，
而通过textstream对象的各种方法和属性，就可以进一步读写文件。
1）opentextfile 方法：打开文件
set textstream对象名=filesystemobject名.opentextfile(文件名，IO模式，是否自动建立文件）
文件名：建议写入完整路径的文件名。
IO模式：可设置成forreading(=1)、forwrting(=2)或forappending(=8)。
如果设置成forreading，则打开的文件是只读的；
如果设置成forwriting，则打开的文件是可写的，而原来文件 的内容会被清除；
如果设置成forappending，则打开的文件是可写的，但原文件 的内容不会被清除，数据会从文件 的最后面开始写入。
参数缺省： 表示forreading 只读。
是否自动建立文件：可设置成true或false。
设置为：true 则当文件不存在时，会自动
相关文档：
http://zhidao.baidu.com/question/33440250.html
在模块中输入以下代码
Public Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
' flag uitzetten
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1 ......
VB根据窗口标题获取应用程序完整路径(来自网络)
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId A ......
Private Sub Cmd_OK_Click()
Dim ExcelAppX As Excel.Application
Dim ExcelBookX As Excel.Workbook
Dim ExcelSheetX As Excel.Worksheet
Dim a(1 To 3) As Single
Dim strFormat As Variant
......
从网上搜集到的VB代码，用EXE方式实现了远程注入，不过在反病毒软件的保护下，有可能导致注入失败。转贴这个代码，仅供大家学习和参考。
一、窗口代码：
Option Explicit
Private Sub cmdLock_Click()
If LockKeyboard(True) Then
cmdLock.Enabled = False
cmdUnLock.Enabled = Tr ......
