zendj
- 浏览: 121876 次
- 性别:
- 来自: 深圳
-
最新评论
-
zzl09：
哈哈 谢谢分享 想知道 博主用的什么UML工具呢?正相认真学 ...
初学UML之-------用例 -
kittychina：
http://www.cmswatch.com/是收费才能看的 ...
内容管理系统概述 -
kittychina：
很好！很好！
内容管理系统概述 -
464872333：
目前正在考虑这方面的，谢谢分享！
利用WebService实现远程数据库存取及不同站点间共享同一数据库
文章列表
小小分享 偷偷在后台运行程序vbs
'首先创建一个 Wscript.Shell 对象Set objShell = CreateObject("Wscript.Shell")'然后调用notepad.exeobjShell.Run("notepad.exe"), 0, TRUE '此时你的记事本就在后台打开了 可在任务管理器中看到'或者还可以调用Windows Media PlayerobjShell.Run("wmplayer.exe C:\Test.mp3"), 0, TRUE '这时C盘中的Test.mp3就在后台播放其实最主要 ...
- 2008-11-08 16:05
- 浏览 1042
- 评论(0)
懒人必备哦！
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登录" WshShell.SendKeys"+{TAB}" WshShell.SendKeys"123456789" ...
- 2008-11-08 15:34
- 浏览 760
- 评论(0)
===============================正则表达式在VBScript中的应用 ==========================
VBScript使用RegExp对象、Matches集合以及Match对象提供正则表达式支持功能。我们还是先看一个例子。
<%
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches '建立变量。
Set regEx = New RegExp '建立正则表达式。
regEx.Pattern = patrn
- 2008-11-08 08:33
- 浏览 763
- 评论(0)
procedureTForm1.Button2Click(Sender:TObject);varMyStream:TMemoryStream;beginIdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应. MyStream:=TMemoryStream.Create;try //下载我站点的一个ZIP文件IdHTTP1.Get('http://www.138soft.com/download/Mp3ToExe.zip',MyStream);except//INDY控件一般要使用这种try..except结构. Showmessage('网络出错!');MyS ...
- 2008-11-01 09:32
- 浏览 953
- 评论(0)
Unit excel;
interface
UsesWindows,ActiveX,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComObj;{ ComObj是操作OLE对象的函数集}
function ReadExcel(filename:string;sheet:string;Rows:Integer;Columns:integer):string;procedure WriteExcel(filename:string;sheet:string;Rows:Integer;Columns:inte ...
- 2008-10-30 23:38
- 浏览 468
- 评论(0)
Delphi代码标准文档Revision 1.0.0.5编者：Riceball(riceball@cq118.com)
本文主要基于“Delphi Development Guide”一书的代码标准部分而来，编者参考其它的Delphi代码标准规范，以及结合现目前Delphi社区中流行的程序书写惯例，作了一些修改和 ...
- 2008-10-30 17:23
- 浏览 652
- 评论(0)
最初想到利用Hosts文件是基于学校跨网段访问网页时用IP地址访问带来的不便：学校教学网系统分成四个网段，包括三个学生机房网段和一个办公室教师用机网段，服务器没有使用DNS。办公室教师机有的开了PWS(个人Web服务器)，教师在同一网段中输入Host Name(主机名)即可顺利访问网页，但在学生机房要访问教师Web页，必须使用IP地址。
Hosts是Windows早期用来建立IP地址和Host name(主机名)映射关系的文件。这样在客户机上访问主机时，只要输入主机名即可。随着后来DNS概念的引入，Internet网上DNS服务器的建立，这个文件已经逐渐被人们谈忘。由于Hosts文 ...
- 2008-10-20 11:48
- 浏览 655
- 评论(0)
文章作者：勇敢的风 [E.S.T顾问团]RegExp属性GlobalIgnoreCasePattern
RegExp方法ExecuteReplaceTest
RegExp对象MatchMatch属性 FirstIndex Length Value
RegExp集合Matches SubMatches
我在学习正则表达式的时候根本不知何谓正则表达式、对他的理解也非常 ...
- 2008-10-04 09:30
- 浏览 703
- 评论(0)
网页的框架可以生成独立变化和滚动的窗口，从而能将一张网页分割为若干个子窗口,每一个窗口可分别载入不同的 html 文件，而且每个窗口又可以相互沟通。讲到这里，大家是不是已经迫不及待的想要掌握这个技巧了？现在让我们一起从基本语法开始学起吧！ 一、 基本结构 html使用<Frameset>、<Frame>和<noFrames>标签来定义框架。下面我们就来了解一下这三个标签的作用和相应的属性。 1、 <Frameset> 标签 该标签是框架设计标签，属于双标签，首尾标签之间的内容就是使用到框架的 html 主体部分，以该标签代替的 <bod ...
- 2008-08-29 08:11
- 浏览 607
- 评论(0)
正则表达式之道原著：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.com2004年10月16日英文版原文译者按：原文因为年代久远，文中 ...
- 2008-08-26 19:33
- 浏览 601
- 评论(0)
//利用<select>的onchange事件打开别的网站
<selectonchange="navigate('http://www.'+this.options(this.selectedIndex).value+'.com')">//this.options(this.selectedIndex).value这个好像用于引用下面value=baidu的“baidu”这个字符串
<optionvalue=baidu>baidu</option>//定义下拉菜单的内容
<optionvalu ...
- 2008-08-26 14:03
- 浏览 1041
- 评论(0)
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 "bai",-20265 d.add "ban",-20257 ...
- 2008-08-06 13:06
- 浏览 597
- 评论(0)
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_wordnumtemp_wordnum=""if my_char_word="" thenchar_wordnum=0exit funct ...
- 2008-08-06 12:17
- 浏览 1348
- 评论(0)
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.terminate end if nextend sub
- 2008-07-28 09:45
- 浏览 1081
- 评论(0)