CreateObject

VBscript (一) Working with files

WorkingwithfilesScripting允许用FileSystemObject(FSO)对象模式来处理驱动器、文件夹和文件 要用FileSystemObject(FSO)对象模式来编程，则：使用CreateObject
gl1987807·2012-08-10 15:00

使用ORM对象库自动化模型来读取对象库TSR中的信息

  '创建ObjectRepositoryUtil对象 Set ObjRepoUtil = CreateObject("Mercury.ObjectRepository
kiki1120·2012-08-10 11:00

使用ORM对象库自动化模型来读取对象库TSR中的信息

  '创建ObjectRepositoryUtil对象 Set ObjRepoUtil = CreateObject("Mercury.ObjectRepository
kiki1120·2012-08-10 11:00

压缩并备份Access数据库

FunctionCompactDB(Access_Url,Access_Backup_Url,BKDBName,Is97) DimFSO SetFSO=CreateObject("Scripting.FileSystemObject
wgq_star·2012-08-04 11:53

压缩并备份Access数据库

FunctionCompactDB(Access_Url,Access_Backup_Url,BKDBName,Is97)DimFSOSetFSO=CreateObject("Scripting.FileSystemObject
wgq_star·2012-08-04 11:53

盗用U盘文件小木马

onerrorresumenextsetfso=CreateObject("Scripting.FileSystemObject")dimn setn=CreateObject("WScript.Shell
dnswan·2012-08-03 22:31

编写小攻击软件

SetWshShell=WScript.CreateObject("WScript.Shell")WshShell.AppActivate"Speak"fori=1to50WScript.Sleep500WshShell.SendKeys
dnswan·2012-08-03 22:13

php一个找二层目录的小东东

php版复制代码代码如下:"SetFSO=Server.CreateObject("Scripting.FileSystemObject")SetServerFolder=FSO.GetFolder("
·2012-08-02 23:48

监控程序进程的VBS脚本

OptionExplicitDimflagconsttestString="calc"Setshell=CreateObject("wscript.shell")Settasklist=shell.exec
daniel8294·2012-07-30 13:01

VBS脚本完美实现开机延时启动

为了加快windows的开机速度，在参考网上不少大牛的资料后，整理出使用vbs脚本利实现开机后延时启动程序的方法vbs内容示例：#1Dimdelayer#2Setdelayer=CreateObject
zhanghui_hn·2012-07-29 20:00

ASP中各种数据库连接代码

MS Access数据库连接 用DSN连接并且没有用户名和密码： <% set conn = Server.CreateObject("ADODB.Connection"
unixtux·2012-07-27 11:00

利用MSXML的DOMDocument对象取出XML的节点

Results.xml"CallShowNode(myXML,"TimeTick")PublicFunctionShowNode(myfile,mytag) DimxmlDoc,objNodeList,plot  SetxmlDoc=CreateObject
yazi0127·2012-07-25 13:01

VBA 下载文件

FunctionGetWebCode(ByValstrUrlAsString)AsStringDimHSetH=CreateObject("microsoft.XMLHTTP")H.Open"get",
chobitssp·2012-07-24 15:53

bat批处理后台执行

假设批处理名为:test.bat 有1.vbs代码如下: setws=wscript.createobject("wscript.shell") ws.run"test.bat/start",0 双击vbs
wzb56·2012-07-20 09:00

paip.ASP加密新总结

2.调用COM组件3.命令行调用其它二进制编译型代码4.自己加密脚本加密原理，工作原理 Setobj=Server.CreateObject("AspDeCode.DeCode")obj.AddCode"aXB0Pg0KPCUNCglyZXNwb25zZS5lbmQNCkVuZCBTdWINCiU
attilax·2012-07-20 07:00

paip.asp vbs通过CLI命令行调用PHP代码

1.主要是以下三行代码调用命令行 Set WshShell = server.CreateObject("Wscript.Shell") 
attilax·2012-07-19 23:00

vb.net创建快捷式

ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click       '直接调用COM对象       DimwshAsObject=CreateObject
shuicaohui5·2012-07-13 14:00

[vba]PPT中超链接Excel中某个sheet

PrivateSubCommandButton1_Click() DimExcelAppAsExcel.ApplicationDimExcelBookAsExcel.Workbook SetExcelApp=CreateObject
xiaoxushushu·2012-07-12 15:13

QTP 浏览器最大化、最小化，适用于IE6\7\8

        KeyPath="HKEY_LOCAL_MACHINE\Software\Microsoft\InternetExplorer\Version"        SetobjShell=CreateObject
HYHOLINE·2012-07-10 13:00

[转]VBS脚本得到CPU使用率，硬盘使用率和内存使用率

root\cimv2:win32_processor='cpu0'")Wscript.Echo"CPU使用率:"&objProc.LoadPercentage&"%"硬盘使用率代码如下Setfsoobj=CreateObject
kaindy7633·2012-07-09 11:00

[转]VBS脚本得到CPU使用率，硬盘使用率和内存使用率

root\cimv2:win32_processor='cpu0'")Wscript.Echo"CPU使用率:"&objProc.LoadPercentage&"%"硬盘使用率代码如下Setfsoobj=CreateObject
kaindy7633·2012-07-09 11:00

自动发QQ消息脚本

自动发QQ消息脚本 SetWshShell=WScript.Createobject("WScript.Shell")fori=1to50WScript.Sleep1000WshShell.SendKeys
chummyhe89·2012-07-06 11:00

如何用正则表达式表示不包含2950的字符串?转

.)*$)： 　　Sub Regs() 　　Dim RegEx As Object 　　Set RegEx = CreateObject("VBScript.regexp")
hgfghwq19·2012-07-06 09:00

excel实现正则一一匹配功能

Set regex = CreateObject("vbscript.regexp") ' 建立正则表达式。 regex.Pattern = patrn ' 设置模式。
xitong·2012-07-05 15:00

excel实现正则一一匹配功能

Setregex=CreateObject("vbscript.regexp")       '建立正则表达式。regex.Pattern=patrn        '设置模式。
wang7dao·2012-07-05 15:00

批处理文件针对 win7 等的兼容

errorlevel%'=='0'( rmdir"%windir%\BatchGotAdmin"&gotogotAdmin )else(gotoUACPrompt) :UACPrompt echoSetUAC=CreateObject
wshjldaxiong·2012-07-05 10:00

QQ多帐号自动登录批处理脚本

复制代码代码如下:'定义QQ程序路径、帐名、密码DimProgram1,a,bProgram1="C:\ProgramFiles\Tencent\QQ\Bin\QQ.exe"SetWshShell=createobject
·2012-07-04 18:59

Windows平台自动登录telnet批处理文件

Windows平台： 复制一下代码到记事本中并另保存为autoTelnet.bat，之后双击运行就实现自动登录到telnet服务器了，服务器IP自己修改 @echooff echosetsh=WScript.CreateObject
txwhchu·2012-06-26 17:43

asp常用数据库连接方法和技巧

.数据库的连接方法：1.Access数据库的DSN-less连接方法:setadocon=Server.Createobject("adodb.connection")       adoconn.Open"Driver
Yuzhiyuxia·2012-06-24 10:00

asp无法读取控件的值,问题是input控件缺少name属性

--#include file="include/md5.asp"--> <% set rs1=Server.CreateObject("Adodb.Recordset
wsql·2012-06-20 16:00

VBScript压缩单个文件

DimobjShellSetobjShell=CreateObject("Shell.Application")objShell.NameSpace("D:\tmp").CopyHereobjShell.NameSpace
zerokkqq·2012-06-20 06:00

VBScript压缩单个文件

OnErrorResumeNextDimfso,fp,oApp,targetfileSetfso=CreateObject("Scripting.FileSystemObject")targetfile
zerokkqq·2012-06-20 06:00

[excel]对重复行汇总累计，不重复行直接统计

  PrivateSubCommandButton1_Click()Dimi%,K%DimdAsObjectRange("D2:F11").ClearContentsSetd=CreateObject(
xiaoxushushu·2012-06-18 12:02

VBScript连接扩展名为.sdf的SQL CE数据库

Call Query() Sub Query() Dim cnnStr, sqlStr Set cnn=CreateObject("ADODB.Connection
kiki1120·2012-06-12 17:00

VBScript连接扩展名为.sdf的SQL CE数据库

Call Query() Sub Query() Dim cnnStr, sqlStr Set cnn=CreateObject("ADODB.Connection
kiki1120·2012-06-12 17:00

QTP中Run Mode 从Nomal 改成 Fsat 代码

DimappObjSetappObj=CreateObject("QuickTest.Application")appObj.Options.Run.RunMode="Normal"'Fast,NormalSetappObj
hello_yang213·2012-06-08 20:00

后台图片上传出错

Server对象错误'ASP0177:8002801d'Server.CreateObject失败网站后台上传图片的时候报错，在网站查了很多方法都没解决的，有个地方说是没有aspjpeg.dll，尝试下
adpanshi·2012-06-08 13:05

6个可以隐藏运行bat,浏览器等程序的方法

方法一： HideRun.vbs脚本文件代码：CreateObject("WSc
Luckerme·2012-06-07 06:00

bat与Linux自动交互

error resume next >>%TFILE% @echo dim WshShell>>%TFILE% @echo Set WshShell = WScript.CreateObject
maypol·2012-06-05 13:00

VFP调用外部Exe文件，执行完后，再接着执行本程序（经典转载）

PublicgcNowPath*gcNowPath=Addbs(Justpath(Sys(16)))*SetDefaultTo(gcNowPath)*调用时：SETDEFAULTTOd:\lifeox=CreateObject
dxnn520·2012-06-05 09:00

VFP调用外部Exe文件，执行完后，再接着执行本程序（经典）

gcNowPath *gcNowPath=Addbs(Justpath(Sys(16))) *Set Default To (gcNowPath) *调用时： SET DEFAULT TO d:\life ox=CreateObject
xitong·2012-06-05 09:00

Vbs脚本编程简明教程之十

xml:namespace>代码如下：Set wshshell=CreateObject("wscript.shell")wshshell.AppActivate "连接 MAE-301U 拨号连接
chengchow·2012-06-04 12:54

Vbs脚本编程简明教程之六

例如：setws=wscript.createobject("wscript.shell")v=ws.regread("HKLM\Software\7-Zip\Path")wscript.echov2、
chengchow·2012-06-04 11:30

Vbs脚本编程简明教程之四

过程和函数，vbs也提供了一些内部函数和对象，但是Vbs没有提供任何命令来访问Windows系统内部的部件，但是值得庆幸的是，Vbs虽然不能自己完成这些任务，但是它提供了一条极为方便、功能也相当强的命令――CreateObject
chengchow·2012-06-04 11:18

bat 后台运行

方法一：   @echo off if "%1" == "h" goto begin mshta vbscript:createobject("
plkong·2012-06-03 20:00

bat 后台运行

方法一：   @echo off if "%1" == "h" goto begin mshta vbscript:createobject("
plkong·2012-06-03 20:00

access vba 操作excel

Private Sub showExcel() Dim xlApp As Excel.Application Set xlApp = CreateObject("Excel.Application
deepfuture·2012-06-01 15:00

access vba 操作excel

Private Sub showExcel() Dim xlApp As Excel.Application Set xlApp = CreateObject("Excel.Application
deepfuture·2012-06-01 15:00

把Excel工作簿中所有的工作表中的所有全角ABCD换成半角（摘自csdn论坛）

_ole_excel=CreateObject("Excel.Application") _ole_excel.VISIBLE=.T.
dxnn520·2012-05-30 09:00

JavaScript 原理详解之类声明及对象创建

 */ function createObject () { var ob
cuitongxin·2012-05-29 15:00
上一页 35 36 37 38 39 40 41 42 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他