CreateObject 第8页

VB选择文件夹

SetspShell=CreateObject("Shell.Application")SetspFolder=spShell.BrowseForFolder(0,"选择目录:",0,ssfDRIVES

zhangzhiwei911·2020-08-25 00:17

QTP如何获取本地Excel文件的行和列

代码如下：Setexcel=CreateObject("Excel.Application")setopenexcel=excel.Workbooks.Open("这里输入EXCEL路径")rowcount

meiyuan1304·2020-08-24 22:05

向Windows中添加自启动程序

AddAutoRunProgram.vbs假设该程序在c:/myfile文件夹中，文件名为autorun.exeDimAutoRunProgramSetAutoRunProgram=WScript.CreateObject

雷万·2020-08-24 22:10

在启动组建立程式快捷方式

SetWshShell=WScript.CreateObject("WScript.Shell")StrStartup=WshShell.SpecialFolders("AllUsersStartup"

雷万·2020-08-24 22:09

Reset Broadband Connection

SetWshShell=WScript.CreateObject("WScript.Shell")WshShell.Run"regsvr32Shdocvw.dll"WshShell.Run"regsvr32Shell32

雷万·2020-08-24 22:09

ASP 实现图片等比例缩放函数 imgInfo

==='DefineClassimgInfo'==========================ClassimgInfodimasoPrivateSubClass_Initializesetaso=CreateObject

iceidea·2020-08-24 22:13

1.word打开与关闭（VB.NET）

DimmWordappAsWord.Application'word应用程序DimmobjDocAsWord.Document'word文档DimfullFileNameasstring'文件路径mWordapp=CreateObject

davidjian·2020-08-24 21:34

Excel的简单Word报告批量生成 vba笔记 (一)

批量生成Excel的简单Word报告/vba/录制宏Subpiliangshengcheng()Setdd=CreateObject("excel.application")dd.workbooks.Open

YYYLRM·2020-08-24 21:10

vb操作WORD大全

打开一个已经存在的wrod文件（这个文件包含了表格）DimWordAppDimWordSetWordApp=CreateObject("W

sybxp123·2020-08-24 21:29

VBS设置打印页眉

Microsoft/InternetExplorer/PageSetup"'//设置网页打印的页眉页脚为空functionpagesetup_null()onerrorresumenextSetRegWsh=CreateObject

greystar·2020-08-24 20:47

让bat双击即可“以管理员身份运行”

%1mshtavbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c%~s0::","","runas",1)(window.close

laoxige·2020-08-24 14:53

按键精灵脚本问题：第0行:没有权限: 'CreateObject'

问题：调试按键精灵脚本，产生第0行:没有权限:'CreateObject'问题原因：该用户不是administrators组用户解决办法：在adminstrator用户下给该用户属于administrors

wellschen·2020-08-24 04:06

怎样弹出 CD-ROM

DrivesIfd.DriveType=CDROMThenEjectd.DriveLetter&":\"EndIfNextSubEject(CDROM)DimssfDrivesssfDrives=17CreateObject

java2000_test·2020-08-24 00:58

Excel导入Access时报错“找不到可安装的ISAM”的解决办法

解决方案1.报错原因本文针对ExcelVBA工程中对Access对象采用后期绑定出现的报告，经查阅文档后调试解决如后'后期绑定数据库对象DimAppAccessAsObjectSetAppAccess=CreateObject

一刀^••^·2020-08-23 22:56

AddFirewallPort.vbs(批量添加端口)

批量添加端口)ONERRORRESUMENEXTFunctionAddFirewallPort(strName,iPort,iProtocol,iScope,bEnabled)SetobjFirewall=CreateObject

weixin_33843409·2020-08-23 20:04

Win10 WSL 使用 - 开机自启服务

使用VBS编写脚本使WSL开机自启动一些服务wls_rclocal.vbsSetws=WScript.CreateObject("WScript.Shell")cmd="C:\Windows\System32

mrun·2020-08-23 19:24

QTP-TIPS

Dimrs,sq,pkeysetconn=createobject("adodb.connection")setrs=

agol83082486·2020-08-23 15:10

ASP使用流输出文件下载

functiondownloadfile(fullpath)downloadfile=falsedimstrfilename,s,fso,f,intfilelengthsetfso=server.createobject

weixin_34294649·2020-08-23 08:23

使用Excel VBA将当前Excel作为附件通过Outlook发email给接收人

Pleaseinputthereceiptemailaddress")DimolAppAsObjectDimolNameSpaceAsObjectDimolFolderAsObjectDimolMailAsObjectSetolApp=CreateObject

bluemliu·2020-08-23 05:24

获取数据库所有表及其字段名称、类型、长度

hi.baidu.com/%B7%E7%D3%F8/blog/item/db6d0835b7d6af305bb5f5c5.html"Sqlstr="select*from"&table_nameSetrs2=Server.CreateObject

gxj022·2020-08-23 04:00

字符串作数学运算

PrivateSubForm_Load()DimscAsObjectSetsc=CreateObject("ScriptControl")sc.Language="VBScript"S=sc.Eval(

weixin_34018202·2020-08-23 03:09

VBS 刷屏代码

看到一个VBS脚本的东西，记录一下VBSScript使用方法：复制需要转发的内容，点击QQ或者微信窗口，，再双击VBS脚本即可自动运行OnErrorResumeNextDimxda,yesetxda=createobject

Parkergh·2020-08-23 01:36

刷新网页的vbs

DimobjIESetobjIE=CreateObject("InternetExplorer.Application")objIE.navigate("http://www.baidu.com/")objIE.visible

weixin_30478757·2020-08-23 00:31

如何在命令行输出重定向

要使用WSH带有任何控制台命令，需要以下两行：在VBScript中：SetWshShell=WScript.CreateObject("WScript.Shell")WshShell.Run("%comspec

jamex·2020-08-22 17:01

windows server上重启java程序bat脚本

脚本内容如下（windows10系统已测试可用）：tskilljava%1mshtavbscript:CreateObject(“WScript.Shell”).Run("%~s0::",0,FALSE

奔跑的犀牛丶·2020-08-22 16:37

VBS：QQ刷屏

OnErrorResumeNextDimwsh,yesetwsh=createobject("wscript.shell")fori=1to20wscript.sleep7wsh.AppActivate

云想衣裳花想容—·2020-08-22 13:40

监控SQUID服务是否运行脚本

SetWshell=WScript.CreateObject("WScript.Shell")dodimOKsquid=Falsesetbag=getobject("winmgmts:\\.

weixin_34236869·2020-08-22 11:12

vbs创建日志文件并追加内容

2019独角兽企业重金招聘Python工程师标准>>>'创建文件SetobjFSO=CreateObject("Scripting.FileSystemObject")SetObjFolder=objFSO.CreateTextFile

weixin_33970449·2020-08-22 11:57

VBS脚本教程：文件读取及写入

这篇博文就是介绍的这些规则读有readall函数，就是把所有的数据都读出来有readline函数，读一行还有read(n)//n自己定，读n个字节自己看下面的代码就能掌握了代码：dimfso,openfilesetfso=createobject

seen_in_hw·2020-08-22 10:47

VBS教程：创建txt文件

关于在C，C++里面我们学习了创建文件的方法，非常之繁琐，然而在VBS里卖弄却异常的简单和方便，那么让我们看一看怎么做到的，看代码dimfso,testfilesetfso=createobject("

seen_in_hw·2020-08-22 10:47

vbs 创建并输出文本

Dimfso,MyFileSetfso=CreateObject("Scripting.FileSystemObject")SetMyFile=fso.CreateTextFile("c:\testfile.txt

LuckyDragonM·2020-08-22 09:08

BAT文件如何隐藏黑黑的控制台窗口？

其实很简单，请看下面：@echooffif"%1"=="h"gotobeginmshtavbscript:createobject("wscript.shell").run("""%~nx0""h",0

zwcwu31·2020-08-22 09:30

Windows环境下telnet自动登录和运行脚本

研究了一下在Windows下，使用Telent登录至UNIX的脚本，现将其贴下，以供下次使用（tt.bat）@echooffechosetsh=WScript.CreateObject("WScript.Shell

iteye_12448·2020-08-22 01:50

Excel VBA 获取指定路径下的文件夹名称

Subgetfoldername()'获取指定路径下的文件夹名称DimfsAsObjectn=1Setfs=CreateObject("Scripting.FileSystemObject")Setf=

lxljw1314·2020-08-21 19:32

Excel VBA 代替Sumproduct实现多条件求和

PrivateSub多条件求和()Dimd,ar,arr,s$,t$,i&Setd=CreateObject("Scripting.Dictionary")ar=Range("b2:m"&[b65536

lxljw1314·2020-08-21 19:32

奇偶文件重新命名

代码如下index.asp奇偶文件重新命名文件重新命名原文件目录：奇数偶数do.asp0thensetobj=Server.CreateObject("Scripting.FileSystemObject

letianok·2020-08-21 09:05

bat批处理文件运行时隐藏cmd窗口

想让bat运行时隐藏cmd窗口，最好的方法是使用vbs文件实现，1、新建一个文本文档，改名为123.vbs，编辑内容：setws=WScript.CreateObject("WScript.Shell"

diaokua8472·2020-08-21 08:38

html上传图片的预览功能实现

'"+getObjectURL(obj.files[0])+"')");}//不同浏览器获得图片urlfunctiongetObjectURL(file){varurl=null;if(window.createObject

weixin_30919571·2020-08-21 06:59

调用局域网其他计算机程序的脚本

inputbox("输入命令")strComputer="10.100.3.68"strUserName="administrator"strPassword="master"SetobjSWbemLocator=CreateObject

ncqingchuan1976·2020-08-21 04:08

点击链接弹出保存图片对话框（asp）

/test.jpg"))Functiondownload(File)temp=Split(File,"/")filename=temp(UBound(temp))Sets=CreateObject("adodb.stream

CodingSir·2020-08-21 03:18

XmlHttp对象及其方法

创建XMLHTTP对象的语句如下：SetobjXML=CreateObject(Msxml2.XMLHTTP)或SetobjXML=CreateObject(“Microsoft.XMLHTTP”)'Or

cxl34·2020-08-20 23:14

如何用批处理遍历文件夹

strPathAsString,strNameAsString)'strPath:pathwhichtobesearched'strName:filenamewhichwillbecreatedSetWSH=CreateObject

yjq0812·2020-08-20 20:52

VBA调用cmd命令

OptionExplicit'CMD命令调用PrivateSubCommandButton1_Click()DimWshShellAsObjectSetWshShell=CreateObject("

许双涛·2020-08-20 20:14

小脚本の恶搞关机

查看把隐藏已知文件类型的扩展名前面的勾去掉.然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去onerrorresumenextdimWSHshellAsetWSHshellA=wscript.createobject

多啦A孟·2020-08-20 17:00

小脚本の电脑语音

我们只要打开windows的自带“记事本”，在里面编写“CreateObject("SAPI.SpVoice").Speak"ABC"”，并将文件保存扩展名为“.vbs”文件”，保存退出，然后重新双击该