调试JavaScript/VB Script脚本程序（IE篇）
JavaScript/VB Script脚本程序一般有两种执行方式，一种是嵌入在宿主程序里面执行，比如在IE浏览器里面执行；另外一种，在资源管理器里面双击执行（虽然还是通过另外一个程序解释执行，但是给人的感觉毕竟是直接运行）。
这两种方式，都可以使用Visual Studio来进行调试，先看大家用得比较频繁的网页脚本程序的调试：
1. 要调试网页里面的脚本程序，调试器需要宿主程序—这里也就是IE的支持，实际上所有的脚本程序解释器都实现了一个COM的调试接口。调试器通过查询解释器的这个接口，可以设置断点，查询变量以及捕捉异常，当然，查询到这个接口，需要宿主程序同意……至于如何实现这个接口，我们会在以后的文章里面讲到。
2. 默认情况下，IE是将脚本调试支持功能关闭的，因此你需要显示地打开它。打开IE，点击“工具”—“Internet 选项”，在“Internet 选项”里面选择高级页签，在“设置”列表里面，找到“禁用脚本调试（Internet Explorer）”选项，它默认是勾选上的—将它勾掉。
3. 使用IE打开一个新的网页，无论是一个远程的，或者本地的（从本地硬盘打开）网页。例如下面一个网页，另存为test.html：
1. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
2. <html xmlns="http://www.w3.org/1999/xhtml">
3. <head>
4. <title>JavaScript调试</title>
5. <script language=javascript>
6. function onload() {
7. var test = unescape("http://www.google.com");
8. alert(test);
9. }
10. </script>
11. </head>
12. <body onload="onload()">
13. </body>
14. </html>
4. 启动Visual Studio，点击VS菜单里面的“工具”—“附加到进程”菜单，打开“附加到进程”窗口里面。Visual Studio其实支持很多种调试模式，调试C++（native）程序，调试.NET（托管）程序，调试脚本程序，调试Silverlight程序以及调试SQL存储过程。
相关文档：
****什么是二次开发?
一般的来说，一些大公司如IBM、MS开发了一个大型的软件系统平台，根据不同的客户的需要，一些其它的中小公司为客户根据需求在该平台上进行第二次有针对性的开发，这被统称为二次开发。
二次开发要看软件是否提供相应的接口，有点软件公司只提供软件，但也有小公司连代码一起出售，� ......
VB备份ACCESS数据库的方法，代码
这个代码其实也适用于其它类型文件的复制，要修改一下其中的语句哦~Private Sub bak_Click()
Dim TargetFileName As String '目标文件名
On Error Resume Next
With cdlog1
.DialogTitle = "数据备份"
.InitDir = App.Path
.FileName = "backup.mdb"
.Filter = ......
本文来自qingye2008所发的此帖的讨论，感谢陈辉、马云剑、qingye的耐心指点和分享。
1、引言
话说qingye同学得到了一个用于加解密的Dll（该动态库在这里下载），通过Dll Export Viewer看到dll有2个导出函数分别是Dll_EncIn和Dll_EncOut，qingye同学想在VB中使用这两个函数。因为搞不到接口说明，只好通过查看汇编代码来猜 ......
很多时候,我们不想一开始就显示滚动条,当文本到达指定行数文本框无法完全显示的时候再显示它,由于Scrollbar属性是只读的,无法在运行时的代码中改变这个属性,只能使用下面的API实现这个功能:
Public Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
......
Private Sub PrintTxt(txt As String, ConWidth As Long, LeftPosition As Long)
Dim str As String
Dim str1 As String
Dim len1 As Long
str = txt
len1 = ConWidth
&nbs ......
