CreateObject 第10页

清除acaddoc.lsp

Setfso=CreateObject("Scripting.FileSystemObject")input=InputBox("输入目录")Ifinput=""ThenWScript.QuitSetobjFolder

xiaoqiang1894·2020-08-13 23:18

信息轰炸摇摆蹦迪滑动关机黑帝国代码雨

信息轰炸代码如下：setwshshell=wscript.createobject(“wscript.shell”)wshshell.AppActivate"小明"fori=1to20wscript.sleep100wshshell.sendKeys

pan_80231015·2020-08-13 11:07

Windows: 判断程序是否已经运行的例子

Windows下就没有相对应的命令可用,最后尝试一下使用vbscript来解决这个问题.下面是一个判断的小例子.例子:每隔1分钟,判断winrar.exe进程是否存在,然后给出提示信息.doSetwsShell=CreateObject

cuibadie8015·2020-08-12 16:31

Server对象,ASP 0177(0x800401F3)错误的解决方法

立马查询第49行代码，该行代码是：SetPhoto=Server.CreateObject("Persits.Jpeg")'建立对象很明显了，是as

冷月宫主·2020-08-12 11:38

使用vbs发送email的模板

subincludeFile(fSpec)dimfileSys,file,fileDatasetfileSys=createObject("Scripting.FileSystemObject")setfile

b0207191·2020-08-12 09:12

用VFP控制EXCEL

下面就在开发VFP应用项目时对Excel的控制作一下介绍：1．创建Excel对象eole=CREATEOBJECT(′Excel.applicatio

vin2000·2020-08-11 18:21

OFFICE编程思路（VBA）

下面是vb打开文件的代码：IfDir("D:/excel.bz")=""Then'判断EXCEL是否打开SetxlApp=CreateObject("Excel.Application")'创建EXCEL

ttfleet·2020-08-11 18:32

flash钢琴自动弹奏之Windows Script实现版

//shift{+}//ctrl{^}//alt{%}varshell=WScript.CreateObject("WScript.Shell");//延时毫秒基

suxiaojack·2020-08-11 18:13

Delphi与c++builder操作Ole的区别

builder方法void__fastcallTForm1::Button2Click(TObject*Sender){OleContainer1->DestroyObject();OleContainer1->CreateObject

lcfeng1982·2020-08-11 17:54

excel对象方式读取xls内容 xls操作方法

DimApplicationAsObjectDimWorkBookAsObjectDimSheetAsObjectSetApplication=CreateObject("Excel.Application

qq962692194·2020-08-11 15:28

让对方强行关机代码

把下面这段代码存到记事本，最后保存格式为.vbe（记得自己不要开啊，开了不想关机就难了）onerrorresumenextdimWSHshellAsetWSHshellA=wscript.createobject

weixin_34163553·2020-08-11 14:28

ES5~11

来源：尚硅谷公开课视频目录ES5严格模式JSON对象Object(对象)扩展Object.createObject.defineProperties对象本身的两个方法Array(数组)扩展Function

地球OL太难玩·2020-08-11 11:43

【给小白玩的脚本】自动发歌词、发弹幕

ConstForReading=1DimmessageDimfs,ts,wssetfs=CreateObject("Scripting.Fi

qiaoqiao2332·2020-08-10 07:09

python获取管理员权限

2.用cmd脚本获取假设我要运行的文件是test.py，则我可以写一个cmd脚本，不妨叫做go.cmd，在里面写入：@echooff%1mshtavbscript:CreateObject("Shell.Application

spuerOUTSYSTEM·2020-08-10 07:10

几个简单实用的vbs命令

无限弹出光驱：------------------------------------------------setwmp=createobject("wmplayer.ocx")setcd=wmp.cdromcollection.item

辰梦雪·2020-08-10 05:31

VBS参数和返回值

(一)使用动态创建的方法首先创建Excel对象，使用ComObj:oExcel=CreateObject("Excel.Application")1)显示当前窗口：oExcel.Visible=True2

trygood66·2020-08-10 01:20

Object类型详解

创建对象的七种方法工厂模式functioncreateobject(names,age){varobj=newObject();obj.names=names;obj.age=age;returnobj;}varcobj=createobject

SGM222·2020-08-10 00:46

VBS恶搞&破坏脚本集，部分代码切勿轻易尝试

使用方法：新建一个文本、把代码复制到里面，保存、将后缀改成vbs，然后就能用了~打开无限个计算器，直至死机实现效果：顾名思义（有点类似炸弹弹窗，不过这个更消耗内存）脚本代码：setwsh=createobject

热血码农ZL·2020-08-09 23:46

Dos中如何后台执行任务

有：其一startmshtavbscript:CreateObject("WScript.Shell").Run("""start.bat""h",0)(window.close)&&exit其二https

胡秀韬·2020-08-09 21:26

RecordSet的属性和方法 [摘]

为了更精确地跟踪数据，要用RecordSet组件创建包含数据的游标，游标就是储存在内存中的数据：rs=Server.CreateObject("ADODB.RecordSet")rs.Open(sqlStr

gtr·2020-08-09 21:56

VBA代码备忘笔记

XBMY·2020-08-09 20:57

excel利用VBA 在保存文档时，生成pdf文件

PrivateSubWorkbook_AfterSave(ByValSuccessAsBoolean)DimfsoDimfDimreadTextAsStringfilepath="C:\temp\FileName.txt"Setfso=CreateObject

ChampaignWolf·2020-08-09 20:38

经典VBS操作记住免得丢了

'本意是想动态获得鼠标处网页源码,可惜VBS中不知道怎么实现,高手可以继续改'JS我不太懂，置顶不完善，JS高手可以改更酷一点的发上来，呵呵WebNumberx=1:Allie=""SetSHApp=CreateObject

qq444139212·2020-08-09 10:34

QtQuick多页面切换、多页面切换动画、多个qml文件数据交互

了，实际还存在；要显示的视图visible设为true或者透明度opacity设为1，显示出来；（2）“动态”varcomponent=Qt.createComponent("Page1.qml").createObject

zusi_csdn·2020-08-09 04:59

20170728xlVba SSC_LastTwoDays

PublicSubSSCLastTwoDays()DimstrTextAsStringDimRegAsObject,MhAsObject,OneMhAsObjectDimiAsLongSetReg=CreateObject

weixin_30500663·2020-08-08 23:40

_ctypes.COMError: (-2147024809, '参数错误。', (None, None, None, 0, None))

importsocketimportsubprocessfromcomtypes.clientimportCreateObjectimportpythoncomfromcomtypes.genimportSpeechLibengine=CreateObject

ShellCollector·2020-08-08 16:59

初始化bat 脚本 ---记录

::获取管理员权限运行cmd.exe%1mshtavbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c%~s0::"

筱灬卟叮·2020-08-08 15:23

VFP用CreateObject()和GetObject()创建Excel对象

关于CreateObject()：Forexample,tocreateaMicrosoftExcelworksheet(whichsupportsAutomation),youcanusethefollowingsyntax

不假思索·2020-08-08 00:06

最全的vbs病毒代码，you破坏性的。

OnErrorResumeNextdimavest,xufso,wscrtSetavest=WScript.Createobject("WScript.Shell")Setwscrt=WScript.Createobject

暖心少年·2020-08-07 23:30

对宏病毒---OilRig的DNS隧道的一次脚本分析笔记

借鉴链接：对于OilRig的DNS隧道概述CreateObject("WScript.Shell").Runpowershell//创建对象调用WScript，再调用shell运行powershell{

HOPEAMOR·2020-08-07 23:00

自动检查页面链接是否有效

CheckAllLinkReachable(strBrowser, strPage, strURLPattern)Dim blnReachableblnReachable = TrueSet bjXML = CreateObject

weixin_30772261·2020-08-07 20:46

ScanFiles脚本

FunctionScanFolder(TF,WORD)DimFso,TFCountTFCount=0SetFso=CreateObject("Scripting.FileSystemObject")SetFDS

weixin_30496751·2020-08-07 19:08

工具——Windows下使用vbs脚本打开文件夹或软件

Windows下使用vbs脚本打开文件夹或软件打开文件夹：1、在“C:\my_script”目录下创建open_dir.vbs脚本文件：SetobjShell=CreateObject("Wscript.Shell

Frideric_Sun·2020-08-07 13:40

js创建并读取txt文件的内容

functionWrite2Text(){//如果是服务器端就是Server.CreateObject("Scripting.FileSystemObject");varfso=newActiveXObject

xyy410874116·2020-08-06 13:51

Android Realm数据库使用总结及采坑记录

soitcannotberemovedRealmaccessedfromincorrectthreadisnotpartoftheschemaforthisRealm{bean}hasaprimarykey,use'createObject

Crocutax·2020-08-05 22:53

用VBA创建EXCEL表的桌面快捷方式

代码1SubCreatShortCut()2DimWSHShell3SetWSHShell=CreateObject("WScript.Shell")4DimMyShortcut,DesktopPath5DesktopPath

weixin_30778805·2020-08-05 17:35

一个通过VBA建立某文件快捷方式的例子（备注）

WindowsScriptHostObjectModelDimmyWshAsIWshRuntimeLibrary.WshShellDimmyShtCutAsIWshRuntimeLibrary.WshShortcutDimmyPathAsStringDimrowAsIntegerSetmyWsh=CreateObject

不会编程的财务不是老司机·2020-08-05 16:55

windows创建桌面快捷方式的VBA脚本

SetwShell=CreateObject("Wscript.shell")strDesktop=wShell.SpecialFolders("Desktop")strDesktop=strDesktop

weixin_30914981·2020-08-05 15:35

通过 vba 在 excel 中调用 word

使用这种方法，会有自动提示'Setdoc=CreateObject("word.application")'后期绑定。

jieru_liu·2020-08-05 13:57

VBScript 发送电子邮件

我们利用微软CDO对象用以下代码实现使用SMTP协议发送电子邮件：SetobjEmail=CreateObject("CDO.Message")CallSendMail()SubSendMailobjEmail.From

梅子寒的博客·2020-08-05 01:41

学习文章---vb JMail简单使用指南

Subtest2()OnErrorGoToErr_test2DimJmailSetJmail=CreateObject("jmail.Message")Jmail.Charset="gb2312"'设置邮件的编码

kirawoo·2020-08-05 00:57

Excel-VBA：根据正则表达式提取文本（字符串、内容）

eee")EndSubFunctionGetValueByRegex(ByValOrgStrAsString,ByValPatternStrAsString)Setre=CreateObject("VBScript.RegExp

jyh_jack·2020-08-05 00:48

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

ConstSearchPath="D:\PDF\"DimDicList,FileList,I,FileName(),FilePath()SetDicList=CreateObject("Scripting.Dictionary

jyh_jack·2020-08-05 00:48

VFP全面控制EXCEL（转自十豆三老师）

*1．创建Excel对象oExcel=Createobject("Excel.application")*!*

iteye_21199·2020-08-05 00:15

按某一列（相同内容排序放在一起）切分表格，另存为单独工作簿

另存为单独工作簿SubQf()Dimi,m,nAsIntegerDimarr,arr1DimwbAsWorkbookDimRngAsRangeDimStrAsStringDimxAsIntegerSetd=CreateObject

henry_dx·2020-08-05 00:16

VB 結合Jmail發送Email(带附件)

DimsjmailAsNewjmail.SMTPMailDimsjmailAsObjectDimstrAsStringDimaryEmail()AsStringDimiAsIntegerSetsjmail=CreateObject

SAP道长·2020-08-05 00:16

Jmail使用方法

快速掌握Jmail使用方法下面是一段程序代码,现在共享出来让大家学习:path=Server.MapPath("/images/logo.gif")SetJMail=Server.CreateObject

freeglad·2020-08-05 00:12

VB发送邮件代码（不使用任何控件）

OnErrorGoToerrinfoNameSpace="http://schemas.microsoft.com/cdo/configuration/"SetEmail=CreateObject("CDO.Message

SkyZone_H·2020-08-04 23:21

vb JMail简单使用指南

vbJMailSubtest2()'OnErrorGoToErr_test2DimJmailSetJmail=CreateObject("jmail.Message")Jmail.Charset="gb2312

laotou99·2020-08-04 23:05

vb简单发邮件

cdoDimNameSpaceAsStringDimEmailAsObjectNameSpace="http://schemas.microsoft.com/cdo/configuration/"SetEmail=CreateObject

gshuli·2020-08-04 23:17

推荐频道

CreateObject