lilin3247的专栏

按照修改时间差异复制指定文件夹里所有文件，压缩包里两个文件，一个用于更新服务器端文件列表（目的是提高效率），一个用于自动更新并启动程序，代码不复杂，稍做修改就可用，可用于小软件公司自动更新软件用，缺点是没有更新进度条

定时2秒打印指定文件夹里的图片，打印完毕后删除图片，文件夹始终保持空的，当有jpg图片写入后，2秒钟内打印它，删除它，此脚本适用于集中打印，且不用客户端安装程序

大名鼎鼎的clonecd，可以复制被加密的光盘，这种光盘在DVD机上可以播放，但在电脑光驱上会被识别坏盘，加密原理就是在光盘中插入坏道，所以让光驱读不了，而clone cd 可以控制光驱强制读取坏道，最终生成ISO镜像文件，以后再电脑或手机上播放不在是问题，注意，经过我的测试，台式机的光驱比笔记本电脑读盘能力强，即便如此，加密的光盘也需要读取3-4个小时

Windows Management Instrumentation,Windows 管理规范 微软WMI代码生成器 利用WMI代码生成器可以执行查询或者执行一个方法等，还可以查看当前或者远程电脑上的命名空间以及其下的类，并且还可以生成相关的代码（不然就不叫WMI代码生成器了），支持生成的代码类型包括VBS、C#及VB.NET，默认生成的代码是VBS。 关于软件的具体用法请见本人博客：http://blog.csdn.net/zhoufoxcn/archive/2009/06/16/4272209.aspx

win7 下的VNC win7 下的VNC,有兴趣的朋友，可以下来试试。支持win7 32位和64位、winxp和win10也支持，英文版的没汉化，我有个中文企业版的但仅支持winxp，可以在我上传的资源中搜索

在vbs中调用win32 api，使VBS如虎添翼。压缩文件里有2个vbs示例，简单易懂，dll文件需要注册，请百度 CopyFileA.vbs MessageBox.vbs

MySQL5.0(xp下的安装包)+ Navicat(8.0.20)+Patch（绝对可用！） MySQL5.0(xp下的安装包)+ Navicat(8.0.20)+Patch（绝对可用！）安装教程请访问：http://blog.csdn.net/yanzi1225627

35分太贵了，给他变成1分O(∩_∩)O oracle11g64位的客户端，可以配合我之前上传的腾讯云安装oracle11g的文档一起使用，在腾讯云上建好oracle11g数据库，在windows系统上可以用plsql访问

ICD-10疾病编码(修订版).xls.zip 最全编码居然要26积分，看我给它变成1积分，适合导入数据库，做HIS

代码很简单，需要启用宏，具体代码如下： Sub Workbook_Open() Range("A3:F25").ClearContents a = 3 monthDays = Day(DateSerial(Year(Date), Month(Date) + 1, 0)) For i = 1 To monthDays date1 = Year(Now()) & "-" & Month(Now()) & "-" & i If workDay(date1) = "○" Then Range("A" & a).Value = date1 Range("B" & a).Value = "李四" Range("C" & a).Value = "同前页" Range("D" & a).Value = "无异常" a = a + 1 End If Next End Sub '判断指定日期是否上班 Function workDay(rq) Dim cel As Range If Weekday(rq) = 1 Or Weekday(rq) = 7 Then temp = "休" For Each cel In Range("节假日表!B2:B17") a = DateDiff("d", cel.Value, rq) If a = 0 Then temp = "○" Exit For End If Next Else temp = "○" For Each cel In Range("节假日表!A2:A37") a = DateDiff("d", cel.Value, rq) If a = 0 Then temp = "休" Exit For End If Next End If workDay = temp End Function

vba代码很简单，如下；数据来源于“国务院办公厅关于2020年部分节假日安排的通知” =workDay(YEAR(TODAY())&"-"&MONTH(TODAY())&"-"&B3) '判断指定日期是否上班 Function workDay(rq) Dim cel As Range If Weekday(rq) = 1 Or Weekday(rq) = 7 Then temp = "休" For Each cel In Range("节假日表!B2:B17") a = DateDiff("d", cel.Value, rq) If a = 0 Then temp = "○" Exit For End If Next Else temp = "○" For Each cel In Range("节假日表!A2:A37") a = DateDiff("d", cel.Value, rq) If a = 0 Then temp = "休" Exit For End If Next End If workDay = temp End Function

2020年日期数据(区分周末、节假日、工作日).xls 不包括串休信息 2020年日期数据(区分周末、节假日、工作日).xls

此程序在winxp下测试通过，以owc11.exe作为显示界面，利用windows HTA解释器，使用javascript脚本编程，调用WMI控件ping网络，使用excel存储参数及数据结果。这是一个网络软件，简单到只能ping主机IP地址，但对于机关及企业事业单位的网管，你不想记录设备IP所在位置么？尤其是存在多个网管的单位，配置IP不能冲突，你必须时刻了解网络中占用的IP地址，如果使用Windows操作系统请执行 netsh firewall set icmpsetting 8 命令开启ICMP回显，否则防火墙会阻挡你的PING命令，当领导问你网络中有多少设备的时候，这个程序可以帮助你快速建立电子表格

合并当前路径下所有的excel.hta，资源如名字，使用ado读取excel到activeX，递归遍历脚本所在目录下的所有子目录，需要支持<object classid="clsid:0002E559-0000-0000-C000-000000000046" id="Spreadsheet1"/>标签，在安装有office2003完整版的WinXp下测试通过。

这是一款网管软件，可以对局域网内的电脑硬件信息进行采集，还可以搜集局域网内所有电脑的文件列表和内容，代码不是拿来就能用的，需要经过本地化修改，建议不懂vbs的就不要下载了。 需要安装sql2000服务器

没有太大改动，主要是更新了基址和矿坐标文件，由于我的小老虎升到了70级，可以去落日高原和龙战之野挖中级矿了，那里都是物理攻击怪物，打老虎不疼，还是老规矩把脚本导入按键精灵9，然后把SiteList.txt文件放在C盘根目录即可运行。

textcopy.exetextcopy.exetextcopy.exetextcopy.exe

粗略看了一下，不错，文件体检虽小，但是基本知识都涵盖在里面了，的确是一本很好的vbs入门教材

因为采用底层驱动技术，所以速度非常快，而且可以穿透任何防火墙和NAT转换，本人一直在使用它帮助亲戚朋友远程解决电脑问题，免费用于非商业，不支持服务器，不支持看远程视频及3D游戏，可到我QQ81427539空间查看教程

GridView和DataGridView控件的使用方法(中文word版)，比较详细