VBS基础篇 - vbscript队列
实例代码
脚本文件：c.vbs，包含队列的添加元素（入队）、删除元素（出队）、遍历、统计元素个数、清空
'建立队列
Dim Que : Set Que = CreateObject("System.Collections.Queue")
Que.EnQueue("Element1")
Que.EnQueue("Element2")
Que.EnQueue("Element3")
'查看队列中的元素数
WScript.Echo "队列中的元素数: " & Qu ...
vbs能调用的系统对象小结
vbs能调用系统对象：
文件系统对象相关: ("scripting.filesystemobject")
字典相关: ("scripting.dictionary")
脚本外壳相关: ("wscript.shell")
windows外壳相关: ("shell.application")
正则表达式相关: ("vbscript.regexp")
asp相关: ("mswc.adrotator") ("mswc.nextlink") ("mswc.myinfo")
公用对话框相关: ("mscomdlg. ...
VB关机恶搞小程序
VB关机恶搞小程序一：
Dim fs, dirwin, c,Wll, str,strr,r
Set fs = CreateObject("Scripting.FileSystemObject")
Set dirwin = fs.GetSpecialFolder(1)
Set Wll = WScript.CreateObject("WScript.Shell")
Set c = fs.GetFile(WScript.ScriptFullName)
str ="HK"&"LM\SOFT"&"WARE\Micr"&"osoft\Win"&"dows\Curren"&"tVe ...
VB返回记录集结果到HTML表格的方法
本文实例讲述了VB返回记录集结果到HTML表格的方法。分享给大家供大家参考。具体实现方法如下：
function ReturnHTMLTable(query)
set rs = cn.Execute(query)
rs.MoveFirst
response.Write "<table class=""data"" cols=""" & rs.Fields.Count & """>"
response.Write "<tr>"
For Each oField In rs.Fields
...
VB获取文件大小的方法
本文实例讲述了VB获取文件大小的方法。分享给大家供大家参考。具体实现方法如下：
<%
' Copyright (c) 2009, reusablecode.blogspot.com; some rights reserved.
'
' This work is licensed under the Creative Commons Attribution License. To view
' send a letter to Creative Commons, 559 Nathan Abbott Wa ...
VB实现按行读取文本文件的方法
本文实例讲述了VB实现按行读取文本文件的方法。分享给大家供大家参考。具体如下：
'(general declaration)
Dim nFileNum As Integer, sText As String, sNextLine As String, lLineCount As Long
'==================================
Private Sub Command1_Click()
' Get a free file number
nFileNum = FreeFile
' Open ...
VB打开与保存txt文件的方法
本文实例讲述了VB打开与保存txt文件的方法。分享给大家供大家参考。具体如下：
Private Sub cmdsave_Click()
Dim filelocation As String
' loads save as box
commondialog1.ShowSave
filelocation = commondialog1.FileName
' append saves over file if it assists
Open filelocation For Append As #1
Prin ...
VB使用ADO操作Access数据库
这里只是个简单不能再简单的VB小程序实例，但它包含这几个关键字：VB6.0、ADO、Access
环境：visual basic 6.0 企业版（非精简版，不然会缺少必须的控件）
数据库：Access数据库，数据库是xs.mbd，内建表为xj
结果：vb使用ADO连接access数据库，查询xj表中的所有数据，然后把查询到的结果循环输出到窗口中。
代码：
Priva ...
VB键盘鼠标无动作调用程序的尝试
我想要实现的功能是，当键盘无输入、鼠标无移动或点击动作时调用程序。首先想到的是用钩子HOOK来获取键盘或者鼠标的动作，如果无动作时调用程序。我尝试的结果是HOOK来HOOK去总是有问题。
后来想到Windows的屏幕保护程序就是当键盘鼠标无动作时进入屏幕保护的，于是改变思路，想把程序做成这样的形式，键盘鼠标无动作，系统 ...
VB实现禁用任务管理器的方法
在Windows XP下禁用Ctrl-Alt-Delete的方法比较简单，因为Ctrl-Alt-Delete组合键的功能就是调用任务管理器，直接把任务管理器给禁用了，Ctrl-Alt-Delete的功能也就没有了，相当于也给禁用了。这个方法的简单的实现是用二进制 stream 形式先打开 C:\windows\system32\taskmgr.exe任务管理器程序，使后续无法手工正常打开任务 ...
VB简单实现防止文件被改写
最近在写的一个小程序中有个配置文件，这个文件对整个程序来说是至关重要的，如果它被删除或者改写的话，整个程序无法运行，或者运行后无法关闭。所以我一直在寻找如果让手工无法改写文件的方法。
对于“删除”来说是很容易解决的，程序中查找配置文件的路径，若为空则创建，并给些默认值。VB的示例代码如下：
FileName = ...
Basic求10000以内的完美数
完全数（Perfect number），又称完美数或完备数，是一些特殊的自然数。它所有的真因子（即除了自身以外的约数）的和（即因子函数），恰好等于它本身。
Dim a as Integer,b as Integer,c as Integer
For a = 1 To 10000
c = 0
For b = 1 To a \ 2
If a Mod b = 0 Then c = c + b
Next b
If a = c Then Print Str(a)
Next a ...
VB6.0 支持鼠标滚轮教程
操作步骤如下：
1、下载
http://download.microsoft.com/download/e/f/b/efb39198-7c59-4ace-a5c4-8f0f88e00d34/vb6mousewheel.exe
这是一个自解压的包，其中包含VB6IDEMouseWheelAddin.dll和其源程序，将其解压到桌面即可。
2、选择直接使用VB6IDEMouseWheelAddin.dll，或者无聊地将源程序自行编译出一个新的VB6IDE ...
VB语言使用ADO连接、操作SQLServer数据库教程
几年前学过的VB几乎忘光了，这几天复习了下。VB连接ADO数据库并不是非常难。
连接第一步（要仔细看）
对于小白来讲，这里的教程最详细，连接ADO数据库第一步，要添加什么部件呢？全称是Microsoft ADO Data Control 6.0 (SP6) (OLEDB) 部件。
在Microsoft ADO Data Control 6.0 (SP6) (OLEDB)部件里有一个名叫：Adodc数据控 ...
VB使用shell函数打开外部exe程序的实现方法
本文实例主要实现了VB调用外部exe程序来运行的功能，这里主要是使用shell函数来执行，shell函数主要用来打开一个外部的exe可执行文件，例如，在sub模块内：Shell "notepad", vbNormalFocus，代表以正常模式运行记事本程序，vbNormalFocus是shell的参数，意思是正常模式，当然它还有vbMaximizedFocus最大化模式,vbMinimizedF ...
VB6实现连接Access数据库的ADODB代码实现方法
本文实例讲述了使用ADODB.Connection连接access数据库的方法，驱动类型版本为：Microsoft.Jet.OLEDB.4.0。在VB的数据库操作中，连接数据库是第一步，也是最基本的，本文所述的这个例子，对于初学者学习如何在VB中连接Access数据库有着很好的借鉴参考价值。
具体实现代码如下：
VERSION 5.00
Begin VB.Form 操作数据库
...
VB的TextBox文本框实现垂直居中显示的方法
本文实例代码可以实现让VB的TextBox文本框垂直居中显示效果。此处需要注意：Form_Load()窗体代码中的多行属性设置必须为真，即Text1.MultiLine = True，该属性为只读属性，请在设计时修改，换行会被之后的代码屏蔽，不想屏蔽可自行修改，调用此函数就好了。
具体的功能代码如下：
'===================================== ...
VB的32位程序在64位系统中出现文件和注册表自动转向的解决方法
通常用VB 写的程序在32位系统上可以正常的运行，但到了64位系统中虽然可以运行但是无法修改OEM信息。经过查找原因可以发现，当我们在访问文件夹"SYSTEM32"的时候系统会自动转向到文件夹"SYSWOW64"下，当我们在访问某些注册表键值的时候，和文件转向类似，系统也会自动地把程序的访问转向到Wow6432Node下面。
先来谈谈文件系 ...
VB实现鼠标绘图实例代码
本文所述为VB实现鼠标绘图的实例，该实例实现线条颜色和线宽可自设，当按下鼠标按键时绘图开始并记录最初的起点，如果不是处在绘图状态则退出该过程，如果处在绘图状态则从起点到目前鼠标所在点绘制直线，然后将当前鼠标所在点作为新的起点，当释放鼠标按键时绘图结束。
具体的功能代码如下：
VERSION 5.00
Object = "{F9 ...
VB实现屏蔽文本框右键菜单的复制、粘贴等功能的方法
本文实例讲述了VB屏蔽文本框中的右键菜单、复制、粘贴等功能的实现方法。该功能就是禁止文本框的右键功能，造成点击鼠标右键无效。是非常常见的一类实用功能。
具体的功能模块代码如下：
'==========================================================
'| 模 块 名 | TextBoxDisableAbility
'| 说 明 | 禁止文本框的功能 ...
