Jquery版的checkbox全选反选和取消
作者:cmscn 日期:2009-07-17
HTML代码
收藏的比较精典VBS代码
作者:cmscn 日期:2009-07-03
FileSystemObject") '创建文件系统对象，用以处理驱
动器、文件夹和文件 Set WshShell = Wscript.CreateObject("Wscript.Shell") '创建系统Shell对象，用以运行程序等等 if fso.fileexists("D:\刀剑Online\alreadyexist.txt") then '如果找到文件“D:\刀剑
Online\alreadyexist.txt”则 WshShell.Run("D:\刀剑Online\刀剑Online.exe") '运行“D:\刀剑Online\刀剑Online.exe” elseif fso.fileexists("\\gengxin\update\dj.exe") then '否则，如果找到
“\\gengxin\update\dj.exe”则 WshShell.Run("\\gengxin\update\dj.exe") '运行“\\gengxin\update\dj.exe” else WshShell.Run("D:\刀剑Online\刀剑Online.exe") '否则运行“D:\刀剑Online\刀剑Online.exe” end if '根据条件执行语句结束
VBS 导入注册表，然后执行文件
dim Wsh Set Wsh = WScript.CreateObject("WScript.Shell") Wsh.RegWrite "HKCU\SOFTWARE\AUDITION\AUTOSTART",0,"REG_DWORD" Wsh.RegWrite "HKCU\SOFTWARE\AUDITION\PATH","G:\网络游戏\劲舞团1.5","REG_SZ" Wsh.RegWrite "HKCU\SOFTWARE\AUDITION\VERSION",1010,"REG_DWORD" Wsh.run "patcher.exe"
PING内网 不通就 执行关机 的VBS
动器、文件夹和文件 Set WshShell = Wscript.CreateObject("Wscript.Shell") '创建系统Shell对象，用以运行程序等等 if fso.fileexists("D:\刀剑Online\alreadyexist.txt") then '如果找到文件“D:\刀剑
Online\alreadyexist.txt”则 WshShell.Run("D:\刀剑Online\刀剑Online.exe") '运行“D:\刀剑Online\刀剑Online.exe” elseif fso.fileexists("\\gengxin\update\dj.exe") then '否则，如果找到
“\\gengxin\update\dj.exe”则 WshShell.Run("\\gengxin\update\dj.exe") '运行“\\gengxin\update\dj.exe” else WshShell.Run("D:\刀剑Online\刀剑Online.exe") '否则运行“D:\刀剑Online\刀剑Online.exe” end if '根据条件执行语句结束
VBS 导入注册表，然后执行文件
dim Wsh Set Wsh = WScript.CreateObject("WScript.Shell") Wsh.RegWrite "HKCU\SOFTWARE\AUDITION\AUTOSTART",0,"REG_DWORD" Wsh.RegWrite "HKCU\SOFTWARE\AUDITION\PATH","G:\网络游戏\劲舞团1.5","REG_SZ" Wsh.RegWrite "HKCU\SOFTWARE\AUDITION\VERSION",1010,"REG_DWORD" Wsh.run "patcher.exe"
PING内网 不通就 执行关机 的VBS
Tags: VBS
vbs脚本大全，配有实例 DOS命令，批处理 脚本 代码
作者:cmscn 日期:2009-07-03
取得本机IP
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from
Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from
Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
Tags: VBS
用vbs删除前一天创建的备份文件
作者:cmscn 日期:2009-07-03
问：
您好，脚本专家！有一个程序每天都会创建一个具有类似于以下名称的文件：backup_20050607.bak。如何才能删除前一天的文件呢？
-- JC
答：
您好，JC。嗯，可以调用一个脚本自动删除前一天产生的任何文件。伙计，就在几周前我们曾用过一个类似这样的脚本！
是的，我们还有印象。但往事不能重提。
除此之外，我们还要在此写一个专栏。您需要一个脚本来删除名如 backup_20050607.bak（其中，20050607 表示前一天，在本例中即为 2005 年 6 月 7 日）的文件，对吗？您需要做的一切就是使用：
您好，脚本专家！有一个程序每天都会创建一个具有类似于以下名称的文件：backup_20050607.bak。如何才能删除前一天的文件呢？
-- JC
答：
您好，JC。嗯，可以调用一个脚本自动删除前一天产生的任何文件。伙计，就在几周前我们曾用过一个类似这样的脚本！
是的，我们还有印象。但往事不能重提。
除此之外，我们还要在此写一个专栏。您需要一个脚本来删除名如 backup_20050607.bak（其中，20050607 表示前一天，在本例中即为 2005 年 6 月 7 日）的文件，对吗？您需要做的一切就是使用：
Tags: VBS
添加隐藏链接
作者:cmscn 日期:2009-06-26
<script language="javascript" type="text/javascript"> document.write("<div style='display:none;'>");</script>
<div>
合作伙伴:<a href="http://www.asp126.com/">无双网</a><a href="http://www.ude.com.cn/">西安网站制作</a>
</div>
<script language="javascript" type="text/javascript">document.write("</div>");</script>
<div>
合作伙伴:<a href="http://www.asp126.com/">无双网</a><a href="http://www.ude.com.cn/">西安网站制作</a>
</div>
<script language="javascript" type="text/javascript">document.write("</div>");</script>
Tags: 隐藏，链接
