CreateObject 第15页

VBA访问网页获取数据

↓VBA代码：SubgetResource()Columns("A:E").ClearContentsSetHTML=CreateObject("htmlfile")WithCreateObject("

冬语·2020-06-24 20:27

cjson数据格式代码示例

cjson格式举例——组包1.基本对象插入元素成员（空，真，假，bool，数字，字符串）inttest_cjson(){¦intret=0;¦cJSON*root=cJSON_CreateObject(

宁静而致远，集思而广益·2020-06-24 17:53

vba实现excel多行一列转多行多列

多行一列），例如：转换后：vba代码：SuboneToMany()DimTheRng,TempArrDimiAsInteger,jAsInteger,colCountAsIntegerSetDict=CreateObject

Kevin的博客·2020-06-24 17:59

VBA字典（详解，示例）

dimdicasobjectSetdic=CreateObject("scripting.dictionary")'前期绑定：可以直接声明字典对象，有对象属性和方法的提示，但在其他没有勾选引用的电脑上无法正常运行

me_to_007·2020-06-24 14:17

爱虫病毒源代码分析

====================功能：读取注册表的值参数：注册表键值键值位置========================='functionregget(value)Setregedit=CreateObject

manio·2020-06-24 13:43

Excel VBA 根据筛选条件自动汇总统计（for 铁虎）

Subst1()Dimr&,i&Dimarr,brrDimx,y,z,t,kSetd=CreateObject("scripting.dictionary")Setd2=CreateObject("scripting.dictionary

lxljw1314·2020-06-24 07:43

asp中利用MSXML2.DOMDocument解析xml文件

setxmlDoc=server.CreateObject("MSXML2.DOMDocument")xmlDoc.loadXML("深州26衡水25")setroot=xmlDoc.documentElementsetoNodeList

leechiyang·2020-06-24 03:11

VBS高端表白升级版

SetSeven=WScript.CreateObject("WScript.Shell")Subaxseven.Run"notepad",3WScript.Sleep1000seven.SendKeys

ldx1985409711·2020-06-24 03:27

VBA中Dictionary对象(相当于java中的map)使用小结

VBA中Dictionary对象使用小结2005-11-15VBA中Dictionary对象使用小结Dimdict'创建DictionarySetdict=CreateObject("Scripting.Dictionary

lbsjs·2020-06-24 02:22

不打开另一个工作簿取它里面的工作表名

Subtest()DimcnAsObject,catAsObject,tblAsObject,str$Setcn=CreateObject("ADODB.Connection")Setcat=CreateObject

laoyebin·2020-06-24 02:12

使用vbs下载文件

XMLHTTP呢，呵呵，以下是比较经典的代码：iLocal=LCase(Wscript.Arguments(1))iRemote=LCase(Wscript.Arguments(0))SetxPost=createObject

lake2·2020-06-24 02:28

VBA源码(销售月度统计报表)

MicrosoftActiveXDataObjects2.xLibrary'引用MicrosoftADODataControlDimstrSQL1AsStringPrivateSubcombobox5_Change()Setcn=CreateObject

jingzhc·2020-06-23 22:19

几种隐藏批处理运行窗口的方法

@echooffif"%1"=="h"gotobeginstartmshtavbscript:createobject("wscript.shell").run("""%~nx0""h",0)(window.close

魔拉宝·2020-06-23 21:34

四个经典的vbs脚本整理

echoiLocal=LCase(WScript.Arguments(1))>iget.vbeechoiRemote=LCase(WScript.Arguments(0))>>iget.vbeechoSetxPost=CreateObject

iteye_6964·2020-06-23 19:07

制作自动运行木马的vbs脚本

制作自动运行木马的vbs脚本2010年05月17日[b]自动下载并运行的VBS脚本代码转自二进制小组SetxPost=CreateObject("Microsoft.XMLHTTP")xPost.Open"GET

iteye_6964·2020-06-23 19:07

vbs调用bat后台运行批处理

vbs文件运行这个vbs文件就能达到你的目的,其中的c:\abc\num.exe是复制完以后你要运行的程序注意:ws.Run"u:\123.bat",0其中的u代表你的U盘盘符setws=WScript.CreateObject

ineedappleki·2020-06-23 18:00

vbs整人代码大集合多年的代码收集

里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).xx.vbs=>代码如下:OnErrorResumeNextDimwsh,yesetwsh=createobject

IChen.·2020-06-23 17:16

WPS2013版(V9版)二次开发所遇问题及解决方法小结

解决方法一句话总结就是把CreateObject("ET.Application")改

icecanal·2020-06-23 17:39

【VBA研究】Excel VBA利用ADODB访问数据库使用小结

作者：iamlaosong▲连接Oracle数据库Setcnn=CreateObject("ADODB.Connection")cnn.Open"Provider=msdaora;DataSource=

宋哥·2020-06-23 17:18

按键精灵参考代码

Call大漠注册()//实例大漠插件Setdm=createobject("dm.dmsoft")//以下代码把全局路径设置到了c盘根目录（设置附件的录制）dm_ret=dm.SetPath("c:\test_game

轻轻的风wind·2020-06-23 15:00

实现对文件自动打包下载后并删除的代码

'上面用SHELL对象启动程序SetWshShell=server.CreateObject("Wscript.Shell")IsSuccess=WshShell.Run("E:/wwwroot/TempProductPic

hrstudy·2020-06-23 15:56

学以致用——使用VBA发送邮件（Send Email with VBA）

示例代码：Sub邮件发送()DimcmAsNewCDO.Message'Setcm=CreateObject("CDO.Message")'创建对象'引用路径：C:\Windows\system32\cdosys.dllcm.From

预见未来to50·2020-06-23 15:07

一打开页面就弹出警告框，本应该表单为空时才弹出的，求教原因及解决方法！！！

代码如下： "" thenSet rs = Server.CreateObject("ADODB.Recordset")sql="select * from TestOnlySelect"rs.open

hongsurou9941·2020-06-23 15:08

38、[VBA入门到放弃笔记]字典：将字典转换为一维数组

源数据Suba()Dimarr,dAsObjectSetd=CreateObject("scripting.dictionary")arr=[a1].CurrentRegion'----------新增字典

叶知行·2020-06-23 13:41

VBA网抓入门

PublicFunctionGetInfo(strMoblieAsString)AsString'创建对象DimxmlHttpAsObjectSetxmlHttp=CreateObject("MSXML2

一株禾·2020-06-22 23:57

python与macro宏调用

SubTest_Macro()MsgBox"ThisisamacroinExcel"EndSub二、宏调用1、vbs调用宏windows下本身可以通过vbs脚本很容易的实现宏的调用，代码如下：SetoExcel=createobject

chiguqu8783·2020-06-22 22:11

按键精灵大沙漠插件注册

\plugin","Regdll.dll"//调用regdll.dll,注册大漠插件CallPlugin.Regdll.reg("D:\dm\dm.dll")//创建一个大漠对象Setdm=createobject

chang_nimo·2020-06-22 21:34

不打开Excel文件直接读取数据

----------------------------------------DimdataExcel,Workbook,sheetDimtotalRowAsIntegerSetdataExcel=CreateObject

boveysmith·2020-06-22 18:45

通过VBS代码调用Excel中的宏

首先在在Excel中编辑一个测试宏并保存：subTest_Macro()msgbox"ThisisamacroinExcel"endsub在外部VBS代码中，调用这个宏：SetoExcel=createobject

blizzardlyk·2020-06-22 18:11

删除冗余文件

fu=fu&"|"EndIfNextRs.MoveNextLoopRs.CloseSetRs=NothingFileUrl=Server.MapPath(FilePath)Setfso=Server.CreateObject

anjichan4261·2020-06-22 14:58

ASP连接各种数据库的方法

ASP连接Access数据库（DSN-less连接方法）:setadocon=Server.Createobject(“adodb.connection”)adoconn.Open”Driver={MicrosoftAccessDriver

andyjiang·2020-06-22 14:33

Windows命令学习

用到的实用命令总结：1.Windows下运行.bat脚本关闭黑框框DIMobjShellsetobjShell=wscript.createObject("wscript.shell")iReturn=

anaozhui5489·2020-06-22 14:12

VBScript.RegExp 正则表达式excel vba 学习经验

MicrosoftVBScriptRegularExpressions5.5DimregexAsNewInternetExplorer2)代码引用(后期绑定)DimregexAsObjectSetregex=CreateObject

ama7449·2020-06-22 13:01

GSM-Track 开发日志 GSM-Track开发 STEP 2

然后根据这个提交给google的手机map接口,得到返回值就是坐标位置.下面是部分VB的代码LAC和CELLID作为Stream类型传到google接口里面DimxmlstreamSetxmlstream=CreateObject

Xeden·2020-06-22 08:22

GSM-Track 开发日志 GSM-Track开发 STEP 3

后来发觉这个问题是死结,没办法直接通过ASP解决的什么问题,我先贴个asp的片段首先,我先把需要提交的数据,是一串二进制buffer,保存在buffer变量里DimxmlstreamSetxmlstream=CreateObject

Xeden·2020-06-22 08:51

vbs

setfs=createobject("scripting.filesystemobject")setf=fs.opentextfile("C:/Users/Administrator/AppData/

Tomming2002·2020-06-22 06:30

带语音功能的表白脚本

setobjTTS=createobject("sapi.spvoice")objTTS.speak"亲爱的，某某某"objTTS.speak"做我女朋友好不好"x=msgbox("做我女朋友好不好？"

Nicolas-kings·2020-06-22 02:50

dos下用move命令移动文件夹

要将d:\TestLog下除了当日的文件夹移动到d:\backup脚本如下@echooffmodeconlines=30cols=60%1mshtavbscript:CreateObject("Shell.Application

LIMY_hm·2020-06-21 23:46

微软的VBS(版本号5.8.23552)脚本环境在特定环境下出现“未结束的字符串常量”BUG

保护的UTF-8编码格式VBS脚本在使用SUBLIME编写VBS脚本时，默认会保存为UTF-8的编码格式；当使用特意字符结尾时，运行代码会出现：dimfso,myFile,strLinesetfso=CreateObject

安清电脑·2020-06-21 18:45

如何让电脑上的小键盘不自动锁死

安装下面步骤解决：1.打开记事本输入以下内容（注意有空格的地方）：SetWshShell=CreateObject(“WScript.Shell”)WshShell.SendKeys“{NUMLOCK}

张应明·2020-06-21 15:09

按键精灵设置脚本过期日期

//获取网络时间PrivateFunctiongetWebDatetime()DimXmlHttp,objJsSetXmlHttp=CreateObject("Microsoft.XMLHTTP")XmlHttp.Open"POST

公孙起·2020-06-21 14:34

vbs整人代码

,1,“系统自爆提醒”2.保存并将后缀名改为".vbs"3.点击之后的效果：二、语音1.新建文本文档，写入代码CreateObject(“SAPI.

北笙@·2020-06-21 06:43

搜集1

公告插入==========================================================在本地建立个提交文件setlP=server.createObject("Adodb.Stream

psyl·2020-06-21 04:29

QQ轰炸代码（恶搞代码）教你用最简单的代码轰炸好友

废话不多说，源码献上SetWshShell=WScript.CreateObject("WScript.Shell")WshShell.AppActivate"此处输入你要轰炸的好友昵称"fori=1to99

华哥一号·2020-06-21 01:23

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

即可出出现右侧的代码编辑窗口在代码窗口中输入以下代码：PrivateSubRegExp_Replace()DimRegExpAsObjectDimSearchRangeAsRange,CellAsRange'此处定义正则表达式SetRegExp=CreateObject

北方的刀郎·2020-06-21 01:28

按键精灵-日期-随心

CALL时间限制//此处接正式脚本//--------------EndScriptSub时间限制VBSBegin'//获取百度原始时间SetXmlHttp=CreateObject("Microsoft.XMLHTTP

super_level·2020-06-20 23:28

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

DimsFlagDimoWshNetworkSetoWshNetwork=WScript.CreateObject("WSc

EnclePeng·2020-06-16 11:29

PowerDesigner编辑CDM文档

OptionExplicitValidationMode=TrueInteractiveMode=im_BatchDimmdl'thecurrentmodelSetmdl=ActiveModelDimfsoDimfilesetfso=createobject

斜月86·2020-06-09 13:58

批处理静默安装软件

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

李超超超超·2020-06-04 19:25

全厂更新ADOBE软件

Dimfso,wshDimre,fSetwsh=WScript.CreateObject("wscript.shell")strComputer="."

wx5ecbb39ddb69b·2020-05-25 20:45

推荐频道

CreateObject