CreateObject

获取AD域用户登入信息

获取AD用户登入信息详细记录AD域用户登入过哪些终端电脑1：DimconSetobjSysInfo=CreateObject("ADSystemInfo")strUser=objSysInfo.UserNameSetobjUser
wx5ecbb39ddb69b·2020-05-25 20:05

关于 VBScript 中的 CreateObject

本文主要记录，VBS中，CreateObject和WScript.CreateObject的不同。
Bitssea·2020-05-02 09:00

burpsuite start method

http://hi.baidu.com/lzmysthttp://www.clxp.net.cnif"%1"neq"1"(>"%temp%\tmp.vbs"echosetWshShell=WScript.CreateObject
Mysticbinary·2020-04-25 19:00

【技术向】vbs实现远程控制和窃取文件

第一次知道vbs是因为当时网上流行着一个电脑性别测试：打开记事本输入CreateObject("SAPI.SpVoice").Speak"IloveYOU"然后保存扩展名为*.v
折木折木·2020-04-13 10:08

cocos creator 和 FairyGUI 联合开发下

_view=fgui.UIPackage.createObject("CW","game_start").asCom;获得开始界面然后通过fgui.GRoot.inst.addChild
安宇辛·2020-04-13 05:41

提取混合字符串中的连续汉字

《Excel2010函数与公式》疑难143如图：Snap1.jpg将A列中的连续汉字提取到B列1、VBA法Sub提取汉字()DimregAsObjectDimmhSetreg=CreateObject(
一个人的迷雾·2020-04-13 01:40

修改hosts文件的.bat批处理文件解释

::表示注释，使用时去掉注释@echooffmodeconlines=30cols=60::设置命令行的大小30行60列%1mshtavbscript:CreateObject("Shell.Application
星星之火666·2020-04-13 00:23

VBS文件操作

VBS文件操作'操作文本文件，操作fso对象（文件对象操作）－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－创建文件dimfso,fsetfso=server.CreateObject
中華田園雞·2020-04-10 22:49

ASP 百度主动推送代码范例

范例代码function BytesToBstr(body,Cset)    dim objstream set objstream = Server.CreateObject("adodb.stream
mdxy-dxy·2020-04-07 18:55

41、[VBA入门到放弃笔记]字典应用：计数

字典常常用来进行计数计数Subggg()Dimarr,dAsObject,iAsLongarr=Range("a1:a"&Cells(Rows.Count,1).End(xlUp).Row)'将数据放进数组Setd=CreateObject
叶知行·2020-04-07 00:28

VBS定时执行idea程序的Testng文件的方法

vbs代码如下：'第一部分：定义变量DimRunTimeDimWshShellSetWshShell=WScript.CreateObject("WScript.Shell")'第二部分：输入等待的分钟数
SwTesting·2020-04-04 09:20

先进先出的问题？

Sub先进先出()DimArr,brr,crr(1To10000,1To4)Setd=CreateObject("scripting.dictionary")'创建字典Arr=[a1].CurrentRegion
叶知行·2020-04-04 04:01

vbs ping实现的两种方式

1、调用系统ping命令Setwshell=CreateObject("WScript.Shell")wshell.run("ping182.183.101.1",0.true)对于以上调用，如果想对其进行过滤
longlongway2012·2020-03-31 10:20

WScript.Shell 与 Shell.Application 的不同

本文主要对比，VBScript中CreateObject("WScript.Shell")和CreateObject("Shell.Application")之间，有什么不同。
Bitssea·2020-03-29 10:00

excel2003 sql语言之插入与删除

accessrivateSubCommandButton6_Click()‘删除access中相同日期的数据OnErrorResumeNextDimSQL$Dimcnn,rs,wb,mth,mytableSetcnn=CreateObject
匆匆那年过客·2020-03-29 06:53

VBS 文件操作

'操作文本文件，操作fso对象（文件对象操作）－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－创建文件dimfso,fsetfso=server.CreateObject("Scripting.FileSystemObject
中華田園雞·2020-03-27 23:25

VBScript 打开含有"空格"的路径 (Open Path with Space)

OptionExplicitDimobjDimpathSetobj=createobject("wscript.shell")path="C:\Users\XX\Desktop\Newfolder(3)
Bitssea·2020-03-27 00:00

FGUI代码笔记

MonoBehaviour{GComponent主ui;GComponent战斗面板;float开始值,结束值;voidStart(){主ui=GetComponent().ui;战斗面板=UIPackage.CreateObject
JJJJJJJJJJC·2020-03-25 09:54

程序员老司机“随意开车”，恶搞代码让你分分钟玩死程序员！

然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).xx.vbs=>OnErrorResumeNextDimwsh,yesetwsh=createobject
Autumn丶Rains·2020-03-14 19:00

word分割的宏

oNewDocAsDocumentDimstrSrcNameAsString,strNewNameAsStringDimoRangeAsRangeDimnIndexAsIntegerDimfsoAsObjectSetfso=CreateObject
Jocheel·2020-03-13 22:51

VBS通过WinHttp对象下载网页图片。

SubDownloadPic(url,strPath)SetWinhttp=CreateObject("WinHttp.WinHttpRequest.5.1")Winhttp.Open"GET",urlWinhttp.Set
tangjiashiertui·2020-03-12 10:00

传奇私服法师挂机脚本

脚本//设置大漠路径以及字库名Setdm=createobject("dm.dmsoft")dm.SetPath("d:")dm_ret=dm.SetDict(0,"lanhuo.txt")//绑定窗口和模式
禾白小三飘·2020-03-11 19:58

屏蔽coreldraw联网批处理

自动屏蔽coreldraw联网的批处理@echooff%1mshtavbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","
Sirius之剣·2020-03-09 16:33

使用VBS脚本语音朗读文字

fileCharset'filePath为要朗读的文本文件路径，根据实际替换filePath="D:\测试.txt"'fileCharset为要朗读的文本文件编码，根据实际替换fileCharset="utf-8"Setfso=CreateObject
Skyzou·2020-03-08 11:00

VBA 遍历目录

SubGetFolderFile(pathAsString,rowNoAsLong,indentLevelAsInteger)DimfsoAsObjectSetfso=CreateObject("Scripting.FileSystemObject
历奇·2020-03-07 22:54

前端图片预览漫谈

一、本地图片预览1.使用对象URL使用WebAPI接口中的URL.createObject可以创建一个给定的对象的URL。该URL的生命周期和当前的document绑定，所以复制在新窗口中打开无效。
公子凌云·2020-03-06 09:38

36、[VBA入门到放弃笔记] 字典:属性

将武器放进字典Paste_Image.pngSuba()Dimarr,dAsObjectSetd=CreateObject("scripting.dictionary")arr=[a1].CurrentRegion
叶知行·2020-03-06 06:11

vba parse错误

'Subgetpicture()'Dimd,i&,spAsShape,arr'Setd=CreateObject("scripting.dictionary")'ForEachspInSheet1.Shapes'Ifsp.Type
隨風.NET·2020-03-03 13:00

VBA判断是否连接公司内网/是否联网（Excel）

Function测网(url)OnErrorResumeNextcmdping="ping"&url&"-n1"SetoExec=CreateObject("Wscript.shell").exec(cmdping
林万程·2020-02-19 21:10

VB笔记

ByValsUTF8FileAsString)AsStringIfLen(sUTF8File)=0OrDir(sUTF8File)=vbNullStringThenExitFunctionDimadosAsObjectSetados=CreateObject
John_Tsemin·2020-02-18 08:08

40、[VBA入门到放弃笔记]字典应用：提取唯一值

单列去重复源数据Sub去重复()Dimarr,dAsObject,iAsLongarr=Range("a1:A"&Cells(Rows.Count,1).End(xlUp).Row)'数组赋值Setd=CreateObject
叶知行·2020-02-18 07:55

一键切换代理.vbs

,51,"使WindowsApp获取代理权限")Case6Setws=WScript.CreateObject("wscript.shell")app=ws.ExpandEnvironmentStrings
Quincy_X·2020-02-18 02:34

EXCEL-VBA：递归遍历文件夹及子文件夹中的文件

article/details/78037983ConstSearchPath="D:\PDF"DimDicList,FileList,I,FileName(),FilePath()SetDicList=CreateObject
whw83·2020-02-17 05:15

批量修改文件名

一个简单的实现如下：setobjfso=createobject("scripting.filesystemobject")setobjfiles=objfso.getfolder(".").filesforeachobjfileinobjfilesnewname
ConstZ·2020-02-15 17:02

VBA+SQL：提取数据（没有表头字段）

Subcctv()DimcnnAsObject,rsAsObject,i&,SQL$Setcnn=CreateObject("ADODB.Connection")'创建链接，没有表头字段的链接写法cnn.Open"Provider
叶知行·2020-02-14 03:30

35、[VBA入门到放弃笔记] 字典:操作字典

-明月刀|10000孔雀翎|8888888龙泉剑|6666伏魔棍|99999三角刺|11111板凳|999999999砖头|99999999999Suba()Dimarr,dAsObjectSetd=CreateObject
叶知行·2020-02-13 00:07

vbs定时自动发送qq消息

好友和群组设置快捷方式，见下图:2.编写vbs代码：(1)新建文本文档,命名为"QQautosend.vbs";(2)右击当前文件，点击"编辑"，编写如下代码:SetWshShell=WScript.CreateObject
Jerry104393·2020-02-09 13:37

【数据库】Oracle创建用户并授权

书客创作当通过工具导出数据时，就可以看到创建用户相关语句@@createObject.sql。
吾非言·2020-02-09 01:32

设置多个软件开机自启

不在废话了，直接进入主题吧2.打开记事本，在里边写如下命令：setWshell=CreateObject("Wscript.Shell")//设置脚本Wscript.Sleep
独一_无二·2020-01-15 10:00

厉害了，不用安装任何软件，就能朗读任意内容

然后打开，在里面输入下面的一行代码CreateObject("SAPI.SpVoice").Speak"大家好，我是计算机
神good杰·2020-01-08 18:24

VBA说重复的信息我不要！

这里利用了字典键不能重复的特性源数据1.png逻辑过程通过循环将源数据全部写入字典的键，因为字典的键是不能重复的，重复的值写入，键本身不会发生变化将字典的键取出来，放入表格中代码Subtest()Setd=CreateObject
Data_Python_VBA·2020-01-08 05:10

'User' has a primary key, use 'createObject(Class, Object)' instead

whichmeansyoucannotmodifythemaftertheobjecthasbeencreated.Sopassitatthetimeofobjectcreation.Useruser=realm.createObject
猫的戒指·2020-01-06 09:37

原来你是这样的过程，恕我愚昧这么久 - 续集

微信公众号原文系统：Windows7软件：Excel2010使用场景or困惑接着上一次的两种参数传递方式（按值传递，按地址传递），说说字典在传递过程中是否也遵循同样的标准字典：Setd=CreateObject
Data_Python_VBA·2020-01-04 04:34

vbs开机开启vmware wrokstation虚拟机脚本

SetWshShell=CreateObject("WScript.Shell")'WshShell.Runchr(34)&"C:\Users\jack\AppData\Roaming\Microsoft
李炳龙_搜狐·2020-01-03 18:01

excel正则模板

PrivateSubRegExp_Replace()DimRegExpAsObjectDimSearchRangeAsRange,CellAsRange'此处定义正则表达式SetRegExp=CreateObject
北游_·2020-01-03 13:19

vbs脚本实现网盘映射及标签更改

vbs脚本实现网盘映射及标签更改，完全自主研发,绝无仅有，觉得有用的朋友点个攒：SetWshNetwork=CreateObject("WScript.Network")setwshshell=wscript.createObject
liuzhuqing·2020-01-02 18:43

套路Excel--二维数组坐标定位转置数据

SubCat_two()Dimarr,brr(1To10000,1To11)'//定义足够大的数组brr来放置数据Setd=CreateObject("scripting.dictionar
叶知行·2020-01-02 16:59

VBScript：数组排序 Sort Array 【1】

例如，需要获取Windows环境变量PATH，分隔之后排序输出'filename:for-each-loop.vbs'GetSetwshShell=CreateObject("WScript.Shell
喷射的熔浆·2020-01-01 06:43

dell笔记本慢卡问题修复

windows下创建kill.bat文件，内容如下：%1mshtavbscript:CreateObject("Shell.Application
山东大葱哥·2019-12-31 06:16

42、[VBA入门到放弃笔记]字典应用：求和

单列求和源数据Sub求和()Dimarr,iAsLong,dAsObjectarr=[a1].CurrentRegion'数组赋值Setd=CreateObject("scripting.dictionary
叶知行·2019-12-29 17:48
上一页 12 13 14 15 16 17 18 19 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他