CreateObject

[原创]qtp用Vbscript进行文件对象…

本帖子为本人原创，转载请注明作者：CheersLi以及网络来源: 1.QTP调用xstadard对文件/文件夹打包实例 QTP脚本如下：DimobjZipsetobjZip=createobject("
achang21·2013-09-15 10:00

QTP 数据库连接脚本实例

一、连接：Mssql实例Dimrs,cmd,sqlSetrs=createobject("adodb.recordset")Setcmd=createobject("adodb.command")cmd.activeconnection
achang21·2013-09-15 10:00

QTP在EXCEL里面添加超联接的方法

SubReportInformation(filename)    SetExcelObj=CreateObject("Excel.Application")   ExcelObj.Workbooks.Add
achang21·2013-09-15 10:00

如何解决返回数据库查询纪录条数的…

我前边发过一篇：数据库连接实例,具体地址：http://blog.sina.com.cn/s/blog_505bf9af01009307.html 希望大家参考学习）方法一Set  oRs  =  Server.CreateObject
achang21·2013-09-15 10:00

缺少对象 WScript 问题解决方法

DimoShellSetoShell=CreateObject("WSCript.shell")oShell.run"cmd/Kwscripte:\test.vbs"SetoShell=Nothing  
achang21·2013-09-15 10:00

qtp 使用Oracle数据库做测试数据驱…

具体操作： '创建excel的对象SetExcelObj=CreateObject("Excel.Application")'指定一个execl的格式，这个需要我们事先定制好aatype="F:\templet.xls
achang21·2013-09-15 10:00

ASP FSO操作文件(复制文件、重命名文件、删除文件、替换字符

Server.ScriptTimeOut=9999FunctionreName(sourceName,destName)dimoFso,oFilesetoFso=Server.CreateObject(
smeyou·2013-09-12 23:00

ASP FSO操作文件(复制文件、重命名文件、删除文件、替换字符

Server.ScriptTimeOut = 9999 Function reName(sourceName,destName) dim oFso,oFile set oFso = Server.CreateObject
·2013-09-12 23:00

.bat后台运行

------------------------------------------------------------ Set ws = CreateObject("Wscript.Shell
·2013-09-07 00:00

让自制脚本随系统开机运行

details/6323586   应用程序打包jar后实现随系统开机启动http://kinganpo.iteye.com/blog/891773   用vb脚本来处理： createobject
·2013-09-06 23:00

网站制作---asp操作数据库的一个小例子

,在线交流:创梦IT社区:www.credream.com一般用在asp网站中比较常见:asp操作数据库的一个小例子:id=request.QueryString("id")setrs=server.createobject
lidew521·2013-09-04 20:00

'Open File' dialog by VBS

FunctionBrowseForFile() Dimshell:Setshell=CreateObject("WScript.Shell") Dimfso:Setfso=CreateObject("Scripting.FileSystemObject
wxqee·2013-09-04 14:00

VBS读取注册表的两种方法

第一种通过wshshell对象的regread复制代码代码如下:RegValue=CreateObject("Wscript.Shell").RegRead("\XXXX_XXXXXXXX_XXX\XXX
·2013-09-03 16:08

VBS获取当前目录下所有文件夹名字的代码

复制代码代码如下:Setws=WScript.CreateObject("wscript.shell")w=ws.CurrentDirectorySetfso=WScript.CreateObject(
·2013-09-03 16:43

vbs 获取当前目录的实现代码

CMD当前路径复制代码代码如下:test=createobject("Scripting.FileSystemObject").GetFolder(".").PathWscript.echotest当前
·2013-09-03 15:49

QTP脚本示例

QTP简单脚本示例：  setie=createobject("internetexplorer.application")ie.visible=trueie.navigatehttp://www.baidu.com
Smile5098·2013-09-01 21:00

VBScript 监控并结束指定进程的代码

arrTargetProcs=Array("calc.exe","notepad.exe","other.exe")'数组里为要监视的进程名SetSINK=WScript.CreateObject("WbemScripting.SWbemSink
·2013-09-01 18:56

JScript实现将指定目录下的vc工程加到解决方案

作者：朱金灿来源：http://blog.csdn.net/clever101          main(); functionmain() { try { varWSShell=WScript.CreateObject
clever101·2013-08-29 22:00

用来猜后台的HTA小程序

复制代码代码如下:functionisExist(url)dic="c:\dic.dic"Setfso=CreateObject("Scripting.FileSystemObject")setzidian
·2013-08-27 19:45

ASP - MSXML2.ServerXMLHTTP & HTTPS & 证书过期 — msxml3.dll '80072f05'

;certificate is invalid or has expired Dim xmlhttp Set xmlhttp = Server.CreateObject
·2013-08-23 10:00

域账号加到本机管理员组和本机Power Users组

DimsFlagDimoWshNetworkSetoWshNetwork=WScript.CreateObject("WScript.Network")strComputer=oWshNetwork.ComputerNamesF
zhou_ping·2013-08-19 22:11

域账号加到本机管理员组和本机Power Users组

Dim sFlagDim oWshNetworkSet oWshNetwork = WScript.CreateObject("WScript.Network")strCom
zhou_ping·2013-08-19 22:11

让win8 关机进驻右键

如下： 1.打开记事本，将其保存后直接命名为shutdown.vbsdimobjshellsetobjshell=CreateObject("shell.application")objshell.ShutdownWindowsSe
wangri·2013-08-18 20:59

Application，Session，Cookie之Application对象

Application集合 Contents用于获取（除Object标记和CreateObject方法创建的对象）所有Application对象  CreateObject集合取得Object标记建
han_yankun2009·2013-08-17 21:00

VBS使用SMTP协议发送邮件

NameSpace="http://schemas.microsoft.com/cdo/configuration/" SetEmail=CreateObject("CDO.Message") Email.From
blizzardlyk·2013-08-16 12:00

在VBScript中，像C一样使用include一个.vbs脚本

Include"C:\workspace\vbs\Libraries\MySQLDB.vbs" SubInclude(sInstFile) DimoFSO,f,s SetoFSO=CreateObject
wxqee·2013-08-15 23:00

VBS获取当前登录的用户全名和邮件地址

FunctionGetEmail(strAccountName,strDomainName) DimadoLDAPCon,_ adoLDAPRS,_ strLDAP SetadoLDAPCon=CreateObject
blizzardlyk·2013-08-12 11:00

渗透常用vbs脚本

echoiLocal=LCase(Wwww.Arguments(1))>iget.vbeechoiRemote=LCase(Wwww.Arguments(0))>>iget.vbeechoSetxPost=CreateObject
serverxx0·2013-08-10 23:34

VBS get，post函数

Functiongethttp(gethttp_url)Dimhttp_getSethttp_get=Server.CreateObject("MSXML2.ServerXMLHTTP")http_get.Open"GET
·2013-08-01 18:00

cmd.exe

cmd.exe指令cmd.exe 指令/C 执行字符串指定的命令 自动关闭/K 执行字符串指定的命令 不关闭多条指令用&连接例子vbSet objShell = CreateObject("Wscript.Shell
leonwei·2013-07-31 18:00

将excel表格里的内容导入到DataTable中，不可使用import和importsheet函数

excel表格里的内容导入到DataTable中，不可使用import和importsheet函数 Excelpath="d:\data2.xls"Set ExcelApp=createobject
tengzejun508·2013-07-31 17:00

SA权限内网机存储MSSQL时候

EXECmaster..xp_cmdshell‘echoSetxPost=createObject(“Microsoft.XMLHTTP”)>c:\2.vbs’EXECmaster..xp_cmdshell
954217943·2013-07-31 10:29

QTP输出结果到文本中并对齐

Dim fileSystemObj,fileSpec,logFileSet fileSystemObj=createobject("Scripting.filesystemobject
tengzejun508·2013-07-30 18:00

excel中读取参数并且用计算器计算结果与预期结果相比较

DataStr="d:\data1.xls"'设置读取excel路径 Set ExlObj=createobject("excel.application")'
tengzejun508·2013-07-30 13:00

VBS 自动登录论坛的实现代码

action=login"username="***"password="***"setie=CreateObject("InternetExplorer.Application")ie.visible
·2013-07-28 20:20

asp 使用正则表达式替换word中的标签

asp 使用正则表达式替换word中的标签 asp 使用正则表达式替换word中的标签，转为纯文本 http://www.jb51.net/article/23257.htm谁能告诉我关于CreateObject
wgq_star·2013-07-26 15:59

自动朗读VBS脚本

Dimmsg,sapi msg=InputBox("Enteryourtext","Talkit") Setsapi=CreateObject("sapi.spvoice") sapi.Speakmsg
agoago_2009·2013-07-26 10:00

bin.base64和bin.hex编码与解码

FunctionEncodeBase64(bytesData) DimobjXd SetobjXd=Server.CreateObject("msxml.domdocument") CallobjXd.loadXml
wgq_star·2013-07-25 14:59

VB.NET机房收费系统导出Excel

DimjAsInteger DimxlAppAsExcel.Application DimxlBookAsExcel.Workbook DimxlSheetAsExcel.Worksheet SetxlApp=CreateObject
gxq741718618·2013-07-24 21:00

[fso]如何打开utf-8格式的文件

想用fso编辑格式为utf-8格式的css文件，可是打开后发现中文注释为乱码.比如：font-family:濂旇我的代码：Setfso=Server.CreateObject("Scripting.FileSystemObject
vbangle·2013-07-23 23:00

通过vbs修改目录名称与快捷方式名称的实现代码

复制代码代码如下:setfso=wscript.createobject("scripting.filesystemobject")OldFolderName1="263EnterpriseMessenger"newFolderName1
·2013-07-19 15:24

VBS+CMD

SetobjShell=CreateObject("Wscript.Shell")objShell.Run("ipconfig/all")方便极了。
a191030148·2013-07-19 13:00

use telnet auto reboot TP-Link route

delc:\temp.vbs@echoonerrorresumenext>>c:\temp.vbs@echodimWshShell>>c:\temp.vbs@echoSetWshShell=WScript.CreateObject
godoha·2013-07-18 20:51

将PC变成瘦客户机（VMware View&Citrix XenDesktop）

View“C:\ProgramFiles\VMware\VMware View\Client\bin\wswc.exe”gotoView3.在同一级目录中创建start.vbsSetWshShell = CreateObject
saim·2013-07-15 17:32

devmgmt.msc

@echooffif"%1"=="h"gotobeginmshtavbscript:createobject("wscript.shell").run("%~fs0h",0)(window.close)
ermuzhi·2013-07-05 20:00

ppt 2 word

DimpptPresAsPowerPoint.Presentation SetpptPres=Application.ActivePresentation Dimword1AsObject Setword1=CreateObject
歪脖子不卖萌·2013-06-28 22:00

cJSON很好使用的一个json解析器

source=navbar实例1:创建一个简单的学生信息数组cJSON*pRoot=cJSON_CreateObject();cJSON*pArray=cJSON_CreateArray();cJSON_AddItemToObject
chenzhongjing·2013-06-27 15:08

windows 批处理后台运行

在你批处理的相同目录下新建一个记事本，里面输入：setws=wscript.createobject("wscript.shell")ws.run"win.bat/start",0（其中win.bat为你自己的批处理名字
gxp·2013-06-26 10:00

[Silverlight]调用外部可执行程序

publicvoidInvokeExternalExecutableApp() { if(Application.Current.HasElevatedPermissions) {using(dynamiccom=AutomationFactory.CreateObject
·2013-06-25 13:00

WScript.Shell对象的run和exec

createobject("wscript.shell").run"""BAT或EXE的文件路径及名称""",0true0表示隐藏运行窗口true表示在继续执行脚本中的下一条语句之前，脚本是否等待执行完程序
bothilove·2013-06-25 11:43
上一页 31 32 33 34 35 36 37 38 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他