2008年11月_fhfanxin

12月 11月 10月 08月 07月

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

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 1230

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

原创用 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 789