按照修改时间差异复制指定文件夹里所有文件
按照修改时间差异复制指定文件夹里所有文件,压缩包里两个文件,一个用于更新服务器端文件列表(目的是提高效率),一个用于自动更新并启动程序,代码不复杂,稍做修改就可用,可用于小软件公司自动更新软件用,缺点是没有更新进度条
打印指定文件夹里的图片.vbs
定时2秒打印指定文件夹里的图片,打印完毕后删除图片,文件夹始终保持空的,当有jpg图片写入后,2秒钟内打印它,删除它,此脚本适用于集中打印,且不用客户端安装程序
clonecd简体中文版5.3.1.7.rar
大名鼎鼎的clonecd,可以复制被加密的光盘,这种光盘在DVD机上可以播放,但在电脑光驱上会被识别坏盘,加密原理就是在光盘中插入坏道,所以让光驱读不了,而clone cd 可以控制光驱强制读取坏道,最终生成ISO镜像文件,以后再电脑或手机上播放不在是问题,注意,经过我的测试,台式机的光驱比笔记本电脑读盘能力强,即便如此,加密的光盘也需要读取3-4个小时
WMI代码生成器.rar
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-2.0beta4-setup.rar
win7 下的VNC
win7 下的VNC,有兴趣的朋友,可以下来试试。支持win7 32位和64位、winxp和win10也支持,英文版的没汉化,我有个中文企业版的但仅支持winxp,可以在我上传的资源中搜索
VBS调用API必须使用的dll_dynwrap
在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(绝对可用!)
MySQL5.0(xp下的安装包)+ Navicat(8.0.20)+Patch(绝对可用!)安装教程请访问:http://blog.csdn.net/yanzi1225627
oracle11gClient64位下载.rar
35分太贵了,给他变成1分O(∩_∩)O
oracle11g64位的客户端,可以配合我之前上传的腾讯云安装oracle11g的文档一起使用,在腾讯云上建好oracle11g数据库,在windows系统上可以用plsql访问
ICD-10疾病编码(修订版).xls.zip
ICD-10疾病编码(修订版).xls.zip
最全编码居然要26积分,看我给它变成1积分,适合导入数据库,做HIS
信息科科室安全检查记录表(vba插入工作日记录)
代码很简单,需要启用宏,具体代码如下:
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计算工作日)
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
不包括串休信息
2020年日期数据(区分周末、节假日、工作日).xls
IP轮询_网络设备查询程序
此程序在winxp下测试通过,以owc11.exe作为显示界面,利用windows HTA解释器,使用javascript脚本编程,调用WMI控件ping网络,使用excel存储参数及数据结果。这是一个网络软件,简单到只能ping主机IP地址,但对于机关及企业事业单位的网管,你不想记录设备IP所在位置么?尤其是存在多个网管的单位,配置IP不能冲突,你必须时刻了解网络中占用的IP地址,如果使用Windows操作系统请执行 netsh firewall set icmpsetting 8 命令开启ICMP回显,否则防火墙会阻挡你的PING命令,当领导问你网络中有多少设备的时候,这个程序可以帮助你快速建立电子表格
合并当前路径下所有的excel.hta
合并当前路径下所有的excel.hta,资源如名字,使用ado读取excel到activeX,递归遍历脚本所在目录下的所有子目录,需要支持<object classid="clsid:0002E559-0000-0000-C000-000000000046" id="Spreadsheet1"/>标签,在安装有office2003完整版的WinXp下测试通过。
局域网内所有电脑硬件信息和文件的采集
这是一款网管软件,可以对局域网内的电脑硬件信息进行采集,还可以搜集局域网内所有电脑的文件列表和内容,代码不是拿来就能用的,需要经过本地化修改,建议不懂vbs的就不要下载了。
需要安装sql2000服务器
完美国际按键精灵9脚本源码(2012-9-19日更新)
没有太大改动,主要是更新了基址和矿坐标文件,由于我的小老虎升到了70级,可以去落日高原和龙战之野挖中级矿了,那里都是物理攻击怪物,打老虎不疼,还是老规矩把脚本导入按键精灵9,然后把SiteList.txt文件放在C盘根目录即可运行。
textcopy.exe
textcopy.exetextcopy.exetextcopy.exetextcopy.exe
Vbs基础入门教程.chm
粗略看了一下,不错,文件体检虽小,但是基本知识都涵盖在里面了,的确是一本很好的vbs入门教材
TeamViewer-v4.0.9741H
因为采用底层驱动技术,所以速度非常快,而且可以穿透任何防火墙和NAT转换,本人一直在使用它帮助亲戚朋友远程解决电脑问题,免费用于非商业,不支持服务器,不支持看远程视频及3D游戏,可到我QQ81427539空间查看教程
GridView和DataGridView控件的使用方法(中文word版)
GridView和DataGridView控件的使用方法(中文word版),比较详细