博文
VB编写的图片批量下载程序获得的谷歌图片里 田丽 的照片(2010-06-09 23:10:00)
摘要： 田丽
田丽
田丽
田丽
田丽
田丽
田丽
田丽
田丽
田丽
田丽
田丽
田丽
田丽
田丽
田丽
田丽
田丽
田丽
田
田丽
田 田丽
田丽
田丽
田丽
田丽 田丽 田丽 田丽
田丽
田丽丽
田丽
田丽
......
使用图片下载工具 获得的 Louise Glover 图片(2010-06-09 23:05:00)
摘要： Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Louise Glover
Lou......
华裔女大学生张丽变身艳星:拍A片与星巴克打工无异(2010-06-09 13:01:00)
摘要： 张丽
张丽
张丽
张丽
张丽
张丽
张丽
张丽
张丽
张丽
张丽
张丽
张丽
张丽
张丽
张丽
张丽
张丽
......
VBScript中的文件操作(2009-11-10 11:12:00)
摘要：
3。对文件的操作
对文件的操作主要包括：
创建文件 写入文件 读取文件 移动、复制和删除文件
1）创建文件
创建文件主要有三种方法：
CreateTextFile 方法，如：
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
CreateTextFile方法的具体用法是这样的：
object.CreateTextFile(filename[, overwrite[, unicode]])
其中object参数为FSO对象名称；filename参数设置文件的路径；overwrite为布尔值,true代表可以覆盖，false代表不可覆盖；最后一个可选参数指明是否以Unicode储存文件，true代表使用unicode，false代表使用ASCII方式，省略时默认为ASCII方式。
OpenTextFile 方法
Dim fso, ts
Const ForWriting = 2
Set fso = CreateObject("Scripting. FileSystemObject")
Set ts = fso.OpenTextFile("c:\test.txt", ForWriting, True)
OpenTextFile方法的具体使用方法：
object.OpenTextFile(filename[,......
VBScript 遍历表单元素, 简化数据操作代码(2009-11-10 10:49:00)
摘要：
作用及说明:
操作数据时, 大都离不开表单, 更新的时候, 要列出打出一堆 request.* 和数据字段.
采用遍历表单元素可省去一堆不必要的事情.
主要注意的是表单元素的命名法.
如果数据字段有良好的命令规则的话, 那好办, 可采用 instr()函数进行筛选
如果数据字段原先没有良好的命令规则, 那也好办, 还是用 instr() 函数进行筛选 ,这就需要在表单域中不需要操作的元素建立一个命名前缀, 再用 instr() 进行筛选
1. 两种方法遍历表单元素
2. 一个操作 XML 数据的例子
两种方法遍历表单元素:
1 遍历表单元素
dim x '列出表单中所有元素
for x=1 to request.Form.count
response.write request.form.key(x)&" --- "
response.write request.form(x)&"<br/>"
next
// request.form.key(x) 为 元素名
// request.form(x) 为 元素值
2 遍历表单元素
dim elem
for each elem in request.form
r......
TOM相册下载程序(2009-08-04 06:51:00)
摘要：昨天在百度的知道看到一个朋友向批量下载 TOM 的相册。我就用了一下午的时间，改造了 原来的 搜狐博客下载，上传过来大家分享。
网络的批量下载是很多朋友喜欢的，我很久没有再考虑这些，这次的程序很适合100张以内的照片下载，如果照片张数过多，在下载的时候耗费资源多，会显得有些迟钝。
使用方法：
1。找到喜欢的相册，打开他的第一张图片。
2。复制地址栏的地址。
3。粘贴到指定位置。
4。点击查看图片。
5。在一个新的页面里看多所有的图片了，在文件菜单 点击 另存为 —— —— 把网页全部存在指定位置，就获得了所有图片。
以下内容是 TOM相册下载器的 Form1 的源代码,没有过多的解释,朋友们自己读一下,有需要交流的请联系.
VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "ieframe.dll"
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "msinet.ocx"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 12030
ClientLeft = 60
ClientTop = 345
ClientWidth = 13455
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 12030
ScaleWidth = 13455
StartUpPosition = 3 '窗口缺省
Begin SHDocVwCtl.WebBrowser WebBrowser2
Height = 9615
Left = 0
TabIndex = 13
Top = 0
Width = 13095
ExtentX = 23098
ExtentY = 16960
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
Re......
uft-8格式和unicode编码的互相转换(2009-07-29 14:50:00)
摘要：
系统自带的记事本有读写UTF－8文本文件的功能，我想在自编的记事本中也加入这个功能，但在网上查找了一个钟头，竟然找不到用VB编写的代码。于是我在网上找了很多UTF－8的文章，还真的获益非浅，起码对UTF－8略知一二了。
当我做完最后一次试验时，长长地叹了一口气，美美地伸了一个懒腰，呵呵，真爽啊，一天的时间终于没有白费！这也许就是编程的乐趣吧，当看到程序按照自己的愿望运行时，你们的心情一定也与我是一样的，无比舒畅。
下面我先简单讲述一下UTF－8编码的有关知识，并且只讲与我编写的读写UTF－8文本代码有关的知识，详细的理论请各位自己找专业文章看看。
UTF-8 编码字符理论上可以最多到 6个字节长，但目前全世界的所有文字和符号种类加起来也只要编到 4个字节长就够了。UTF-8 是以 8位（即 1个字节）为单元对原始码进行编码（注意一点：这里所讲的原始码都是指Unicode码），并规定：多字节码（2个字节以上才称为多字节）以转换后第1个字节起头的连续“1”的数目（这些连续“1”称为标记位），表示转换成几个字节：“110”连续两个 “1”，表示转换结果为2个字节，“1110”表示3个字节，而“11110” 则表示4个字节……跟随在标记位之后的“0”，其作用是分隔标记位和字符码位。第2～第4个字节的起头两个位固定设置为“10”，也作为标记，剩下的6个位才做为字符码位使用。这样，2字节UTF-8码剩下11个字符码位，可用以转换0080～07FF的原始字符码，3字节剩下16个字符码位，可用以转换0800～FFFF的原始字符码，由此类推。
编码方式的模板如下：
原始码（16进制） | UTF－8编码（二进制）
0000 - 007F | 0xxxxxxx
0080 - 07FF ......