fhfanxin-CSDN博客

原创健康的身体才是一切根源，记太极拳第一式

很多人说自己很忙很忙，一直没时间锻炼身体。那么今天，我给大家介绍一种最简单的锻炼方式——太极拳第一式。太极拳第一式，您只要坚持每天锻炼，那么付出总有收获的。下面是林墨根老先生对太极拳第一式的自我描述：余自从跟杨式太极宗师李雅轩习拳以来，至今近五十年。时刻谨记先师教诲，刻苦练功，不敢有丝毫倦怠。常忆先师练拳，尤重起式，我时时揣之却未能深思其中奥秘。直到2002年，83岁的我因

2015-01-07 21:35:00 1198

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 14686

原创 VBS基础教程（第二版）

※ [转帖] VBS基础教程 ◎Vbs脚本编程简明教程之一—为什么要使用Vbs？在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动计算机第一件事情就是打开WORD，切换到你喜爱的输入法进行文本编辑，同时还要播放优美的音乐给工作创造一个舒心的环境，当然也有

2008-07-25 17:53:00 2820

原创 Delphi判断是否有全屏程序

Delphi判断是否有全屏程序网络流传代码unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ShellAPI; // 要引用此单元const

2016-03-07 15:43:27 1011

原创通过进程ID获取进程名

通过进程ID获取进程名网上流传代码：uses TLhelp32function GetProcessNameById(const AID: Integer): String;var h:thandle; f:boolean; lppe:tprocessentry32;begin Result := ''; h := CreateTool

2016-03-06 20:38:58 2601

转载 delphi中Message消息的使用方法

原文：http://blog.csdn.net/delphi1234/article/details/2110083实例1 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

2016-03-06 16:35:28 2629

原创电源管理事件

WM_POWERBROADCAST 消息　　根据网络资料整理而来，整体意义不大，因为在 Windows Vista以上系统，此消息只对顶层窗口广播，不会对UAC控制下的程序广播，所以很麻烦。wParam参数电源管理事件。此参数可以是下列事件标识符之一。事件意义PBT_APMPOWERSTATUSCHANG

2016-03-06 10:23:10 1628

转载自己如何获取ADO连接字符串

有时候我们参考网上的ADO连接字符串写未必就能连接上数据库。今天详细介绍下这个很流行的如何获取ADO字符串的方法，就能很容易直观看到这个连接字符串是否真能连接上数据库。

2016-03-05 10:25:33 377

转载 ADO访问Excel 2007

1、数据引擎类型有两种接口可供选择：Microsoft.Jet.OLEDB.4.0（简称 Jet 引擎）和Microsoft.ACE.OLEDB.12.0（简称 ACE 引擎）。 Jet 引擎可以访问 Office 97-2003，但不能访问 Office 2007。 ACE 引擎是随 Office 2007 一起发布的数据库连接组件，既可以访问 Office 2007，

2016-03-04 22:40:03 4066

转载 vbs实现unicode和ascii编码转换

这篇文章主要介绍了vbs实现unicode和ascii编码转换,本文同时介绍了OpenTextFile和CreateTextFile的使用,需要的朋友可以参考下一、Copy a Unicode File to an ANSI FileWiToAnsi.vbs文件：' Utility to rewrite a Unicode text file as an ANSI text

2015-01-02 17:41:03 2496

原创 MemoryStream的应用

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) ListBox1: TListBox; Button1: TButton;

2009-10-25 14:29:00 435

原创整数判断

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; proce

2009-10-25 14:14:00 396

原创求最大公约数

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1:

2009-10-25 13:58:00 508

原创计算从1加到10000

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; pro

2009-10-25 13:50:00 1580

原创 99乘法表

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids;type TForm1 = class(TForm) StringGrid1: TStringGrid; //ColCoun

2009-10-25 13:32:00 599

原创简单计算器

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons,Math;//Math是数学运算单元type TForm1 = class(TForm) Edit1: TEdit;

2009-10-25 13:05:00 427

原创 Shape的应用

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ExtCtrls;type TForm1 = class(TForm) ColorDialog1: TColorDial

2009-10-25 12:58:00 535

原创 delphi 2009 之安装

我打算重新学习delphi，所以去下载了一个delphi2009。下载地址：http://altd.codegear.com/download/Delphi_C++Builder2009/Delphi_C++Builder2009.iso（个人的选择，不喜欢的话，你们可以去自己找资源）我真不知道为什么没有单独的delphi2009安装程序，下载1.9GB，只有500MB才是我

2009-08-02 11:19:00 1022

原创正则表达式中的特殊字符

字符描述 /将下一个字符标记为一个特殊字符、或一个原义字符、或一个后向引用、或一个八进制转义符。例如，n 匹配字符 "n"。/n 匹配一个换行符。序列 / 匹配 "" 而 "/(" 则匹配 "("。^匹配输入字符串的开始位置。如果设置了 RegExp 对象的 Multiline 属性，^ 也匹配 /n 或 /r 之后的位置。$匹配输入字符串的结束位置。如果设置了RegExp

2009-01-16 08:33:00 432

原创 vbscript时间函数

vbscript的时间函数有好大一堆，可是真的用起来的时候却不一定方便，因为各个函数的作用不一样，用法也不完全一样，所以常常出现不知道用哪个函数来实现某个功能的情况。以下就是偶搜集的和时间相关的函数极其用法，如果有不完整的或是错误的地方欢迎大家补充指正第一部分：对时间的判断与数据格式变化(1)IsDate(expression)expression 参数可以是任意可被识别为日期和时间的日期表达式或

2009-01-06 12:16:00 2833

原创在Delphi中使用Indy控件实现邮件群发

随着人们交往的不断扩大，人与人、单位与单位之间的邮件通讯日益普及，通过邮件群发，可以将会议通知、产品说明、产品报价等通过邮件方式把大量邮件送到用户的邮箱中，既加快了信息的传递，又节省了费用。目前网上有许多邮件群发是基于Delphi5中的TNMSMTP控件的，很多的SMTP邮件服务器要对发送邮件的用户进行身份验证，即要求给出用户名和密码信息，否则无法发送，包括163.net，

2008-12-10 12:20:00 1632

原创 delphi中利用Indy的TIdFtp控件实现FTP协议

现在很多应用都需要上传与下载大型文件，通过HTTP方式上传大文件有一定的局限性。幸好FTP作为一个非常老而且非常成熟的协议可以高效稳定地完成大文件的上传下载，并且可以完美地实现续传。就拿我写的电影服务器管理端程序来说，各种方案比较后，发现使用FTP可以完美地实现要求。但是要通过WinSocket库实现FTP比较麻烦，幸好有Indy--一个包装了大多数网络协议的组件包。通过Indy，

2008-12-09 06:45:00 5580

原创获取已打开的所有记事本的标题

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure B

2008-11-20 22:52:00 750

原创 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 643

原创脚本收集计算机硬件配置

各大网站上有关于通过脚本来查询计算机硬件配置信息的，但是大部分的代码都是有问题，所以本子自己写了一个脚本，只需把下列脚本粘贴到文本文档，然后将后缀名改成***.vbs，直接运行即可，本人正在编写通过IP地址收集局域网内的机器配置，请大家关注一下吧！这几天就把代码上传到网上来。注：通过IP地址来收集计算机配置信息，前提是有微软AD，必须通过赋予脚本Domain Admin权限后，方可得到Domai

2008-11-09 10:38:00 1231

原创在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 722

原创小小分享偷偷在后台运行程序vbs

小小分享偷偷在后台运行程序vbs首先创建一个 Wscript.Shell 对象Set objShell = CreateObject("Wscript.Shell")然后调用notepad.exeobjShell.Run("notepad.exe"), 0, TRUE 此时你的记事本就在后台打开了可在任务管理器中看到或者还可以调用Windows Media Playerobj

2008-11-08 16:05:00 1160

原创 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登录" Wsh

2008-11-08 15:34:00 825

原创正则表达式在VBScript中的应用

===============================正则表达式在VBScript中的应用 ==========================VBScript使用RegExp对象、Matches集合以及Match对象提供正则表达式支持功能。我们还是先看一个例子。 <%Function RegExpTest(patrn, strng) Dim regE

2008-11-08 08:33:00 576

原创 Delphi标准控件-编辑框（Edit）

Delphi标准控件-编辑框（Edit）来源：洪恩在线作者：<!--google_ad_client = "pub-1762970342420142";/* 300x250 */google_ad_slot = "2904782163";google_ad_width = 300;google_ad_height =

2008-11-03 12:08:00 1928

原创用 Delphi 下载网络文件

procedure TForm1.Button2Click(Sender: TObject);var MyStream:TMemoryStream;begin IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应. MyStream:=TMemoryStream.Create; try //下载我站点的一个ZIP文件 IdHTT

2008-11-01 09:32:00 790

原创自己写的两个Excel 函数

Unit excel;interfaceUsesWindows,ActiveX,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComObj;{ ComObj是操作OLE对象的函数集}function ReadExcel(filename:string;sheet:string;Rows:Integ

2008-10-30 23:38:00 1061

原创利用ComObj 控制 Excel 的相关函数

(一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( Excel.Application );1) 显示当前窗口：ExcelApp.Visible := True;2) 更改 Excel 标题栏：ExcelApp.Caption := 应用程序调

2008-10-30 23:34:00 4072

原创 Delphi代码标准文档

Delphi代码标准文档Revision 1.0.0.5编者：Riceball([email protected]) 本文主要基于“Delphi Development Guide”一书的代码标准部分而来，编者参考其它的Delphi代码标准规范，以及结合现目前Delphi社区中流行的程序书写惯例，作了一些修改和裁剪，你也可以根据自己的需要进行裁剪和修改。如果你有什么建议，或是希望编者

2008-10-30 17:23:00 776

原创相对路径的取得方法

使用命令提示符，输入SET，就可以得到了。使用时，加%%就行（例：%systemdrive%）

2008-10-29 06:29:00 576

原创 OPENFILENAME结构

OPENFILENAMEOPENFILENAME结构包含了GetOpenFileName和GetSaveFileName函数用来初始化打开或另存为对话框的信息。在用户关闭对话框后，系统返回关于用户的选择信息到这个结构中。typedef struct tagOFN { DWORD lStructSize; HWND hwndOwner;

2008-10-29 06:15:00 558

原创妙用HOST:屏蔽网站建立网站映射

最初想到利用Hosts文件是基于学校跨网段访问网页时用IP地址访问带来的不便：学校教学网系统分成四个网段，包括三个学生机房网段和一个办公室教师用机网段，服务器没有使用DNS。办公室教师机有的开了PWS(个人Web服务器)，教师在同一网段中输入Host Name(主机名)即可顺利访问网页，但在学生机房要访问教师Web页，必须使用IP地址。 Hosts是Windows

2008-10-20 11:48:00 867

原创 VBScript中的正则表达式语法详解

文章作者：勇敢的风 [E.S.T顾问团] RegExp属性GlobalIgnoreCasePatternRegExp方法ExecuteReplaceTestRegExp对象MatchMatch属性 FirstIndex Length ValueRegExp集合Matches SubMatches 我在学习正则表达式的时候根本不知何谓正则表达式

2008-10-04 09:30:00 844

原创通过 frameset 标签创建网页框架

　　网页的框架可以生成独立变化和滚动的窗口，从而能将一张网页分割为若干个子窗口,每一个窗口可分别载入不同的 html 文件，而且每个窗口又可以相互沟通。讲到这里，大家是不是已经迫不及待的想要掌握这个技巧了？现在让我们一起从基本语法开始学起吧！一、基本结构 html使用、和标签来定义框架。下面我们就来了解一下这三个标签的作用和相应的属性。 1、标签该标签是框架设

2008-08-29 08:11:00 4104

原创正则表达式之道

正则表达式之道原著：Steve [email protected]: June 5, 1999(copied by jm /at/ jmason.org from http://www.scruz.net/%7esman/regexp.htm, after the original disappeared! )翻译：Neo [email protected]

2008-08-26 19:33:00 451