维克苗综合站

*************导出到Access********************/
insert into openrowset(’Microsoft.Jet.OLEDB.4.0′,
   ‘x:\A.mdb’;’admin’;”,A表) select * from 数据库名..B表
/*************导入Access********************/
insert into B表 selet * from openrowset(’Microsoft.Jet.OLEDB.4.0′,
   ‘x:\A.mdb’;’admin’;”,A表)

insert into userxx SELECT *
FROM OPENROWSET(’Microsoft.Jet.OLEDB.4.0′,
‘c:\hao.mdb’;’admin’;”
,[user]) 将hao.mdb的user数据插入到已经存在的userxx表中

SELECT * into userxx
FROM OPENROWSET(’Microsoft.Jet.OLEDB.4.0′,
‘c:\hao.mdb’;’admin’;”
,[user]) 将user列数据新建一个userxx的表放在里面

select * into [d].[dbo].[config] from [BFTQ2007].[dbo].[config]

SELECT name,domurl,content FROM [movmdb].[dbo].[learning] where title=’好奇害死猫’
SELECT photoname,synopsis FROM [...]

1.小样，治不了你我还叫兽医
2.此地严禁大小便，违者没收工具
3.你长的赖的，下辈子没人敢生你！
4.有一变态经常用硫酸毁别人的容。一天他尾随你企图行凶，你忽觉不对，扭头看时，变态惊道：“靠，这个泼过了！”
5.我是锄禾,你是当午. （别说你看不懂）
6.唱卡拉ok时，有人点了一首“一群三八舞”，知道是哪首不———《忘情森巴舞》。
7.太监最讨厌的歌：把根留住；太监最讨厌的剧本：一剪梅；太监最讨厌的广告词：我有我可以；太监最讨厌的成语：空前绝后；太监最喜欢做的事：边看短信边笑。
8.病人：“医生，你把剪刀留在我肚子里了。”“没关系，我还有一把。
9.老师上课提一问题：烂掉的萝卜和怀孕的女人有什么共同点！a答：都是虫子惹的祸！b更聪明答：拔的太迟！
10.上联：哈哈哈哈哈，下联：嘿嘿嘿嘿嘿。横批：神经有病

第十位：卡巴斯基  
上网就免不了受到病毒、木马、恶意代码的骚扰，所以一款强大的杀毒软件是用户上网不可缺少的保护神。但由于各种不同的原因，国内几款杀毒软件对于恶意代码 的查杀能力一直令人失望。卡巴斯基凭借“宁可错杀一千，不可放过一个”的精神，受到广大网友的喜欢。同时其与国内网站合作，推出的一系列服务，使得其市场 占有率直线上升。但由于官方起始时对盗版的放任自流，虽市场占有率大幅上升，但也同时造成了如此之高的市场盗版率。
软件普及度：5　　　软件盗版度：8
第九位：金山词霸
金山词霸是一款能够即时翻译的软件，支持屏幕取词，能够帮助用户快速翻译电脑使用过程中遇到的陌生单词，该软件除了支持中英翻译外，还可以支持中曰互译。 另外软件还具有英语词典的功能，可以帮助用户学习英语使用。但金山词霸2006刚刚上市，网上就接着出现了注册机，通过注册机算出注册号注册后，与正版软 件完全一样，没有任何差别，从而使得金山词霸用户大量使用盗版。  
软件普及度：3　　　软件盗版度：8
第八位：Symantec Ghost
Ghost是一款非常著名的硬盘克隆工具，它可以将一个硬盘或是硬盘中的某个分区做成镜像或是原样复制到另一个硬盘中，通过使用Ghost可以快速恢复硬 盘或分区数据，使得硬盘安装速度成倍的提高，同时不会改变硬盘中任何文件信息。Ghost目前的最高DOS版本为8.3，软件体积不足1MB，可以方便的 从网上下载，功能与正版完全一致，而正版市场上又根本看不见此类程序的销售。所以目前几乎所有的Ghost程序均为盗版。 \
软件普及度：4       软件盗版度：10  
第七位：截图软件  
截图软件可以把你看到的精彩画面保存下来，在屏幕截图软件中最优秀的就是SnagIt与HyperSnap两款软件了。但由于该两款软件正版都需要300 元左右，只是用来截图，这样的价格对目前国内大部分个人用户来说是难以接受的，同时一些汉化高手在汉化时，把软件破解了，用户可以方便的从网上下载到破解 版或是找到注册码，所以大部分用户选择了使用盗版。  
软件普及度：5　　　
第六位：行业标准软件——Photoshop、Flash等  
以Photoshop、Flash等为代表的创作软件，是事实上的行业标准，它们的地位在短期内是无法撼动的。这些软件，任何一个（套）都会是一台高配置计算机的价格，对于普通用户是难以接受的。要学习这些软件，除了合法试用之外，比较实际的途径就是使用盗版。
软件普及度：5　　　软件盗版度：9.5
第五位：Windows优化大师
Windows优化大师是优秀的国产软件，同时其注册费用也不算高，只有35元人民币，注册后即可享受到终生免费升级的服务，但是由于Windows优化 大师2006以前版本的注册机网上可以随意下载，只要使用注册机算出注册码注册后，盗版的Windows优化大师即可马上成为正版软件。
另外网上还流传着多个破解版本，笔者使用“优化大师破解”作为关键字在百度里搜索，具然找到了1630000个搜索结果，这样用户可以轻松从网上下载到破 解版，同时网上破解的速度非常快，一般出现新版即可马上会有相应的破解版产生，这使得大部分用户在购买正版不方便的情况下，“懒得”购买正版。
软件普及度：7　　　软件盗版度：8
第四位：ACDSee
虽说XP身提供了浏览图片功能，但功能过于简单不能满足大家的需要，要想快速浏览图片，就需要安装看图软件。在图片浏览界中，老大的位置非ACDSEE莫属。
目前Acdsee最新版为9.0，分为三个版本，在三个版本中最便宜的价格为39.99美元，要安装一款看图软件，用户至少需要花费39.99美元，这是 目前国内用户很难接受的，价格也成为Acdsee盗版的一个重要原因之一。 同时由于之前ACDSee在国内没有代理商，支付外币的手续相当麻烦，也造成正版ACDSee“有市无货”的局面。
软件普及度：7　　　软件盗版度：9
第三位：Microsoft Office
在所有的办公软件中，Microsoft Office是最为成功的。除了Microsoft Office本身的功能强大外，微软还借助于强力宣传与营销策略，打败Office的其它对手，最终成为办公软件市场占有率最高的产品。   但是由于Office的价格太高，同时Office中的每个组件都是需要付费才能使用的，这使得一般个人用户根本没法承受，大家只好选择使用了盗版。
软件普及度：8　　　软件盗版度：9  
第二位：压缩软件WinRAR和WinZip
WinRAR和WinZip几乎是必备工具。这两款压缩软件在试用期内是完全免费的，用户可以自由的使用其所有功能，试用期过后，软件的功能也没有限制， 只是在你使用软件的时候，会弹出要求注册的提示窗口。   如果没有专门去研讨过两软件的授权协议，多数读者会不知道，在过期后继续是WinZip或WinRAR也是违反授权协议的。
作为国外产品，WinRAR和WinZip以前的支付手段也是相当麻烦。当然必备软件的破解速度也是相当快的。
软件普及度：9.5　　　软件版本度：9.5
第一位：Windows操作系统
如果你使用之前的9个软件中的任何两个，那么恭喜你！你肯定使用Windows！   Windows的价格不便宜。目前，一套简装的Windows XP Home 的价格是500—800元。最新的Windows Vista根据不同版本，价格在一到三千元不等。 Windows的普及是有目共睹的。微软在推广Windows时，采用了“胡萝卜＋大棒政策”，一面对个人用户使用盗版保持默许态度，给个人用户以“甜 头”，让用户从一开始接触计算机便接受Windows的教育，形成Windows的使用习惯；另一方面，对企业用户则采取的是“大棒政策”，严厉禁止企业 [...]

1、获得浏览器信息：
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.applevb.com"
End Sub
Private Sub Command2_Click()
Dim oWindow
Dim oNav
Set oWindow = WebBrowser1.Document.parentWindow
Set oNav = oWindow.navigator
Debug.Print oNav.userAgent
Set oWindow = Nothing
Set oNav = Nothing
End Sub
点击Command1浏览网页，点击Command2在立即窗口中输出浏览器信息。
2、弹出Webbrowser消息窗口
Dim oWindow
Set oWindow = WebBrowser1.Document.parentWindow
oWindow.confirm "abcd"
VB调用webbrowser技巧集2
向Webbrowser中写入HTML内容的几种方法
首先在Form_Load中加入
WebBrowser1.Navigate "about:blank"
确保Webbrowser1可用

方法1：
Dim s As [...]

打开Windows 2003远程桌面连接的方法（如果设置已经是步骤中的结果，则可跳过）
1、HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server\fDenyTSConnections将其值改为0
2、打开组策略（运行gpedit.msc)→计算机配置→管理模板→Windows组件→终端服务下面的允许用户使用终端服务远程连接，设置为已启用。
3、打开服务窗口（运行services.msc），找到Terminal Services，打开其属性窗口，在常规选项卡中，将其启动类型设置为自动，然后点启动即可。

版本控制比较普遍的 3 种命名格式 :
一、GNU 风格的版本号命名格式 :
主版本号 . 子版本号 [. 修正版本号 [. 编译版本号 ]]
Major_Version_Number.Minor_Version_Number[.Revision_Number[.Build_Number]]
示例 : 1.2.1, 2.0, 5.0.0 build-13124
二、Windows 风格的版本号命名格式 :
主版本号 . 子版本号 [ 修正版本号 [. 编译版本号 ]]
Major_Version_Number.Minor_Version_Number[Revision_Number[.Build_Number]]
示例: 1.21, 2.0
三、.Net Framework 风格的版本号命名格式:
主版本号.子版本号[.编译版本号[.修正版本号]]
Major_Version_Number.Minor_Version_Number[.Build_Number[.Revision_Number]]
版本号由二至四个部分组成：主版本号、次版本号、内部版本号和修订号。主版本号和次版本号是必选的；内部版本号和修订号是可选的，但是如果定义了修订号部分，则内部版本号就是必选的。所有定义的部分都必须是大于或等于 0 的整数。
应根据下面的约定使用这些部分：
Major ：具有相同名称但不同主版本号的程序集不可互换。例如，这适用于对产品的大量重写，这些重写使得无法实现向后兼容性。
Minor ：如果两个程序集的名称和主版本号相同，而次版本号不同，这指示显著增强，但照顾到了向后兼容性。例如，这适用于产品的修正版或完全向后兼容的新版本。
Build ：内部版本号的不同表示对相同源所作的重新编译。这适合于更改处理器、平台或编译器的情况。
Revision ：名称、主版本号和次版本号都相同但修订号不同的程序集应是完全可互换的。这适用于修复以前发布的程序集中的安全漏洞。
程序集的只有内部版本号或修订号不同的后续版本被认为是先前版本的修补程序 (Hotfix) 更新。
版本号管理策略
一、GNU 风格的版本号管理策略：
1．项目初版本时，版本号可以为 0.1 或 0.1.0, 也可以为 1.0 或 1.0.0，如果你为人很低调，我想你会选择那个主版本号为 0 的方式；
2．当项目在进行了局部修改或 bug 修正时，主版本号和子版本号都不变，修正版本号加 1；
3. 当项目在原有的基础上增加了部分功能时，主版本号不变，子版本号加 1，修正版本号复位为 0，因而可以被忽略掉；
4．当项目在进行了重大修改或局部修正累积较多，而导致项目整体发生全局变化时，主版本号加 [...]

VB中创建的DLL只是COM组件，无法作为输出函数的DLL。今天从朋友哪里搞到一种可以创建输出函数的DLL的方法，欣喜之余，不敢独享，现在把他介绍给大家。
　　VB编译文件实际上采取了两次编译的方法，首先是调用c2.exe产生OBJ文件，然后调用Link.exe连接。如果在link的时候添加EXPORT选项，实际上是可以输出函数的。但是，在VB的工程选项中将这些屏蔽了。而且过分的是：VB在Build完成后会将OBJ文件删除，这样就无法通过Link来输出函数了。不过我找到一个比较龌鹾的变通的方法，就是先创建一个Exe工程，在Form_Load事件里面写下面的语句:

Private Sub Form_Load()
If (MsgBox("hehe", vbOKCancel) = vbOK) Then
Shell "link2.exe " & Command$
End If
[...]

ActiveBar 3.0.0142英文正式版，有序列号，和正式版本没什么区别。和大家分享是为了和大家一起讨论学习ActiveBar 3 的用法。
安装包直接从官网上下载
SERIAL NUMBER: DD-AB-30-E000151

Point方法返回图片框控件里指定X,Y坐标处的颜色。要获得鼠标指针所在位置的颜色，就要将这样的代码放入用户该控件的MouseMove事件过程里。MouseMove过程会被传递给指针的当前X,Y坐标，这就让这段代码变容易了：
Private Sub Picture1_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Dim rgb As Long
rgb = Picture1.Point(X, Y)
End Sub
Point方法所返回的值是一个Long类型，它会给用于颜色的RGB值编码。为了能够被有效地使用，这个被编码的值必须被分成独立的R、G、B组件，它们每个都十进制0-255或者十六进制00-FF范围内的的一个整数。如果使用十六进制表示的话，那么Point返回的值就是：
00BBGGRR
使用十六进制标示法会让颜色的提取操作变容易。如果RGB是由Point方法返回的值，那么下面就是这个提取操作如何进行的细节：
red = rgb Mod &H100
green = (rgb \ &H100) Mod &H100
blue = (rgb \ &H10000) Mod &H100
在这里，最终的MouseMove事件过程显示了出来。要看到这个过程的实际使用，就要创建一个标准的EXE项目，并在表单上放一个图片框和一个文本框（Text Box）。将图像上传到图片框里，然后运行该项目。当鼠标移动到这个图像上的时候，文本框里就会显示指针处像素的RGB值。
Private Sub Picture1_MouseMove(Button As Integer, [...]

三、
将下面的代码添加到fap模拟程序最前面的init脚本区块中即可
–从数据区块读取base64编码的图片数据
codekey = ape:loadTable("验证码样本");
local timg = {}; –这是一个图像数组，用来储存还原后的验证码样本的图片数据
–必须进行一个转换，因为codekey里面只是base64编码的普通字符串，而timg 将是真正的图片对象(二进制数据)
–还原到图片对象
toImage = function(k,v)
    local img = image.new();
    local str = string.decode( v ,"");–首先进行base64解码，将纯文本转换为二进制数据
    img:setBytes( str ,"*.jpg");–将二进制数据还原为图像
    timg[k] = img;
end;
–载入验证码样本
tkey = ape:loadTable("验证码样本");
for k,v in pairs(tkey) do –验证样本
    toImage(k,v); –转换为图像
end;
   
–转换图片验证码到字符串的函数
function ImgToString(img)
    function test(imgX) –test是一个被包含在函数中的内部函数
        sleep(0);
        local limit = [...]