'获取随机数Public function randonum() Randomize randonum = replace(10000*rnd(),".","a") & "@qq.com"End Function'获取指定范围内的随机数MAX,MINRandomizeWScript.EchoIn.....
分类：
其他好文 时间：
2014-11-26 18:16:58
阅读次数：
258
'设置剪切板的内容Dim Form, TextBoxSet Form = CreateObject("Forms.Form.1")Set TextBox = Form.Controls.Add("Forms.TextBox.1").ObjectTextBox.MultiLine = TrueText...
分类：
其他好文 时间：
2014-11-26 17:57:34
阅读次数：
196
Windows下批处理文件没有像Linux一样的Sleep函数进行延时处理，这里有2种较为实用的方法实现延迟：
1、使用WScirpt的sleep功能，精度0.001秒
创建vbs延迟文件，然后在批处理文件中调用，使用WScript的 sleep函数，实现sleep的效果。
实战：
1）创建文件sleep.vbs：
echo WScript.sleep 5000 > sleep.vb...
'创建数据表'参数：strDBPath?字符串型?数据库路径'参数：strTableName?字符串型?需要创建的数据表的名称'参数：strColumnName?字符串型?初始化的字段名称，其实可以算是多参数了，请注意看下面的例子。Sub?CreateTable(strDBPath,?strTabl...
分类：
其他好文 时间：
2014-11-26 16:20:29
阅读次数：
162
'创建数据库'参数：strDBPath?字符串型?数据库文件的完整路径Sub?CreateDataBase(strDBPath)Dim?catObjSet?catObj?=?CreateObject("ADOX.Catalog")catObj.Create?"Provider=Microsoft.J...
分类：
数据库 时间：
2014-11-26 16:16:52
阅读次数：
192
原理：建立CDO.Message对象，设置好参数后直接Send就可以了代码如下：NameSpace = "http://schemas.microsoft.com/cdo/configuration/"Set Email = CreateObject("CDO.Message")Email.From...
分类：
其他好文 时间：
2014-11-26 16:06:55
阅读次数：
140
'为已经创建好的数据表添加字段'参数：strDBPath?字符串型?数据库路径'参数：strTableName?字符串型?需要创建的数据表的名称'参数：strColumnName?字符串型?需要添加的字段名称'参数：strColumnType?字符串型?需要添加的字段数据类型Sub?AddColum...
分类：
其他好文 时间：
2014-11-26 16:04:54
阅读次数：
217
IIS6上的做法:1.命令行键入:cscript.exe %SYSTEMDRIVE%\inetpub\adminscripts\adsutil.vbs SET W3SVC/AppPools/Enable32bitAppOnWin64 1即设置IIS6允许32位程序运行在64位机器上2.重新注册.ne...
Vbs程序备份指定文件到指定目录并且以日期重命名说到备份，相信大家都会想到的第一个方法就是通过windows系统自带的windowbackup功能进行数据备份。后来微软又出了systemcentere产品后，就出现了一个新的备份产品---systemcenteredatabackupmanager（DPM）。这些功能备份比较大..
分类：
其他好文 时间：
2014-11-17 14:11:29
阅读次数：
428
开始学习VBS了~语法VarType(varname)varname 参数可以是任何变量。返回值VarType 函数返回下列值：常数 值 描述vbEmpty 0 Empty（未初始化）vbNull 1 Null（无有效数据）vbInteger 2 整数vbLong 3 长整数vbSingle 4 单...
分类：
其他好文 时间：
2014-11-14 01:26:37
阅读次数：
165
