Private FunctionGetObjectDllPathByWSCript(ObjectName As String)As String Dim ws As Object Set ws=VBA.CreateObject("WScript.Shell")Dim clsid As String clsid=ws.RegRead("HKEY_CLASSES_ROOT\" & ObjectName & "\CLSID\
最后两句应该改为 Set regResult = wShell.Exec("REG QUERY HKLM\Software\360\liveup /ve")MsgBox regResult.StdOut.ReadAll exec 方法打开的窗口不能隐藏，要隐藏窗口，用 run 方法，写入临时文件：Set ws = CreateObject("wscript.shell")Set FSO = CreateObject("Scripting.FileSystemObject")ws.ru...
Exec不一定会有黑窗口弹出来的，看你运行什么命令。Dim WshShell, oExecSet WshShell = CreateObject("WScript.Shell")Set oExec = WshShell.Exec("calc")Run能不能办到，也要看你运行的是什么命令。
Excel VBA之CreateObject 函数 先看一下下面的句子，体会一哈：Set d = CreateObject("Scripting.Dictionary") '建立字典对象变量d Set xlApp = CreateObject("excel.application") '建立Excel对象变量xlApp Set fso = CreateObject("Scripting.FileSystemObject") '建立文件系统对象变量fso CreateObject 函数创建并返回一...
creatobject("wscript.shell") SHELL creatobject("wscript.network") 网络操作 createobject("microsoft.xmlhttp") XMLHTTP ,远程获取文件用的 createobject ("msxml2.xmlhttp.4.0") 同上 createobject("adodb.stream") 数据流传输 createobject("adodb.connection") 数据库连接 ...
createobject("WScript.Shell") createobject("wscript.network") createobject("MSWC.adRotator") createobject("excel.sheet") createobject("frontpage.application") createobject("access.application") createobject("msgraph.application") createobject("photoshop.application") //关于SQLServer的 CreateObject("SQLDMO.SQLSe...
shell "cmd /c a.bat", vbHide do while dir("要删的文件")<>""doevents loop 象
你好，声明了一个变量A后要给它创建对象使用关键字SET，我的理解就是你要告诉宿主（脚本解释器）这个变量A能干什么，宿主本身包含了以下几个对象：提供一整套文件系统操作函数，你给A创建了此对象，那么它就能对文件进行操作，比如移动删除复制文件等，
1、ExcelVBA之CreateObject函数先看一下下面的句子,体会一哈:Setd=CreateObject(Scripting.Dictionary)建立字典对象变量dSetxlApp=CreateObject(excel.application)建立Excel对象变量xlAppSetfso=CreateObject(Scripting.FileSystemObject)建立文件系统对象变量fsoCreateObject函数创建并返回一个对ActiveX对象的引用。语法CreateObject(clas...
CreateObject("WScript.Shell").Run"%systemroot%\syswow64\mshta.exe about:""about:moveTo(-32000,-32000);document.title='x86Host'<hta:application showintaskbar=no />shell.putproperty('"& sSignature &"',document.parentWindow);""",0, False Do For Each oShellWnd In CreateObject("Shell.Application...