CreateObject

Office全版本零售版转换VOL

PUSHD%~DP0setlocalEnableDelayedExpansion&color3e&cd/d"%~dp0"titleoffice系列retail转换vol版%1%2mshtavbscript:createobject
海斌2019·2018-01-17 17:32

KMS_Office_2016_Plus-Visio-Project激活脚本

ECHOOFFsetlocalENABLEDELAYEDEXPANSION::modecon:cols=65lines=25color0A::批处理获取管理员权限:-------------------------------------%1mshtavbscript:createobject
海斌2019·2018-01-17 17:48

WIN7通过BAT脚本设置IP、DNS、WINS

>nul&&goto:stmshtavbscript:createobject("shell.application").shellexecute("%~s0","goto:st","","runas"
飞奔的鱼儿·2018-01-08 10:08

VBA送你的字典请查收

微信公众号原文系统：Windows7软件：Excel2010问题当前工作簿是否存在表：示例工作簿的工作表1.png代码Subtest()Setd=CreateObject("Scripting.Dictionary
Data_Python_VBA·2018-01-06 18:26

杂项:自动关机/停止自动关机VBS脚本

OnErrorResumeNextstrComputer=“.”arrTargetProcs=Array(“wscript.exe”)‘数组里为要监视的进程名关机进程是用vbs开的进程名是wscript.exeSetSINK=WScript.CreateObject
文青_周·2018-01-04 10:59

使用zabbix自带模板监控Windows下MySQL

一、创建脚本找一个放脚本的目录，如:C:\zabbix\Scripts创建脚本:MySQL-ping.vbsSetobjFS=CreateObject("Scripting.FileSystemObject
龙虚度·2018-01-03 12:19

VB6 - FileSystemObject Write Error : “invalid procedure call or argument”

VB6中使用以下方式读取一个UTF-8文件后，另存为一个新文件时出错“invalidprocedurecallorargument”‘读取DimadoSAsObjectSetadoS=CreateObject
dj2008·2017-12-26 14:46

VB6 - FileSystemObject Write Error : “invalid procedure call or argument”

VB6中使用以下方式读取一个UTF-8文件后，另存为一个新文件时出错“invalidprocedurecallorargument”‘读取DimadoSAsObjectSetadoS=CreateObject
dj2008·2017-12-26 14:46

windows应用UWP无法使用系统代理

解决方法把下面这段代码复制到记事本中，后缀名改成.vbs，然后双击运行Setws=WScript.CreateObject("wscript.shell")app=ws.ExpandEnvironmentStrings
zxcvbnmzsedr·2017-12-09 01:02

VBA调用JS网址转文字 & 获取下载文件名

FunctiondecodeURI(szInput)Setjs=CreateObject("MSScriptControl.ScriptControl")js.Language="JScript"decodeURI
林万程·2017-12-05 17:51

VBA 弹框选择文件路径

------------------  DimdataExcel,Workbook,dataSheet,filePath  DimtotalRow AsInteger    SetdataExcel=CreateObject
boveysmith·2017-10-30 20:34

windows 后台调用bat （摘录）

http://hi.baidu.com/lzmysthttp://www.clxp.net.cnif"%1"neq"1"(>"%temp%\tmp.vbs"echosetWshShell=WScript.CreateObject
安妮小子被占用了·2017-10-12 15:56

VBA 根据股票代码查询价格

未实现定时刷新Sub 抓取股票价格()On Error Resume NextSet regx = CreateObject("vbscript.regexp") 'regx.Global = Trueregx.Pattern
zmj9152·2017-10-07 16:24

手动创建CFormView视图

CView*pView=(CMainView*)(RUNTIME_CLASS(CMainView)->CreateObject());if(!
chinayu2007·2017-09-13 18:04

查看文件中是否有某个字段，如果存在则返回该字符串所在的行，不存在则返回空字符串

为待查询的字符串FunctionSearchStringInFile(file_path,search_string)Dimstrline,whether_findwhether_find=0SetobjFso=CreateObject
御坂网络·2017-09-08 14:24

批处理文件 bat 后台运行

有两种办法,可以让bat后台运行,不出现黑窗口第一种解决办法(推荐):在你写的批处理文件,开头加上以下三行代码即可if"%1"=="hide"gotoCmdBeginstartmshtavbscript:createobject
North_Spark·2017-09-06 21:34

使bat文件以管理员身份运行

>nul&&goto:stmshtavbscript:createobject("shell.application").shellexecute("%~s0","goto:st","","runas"
韓峯·2017-09-01 14:19

windows计划任务后台定时执行java的jar文件

第一种方法：windows计划任务正常情况下不能执行jar，安装jdk，用vbs调用：vbs调用jar的代码：Setws=CreateObject("Wscript.Shell")ws.run"cmd/
铜峰叠翠·2017-09-01 14:06

批处理自动填写密码

@echooff(echosetWshell=CreateObject^("Wscript.Shell"^)echowscript.Sleep50echoWshell.SendKeys"123456":
obitolyz·2017-07-16 21:43

37、[VBA入门到放弃笔记]字典：判断key是否存在

源数据Suba()Dimarr,dAsObjectSetd=CreateObject("scripting.dictionary")arr=[a1].CurrentRegion'----------新增字典
叶知行·2017-07-02 15:18

EXCLE(vba)说明——方便自己回顾

PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)Dimd,wbAsWorkbook,arSetd=CreateObject("Scripting.Dictionary
hdlk·2017-06-23 13:27

发邮件脚本

NameSpace="http://schemas.microsoft.com/cdo/configuration/"SetEmail=CreateObject("CDO.Message")Email.From
杭州_周勇·2017-06-06 07:14

【VBA】遍历文件夹及子文件夹

1.需求遍历文件夹及子文件夹2.实现代码FunctionrecursiveFolder(strFolder)Dimfso,objFolder,objFiles,objSubFolderSetfso=CreateObject
HamelinFu·2017-05-28 04:10

炸群脚本-消息轰炸

网上看到的一段很有意思的代码setWshShell=WScript.CreateObject("WScript.Shell")WshShell.AppActivate"群的名称"fori=1to10WScript.Sleep500WshShell.SendKeys
StevenDIY·2017-05-27 18:01

Windows下通过脚本自动发邮件

创建一个脚本文件，名字随意，扩展名vbssubject=WScript.Arguments(0)content=WScript.Arguments(1)set sh=WScript.CreateObject
zl1030·2017-05-16 18:31

win8如何快速关闭135\445端口,预防onion永恒之蓝病毒

1.首先新建一个txt文本文档，如图2.复制粘贴下列代码并保存%%1mshtavbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe
朵朵向日葵·2017-05-13 20:33

zabbix 监控windows下redis

新建一个Redis_Status.vbs脚本SetobjFS=CreateObject("Scripting.FileSystemObject")SetobjArgs=WScript.Argumentsstr1
machineShunMing·2017-04-16 17:15

使用cJSON库打包json数据及解析json数据

/cjson/cJSON.h"intmain(){/*Cjson数据包的创建*///创建JSONObjectcJSON*root=cJSON_CreateObject();cJSON*info=cJSON_CreateObject
Dancer_Sky·2017-03-31 11:11

五个小时学会Asp连接access添加，删除，修改

自动排序name文本content文本xhtime日期默认值now()title文本2:打开DW建立文件conn.asp文件代码如下：CODE:这段语句是连接数据库的语句setconn=server.createobject
form88·2017-03-26 16:54

Vbs 清理备份数据-保留数据量

Set dic = CreateObject("scripting.diction
高文龙·2017-03-18 16:51

JS定义类及对象

functioncreateObject(name){varp=newObject();p.name=name;p.say=function(){alert(p.name+'ff');}returnp;}varp1=createObject
白屏·2017-03-09 16:03

使用脚本更改计算机名

第一种：DimrevalSetobjnet=CreateObject("WScript.Network")SetR=CreateObject("WScript.Shell")reval=InputBox
Younisz·2017-02-28 21:42

VBA：Excel使用SQL进行查询

SubQuery()DimConnAsObject,RstAsObjectDimstrConnAsString,strSQLAsStringDimiAsInteger,PathStrAsStringSetConn=CreateObject
五维思考·2017-02-19 19:14

FairyGUI加载包生成物体的过程解析

这两天在看FairyGUI的工作流程，在加载FairyGUI某个组件的时候需要先AddPackage,然后在CreateObject,这时才能正确加载组件。
andyabs·2017-02-14 11:24

VBE整人

发点整人代码，请勿自己点~~~~~~~~~~sets=createobject("wscript.shell")setbag=getobject("winmgmts:\\.
AKfxsj·2017-01-12 15:47

QTP/UFT引用外部dll的3种方法

QTP引用外部dll的3种方法：ActiveDLL,WinAPIDLL,.NetAPIDLL1、ActiveDLL通过CreateObject(class)创建：dimwssetws=CreateObject
DanielYuan_911·2017-01-07 20:47

vbs教程《弹出窗口》

setws=createobject("wscript.shell")dimx1rem弹出输入框inputbox(text,title,default_value)x1=inputbox("请输入一个数字
xiaohei_dev·2016-12-29 18:57

Excel VBA 字典/数组 示例

[a1].CurrentRegionarr1=[a1].CurrentRegionSetd=CreateObject("scripting.dictionary")Fori=2ToUBound(arr)
ChristopherChen·2016-12-01 13:41

Excel VBA 字典/数组 示例

[a1].CurrentRegionarr1=[a1].CurrentRegionSetd=CreateObject("scripting.dictionary")Fori=2ToUBound(arr)
ChristopherChen·2016-12-01 13:41

Excel VBA 连接数据库

PublicSubVBA_DB_Test()DimstrConnAsString,strSQLAsString,connAsObject,rsAsObject,colAsIntegerSetconn=CreateObject
ChristopherChen·2016-11-25 17:12

VBS脚本常用经典代码

*/setWshShell=WScript.CreateObject("WScript.Shell")strWinDir=WshShell.ExpandEnvironmentStrings("%WinDir
cosmoslife·2016-11-21 18:53

VBA and Access

>>.用vba连接ACESS：Set Conn= Server.CreateObject("ADODB.Connection")Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB
bilinyee·2016-11-11 23:51

Test Completed

TestCompletedDimxlAppDimxlBookSetxlApp=CreateObject("Excel.Application")SetxlBook=xlApp.Workbooks.Open
萍水相逢·2016-10-27 00:00

Excel 正则表达式 VB 提取字符串

打开Excel，ALT+F11打开VB在sheet1右键新建模块贴入代码：Functionzz(rngAsRange)DimregAsObjectSetreg=CreateObject("VBScript.RegExp
macwhirr123·2016-09-28 11:44

在 Excel 中使用正则表达式进行查找与替换

PrivateSubRegExp_Replace() DimRegExpAsObject DimSearchRangeAsRange,CellAsRange '此处定义正则表达式 SetRegExp=CreateObject
不是豆豆·2016-09-06 12:00

VBS基础篇 - 动态数组

VBS中的动态数组需要使用System.Collections.ArrayList'建立动态数组DimArrl:SetArrl=CreateObject("System.Collections.ArrayList
Ethon·2016-08-15 14:00

百度ueditor图片上传提示“上传失败，请重试”解决办法

uploader.class.asp里的CheckOrCreatePath过程修改如下： Private Function CheckOrCreatePath( ByVal path )        Set fs = Server.CreateObject
aminfo·2016-07-22 12:21

让windows说话

利用windows自带的声音引擎来让电脑说你想要的话，代码如下：  CreateObject("SAPI.SpVoice").Speak"需要让电脑说的话"  将以上代码写入记事本文件并将其保存为vbs
alone_map·2016-07-07 15:00

QtQuick动态创建组件

1.Qt.createComponent创建组件对象createObject指定父元素**Ani.QmlAnimatedImage{id:animation;source:"qrc:/T.gif"width
a289672082·2016-06-19 21:32

win7下后台运行BAT

@echooffif"%1"=="h"gotobeginmshtavbscript:createobject(
dzh_lin·2016-06-17 16:02
上一页 16 17 18 19 20 21 22 23 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他