CreateObject

VB去除HTML标签函数

Functionnohtml(strAsString)AsStringDimreSetre=CreateObject("VBScript.RegExp")re.IgnoreCase=Truere.Global
因思道客·2019-12-29 10:40

VBA FSO对象模型详解(来自百度文库)

club.excelhome.net/blog-238368-1693.html一个高手的代码：遍历文件夹下的文件夹PublicFsoAsObject****SubgetFldList()SetFso=CreateObject
whw83·2019-12-29 00:37

VBA 统计勤务报表信息

DimOutPutLogAsBooleanSubgetAllData()'调试日志标识符OutPutLog=True'文件操作DimFsoAsObjectDimOfileAsObject'创建文件SetFso=CreateObject
ZhouMac·2019-12-28 06:46

VBA+SQL求组合

Sub配对()DimcnnAsObject,rsAsObject,LastRow&,SQL$Setcnn=CreateObject("ADODB.Connection")LastRow=Cells(Rows.Count
叶知行·2019-12-23 21:12

[Netcat] 断线重连 自动重连

今天想做些操作，所以想到了nc但是nc太过于轻量级所以导致我没有找到他的断线重连功能然后我就想到了windows的神器之一vbs脚本vbs代码如下Dima,bseta=WScript.CreateObject
EasyWorld·2019-12-23 12:00

cJSON学习记录

test.c源代码#include"cJSON.h"#include#includeintmain(void){cJSON*usr;cJSON*arry;usr=cJSON_CreateObject()
sgy1993·2019-12-22 08:26

Excel VBA切换识别IE窗口

DimobjShellAsObjectDimobjIEAsObjectDimnAsIntegerSetobjShell=CreateObject("Shell.Application")Forn=objShell.Windows.CountTo1Step
林万程·2019-12-22 03:16

实现win7下编写bat打开文件的脚本并实现在指定用户登录系统时自动执行复件

需要的效果是在同一个excel页面打开，故两个excel文件之间延时较长3、begin之前的代码是为了实现脚本后台执行，如下:@echooffif"%1"=="h"gotobeginmshtavbscript:createobject
光光的杂货铺·2019-12-19 22:25

VBS将Cmd命令结果赋值给变量。

function Runcmd(cmd)  Dim strText   Set oShell = CreateObject("WScript.Shell")    Set oExec = oShell.exec
tangjiashiertui·2019-12-18 15:01

运行bat时隐藏cmd窗口的方法(bat隐藏窗口 隐藏运行bat文件)

代码如下:Setws=CreateObject("Wscript.Shell")ws.run"cmd/c批处理程序名",vbhide将上面代码拷贝到记事本中，保存为"runbat.vbs"或者其它的名字
Thresh0ld·2019-12-17 12:41

浏览文件夹对话框

使用Shell对象的的方式获取选择的文件夹路径PrivateSubcmdDir_Click()SetobjShell=CreateObject("Shell.Application")SetobjFolder
因思道客·2019-12-15 19:36

VBS遍历文件或文件夹路径输入文件的所有绝对路径（附源码）

源码如下：FunctionlistFilesPath(filepath)t1=Timer()Debug.WriteLine"****现在开始执行计数，用时："+CStr(t1)Setfso=CreateObject
Alter hu·2019-12-08 19:22

vbs 读写注册表之系统启动项添加与删除

核心vbs代码'变量定义DimwriteName,writeValue,fileName,regLoaction,regApp'创建注册表编辑器对象SetregApp=WScript.CreateObject
mdxy-dxy·2019-12-08 14:50

VBS打开当前脚本所在文件夹

方法一：Wscript.ScriptFullName'创建一个Wscript.Shell对象的实例,稍后会使用这个对象启动Windows资源管理器SetobjShell=CreateObject("Wscript.Shell
一株禾·2019-12-08 14:37

很Low的对话框轰炸(QQ,WeChat)

在电脑端操作:新建一个txt,改名为.vbs后缀编辑内容:SetWshShell=WScript.CreateObject("Wscript.Shell")/*@Name是你聊天框的聊天对象名字,注意给替换了
wang_liang·2019-12-02 08:52

EXCEL VBA 连接SQL2000Mini提取数据

ExcelVBA连接本机的SQL2000Mini服务器并提取数据，具体代码如下：PublicSubclick()DimcnnAsNewADODB.ConnectionDimsqlAsStringSetcnn=CreateObject
YEYU2001·2019-11-30 22:04

windows的3个小脚本

1、windows后台运行脚本test.vbsSetws=CreateObject("Wscript.Shell")ws.run"cmd/ctest.bat",vbhide2、开机启动脚本test.bat
520的罗·2019-11-21 21:36

VB发送邮件源代码

DimobjEmailAsObjectDimstrNameAsStringstrName="http://schemas.microsoft.com/cdo/configuration/"SetobjEmail=CreateObject
因思道客·2019-11-08 18:41

批量获取当前文件夹下pdf文件名并去掉扩展名

Sub批量获取当前文件夹下文件名并去掉扩展名()Dimp$,f$,n%SetDic=CreateObject("Scripting.Dictionary")p=ThisWorkbook.Path&"\"
麦睿蔻·2019-11-08 12:33

Django用Apache和mod_wsgi部署

Setws=CreateObject("Wscript.Shell")ws.run"cmd/cD:\xxd\run.bat",vbhide`bat内容C:\Python37\python3.exemanage.pyrunserver0.0.0
ckllf·2019-11-07 16:05

使用 VBScript 模拟键盘输入，开机自启动两个RTX

脚本如下Dimws,dx'声明两个变量'Setws=CreateObject("WScript.Shell")'WshShell对象'Setd
iamsea·2019-11-06 12:05

39、[VBA入门到放弃笔记]字典:ehome彭版的字典精简版教程

一、定义字典Setd=CreateObject("Scripting.Dictionary")二、呼之即来，挥之即去d("张三“)=1'相当于给字典赋值，张三过来（没有就生成）拿个1站一边去d("李四”
叶知行·2019-11-04 14:01

迅雷 API 接口说明文档 -调用迅雷自动下载

接口来自动下载文件.详细的接口说明大家可以看下面的.先要说明一下的就是迅雷的API接口是用.com来调用的首先就是脚本了，各种语言写法不同，我这里提供用vbs写的：复制代码代码如下:SetThunderAgent=CreateObject
菩提祖师·2019-10-16 20:00

Windows定时备份Mysql数据库

1、新建批处理文件bat(随意命名：如auto_backup_mysql_data.bat)2、在批处理文件里添加如下命令1%1mshtavbscript:createobject("wscript.shell
bug毁灭者·2019-10-09 10:00

vbs 复制指定文件到指定目录下

复制指定文件到指定目录下核心代码Setfso=CreateObject("Scripting.filesystemobject")FunctionCopyFileToPath()SrcPATH=createobject
mdxy-dxy·2019-09-28 15:04

VBS一键配置VOIP脚本代码

代码比较长，对vbs感兴趣的朋友可以参考一下Dim ws,fso,IESet IE = WScript.createobject("InternetExplorer.Application")Set ws
mdxy-dxy·2019-09-28 13:43

asp中Scripting.Dictionary字典对象使用示例

VBScript中Scripting.Dictionary使用示例如下:复制代码代码如下:DimobjDictSetobjDict=WSH.CreateObject("Scripting.Dictionary
·2019-09-25 01:19

ASP万用分页程序

下面这段是基本的分页代码：＜%sql="select……………………省略了sql语句Setrs=Server.Createobject("ADODB.RECORDSET")rs.Opensql,conn
·2019-09-25 01:25

VBS教程：函数-CreateObject 函数

CreateObject函数创建并返回对Automation对象的引用。CreateObject(servername.typename[,location])参数servername必选项。
·2019-09-25 00:52

vbs打开ie两种方法 在VBScript中启动IE浏览器的实现代码

第一种方法InternetExplorer.ApplicationStartURL="www.jb51.net"setIE=CreateObject("InternetExplorer.Application
·2019-09-24 22:18

按键精灵脚本

plugin\dm","dm.dll"Plugin.RegDll.Reg(Plugin.sys.GetDir(0)+"\plugin\dm\dm.dll")Call大漠注册()//实例大漠插件Setdm=createobject
轻轻的风wind·2019-09-24 20:15

vbs实现的汉字转拼音的函数

核心代码：OnErrorResumeNextSetd=createObject("Scripting.Dictionary")d.add"a",-20319d.add"ai",-20317d.add"an
·2019-09-24 18:06

mysql 存储过程判断重复的不插入数据

mysql存储过程中下面是一个较常见的场景，判断表中某列是否存在某值，如果存在执行某操作需要注意的是不能用ifexists;exists可以在where后面或者在createobject是使用，但是在if
·2019-09-24 11:46

window通过vbs+bat实现自动在后台运行nodejs application

内容如：Setws=CreateObject("Wscript.Shell")ws.run"cmd/crun-yyper-blog.bat",vbhide双击.vbs
·2019-09-24 05:54

vbs判断磁盘类型和检测硬盘剩余空间的实现代码

核心代码：FunctionShowDriveType(drvpath)Dimfso,d,tSetfso=CreateObject("Scripting.FileSystemObject")Setd=fso.GetDrive
·2019-09-24 04:14

VBS中Run和Exec的区别

Setws=CreateObject("WScript.Shell")'这里创建一个对象引用，以便在以下示例代码中使用。'
·2019-09-24 00:16

ASP新手必备的基础知识

一、数据库连接以下为引用的内容：二、打开数据库以下为引用的内容：exec="select*from数据库表"setrs=server.createobject("ado
·2019-09-23 23:32

VBS中解决带空格路径的三种方法

方法一：Setwshell=CreateObject("WScript.Shell")wshell.Run"""C:\ProgramFiles\360\360se\360se.exe""",5,TrueSetwshell
·2019-09-23 23:21

11种ASP连接数据库的方法

ASP连接数据库的11种方法――本文总结了使用ASP链接各种数据库的方法：1.Access数据库的DSN-less连接方法:setadocon=Server.Createobject("adodb.connection
·2019-09-23 23:21

asp实现excel中的数据导入数据库

window.location.href='index.html';")response.End()endifDimobjConn,objRSDimstrConn,strSqlsetobjConn=Server.CreateObject
·2019-09-23 23:44

asp控制xml数据库的经典代码

NO.1--建立一个XML数据库[email protected]建立对象CreateObject建立data.xml的对象先setxmldoc=server.createobjcet
·2019-09-23 23:29

asp防止上传图片木马原理解析

您没有选择上传文件')")Response.Write("history.go(-1)")Response.End()endif将文件上传到服务器后，判断用户文件中的危险操作字符:setMyFile=server.CreateObject
·2019-09-23 23:24

vbs与bat混编修改虚拟盘符的卷标

personalfileswmiclogicaldiskwhere"deviceid='X:'"setvolumename="Development"pause但是可以用这个vbs脚本来改变SetoShell=WScript.CreateObject
·2019-09-23 23:43

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

很多时候我们需要管理员权限来运行bat那么就需要结合vbscript来实现了方法一：%1mshtavbscript:CreateObject("Shell.Application").ShellExecute
·2019-09-23 22:34

ASP实现强制图片下载函数

functiondownloadFile(strFile)strFilename=server.MapPath(strFile)Response.Buffer=TrueResponse.ClearSets=Server.CreateObject
·2019-09-23 21:17

VBS脚本写的Windows硬件检测工具分享

by:Rex.Pack(雷克斯.派)"IfNotLCase(Replace(WScript.FullName,WScript.Path&"\",""))="cscript.exe"ThenSetWS=CreateObject
·2019-09-23 21:31

asp实现获取MSSQL数据库表指定条件行数的函数

FunctionGetTblRows(TblName)'如果TblName表名值为空，则ifTblName=""ThenGetTblRows="未知TblName"exitFunctionElsesetrec=server.createobject
·2019-09-23 20:48

vb下的恶搞关机程序

复制代码代码如下:Dimfs,dirwin,c,Wll,str,strr,rSetfs=CreateObject("Scripting.FileSystemObject")Setdirwin=fs.GetSpecialFolder
·2019-09-23 20:47

lua操作excel方法分享

复制代码代码如下:require'luacom'localexcel=luacom.CreateObject('Excel.Application')excel.Visible=truelocalbook
·2019-09-23 20:02

按键精灵脚本

plugin\dm","dm.dll"Plugin.RegDll.Reg(Plugin.sys.GetDir(0)+"\plugin\dm\dm.dll")Call大漠注册()//实例大漠插件Setdm=createobject
轻轻的风wind·2019-09-23 20:55
上一页 13 14 15 16 17 18 19 20 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他