vbs 实现瞬间关闭多个系统进程

OS XP Windows

程序利用 vbs 的wmi 、scripting.filesystemobject、shell.application、scripting.dictionary、wscript.shell的相关功能功能实现将当前进程列表显示在一个文本文件中，通过用户界面的选择，确定需要瞬间中断的进程列表，然后中断之。程序试验环境 ...

2008-07-28 09:19
浏览 657
评论(0)

问：您好，脚本专家！如何确定正在运行脚本的文件夹的路径？我喜欢让脚本自动打开正在运行此脚本的文件夹。 -- PD 答：您好，PD。您知道，对于脚本专家，此问题（同我们所收到的许多问题一样）被我们归到了“为什么我们没有想到”类别之下。脚本专家将花费大量的时间测试脚本，包括由 Windows 脚本编写社区成员所提交的脚本。（嗯，将会有一位脚本专家花费大量时间测试众多脚本。请注意，即使他必须做这里几乎所有的工作，他也不会抱怨。[编者注：包括大多数抱怨。]）其中的许多脚本将向某个文件夹添加文件或从该文件夹删除文件，或者将信息写入该文件夹中的日志文件（该脚本本身就在该文件夹中）。这意味着我们经常需要使 ...

2008-07-25 18:55
浏览 709
评论(0)

用vbscript实现将脚本的输出复制到剪贴板

VBScript 脚本 IE

问：嗨，Scripting Guy！有办法将脚本输出复制到剪贴板吗？ -- ZW, Marseilles, France 答：您好，ZW.如果您不介意用一些疯狂的解决方法，那么实际上将脚本输出复制到剪贴板相当容易。首先，您需要构造一个字符串，其中包含想要的输出。然后，创建 Internet Explorer 的一个实例，然后在其中打开一个空白页。接着，利用 Internet Explorer 对象模型的内置功能，将字符串复制到剪贴板；特别是，可以使用 clipboardData.SetData 方法来实现这个技巧。将某些数据复制到剪贴板的示例脚本如下： strCopy = " ...

2008-07-25 18:47
浏览 680
评论(0)

vbs调用ActiveX的DLL的方法

VC++

把dll注册后用OLE/COM 类查看器（VC有）查看 dim obj set obj=CreateObject( "工程名.类名 ") obj.函数参数，参数…… '没返回值的不能加括号'用返回值的用变量=obj.函数(参数，参数……)

2008-07-25 18:33
浏览 857
评论(0)

dll的分类

Windows

一般我们这里所说的dll有3种，第一种就是最基本的，windows系统所使用的Win32的DLL，这种dll函数采用stdcall或者cdecl的方式进行调用，dll文件会导出各种可供外部程序调用的函数。SE对这类dll需要使用SE_API插件进行调用。第二种也是微软提出的com服务程序的dll，也就是ActiveX的DLL，这类dll不像第一种那样导出各种基本函数，而是注册到系统中通过com规范来调用。SE对这类dll，需要使用VBS来调用。第三种，就是类似SE各种插件这样的专用dll，这些dll本质上其实就是第一类的dll，但是为了提供更方便的调用和功能及速度的考虑，采用了专用的插件接口协议 ...

2008-07-25 18:32
浏览 617
评论(0)
分类:研发管理

获得公网IP的脚本

脚本 ASP Microsoft

'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 '/获取页面数据Set NP = NothingData = bytes2BSTR(Data) '/把数据进行转换(防止乱码)，为IP地址的定位做铺垫Here = InstrR ...

2008-07-25 18:16
浏览 805
评论(0)

VBS倒计时器

VBScript DOS .net HTML

一个实现VBS倒计时的代码以下内容为程序代码: <script language="VBScript"> Dim oTime : oTime = 5 Function STime document.all("oInput").value = "00:00:" & oTime If oTime>0 Then oTime = oTime - 1 window.setTimeout "STime", 1000 Else MsgBox "时间到了！" End ...

2008-07-25 18:15
浏览 1031
评论(0)

vbs冒泡效果

C C++C#Microsoft XML

这个功能的原理呢，就是用vbs生成exe文件，然后运行，只不过这个exe比较小，不用两个文件了，一个vbs即可实现vbs冒泡效果 Data="4D5A00000000000000000000504500004C010200534C58210000000000000000E0000F010B01000000000000000600000000000054010000001000000C000000000040000010000000020000040000000000000004000000000000000040000000020000000000000200000000001000 ...

2008-07-25 18:14
浏览 586
评论(0)

利用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) Nextmsgbox Enum1 获得物理内存的容量: -----physicalMemory.vbs----- strComputer = ". ...

2008-07-25 18:11
浏览 1042
评论(0)

vbs使用Excel.Application组件读写excel文件

Excel VB 工作

vb创建xls表，并写入内容 Set ExcelApp = CreateObject("Excel.Application") '创建EXCEL对象 Set ExcelBook = ExcelApp.Workbooks.Add Set ExcelSheet = ExcelBook.Worksheets(1) '添加工作页ExcelSheet.Activate ExcelApp.DisplayAlerts = False ExcelSheet.Name="sheet1"ExcelSheet.Range("A1").Value = 100 ...