一、 VB读写EXCEL表：
　　VB本身提自动化功能可以读写EXCEL表，其方法如下：
　　1、在工程中引用Microsoft Excel类型库：
　　从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。
　　2、在通用对象的声明过程中定义EXCEL对象：
　　Dim xlApp As Excel.Application
　　Dim xlBook As Excel.WorkBook
　　Dim xlSheet As Excel.Worksheet
　　3、在程序中操作EXCEL表常用命令：
　　Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
　　Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
　　xlApp.Visible = True '设置EXCEL对象可见（或不可见）
　　Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
　　xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值
　　xlSheet.PrintOut '打印工作表
　　xlBook.Close (True)&nb ......

VB与Matlab混合编程有多种方式，这里讨论Matlab将M文件编译成com组件共VB调用的方式。
Matlab版本：Matlab 7.7. 0.471 R2008b
VB版本：VB 6.0 & VB 2008
首先写好完成某个功能的m文件，比如在m文件中写入如下函数
function [returns,stderr]=GetReturns(prices)
    returns=price2ret(prices)   %求价格序列的对数收益率
    stderr=std(returns)         %求收益率的标准差
end
该函数接受一个价格序列，返回该价格序列的收益率和收益率的标准差。将该函数存储为GetReturns.m。
然后在matlab中运行deploytool打开发布工具，执行菜单File/New Deployment Project菜单打开新建项目对话框，在左侧列表选择MATLAB Builder NE，在右侧列表选择Generic COM Component，然后在下方Name输入框输入项目名称，点OK按钮确定建立项目。
执行Project/Add File菜单，选择刚写好的GetReturns.m文件。如果想让COM组件包含多个函数，可添加多个m文件。
接下来就是编译和打包了。执行Tools/Build菜单，将在工程目录的distrib文件夹下编译生成dll，注册该dll(使用regsvr32命令)即可在VB中加载 ......

 '**************************读图片文件**************************************  
  Sub   GetPicfromDB(cn   As   ADODB.Connection)  
          On   Error   Resume   Next  
          Dim   fld   As   Field  
          Dim   strTemp   As   String  
          Dim   stm   As   ADODB.Stream  
          Set   stm   =   New   ADODB.Stream  
                                                                              'strTemp   =   "c:\temp.bmp"  
          Set   rs1   =   N ......

“自动点击按钮”小工具VB源码
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
On Error Resume Next '遇错处理
Me.Hide
Dim AppPath$
AppPath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") '程序路径
ChDrive Left(AppPath, 2) '切换磁盘
ChDir AppPath ......

今天做一个VB程序的自显注册码。我也不知道该怎么叫，就是找到出现注册码的地方，然后用对话框弹出来。说白了就是用MessageBox把一个字符串给弹出来（没追求阿。。。）
    为了有点追求，今天不导入user32里面的API，而是把VB里面自带的Msgbox函数给挖出来调用，就是引用MSVBVM60.rtcMsgBox函数。我手头没有OP资料，自己分析一下这个函数的调用吧。
    自己用VB写了一个东东，弹出对话框“Made by nbw”，逆向看了看，大体如下：
* Possible StringData Ref from Code Obj ->"Made by nbw"
                                  |
:00401A25 C745A4CC144000          mov [ebp-5C], 004014CC  ；指向字符串
:00401A2C C7459C08000000         ......

VB对INI文件操作
2009-02-25 00:17
INI 文件是什么样子？——不会吧，这都不知道。INI 文件就是 Windows 中常见
的以 .ini 为扩展名的文件，其内部格式和各部分的名称如下：
[Section1]
Key1=Value1
Key2=Value2
Key3=Vlaue3
[Section2]
Key1=Value1
Key2=Value5
Key4=Value4
Key5=...
...
     INI 文件中分若干个段 (Section)，每个段中有若干个键 (Key) 值 (Value) 对
。一个键值对保存一个信息；段则将属性类似的一些键值对组织在一起。同一个段中不
能出现两次以上同样的键，但不同的段中可以出现相同的键。
     现在明白了吗？要是还不明白，就到 Windows 里找两个 INI 文件看看，文本编辑
器就可以打开的。明白了 INI 文件就要开始学习怎样在 VB 中读写 INI 了。
     VB 读写 INI 文件，难吗？不难，因为 Windows 已经为我们做好了一切，我们只
需要调用它的 API 函数就可以了。为了读写 INI 文件，我们可能用到以下 API 函数
：
     GetPrivateProfileInt
     GetPrivateProfileString
     WriteP ......