- 博客(55)
- 资源 (5)
- 收藏
- 关注
RSS订阅原创 下拉菜单（利用的onchange事件）
//利用select>的onchange事件打开别的网站select onchange="navigate(http://www.+this.options(this.selectedIndex).value+.com)"> //this.options(this.selectedIndex).value这个好像用于引用下面value=baidu的“baidu”这个字
2008-08-26 14:03:00
2493
原创 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
946
原创 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
4657
原创 vbs 实现瞬间关闭多个系统进程
程序利用 vbs 的wmi 、scripting.filesystemobject、shell.application、scripting.dictionary、wscript.shell的相关功能功能实现将当前进程列表显示在一个文本文件中，通过用户界面的选择，确定需要瞬间中断的进程列表，然后中断之。程序试验环境为 windows xp_sp2,主要针对系统存在多个需要中断进程的情况下，瞬间成批中
2008-07-28 09:19:00
1037
原创 如何确定正在运行脚本的文件夹的路径？
问：您好，脚本专家！如何确定正在运行脚本的文件夹的路径？我喜欢让脚本自动打开正在运行此脚本的文件夹。-- PD答：您好，PD。您知道，对于脚本专家，此问题（同我们所收到的许多问题一样）被我们归到了“为什么我们没有想到”类别之下。脚本专家将花费大量的时间测试脚本，包括由 Windows 脚本编写社区成员所提交的脚本。（嗯，将会有一位脚本专家花费大量时间测试众多脚本。请注意，即使他必须做这里
2008-07-25 18:55:00
1372
原创 用vbscript实现将脚本的输出复制到剪贴板
问： 嗨，Scripting Guy！有办法将脚本输出复制到剪贴板吗？ -- ZW, Marseilles, France 答： 您好，ZW.如果您不介意用一些疯狂的解决方法，那么实际上将脚本输出复制到剪贴板相当容易。首先，您需要构造一个字符串，其中包含想要的输出。然后，创建 Internet Explorer 的一个实例，然后在其中打开一个空白页。接着，利用 Internet Explorer
2008-07-25 18:47:00
903
原创 vbs调用ActiveX的DLL的方法
把dll注册后用OLE/COM 类查看器（VC有）查看 dim obj set obj=CreateObject( "工程名.类名 ") obj.函数 参数，参数…… 没返回值的不能加括号用返回值的用 变量=obj.函数(参数，参数……)
2008-07-25 18:33:00
1502
原创 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
940
原创 获得公网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
773
原创 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
3789
1
原创 vbs冒泡效果
这个功能的原理呢，就是用vbs生成exe文件，然后运行，只不过这个exe比较小，不用两个文件了，一个vbs即可实现vbs冒泡效果Data="4D5A00000000000000000000504500004C010200534C58210000000000000000E0000F010B01000000000000000600000000000054010000001000000C00000
2008-07-25 18:14:00
1369
1
原创 利用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
2224
原创 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
9524
原创 VBS基础教程（第一版）
跟我学编程系列 原黑白新区记忆碎片的帖子！转贴上来，供大家学习！！！ 发现大部分黑白的朋友都不会编程, 这可不是件好事, 所以这次我就写了一个简单的编程教程, 讲一下VBScript. 主要面向菜鸟, 懂得编程的朋友就不要浪费时间了, 如果你想接触以下VBScript也可以, 但既然有编程基础推荐直接去找一些参考书来读, 会比较快. 什么是VBScript呢? VBScript的
2008-07-25 17:51:00
1119
AsyncCalls 例程 For D7
2014-12-30
WIN7的UAC盾测试程序第二版
2009-10-05
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人