- 博客(183)
- 收藏
- 关注
RSS订阅原创 js两个按钮（属性为butten，而不是submit）选择
在一个form中放入两个按钮（属性为butten，而不是submit）如: <br> <input id="Radio3" type="radio" name="MessageWise" onclick="if(this.checked){MessageBlockID.disabled=true;};document.all.MessageBlock.value=this.val...
2011-10-31 15:35:59
218
原创 Javascript 大全
Event 事件 事件源对象event.srcElement.tagNameevent.srcElement.type捕获释放event.srcElement.setCapture();event.srcElement.releaseCapture();事件按键event.keyCodeevent.shiftKeyevent.altKeyevent.ctrlKey事件返回值event...
2011-05-28 18:36:15
126
原创 水果商绝不告诉你选水果的秘笈
下面是水果商挑选水果秘笈，偷师学学吧。 先为心急的你来个经验分享: 挑水果有一个秘诀，无论什么水果，在蒂的部位凹得越厉害就越甜 要挑选大小适中的水果，太大的极有可能是激素、膨大剂什么的催的。总之，太大的最好不要买，无论是水果还是河里的螃蟹、鱼和虾！ 北方卖的南方水果大都是用乱七八糟的东东催熟的，因为南方果子熟了后不好运输，只能是生的运过来再...
2010-06-17 13:44:26
201
原创 简单易学的20道不需发面的面食
简单易学的20道不需发面的面食1.口袋饼：用料:面粉200克;做法：1.面粉中加入适量的温水,充分地揉成光滑的面团,盖上保鲜膜饧20分钟;2.饧好的面团揉搓成条,再分成约50克重的小剂子;3.将小剂子用手按扁,再用擀面杖擀成约0.2厘米厚的面皮;4.取一张擀好的面皮,用小刷子在面皮的中间刷上油,边缘刷上水,再用另一张面皮将其盖起来,边缘按紧,口袋饼生坯就做好了;用同样的方法...
2010-06-17 13:37:11
390
整数判断
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure Button1...
2009-10-25 14:14:00
120
求最大公约数
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButton; Lab...
2009-10-25 13:58:00
98
计算从1加到10000
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; procedure Butto...
2009-10-25 13:50:00
519
99乘法表
<script type="text/javascript">for(var i = 1;i < 10 ;i++){ for(var j = 1; j <= i; j++) { document.write("<div style='float:left;width:90px;'>" + i + " * " + ..
2009-10-25 13:32:00
90
简单计算器
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons,Math;//Math是数学运算单元type TForm1 = class(TForm) Edit1: TEdit; Edit2: T...
2009-10-25 13:05:00
98
正则表达式中的特殊字符
字符 描述 \将下一个字符标记为一个特殊字符、或一个原义字符、或一个后向引用、或一个八进制转义符。例如，'n' 匹配字符 "n"。'\n' 匹配一个换行符。序列 '\' 匹配 "" 而 "\(" 则匹配 "("。^匹配输入字符串的开始位置。如果设置了 RegExp 对象的 Multiline 属性，^ 也匹配 '\n' 或 '\r' 之后的位置。$匹配输入字符串的结束位置。如果设置了RegExp ...
2009-01-16 08:33:00
137
vbscript时间函数
vbscript的时间函数有好大一堆，可是真的用起来的时候却不一定方便，因为各个函数的作用不一样，用法也不完全一样，所以常常出现不知道用哪个函数来实现某个功能的情况。以下就是偶搜集的和时间相关的函数极其用法，如果有不完整的或是错误的地方欢迎大家补充指正第一部分：对时间的判断与数据格式变化(1)IsDate(expression)expression参数可以是任意可被识别为日期和时间的日期表达式或字...
2009-01-06 12:16:00
157
delphi中利用Indy的TIdFtp控件实现FTP协议
现在很多应用都需要上传与下载大型文件，通过HTTP方式上传大文件有一定的局限性。幸好FTP作为一个非常老而且非常成熟的协议可以高效稳定地完成大文件的上传下载，并且可以完美地实现续传。就拿我写的电影服务器管理端程序来说，各种方案比较后，发现使用FTP可以完美地实现要求。但是要通过WinSocket库实现FTP比较麻烦，幸好有Indy--一个包装了大多数网络协议的组件包。通过Indy，程序设计...
2008-12-09 06:45:00
378
Delphi读写ini文件
INI文件在系统配置及应用程序参数保存与设置方面，具有很重要的作用，所以可视化的编程一族，如VB、VC、VFP、Delphi等都提供了读写INI文件的方法，其中Delphi中操作INI文件，最为简洁，这是因为Delphi提供了一个TInifile类，使我们可以非常灵活的处理INI文件一．INI文件的结构[小节名]ini文件关键字1＝值1关键子2＝值2INI文件允许有多个小节，每个小节又允许有多个关...
2008-11-20 16:56:00
207
脚本收集计算机硬件配置
各大网站上有关于通过脚本来查询计算机硬件配置信息的，但是大部分的代码都是有问题，所以本子自己写了一个脚本，只需把下列脚本粘贴到文本文档，然后将后缀名改成***.vbs，直接运行即可，本人正在编写通过IP地址收集局域网内的机器配置，请大家关注一下吧！这几天就把代码上传到网上来。注：通过IP地址来收集计算机配置信息，前提是有微软AD，必须通过赋予脚本Domain Admin权限后，方可得到Domain...
2008-11-09 10:38:00
773
在delphi中使用其他语言脚本
1.Project->Import Type Library->Microsoft Script Control 1.0->Install则会在ActiveX页上看到这个控件TScriptControl2.在窗体上添加一个TScriptControl类的实例。设置好它的Language属性：VBScript,JScript...IE认识的它都认识，以VbScript为例： ...
2008-11-09 01:26:00
215
小小分享 偷偷在后台运行程序vbs
小小分享 偷偷在后台运行程序vbs'首先创建一个 Wscript.Shell 对象Set objShell = CreateObject("Wscript.Shell")'然后调用notepad.exeobjShell.Run("notepad.exe"), 0, TRUE '此时你的记事本就在后台打开了 可在任务管理器中看到'或者还可以调用Windows Media PlayerobjSh...
2008-11-08 16:05:00
1121
VBS QQ自动登录的程序
懒人必备哦！Dim WshShell,QQPath,QQselect QQPath="D:\qq\CoralQQ.exe" '这里填写的是QQ安装路径 Set WshShell=WScript.CreateObject("WScript.Shell") WshShell.Run QQPath WScript.Sleep 2000 WshShell.AppActivate"Q登录" WshS...
2008-11-08 15:34:00
343
正则表达式在VBScript中的应用
===============================正则表达式在VBScript中的应用 ==========================VBScript使用RegExp对象、Matches集合以及Match对象提供正则表达式支持功能。我们还是先看一个例子。 <%Function RegExpTest(patrn, strng)Dim regEx, Mat...
2008-11-08 08:33:00
79
用 Delphi 下载网络文件
procedureTForm1.Button2Click(Sender:TObject);varMyStream:TMemoryStream;beginIdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应. MyStream:=TMemoryStream.Create;try //下载我站点的一个ZIP文件IdHTTP1.Get('http://www.138s...
2008-11-01 09:32:00
117
自己写的两个Excel 函数
Unit excel;interfaceUsesWindows,ActiveX,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComObj;{ ComObj是操作OLE对象的函数集}function ReadExcel(filename:string;sheet:string;Rows:Intege...
2008-10-30 23:38:00
104
Delphi代码标准文档
Delphi代码标准文档Revision 1.0.0.5编者：Riceball(riceball@cq118.com) 本文主要基于“Delphi Development Guide”一书的代码标准部分而来，编者参考其它的Delphi代码标准规范，以及结合现目前Delphi社区中流行的程序书写惯例，作了一些修改和裁剪，你也可以根据自己的需要进行裁剪和修改。如果你有什么建议，或是希望编者加上你认...
2008-10-30 17:23:00
93
妙用HOST:屏蔽网站建立网站映射
最初想到利用Hosts文件是基于学校跨网段访问网页时用IP地址访问带来的不便：学校教学网系统分成四个网段，包括三个学生机房网段和一个办公室教师用机网段，服务器没有使用DNS。办公室教师机有的开了PWS(个人Web服务器)，教师在同一网段中输入Host Name(主机名)即可顺利访问网页，但在学生机房要访问教师Web页，必须使用IP地址。 Hosts是Windows早期用来建立IP地址...
2008-10-20 11:48:00
213
VBScript中的正则表达式语法详解
文章作者：勇敢的风 [E.S.T顾问团]RegExp属性GlobalIgnoreCasePatternRegExp方法ExecuteReplaceTestRegExp对象MatchMatch属性 FirstIndex Length ValueRegExp集合Matches SubMatches 我在学习正则表达式的时候根本不知何谓正则表达式、对他的理解也非常模糊，以至于接触...
2008-10-04 09:30:00
96
通过 frameset 标签创建网页框架
网页的框架可以生成独立变化和滚动的窗口，从而能将一张网页分割为若干个子窗口,每一个窗口可分别载入不同的 html 文件，而且每个窗口又可以相互沟通。讲到这里，大家是不是已经迫不及待的想要掌握这个技巧了？现在让我们一起从基本语法开始学起吧！ 一、 基本结构 html使用<Frameset>、<Frame>和<noFrames>标签来定义框架。下面我们就来了解...
2008-08-29 08:11:00
280
正则表达式之道
正则表达式之道原著：Steve Mansoursman@scruznet.comRevised: June 5, 1999(copied by jm /at/ jmason.org from http://www.scruz.net/%7esman/regexp.htm, after the original disappeared! )翻译：Neo Leeneo.lee@gmail.com200...
2008-08-26 19:33:00
58
下拉菜单（利用的onchange事件）
//利用<select>的onchange事件打开别的网站<selectonchange="navigate('http://www.'+this.options(this.selectedIndex).value+'.com')">//this.options(this.selectedIndex).value这个好像用于引用下面value=baidu...
2008-08-26 14:03:00
257
VBS 汉字转拼音
On Error Resume NextSet d = createObject("Scripting.Dictionary") d.add "a",-20319 d.add "ai",-20317 d.add "an",-20304 d.add "ang",-20295 d.add "ao",-20292 d.add "ba",-20283 d.add "b
2008-08-06 13:06:00
236
VBS 计算汉字笔画数
dim word,keyword=inputbox("请输入文字")if word="" thenWscript.Quitend ifkey=char_wordnum(word)msgbox keyFunction char_wordnum(my_char_word)dim char_wordtable(26),wordnum_i,wordnum_j,wordnum_k,temp_wordnumt...
2008-08-06 12:17:00
710
vbs强制关闭程序
sub Close_Process(ProcessName)On Error Resume Next for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_ '循环进程 if Ucase(ps.name)=Ucase(ProcessName) then '关闭QQ,也可以改成其它的程序 ps.term...
2008-07-28 09:45:00
1199
vbs 实现瞬间关闭多个系统进程
程序利用 vbs 的wmi 、scripting.filesystemobject、shell.application、scripting.dictionary、wscript.shell的相关功能功能实现将当前进程列表显示在一个文本文件中，通过用户界面的选择，确定需要瞬间中断的进程列表，然后中断之。程序试验环境为 windows xp_sp2,主要针对系统存在多个需要中断进程的情况下，瞬间成批中...
2008-07-28 09:19:00
422
如何确定正在运行脚本的文件夹的路径？
问：您好，脚本专家！如何确定正在运行脚本的文件夹的路径？我喜欢让脚本自动打开正在运行此脚本的文件夹。-- PD答：您好，PD。您知道，对于脚本专家，此问题（同我们所收到的许多问题一样）被我们归到了“为什么我们没有想到”类别之下。脚本专家将花费大量的时间测试脚本，包括由 Windows 脚本编写社区成员所提交的脚本。（嗯，将会有一位脚本专家花费大量时间测试众多脚本。请注意，即使他必须做这里几...
2008-07-25 18:55:00
348
用vbscript实现将脚本的输出复制到剪贴板
问： 嗨，Scripting Guy！有办法将脚本输出复制到剪贴板吗？ -- ZW, Marseilles, France 答： 您好，ZW.如果您不介意用一些疯狂的解决方法，那么实际上将脚本输出复制到剪贴板相当容易。首先，您需要构造一个字符串，其中包含想要的输出。然后，创建 Internet Explorer 的一个实例，然后在其中打开一个空白页。接着，利用 Internet Explorer ...
2008-07-25 18:47:00
205
vbs调用ActiveX的DLL的方法
把dll注册后用OLE/COM 类查看器（VC有）查看 dim obj set obj=CreateObject( "工程名.类名 ") obj.函数 参数，参数…… '没返回值的不能加括号'用返回值的用 变量=obj.函数(参数，参数……)...
2008-07-25 18:33:00
468
dll的分类
一般我们这里所说的dll有3种，第一种就是最基本的，windows系统所使用的Win32的DLL，这种dll函数采用stdcall或者cdecl的方式进行调用，dll文件会导出各种可供外部程序调用的函数。SE对这类dll需要使用SE_API插件进行调用。第二种也是微软提出的com服务程序的dll，也就是ActiveX的DLL，这类dll不像第一种那样导出各种基本函数，而是注册到系统中通过com规范...
2008-07-25 18:32:00
153
获得公网IP的脚本
'Code by NetpatchOn Error Resume nextUrl="http://www.ip138.com/ip2city.asp"Set NP = Createobject("Microsoft.XMLHTTP") '/创建XMLTTP实例NP.Open "GET", url, FalseNP.SendData=NP.responsebody '/获取页面数据Set NP = ...
2008-07-25 18:16:00
237
VBS倒计时器
一个实现VBS倒计时的代码 以下内容为程序代码: <script language="VBScript"> Dim oTime : oTime = 5 Function STime document.all("oInput").value = "00:00:" & oTime If oTime>0 Then oTime = oTime - 1 window.s...
2008-07-25 18:15:00
1036
1
vbs冒泡效果
这个功能的原理呢，就是用vbs生成exe文件，然后运行，只不过这个exe比较小，不用两个文件了，一个vbs即可实现vbs冒泡效果Data="4D5A00000000000000000000504500004C010200534C58210000000000000000E0000F010B01000000000000000600000000000054010000001000000C000000...
2008-07-25 18:14:00
560
利用GetObject("WinMgmts:")获取系统信息
用WMI对象列出系统所有进程:----Instance.vbs----Dim WMI,objsSet WMI = GetObject("WinMgmts:")Set objs = WMI.InstancesOf("Win32_Process") For Each obj In objs Enum1 = Enum1 + obj.Description + Chr(13) + Chr(10) ...
2008-07-25 18:11:00
213
vbs使用Excel.Application组件读写excel文件
vb创建xls表，并写入内容Set ExcelApp = CreateObject("Excel.Application") '创建EXCEL对象 Set ExcelBook = ExcelApp.Workbooks.Add Set ExcelSheet = ExcelBook.Worksheets(1) '添加工作页ExcelSheet.Activate ExcelApp.DisplayAl...
2008-07-25 18:00:00
299
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人