![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
编程日记
文章平均质量分 66
fhfanxin
一个极难相处的人
展开
-
利用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 · 2223 阅读 · 0 评论 -
OPENFILENAME结构
OPENFILENAMEOPENFILENAME结构包含了GetOpenFileName和GetSaveFileName函数用来初始化打开或另存为对话框的信息。在用户关闭对话框后,系统返回关于用户的选择信息到这个结构中。typedef struct tagOFN { DWORD lStructSize; HWND hwndOwner;原创 2008-10-29 06:15:00 · 569 阅读 · 0 评论 -
相对路径的取得方法
使用命令提示符,输入SET,就可以得到了。使用时,加%%就行(例:%systemdrive%)原创 2008-10-29 06:29:00 · 605 阅读 · 0 评论 -
Delphi代码标准文档
Delphi代码标准文档Revision 1.0.0.5编者:Riceball(riceball@cq118.com) 本文主要基于“Delphi Development Guide”一书的代码标准部分而来,编者参考其它的Delphi代码标准规范,以及结合现目前Delphi社区中流行的程序书写惯例,作了一些修改和裁剪,你也可以根据自己的需要进行裁剪和修改。如果你有什么建议,或是希望编者原创 2008-10-30 17:23:00 · 787 阅读 · 0 评论 -
自己写的两个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 · 1075 阅读 · 0 评论 -
正则表达式在VBScript中的应用
===============================正则表达式在VBScript中的应用 ==========================VBScript使用RegExp对象、Matches集合以及Match对象提供正则表达式支持功能。我们还是先看一个例子。 <%Function RegExpTest(patrn, strng) Dim regE原创 2008-11-08 08:33:00 · 590 阅读 · 0 评论 -
脚本收集计算机硬件配置
各大网站上有关于通过脚本来查询计算机硬件配置信息的,但是大部分的代码都是有问题,所以本子自己写了一个脚本,只需把下列脚本粘贴到文本文档,然后将后缀名改成***.vbs,直接运行即可,本人正在编写通过IP地址收集局域网内的机器配置,请大家关注一下吧!这几天就把代码上传到网上来。注:通过IP地址来收集计算机配置信息,前提是有微软AD,必须通过赋予脚本Domain Admin权限后,方可得到Domai原创 2008-11-09 10:38:00 · 1263 阅读 · 0 评论 -
vbscript时间函数
vbscript的时间函数有好大一堆,可是真的用起来的时候却不一定方便,因为各个函数的作用不一样,用法也不完全一样,所以常常出现不知道用哪个函数来实现某个功能的情况。以下就是偶搜集的和时间相关的函数极其用法,如果有不完整的或是错误的地方欢迎大家补充指正第一部分:对时间的判断与数据格式变化(1)IsDate(expression)expression 参数可以是任意可被识别为日期和时间的日期表达式或原创 2009-01-06 12:16:00 · 2899 阅读 · 0 评论 -
正则表达式中的特殊字符
字符 描述 /将下一个字符标记为一个特殊字符、或一个原义字符、或一个后向引用、或一个八进制转义符。例如,n 匹配字符 "n"。/n 匹配一个换行符。序列 / 匹配 "" 而 "/(" 则匹配 "("。^匹配输入字符串的开始位置。如果设置了 RegExp 对象的 Multiline 属性,^ 也匹配 /n 或 /r 之后的位置。$匹配输入字符串的结束位置。如果设置了RegExp原创 2009-01-16 08:33:00 · 451 阅读 · 0 评论 -
获取已打开的所有记事本的标题
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 · 759 阅读 · 0 评论 -
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 · 663 阅读 · 0 评论 -
在Delphi中使用Indy控件实现邮件群发
随着人们交往的不断扩大,人与人、单位与单位之间的邮件通讯日益普及,通过邮件群发,可以将会议通知、产品说明、产品报价等通过邮件方式把大量邮件送到用户的邮箱中,既加快了信息的传递,又节省了费用。目前网上有许多邮件群发是基于Delphi5中的TNMSMTP控件的,很多的SMTP邮件服务器要对发送邮件的用户进行身份验证,即要求给出用户名和密码信息,否则无法发送,包括163.net,原创 2008-12-10 12:20:00 · 1665 阅读 · 0 评论 -
健康的身体才是一切根源,记太极拳第一式
很多人说自己很忙很忙,一直没时间锻炼身体。那么今天,我给大家介绍一种最简单的锻炼方式——太极拳第一式。太极拳第一式,您只要坚持每天锻炼,那么付出总有收获的。下面是林墨根老先生对太极拳第一式的自我描述:余自从跟杨式太极宗师李雅轩习拳以来,至今近五十年。时刻谨记先师教诲,刻苦练功,不敢有丝毫倦怠。常忆先师练拳,尤重起式,我时时揣之却未能深思其中奥秘。直到2002年,83岁的我因原创 2015-01-07 21:35:00 · 1224 阅读 · 0 评论 -
VBScript中的正则表达式语法详解
文章作者:勇敢的风 [E.S.T顾问团] RegExp属性GlobalIgnoreCasePatternRegExp方法ExecuteReplaceTestRegExp对象MatchMatch属性 FirstIndex Length ValueRegExp集合Matches SubMatches 我在学习正则表达式的时候根本不知何谓正则表达式原创 2008-10-04 09:30:00 · 855 阅读 · 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.com200原创 2008-08-26 19:33:00 · 461 阅读 · 0 评论 -
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 · 14813 阅读 · 0 评论 -
获得公网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 /获取页面数据原创 2008-07-25 18:16:00 · 770 阅读 · 0 评论 -
VBS基础教程(第一版)
跟我学编程系列 原黑白新区记忆碎片的帖子!转贴上来,供大家学习!!! 发现大部分黑白的朋友都不会编程, 这可不是件好事, 所以这次我就写了一个简单的编程教程, 讲一下VBScript. 主要面向菜鸟, 懂得编程的朋友就不要浪费时间了, 如果你想接触以下VBScript也可以, 但既然有编程基础推荐直接去找一些参考书来读, 会比较快. 什么是VBScript呢? VBScript的原创 2008-07-25 17:51:00 · 1118 阅读 · 0 评论 -
vbs冒泡效果
这个功能的原理呢,就是用vbs生成exe文件,然后运行,只不过这个exe比较小,不用两个文件了,一个vbs即可实现vbs冒泡效果Data="4D5A00000000000000000000504500004C010200534C58210000000000000000E0000F010B01000000000000000600000000000054010000001000000C00000原创 2008-07-25 18:14:00 · 1369 阅读 · 1 评论 -
VBS倒计时器
一个实现VBS倒计时的代码 以下内容为程序代码: Dim oTime : oTime = 5 Function STime document.all("oInput").value = "00:00:" & oTime If oTime>0 Then oTime = oTime - 1原创 2008-07-25 18:15:00 · 3778 阅读 · 1 评论 -
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 · 938 阅读 · 0 评论 -
用vbscript实现将脚本的输出复制到剪贴板
问: 嗨,Scripting Guy!有办法将脚本输出复制到剪贴板吗? -- ZW, Marseilles, France 答: 您好,ZW.如果您不介意用一些疯狂的解决方法,那么实际上将脚本输出复制到剪贴板相当容易。首先,您需要构造一个字符串,其中包含想要的输出。然后,创建 Internet Explorer 的一个实例,然后在其中打开一个空白页。接着,利用 Internet Explorer原创 2008-07-25 18:47:00 · 902 阅读 · 0 评论 -
vbs 实现瞬间关闭多个系统进程
程序利用 vbs 的wmi 、scripting.filesystemobject、shell.application、scripting.dictionary、wscript.shell的相关功能功能实现将当前进程列表显示在一个文本文件中,通过用户界面的选择,确定需要瞬间中断的进程列表,然后中断之。程序试验环境为 windows xp_sp2,主要针对系统存在多个需要中断进程的情况下,瞬间成批中原创 2008-07-28 09:19:00 · 1031 阅读 · 0 评论 -
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,也原创 2008-07-28 09:45:00 · 4645 阅读 · 0 评论 -
vbs使用Excel.Application组件读写excel文件
vb创建xls表,并写入内容Set ExcelApp = CreateObject("Excel.Application") 创建EXCEL对象 Set ExcelBook = ExcelApp.Workbooks.Add Set ExcelSheet = ExcelBook.Worksheets(1) 添加工作页ExcelSheet.Ac原创 2008-07-25 18:00:00 · 9515 阅读 · 0 评论 -
vbs调用ActiveX的DLL的方法
把dll注册后用OLE/COM 类查看器(VC有)查看 dim obj set obj=CreateObject( "工程名.类名 ") obj.函数 参数,参数…… 没返回值的不能加括号用返回值的用 变量=obj.函数(参数,参数……)原创 2008-07-25 18:33:00 · 1499 阅读 · 0 评论 -
如何确定正在运行脚本的文件夹的路径?
问:您好,脚本专家!如何确定正在运行脚本的文件夹的路径?我喜欢让脚本自动打开正在运行此脚本的文件夹。-- PD答:您好,PD。您知道,对于脚本专家,此问题(同我们所收到的许多问题一样)被我们归到了“为什么我们没有想到”类别之下。脚本专家将花费大量的时间测试脚本,包括由 Windows 脚本编写社区成员所提交的脚本。(嗯,将会有一位脚本专家花费大量时间测试众多脚本。请注意,即使他必须做这里原创 2008-07-25 18:55:00 · 1367 阅读 · 0 评论 -
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 "bai",-20265 d.ad原创 2008-08-06 13:06:00 · 945 阅读 · 0 评论 -
VBS基础教程(第二版)
※ [转帖] VBS基础教程 ◎Vbs脚本编程简明教程之一—为什么要使用Vbs? 在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除,也许你每天启动计算机第一件事情就是打开WORD,切换到你喜爱的输入法进行文本编辑,同时还要播放优美的音乐给工作创造一个舒心的环境,当然也有原创 2008-07-25 17:53:00 · 2842 阅读 · 0 评论