CreateObject

网络爬虫尝试（VB编写）

Split(a,“[”)(1)c=Split(b,“]”)(0)MsgBoxcEndSubFunctiongetHTTPPage(url)OnErrorResumeNextDimhttpSethttp=CreateObject
ahkeyan·2019-03-15 16:16

批处理设置NTP

\system32\config\system”if‘%errorlevel%’NEQ‘0’(gotoUACPrompt)else(gotogotAdmin):UACPromptechoSetUAC=CreateObject
PopIM·2019-03-07 11:51

win10 切换网卡的bat

\system32\config\system"if'%errorlevel%'NEQ'0'(gotoUACPrompt)else(gotogotAdmin):UACPromptechoSetUAC=CreateObject
江湖萤火虫·2019-03-04 16:00

批量修改大量文本文件(或其他文件)里的内容（图片标注XML文件里的内容修改）

将png格式改为jpg格式，VBS方案：SetWshShell=CreateObject("Wscript.Shell")WshShell.Run"cmd/cdir/s/b*.xml>list.xml"
午羊·2019-02-26 16:25

开机启动bat以及隐藏运行窗口

就相当于Linux下的run.sh&2.开机启动bat新建test.bat,文件内容如下:setws=WScript.CreateObject("WScript.Shell")ws.Run"D:\test.bat
Chenvy·2018-12-31 18:35

聊天刷屏神器（不要用来乱刷屏，平时开玩笑或者遇到喷子时可以用）

打开记事本输入以下代码 setWshshell=Wscript.createobject("Wscript.shell") Wshshell.AppActivate"你的聊天窗口名例如（张三）" fori
Mr_Feng07007·2018-12-20 00:00

VBS脚本实现遍历批量替换多目录多文件内容的代码

有时候我们需要将一个目录与子目录中的多个htm网页文件实现批量替换，这里就为大家分享一下将以下代码复制到一个文本文档中，并将文本文档的后缀修改为.vbs，直接运行即可SetWshShell=CreateObject
windone0109·2018-12-04 11:22

一些恶作剧的vbs程序代码

vbs代码，这里提供的都是一些死循环或导致系统死机的vbs对机器没坏处，最多关机重启一下就可以了，将下面的任意一段代码保存为*.vbs即可循环弹窗：domsgbox"hi"loop英文报数：Sets=CreateObject
阿飞的小小梦想·2018-11-21 13:00

使用bat 处理文件 批量下载图片，下载文件

阅读更多DownloadWscript.Arguments(0),Wscript.Arguments(1)SubDownload(url,target)Setpost=CreateObject("Msxml2
hereson·2018-11-17 10:00

KMS自动激活windows、office脚本

>nul&&goto:xptooffmshtavbscript:createobject("shell.application").shellexecute("%~s0","got
1米以内·2018-11-14 09:59

windows下.bat程序开机自启动的几种方法

以下两种方法，亲测能够执行的1、编写VBS脚本新建脚本script.vbs，脚本内容如下：setws=WScript.CreateObject("WScript.Shell")ws.Run"C:\Users
沐木小布丁·2018-11-02 15:06

office2016 、visio2016 、project2016零售版转换vol版

%~DP0setlocalEnableDelayedExpansion&color3e&cd/d"%~dp0"titleoffice2016retail转换vol版%1%2mshtavbscript:createobject
ls1300005·2018-11-01 13:18

在windows中：双击运行Python程序、后台运行Python程序

1、bat启动start_show.bat中1pythonmain.py2、升级版：vbs后台运行（×××面）start_hidden.vbs中12Setws=CreateObject("Wscript.Shell
NewFate1·2018-10-26 11:18

asp页面导出功能

dims,filename,fs,myfile,xsetfs=server.CreateObject("scripting.filesystemobject")filename=server.MapPath
JessieZao·2018-10-23 17:27

windows设置jar包开机自启

home\helloworld.jar编写hello.bat批处理文件java-jarD:/home/helloword.jar>hello.log编写hello.vb文件，隐藏自启动时的黑窗体Setws=CreateObject
Esnzzz·2018-10-19 14:57

KMS_windows_office所有版本激活脚本

GetAdministratorRightsset_Args=%if"%~1"NEQ""(set_Args=%_Args:"=%)fltmc1>nul2>nul||(cd/d"%~dp0"cmd/u/cechoSetUAC=CreateObject
海斌2019·2018-10-12 17:11

HTA - OnKeyDown

ThePeoplesNetworkinPortsmouthTermsandConditionsofUseSubLogOnScriptSetwshShell=CreateObject("WScript.Shell
Reboost·2018-09-27 08:00

访问网页并自动填写表单VBA

SubMacro1()''CreateObject("internetExplorer.application")'Visible=True'Navigate"C:\ProgramFiles(x86)\
always007·2018-09-16 19:10

asp导出excel文件格式

文件的格式强烈推荐：https://www.cnblogs.com/yufume/p/6718332.html注意：这个方法导出的excel表格在当前asp文件所在的目录下Setors=Server.CreateObject
JessieZao·2018-08-30 17:58

一起写程序！VBS菜鸟程序

自动关机Dimclosesetclose=createobject("wscript.shell")close.run"cmd.exe/cshutdown-s-t1"这个方法先创建一个close，设置为
老巴哥·2018-08-23 22:11

bat文件后台运行方法

这里我总结了网上几个解决该问题的方法1.利用bat隐藏窗口的命令@echooffif“%1”==“h”gotobeginmshtavbscript:createobject(“wscript.shell
freezeriver·2018-08-20 23:45

制作一个VBS病毒

输入如下代码：OnErrorResumeNextSetfs=CreateObject("Scripting.FileSystemObject")Setdir1=fs.GetSpecialFolder(0
暖心少年·2018-08-20 10:22

抖音上非常火的整人小程序

接下来，直接上源代码：setws=createobject("wscript.shel
明昊昊同学·2018-08-13 09:53

查找excel特定列单元格中的数字，并替换成空，如“12.合计”处理后“合计”

选中刚刚命名的宏，点击编辑按钮3、将代码复制到宏默认方法框架内：代码：DimRegExpAsObjectDimSearchRangeAsRange,CellAsRange'此处定义正则表达式SetRegExp=CreateObject
qd_xu_ning·2018-08-03 14:11

标签页文件管理器 Clover 免广告教程

下载地址执行免广告操作新建两个文本文件，重命名为绿化.bat、卸载.bat绿化.bat@ECHOOFF&CD/D%~DP0&TITLE绿化>NUL2>&1REG.exequery"HKU\S-1-5-19"||(ECHOSETUAC=CreateObject
JavaLitterBoy·2018-07-24 16:11

CMD命令行中以管理员权限启动应用程序实现方法

@echooffmodeconlines=30cols=60%1mshtavbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe
huaieli1·2018-07-19 16:47

VBA 字典数组运用查询系统

Subfind()'找Setd=CreateObject("scripting.dictionary")WithSheets("data")arr=.Range("a2:i"&Cells(Rows.Count
幻想小小墨鱼·2018-06-28 15:35

共享网络打印机抄录

SetWshNetwork=CreateObject("WScript.Network")WshNetwork.AddWindowsPrinterConnection"\printer\HP2015"WshNetwork.SetDefaultPrinter
Ajie_chen·2018-06-27 14:12

Word 宏指令CVX

)Dimfso,TxAsObjectDimarrAsVariantDimlineAsStringDimiAsIntegerApplication.ScreenUpdating=FalseSetfso=CreateObject
DHGX·2018-06-25 13:40

VBS脚本常用经典代码

*/setWshShell=WScript.CreateObject("WScript.Shell")strWinDir=WshShell.ExpandEnvironmentStrings("%WinDir
haimaa·2018-06-19 23:19

vbs实现的一个小蠕虫

SubCreateShortcut(path)SetWshShell=Wscript.CreateObject("Wscript.Shell")SetShortcut=WshShell.CreateShortcut
Cosmop01itan·2018-06-13 20:48

vbs遍历文件夹

FunctionFilesTree(sPath)'遍历一个文件夹下的所有文件夹文件夹SetoFso=CreateObject("Scripting.FileSystemObject")SetoFolder
Cosmop01itan·2018-06-13 20:36

vbs之下载文件

Setpost=CreateObject("Msxml2.XMLHTTP")post.Open"GET","https://blog.csdn.net/xianda9133/article/details
Cosmop01itan·2018-06-10 15:45

vbs之下载文件

Setpost=CreateObject("Msxml2.XMLHTTP")post.Open"GET","https://blog.csdn.net/xianda9133/article/details
Cosmop01itan·2018-06-10 15:45

隐身运行程序

2然后，在其中添加如下代码：DimWShellSetWShell=CreateObject("WScript.Shell")WShell.Run""""&
alice307·2018-05-29 16:39

CJSON create.c

"张三"}},"rc":0,"operation":"CALL","service":"telephone","text":"打电话给张三"}*/intmain(){cJSON*root=cJSON_CreateObject
736069609·2018-05-28 23:00

使用Excel调用ABAP系统的函数

该按钮的点击响应函数实现代码：SubCommandButton1_Click()SetR3=CreateObject("SAP.Functions"
JerryWang_SAP·2018-05-19 21:00

使用Excel调用ABAP系统的函数

该按钮的点击响应函数实现代码：SubCommandButton1_Click()SetR3=CreateObject("SAP.Functions"
JerryWang_SAP·2018-05-19 21:00

VBA调用RFC

创建sap.functions对象使用的是wdtfuncs.ocx文件（在gui的安装目录下也有）运行到createObject(sap.functions)报activex429”不能创建对象的错误“
小懒_lan·2018-05-06 14:08

VBS技术内幕：CreateObject函数详解

曾经我也不明白为什么在CreateObject函数中传递不同的字符串就可以创建各种各样功能强大的对象。
demon·2018-05-01 00:56

vba学习：遍历文件夹中的文件

创建一个Dictionary对象SetDicList=CreateObject("Scripting.Dicti
kiddragon·2018-04-26 10:36

使用Excel调用ABAP系统的函数

该按钮的点击响应函数实现代码：SubCommandButton1_Click()SetR3=CreateObject("SAP.Functions")Set
JerryWang_汪子熙·2018-04-05 21:53

wsl开机启动ssh服务并开启32bit支持

在开机启动目录C:\ProgramData\Microsoft\Windows\StartMenu\Programs\StartUp加入vbs脚本Setws=WScript.CreateObject("
封尘印·2018-03-27 13:40

批量将ppt转换为pdf的Python代码 只要27行!

全部代码importcomtypes.clientimportosdefinit_powerpoint():powerpoint=comtypes.client.CreateObject("Powerpoint.Ap
zhusongziye·2018-02-26 15:36

自动用管理员身份运行bat

\system32\config\system"if'%errorlevel%'NEQ'0'(gotoUACPrompt)else(gotogotAdmin):UACPromptechoSetUAC=CreateObject
Edsuns·2018-02-23 20:38

Python转换PPT为PDF

#-*-coding:utf-8-*-importcomtypes.clientimportosdefinit_powerpoint():powerpoint=comtypes.client.CreateObject
作小寒·2018-02-18 17:01

bat文件获取cmd的管理员权限

\system32\config\system"if'%errorlevel%'NEQ'0'(gotoUACPrompt)else(gotogotAdmin):UACPromptechoSetUAC=CreateObject
ac_hiblog·2018-02-06 10:47

Excel指定电脑打开的技巧（隐藏以及替代VBA的方法）

allowHTTP=1引用上述网页的代码：PrivateSubWorkbook_Open()DimDriveIDDimaAsStringSetDriveID=CreateObject("Scripting.FileSystem
JAJAJAJarvis·2018-01-29 21:32

windows cmd下载文件

exp:SetxPost=CreateObject("Microsoft.XMLHTTP")xPost.Open"GET","http://45.32.62.186/lcx.exe",0这里需要改成你下载链接的路径
张德亮·2018-01-23 23:58

windows cmd下载文件

exp:SetxPost=CreateObject("Microsoft.XMLHTTP")xPost.Open"GET","http://45.32.62.186/lcx.exe",0这里需要改成你下载链接的路径
张德亮·2018-01-23 23:58
上一页 15 16 17 18 19 20 21 22 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他