|
cnitblog.com/lxasp - - 有一种信念叫做编程
|
posts - 61, comments - 34, trackbacks - 0, articles - 0
|
|
|
置顶随笔
三五成群
三人行，必有我师
父母是儿女的启蒙老师
合家欢
四面八方
用批处理实现的CAB压缩解压程序。可兼容在XP/2003/Win7/Win10使用。
主要的两个文件：
2cabexp.cmd --解压CAB压缩包文件到“我的文档”目录里，可支持拖放。在XP需要用本工具箱里的expand.exe和dpx.dll才可支持带目录结构的CAB文件解压。
2cabmkp.cmd --将目录或文件生成CAB压缩包文件的批处理，可支持拖放。
两个批处理都支持方便的拖放功能。在资源管理器中将所需文件拖放到2cabexp.cmd或2cabmkp.cmd的文件名中即可方便解压或压缩。
CAB压缩解压批处理工具箱下载： cabmkmenu_202309122102.zip
实现CAB压缩的重要参数设置如下： .OPTION EXPLICIT
.Set InfFileName=NUL
.Set RptFileName=NUL
.Set DestinationDir=
.Set CabinetName1="%~nx1.CAB"
.Set CabinetNameTemplate="%~nx1*.CAB"
.Set DiskDirectoryTemplate="%~dp1."
.Set UniqueFiles=OFF
.Set FolderSizeThreshold=2147483648
.Set MaxDiskSize=0
.Set Cabinet=on
.Set Compress=on
.Set CompressionType=LZX
.Set CompressionMemory=21
FolderSizeThreshold=2147483648 --这个就是单个CAB压缩包文件支持的最大容量（2GB）。
Windows Executable Program that does nothing, source included.
Here is a Windows exe that does nothing without black cmd window or anything else.
There are three editions here: a normal size 2048 bytes, a small size 1536 bytes, a micro size 523 bytes.
什么都不做的空操作的无窗口的EXE可执行文件--可用于替换不要常驻进程的EXE
含有3个版本：常规版的EXE，2048字节；缩小版的EXE，1536字节；微小版的EXE，523字节。
【下载】Download: nop-exe-nul-exe-w32.zip
VBScript实现运行“打开文件对话框”进行文件选择。（ 不创建临时文件） GetOpenFileName VBScript Solution Without Create Temporary File
Using HTA:APPLICATION with HtmlDlgHelper.openfiledlg(InitFilePath,'',FileTypeFilters,DialogCaption)
Return The Result FileName From FileSystemObject(FSO) Stdout
Fully compatible: Windows XP / Windows Server 2003 (IE6--IE8)Fully compatible: Windows 7 / Windows 8 / Windows 10 (IE8--IE11)
Fully compatible: Windows Vista (IE7) / Windows Server 2008 (IE7) VBScript Code: Function pickOpenFileName(caption,filters,initfn) caption= Trim(caption) Set w= CreateObject("WScript.Shell"):: Set k=w.Environment("PROCESS")::k("c")=caption::k("f")=filters::k("n")=initfn Set e=w.Exec("%SystemRoot%\System32\mshta.exe ""about:<SCRIPT>p=new ActiveXObject('WScript.Shell').Environment('PROCESS');document.write('<TITLE>'+(p('c')||'\xA0')+'</TITLE>');try{moveTo(-9e4,0)}catch(E){}onload=function(){B=D.openfiledlg(p('n'),'',p('f'),p('c'));new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(B);close()}</SCRIPT><HTA:APPLICATION WINDOWSTATE=minimize /><OBJECT ID=D CLASSID=CLSID:3050F4E1-98B5-11CF-BB82-00AA00BDCE0B></OBJECT>""") pickOpenFileName=e.StdOut.ReadLine End FunctionFunction takeOpenFileName(caption,filters,initfn,msght) caption= Trim(caption) Set w= CreateObject("WScript.Shell"):: Set k=w.Environment("PROCESS")::k("c")=caption::k("f")=filters::k("n")=initfn::k("m")=msght Set e=w.Exec("%SystemRoot%\System32\mshta.exe ""about:<HTA:APPLICATION BORDER=none SHOWINTASKBAR=no INNERBORDER=no SCROLL=no /><BODY BGCOLOR=#DDEEFF TEXT=#336699><H1 ALIGN=RIGHT><SCRIPT>p=new ActiveXObject('WScript.Shell').Environment('PROCESS');document.write(p('m'))</SCRIPT></H1><OBJECT ID=D CLASSID=CLSID:3050F4E1-98B5-11CF-BB82-00AA00BDCE0B></OBJECT><SCRIPT>onload=function(){B=D.openfiledlg(p('n'),'',p('f'),p('c'));new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(B);close()}</SCRIPT>""") takeOpenFileName=e.StdOut.ReadLine End FunctionSub maybeSplashScreen() Set w= CreateObject("WScript.Shell") v=w.RegRead("HKLM\SOFTWARE\Microsoft\Internet Explorer\Version") If CInt( Left(v,2))>7 Then Exit Sub v=w.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion") If CInt( Left(v,2))>5 Then Set e=w.Exec("%SystemRoot%\System32\mshta.exe ""about:<HTA:APPLICATION BORDER=none SHOWINTASKBAR=no INNERBORDER=no SCROLL=no /><STYLE>body{margin:0}table{border-collapse:collapse}table,td{border:5px solid #6F6}</STYLE><BODY BGCOLOR=#009900 TEXT=#FFFFFF><TABLE WIDTH=100% HEIGHT=100%><TR VALIGN=MIDDLE><TD ALIGN=CENTER><FONT SIZE=7>正在加载...<BR>Loading...</FONT></TD></TR></TABLE></BODY>""") WScript.Sleep 500 e.Terminate End IfEnd SubmaybeSplashScreen() r=pickOpenFileName("","","") If Len(r)>0 Then MsgBox r,64,"OpenFile" r=pickOpenFileName("请选择数据文件","电子表格(*.xls)|*.xls|所有文件(*.*)|*.*|","") If Len(r)>0 Then MsgBox r,64,"OpenFile" r=takeOpenFileName("","","","欢迎使用<BR>实用软件") If Len(r)>0 Then MsgBox r,64,"OpenFile" r=takeOpenFileName("请选择数据文件","电子表格(*.xls)|*.xls|所有文件(*.*)|*.*|","","欢迎使用<BR>实用软件<BR>版本:202308") If Len(r)>0 Then MsgBox r,64,"OpenFile"
2023年10月24日
三五成群
三人行，必有我师
父母是儿女的启蒙老师
合家欢
四面八方
2023年10月15日
手动在cmd创建畸形目录输入命令：
md autorun.inf
cd autorun.inf
md \\?\%cd%\.
md \\?\%cd%\..
md ...\
复制进文件时：
cd autorun.inf\...\...\
copy c:\tmp\1\*.*
复制出文件时：
cd autorun.inf\...\...\
copy *.* c:\tmp\2\
注意：必须在CMD里使用。在资源管理器可以看见“...”但不能“正常”使用该目录（无法删除也无法复制出里面的文件）。
2023年9月28日
用批处理实现的CAB压缩解压程序。可兼容在XP/2003/Win7/Win10使用。
主要的两个文件：
2cabexp.cmd --解压CAB压缩包文件到“我的文档”目录里，可支持拖放。在XP需要用本工具箱里的expand.exe和dpx.dll才可支持带目录结构的CAB文件解压。
2cabmkp.cmd --将目录或文件生成CAB压缩包文件的批处理，可支持拖放。
两个批处理都支持方便的拖放功能。在资源管理器中将所需文件拖放到2cabexp.cmd或2cabmkp.cmd的文件名中即可方便解压或压缩。
CAB压缩解压批处理工具箱下载： cabmkmenu_202309122102.zip
实现CAB压缩的重要参数设置如下： .OPTION EXPLICIT
.Set InfFileName=NUL
.Set RptFileName=NUL
.Set DestinationDir=
.Set CabinetName1="%~nx1.CAB"
.Set CabinetNameTemplate="%~nx1*.CAB"
.Set DiskDirectoryTemplate="%~dp1."
.Set UniqueFiles=OFF
.Set FolderSizeThreshold=2147483648
.Set MaxDiskSize=0
.Set Cabinet=on
.Set Compress=on
.Set CompressionType=LZX
.Set CompressionMemory=21
FolderSizeThreshold=2147483648 --这个就是单个CAB压缩包文件支持的最大容量（2GB）。
Windows Executable Program that does nothing, source included.
Here is a Windows exe that does nothing without black cmd window or anything else.
There are three editions here: a normal size 2048 bytes, a small size 1536 bytes, a micro size 523 bytes.
什么都不做的空操作的无窗口的EXE可执行文件--可用于替换不要常驻进程的EXE
含有3个版本：常规版的EXE，2048字节；缩小版的EXE，1536字节；微小版的EXE，523字节。
【下载】Download: nop-exe-nul-exe-w32.zip
2023年8月29日
获得“我的文档”目录路径：
FOR /F "TOKENS=1,2 DELIMS=:" %%A IN ('REG QUERY "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Personal') DO (SET "DC=%%A"&SET "DS=%%B")
SET DS=%DC:~-1,1%:%DS%
获得随机数：
SET /a rnd=%random%%%(30000-10000+1)+10000
取字符串后缀最后一个字符并判断是否含有斜杠\ 为字符串末尾自动加上斜杠\
SET DZ=%DQ:~-1%
IF NOT "%DZ%"=="\" (SET "DQ=%DQ%\"&SET "DZ=")
字符串替换去除双引号
SET ST=%ST:"=%
字符串替换空格为0 字符串去除冒号: 字符串去除点号.
SET MT=%time%
SET MT=%MT::=%
SET MT=%MT:.=0%
SET MT=%MT: =0%
ECHO %MT%
取得参数路径的属性并判断是否为文件夹目录
SET ATT=%~A1
SET ATT=%ATT:~0,1%
IF /I "%ATT%"=="d" SET TAR=%~F1\
取得字符串长度
@ECHO OFF
SET /P STR=请输入任意长度字符串：
IF NOT DEFINED STR GOTO :EOF
SET TLEN=0
:LBLEN
SET /A TLEN+=1
SET STR=%STR:~0,-1%
IF DEFINED STR GOTO :LBLEN
ECHO 字符串长度(字符个数)：%TLEN%
PAUSE
可以一行内写多个SET变量的情况：SET 加双引号，并且在同一行内不可引用同一行内其他的变量。
因为当前行的变量内容要在本行结束后才生效。但是，从文本长度大小来算，加双引号在同一行写的，比直接回车的字节要多。
两个双引号和&共3个字节，而回车换行CRLF是2个字节。
SET /A "RA=%RANDOM%%%(30000-10000+1)+10000"&SET "TA=%~A1"&SET "TD=%~D1"
VBScript实现运行“打开文件对话框”进行文件选择。（ 不创建临时文件） GetOpenFileName VBScript Solution Without Create Temporary File
Using HTA:APPLICATION with HtmlDlgHelper.openfiledlg(InitFilePath,'',FileTypeFilters,DialogCaption)
Return The Result FileName From FileSystemObject(FSO) Stdout
Fully compatible: Windows XP / Windows Server 2003 (IE6--IE8)Fully compatible: Windows 7 / Windows 8 / Windows 10 (IE8--IE11)
Fully compatible: Windows Vista (IE7) / Windows Server 2008 (IE7) VBScript Code: Function pickOpenFileName(caption,filters,initfn) caption= Trim(caption) Set w= CreateObject("WScript.Shell"):: Set k=w.Environment("PROCESS")::k("c")=caption::k("f")=filters::k("n")=initfn Set e=w.Exec("%SystemRoot%\System32\mshta.exe ""about:<SCRIPT>p=new ActiveXObject('WScript.Shell').Environment('PROCESS');document.write('<TITLE>'+(p('c')||'\xA0')+'</TITLE>');try{moveTo(-9e4,0)}catch(E){}onload=function(){B=D.openfiledlg(p('n'),'',p('f'),p('c'));new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(B);close()}</SCRIPT><HTA:APPLICATION WINDOWSTATE=minimize /><OBJECT ID=D CLASSID=CLSID:3050F4E1-98B5-11CF-BB82-00AA00BDCE0B></OBJECT>""") pickOpenFileName=e.StdOut.ReadLine End FunctionFunction takeOpenFileName(caption,filters,initfn,msght) caption= Trim(caption) Set w= CreateObject("WScript.Shell"):: Set k=w.Environment("PROCESS")::k("c")=caption::k("f")=filters::k("n")=initfn::k("m")=msght Set e=w.Exec("%SystemRoot%\System32\mshta.exe ""about:<HTA:APPLICATION BORDER=none SHOWINTASKBAR=no INNERBORDER=no SCROLL=no /><BODY BGCOLOR=#DDEEFF TEXT=#336699><H1 ALIGN=RIGHT><SCRIPT>p=new ActiveXObject('WScript.Shell').Environment('PROCESS');document.write(p('m'))</SCRIPT></H1><OBJECT ID=D CLASSID=CLSID:3050F4E1-98B5-11CF-BB82-00AA00BDCE0B></OBJECT><SCRIPT>onload=function(){B=D.openfiledlg(p('n'),'',p('f'),p('c'));new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(B);close()}</SCRIPT>""") takeOpenFileName=e.StdOut.ReadLine End FunctionSub maybeSplashScreen() Set w= CreateObject("WScript.Shell") v=w.RegRead("HKLM\SOFTWARE\Microsoft\Internet Explorer\Version") If CInt( Left(v,2))>7 Then Exit Sub v=w.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion") If CInt( Left(v,2))>5 Then Set e=w.Exec("%SystemRoot%\System32\mshta.exe ""about:<HTA:APPLICATION BORDER=none SHOWINTASKBAR=no INNERBORDER=no SCROLL=no /><STYLE>body{margin:0}table{border-collapse:collapse}table,td{border:5px solid #6F6}</STYLE><BODY BGCOLOR=#009900 TEXT=#FFFFFF><TABLE WIDTH=100% HEIGHT=100%><TR VALIGN=MIDDLE><TD ALIGN=CENTER><FONT SIZE=7>正在加载...<BR>Loading...</FONT></TD></TR></TABLE></BODY>""") WScript.Sleep 500 e.Terminate End IfEnd SubmaybeSplashScreen() r=pickOpenFileName("","","") If Len(r)>0 Then MsgBox r,64,"OpenFile" r=pickOpenFileName("请选择数据文件","电子表格(*.xls)|*.xls|所有文件(*.*)|*.*|","") If Len(r)>0 Then MsgBox r,64,"OpenFile" r=takeOpenFileName("","","","欢迎使用<BR>实用软件") If Len(r)>0 Then MsgBox r,64,"OpenFile" r=takeOpenFileName("请选择数据文件","电子表格(*.xls)|*.xls|所有文件(*.*)|*.*|","","欢迎使用<BR>实用软件<BR>版本:202308") If Len(r)>0 Then MsgBox r,64,"OpenFile"
2017年4月27日
摘要: 关系数据库的设计思路和程序可重用的设计思路是相反的。
一套数据库应用系统的设计就是要把这两种相反的设计思路融合在一起。
示例
学生
姓名
证件类型
证件号码
电子邮箱
手机号码
教师
姓名
证件类型
证件号码
电子邮箱
手机号码
关系数据库的设计思路是【拆】
学生基本表
教师基本表
学生证件表
教师证件表
学生联系表
教师联系表
程序可重用的设计思路是【合】
设计一个用户的基类
然后把学生和教师继承于用户的基类
用户
学生
教师 阅读全文
2016年5月6日
本人懂得 visual basic,delphi,vbscript,asp,php,jsp,java,xml,html,css,javascript,python,jquery,extjs,vuejs,auguarjs,bootstrap,react,babel,thinkphp,codeigniter,laravel,symfony,phalcon,yii,autoit,purebasic,powerbasic,docker,stucts,spring mvc,hibernate,jpa repository,annotation,weblogic等单词的拼写...
本人懂得 dreamweaver,photoshop,eclipse,apache,nginx,lighttpd,jdk,redis,memcached,tomcat,mysql,sql server,oracle,toad,postgresql,sublime text,visual studio,visio,xmind,navicat,nodejs,electron,mongodb,visualsvn server,tortoisesvn,bitnami,redmine,scm manager,firefox,firebug,virtualbox,vmware,serv-u,filezilla等软件的下载....
2016年4月26日
摘要: <!DOCTYPE html>
<html>
<head>
<meta charset="utf-8" />
<meta name="viewport" content="width=devi... 阅读全文
|
|