- 博客(9)
- 资源 (5)
- 收藏
- 关注
原创 获取已打开的所有记事本的标题
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 790
AsyncCalls 例程 For D7
2014-12-30
WIN7的UAC盾测试程序第二版
2009-10-05
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人